Source image: P1000054.JPG
                PROGM   080      0   801     INTERCODE TRANSLATOR                                                  
                ENTRY   102      3                                                                                 
                    D1       14      0    195    0                         PRINTER(OR CLEO-SIZEDANNEX)             
                    B1       15      4     27    0                         PT/CARDS MODS                           
                    A1        7      4     75    0                                                                 
                    A2        8      4     75    0                                                                 
                    A6        7      4     75    0                                                                 
                                                                                                                   
      CHAPS   10   100   101   152   327   553   680   776   918   994   995                                       
      INDEX    3     1     2     2     2     2     2     2     2     2     2                                       
                                                                                                                   
          *1001        3      24    0       2                              PROCR 'LENGTH' INDEX B/FWD              
          *1002        4      50    0       2                              PASS 0 INPUT UNPACKED                   
          *1003        6     450    0       2                              PASS 0 OLD/NEW PROCR INDEX              
          *1004       17      50    0       2                              WL'S IN PASS 0                          
          *1005       22     225    0       2                              PASS 0 PROCR INDEX                      
          *1006       19     230    0       2                              PASS 0 ADJUST DETAILS                   
          *1007       21      50    0       2                              PASS 0 UNIQUE REFS                      
          *1008        2       5    0       1                              EXTENSION BACKWARDS OF SECTION 18       
          *1009       18    1250    0       1                              SEQUENCE CHANGES FORWARD AND BACK       
          *1010        1      23    0       3                              PASS 1 INPUT UNPACKED                   
          *1011       28      23    0       3                              PASS 1 NEXT RECORD                      
          *1012       29      22    0       3                              PASS 1 NEXT OUTPUT REC                  
  Source image: P1000055.JPG
          *1013       66      12    0       4                              PASS 2 INPUT UNPACKED                   
          *1014       67       2    0       4                              PASS 2 O/P UNPACKED                     
          *1015       61      60    0       4                              PASS 2 WL'S                             
          *1016       72      16    0       4                              SWITCH PROCR LENGTHS+CHAP LENGTHS       
          *1017       71      10    0       4                              17 'MR>3' DETAILS+COUNTER               
          *1018       94      50    0       4                              MISC EACH PASS                          
          *1019       53       0    0       4                              PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
          *1020       77      22    0       4                              PASS 2 NEXT INPUT REC                   
          *1021       70       0    0       4                              PASS 1 SECTION DETAILS(LENGTH 50)       
          *1022       30       9    0       4                              UNPACKED PT FOR 08005                   
          *1023       31      11    0       4                              FOR MT BLOCK FOR 08005                  
          *1024       32      85    0       4                              TD WL'S FOR 08005                       
          *1025       54      80    0       4                              PASS 1 ADJUST DETAILS                   
          *1026       55      25    0       4                              PASS 1 UNIQUE REFS                      
          *1027       92      19    0       4                              GENERAL ALL PASSES                      
          *1028       91      18    0       4                              TWO OTRS.FILES LIST-TX AREAS LIST       
          *1029       98       6    0       4                              10 'ITEM+'DETAILS AND COUNTER           
          *1030       95      25    0       4                              48 SWITCH DETAILS AND COUNTER           
          *1031       99      25    0       4                              25 RADIX PAIRS PER PROGRAMME            
          *1032       23      24    0       4                              'PRINT PROCEDURES' INDICATORS           
          *1033       25      21    0       4                              'TRACE'DETAILS                          
          *1034       40      10    0       4                              FRILL FOR PRINTING REPORT SERIALS       
          *1035       27      10    0       4                              PERMANENT WL'S                          
          *1036       10     195    1       0                              PRINTER/CLEO I/P TX AREA                
          *1037       14       0    0       4                              DUMMY                                   
          *1038        5      27    1       4                              PT IN+PRINT                             
          *1039        7      75    1       4                              MTIN,OUT+PRINT                          
          *1040        8      75    1       4                                                                      
          *1041        9      75    1       4                                                                      
          *1042       26     540    0       6                              PROCR START ADDRESSES                   
          *1043       11      10    0       7                                                                      
          *1044       13      16    0       7                                                                      
          *1045       16      20    0       7                                                                      
          *1046       15      50    0       7                                                                      
          *1047       24      18    0       7                                                                      
          *1048       12      60    0       9                              PASS 1 WL'S                             
          *1049       93     225    0       9                              PASS 1 OLD/NEW PROCR INDEX              
          *1050       97     230    0       9                              PASS 1 ADJUST DETAILS                   
          *1051       52      50    0       9                              PASS 1 UNIQUE REFS                      
          *1052       63      30    0      10                              PASS 2 60 SHORT CONSTS PER CHAPTER      
          *1053       62     110    0      10                              PASS 2 90 LONG+20 TSL PER CHAPTER       
          *1054       20     150    0      10                              PASS 2 100 ACTIVE SEQ CHANGES FWD       
                                                                                                                   
          10000    PROCR   100       100     CHAPTER ONE                                                           
          10001     NOTES                         MAIN OVERLAY ORDER TO RECALL PASS 0                              SELECT
    10715>                                                                                                         
    16271>                                                                                                         
    68039>                                                                                                         
    88512>                                                                                                         
    88523>10002    152     101      2   0  0              0        101                                             OVERLAY
          10003    C       101      2   0  0              0        101                                             
          10004    76      102      2   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10100    PROCR   101       101     CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0                         
    12541>                                                                                                         
    12546>10102    152     101      2   0  0              0        101                                             OVERLAY
          10103    C       152      2   0  0              0        152                                             
                                                                                                                   
          10200    PROCR   102       102     STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE                        
    10408>                                                                                                         
  Source image: P1000056.JPG
    10004>10202    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10203    125           4096   1  1              0                                                        clear indicators
          10204    123     102      5   0  2              0        102                                             enter master routine
          10205    100              0   0  0              0                                                        Halt
          10206    5       148     42   1  0              0        148     ORIGINAL(A)                             TRANSFER
          10207    5       27       0   1  0              0                CLEAR WL'S                              TRANSFER
          10208    5       27       2   1  0              0                                                        TRANSFER
          10209    5       27       4   1  0              0                                                        TRANSFER
          10210    5       27       6   1  0              0                                                        TRANSFER
          10211    5       27      11   0  0              0                                                        TRANSFER
          10212    5       27      13   0  0              0                                                        TRANSFER
          10213    84      786      2   0  0              0        786     CLEAR SWITCH 772                        SET SWITCH(ES) AT VARIABLE VALUE
          10214    123     128      2   0  3              0        128     PROG TAG                                select tag
          10215    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          10216    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          10217    37      125      4   0  0              0        125     FORM LINKS                              REPLACE SELECTED BITS
          10218    37      125      5   0  0              0        125                                             REPLACE SELECTED BITS
          10219    37      125      6   0  0              0        125                                             REPLACE SELECTED BITS
          10220    94      102     87   0  3              0        102     /////           *REENTRY                STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10221    124     999      5   0  3              0                                                        modify address of next
          10222    106             34   0  0              0                D1                                      select (N)
          10223    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          10224    5       27       8   1  0              0                INITIAL PRINTER TYPE+CLEAR 'OFFLINE'    TRANSFER
          10225    124     999      5   0  3              0                                                        modify address of next
          10226    106             36   0  0              0                B1                                      select (N)
          10227    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          10228    12               0   0  0              4                                                        SUBTRACT LITERAL
          10229    5       27      10   0  0              0                INPUT TYPE                              TRANSFER
          10230    0       126     15   0  0              0        126     23/0/2                                  SELECT
          10231    5       126      7   0  0              0        126                                             TRANSFER
          10232            148     42   2  0              0        148                                             SELECT
          10233    70      102     98   0  0              0        102     >THINGS OK.EXIT                         JUMP IF A == 0
    10291>10234    0       148     42   0  0              0        148                                             SELECT
          10235    5       999     31   0  0              0                                                        TRANSFER
          10236    10               0   0  0              7                RT7                                     SELECT LITERAL
          10237    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10238    70      102     45   0  0              0        102     >OK                                     JUMP IF A == 0
          10239    10               0   0  0              8                RT8                                     SELECT LITERAL
          10240    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10241    70      102     45   0  0              0        102                                             JUMP IF A == 0
          10242    10               0   0  0              ‼                RT11                                    SELECT LITERAL
          10243    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10244    71      104      2   0  0              0        104     >ALARM*10                               JUMP IF A != 0
    10241>                                                                                                         
    10238>10245    84      787      2   0  0              0        787     CLEAR SWITCH                            SET SWITCH(ES) AT VARIABLE VALUE
          10246    C       999      0   0  0              0                TO OPEN A9                              
          10247    10               0   0  0              1                                                        SELECT LITERAL
    10297>10248    5       27       9   0  0              0                                                        TRANSFER
          10249    96               0   0  2              0                ALLOC ROUTE                             SELECT MODIFIER
          10250    12               0   0  0             40                64                                      SUBTRACT LITERAL
          10251    3       999      7   0  0              0                                                        COPY
          10252    31               0   0  0              1                                                        SHIFT (A) BY BITS
          10253    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          10254    5       126      2   0  0              0        126     CHANNEL                                 TRANSFER
          10255    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          10256    5       129      2   0  0              0        129     ROUTE                                   TRANSFER
          10257            126      2   0  0              0        126     CHANNEL                                 SELECT
          10258    80      143      2   0  0              0        143     *DEC                                    ENTER SUBROUTINE
          10259    5       148     42   0  0              0        148                                             TRANSFER
          10260    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000057.JPG
          10261            27       9   0  0              0                                                        SELECT
          10262    70      104      9   0  0              0        104                                             JUMP IF A == 0
          10263    124     999      5   0  3              0                SP CHAP START                           modify address of next
          10264    124             32   0  3              0                                                        modify address of next
          10265    124             16   0  3              0                                                        modify address of next
          10266    10               0   0  0              0                START OF REEL CTRS                      SELECT LITERAL
          10267    1       999      7   0  0              0                                                        ADD
          10268    5       142      2   0  0              0        142     WL                                      TRANSFER
          10269    124     142      2   0  3              0        142                                             modify address of next
          10270    102              0   0  0              0                CLEAR REEL CTR FOR ROUTE                transfer (A) to N
          10271    124     999      5   0  3              0                FORM MODIFIER FOR HIGH LOW              modify address of next
          10272    124             32   0  3              0                                                        modify address of next
          10273    106             22   0  0              0                                                        select (N)
          10274    1       999      7   0  0              0                                                        ADD
          10275    5       103      2   0  0              0        103                                             TRANSFER
          10276    124     999      5   0  3              0                TEST MACHINE IS HIGH DENSITY            modify address of next
          10277    124             32   0  3              0                                                        modify address of next
          10278    106             21   0  0              0                                                        select (N)
          10279    70      104      9   0  0              0        104     >NO                                     JUMP IF A == 0
          10280            999     31   0  0              0                                                        SELECT
          10281    12               0   0  0             58                'H'(=HIGH DENSITY WANTED)               SUBTRACT LITERAL
          10282    71      103     22   0  0              0        103     >NO                                     JUMP IF A != 0
          10283    10               0   0  0              1                                                        SELECT LITERAL
    10323>10284    124     103      2   0  3              0        103                                             modify address of next
          10285    102              0   0  0              0                                                        transfer (A) to N
          10286    76      104      9   0  0              0        104                                             JUMP unconditional
    10220>10287    96               0   0  3              0                                                        SELECT MODIFIER
          10288    70      102     92   0  0              0        102     >PRINTER WANTED   REENTRY               JUMP IF A == 0
          10289            27       9   0  0              0                                                        SELECT
          10290    71      102     98   0  0              0        102     >MT WANTED AND GOT,EXIT                 JUMP IF A != 0
          10291    76      102     34   0  0              0        102     >GET MT                                 JUMP unconditional
    10288>10292            27       9   0  0              0                                                        SELECT
          10293    70      102     98   0  0              0        102     >PRINTER WANTED AND GOT,EXIT            JUMP IF A == 0
          10294            27       8   0  0              0                INITIAL PRINTER TYPE                    SELECT
          10295    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10296    71      104      2   0  0              0        104     >ALARM*10                               JUMP IF A != 0
          10297    76      102     48   0  0              0        102                                             JUMP unconditional
    10293>                                                                                                         
    10290>                                                                                                         
    10233>10298    126     125      4   0  3              0        125     >TO MAIN PATH                           leave master routine
                                                                                                                   
          10300    PROCR   103       103     ALLOCATE ANOTHER DEVICE                                               
          10302    81      103      2   0  0              0        103                                             START OF SUBROUTINE
          10303    5       140      2   0  0              0        140                                             TRANSFER
          10304    90               0   0  2             64                                                        SET MODIFICATION REGISTER AT LITERAL
          10305    C                0   0  0            128                                                        
    10310>10306            140      2   0  0              0        140                                             SELECT
          10307    124     999      0   0  3              0                                                        modify address of next
          10308    105              0   0  2              0                                                        subtract (N) from (A)
          10309    70      103     21   0  0              0        103     >MATCH END                              JUMP IF A == 0
          10310    94      103      6   0  2              1        103                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10311            999      9   0  0              0                KNOWN MT ROUTE                          SELECT
          10312    12               0   0  0             18                CH3/0                                   SUBTRACT LITERAL
          10313    73      103     21   0  0              0        103     >SLOW CHANNEL       END WITHOUT MATCH   JUMP IF A < 0
          10314    90               0   0  2            192                                                        SET MODIFICATION REGISTER AT LITERAL
          10315    C                0   0  0            240                                                        
    10320>10316    124     999      0   0  3              0                TRY FAST CHANNEL                        modify address of next
          10317    106              0   0  2              0                                                        select (N)
          10318    2       140      2   0  0              0        140                                             SUBTRACT
          10319    70      103     21   0  0              0        103                                             JUMP IF A == 0
  Source image: P1000058.JPG
          10320    94      103     16   0  2              1        103     THE ALLOCATED ROUTE                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    10319>                                                                                                         
    10313>                                                                                                         
    10309>10321    82      103      2   0  0              0        103     (A) NONZERO IF NO MATCH                 END OF SUBROUTINE / LEAVE SUBROUTINE
    10282>10322    10               0   0  0              0                                                        SELECT LITERAL
          10323    76      102     84   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10400    PROCR   104       104     ALARM IF CANT FIND REQUIRED ???                                       
    10296>                                                                                                         
    10244>10402    126     125      5   0  3              0        125                                             leave master routine
    12504>10403    150              0   0  0             10                                                        OFFER OPTIONS
          10404    C       136     61   0  0              0        136     >UNLOAD                                 
          10405    C       104      7   0  0              0        104     >TRY AGAIN                              
          10406    C       105     38   0  0              0        105     >AS YOU ARE                             
    10405>10407            148     42   1  0              0        148     ORIGINAL (A)                            SELECT
          10408    76      102      2   0  0              0        102                                             JUMP unconditional
    10286>                                                                                                         
    10279>                                                                                                         
    10262>10409    124     999      5   0  3              0                                                        modify address of next
          10410    106             34   0  0              0                                                        select (N)
          10411    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          10412    5       142      2   0  0              0        142     ROUTE TYPE                              TRANSFER
          10413    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          10414    10               0   0  0              0                (ALT ROUTE)                             SELECT LITERAL
          10415    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          10416    5       143      2   0  0              0        143     ROUTE                                   TRANSFER
          10417    124     999      5   0  3              0                                                        modify address of next
          10418    124             32   0  3              0                                                        modify address of next
          10419    124             12   0  3              0                START OF ASSEMBLER TABLE                modify address of next
          10420    101              0   1  3              0                                                        select literal address
          10421    34      143      2   0  0              0        143     BITS 4-8                                SET (N) IN B
          10422    36      148     96   0  0              0        148     8XCHANNEL                               COLLATE AND ADD
          10423    5       126      2   0  0              0        126                                             TRANSFER
                                                                                                                   
          10500    PROCR   105       105     START PASS 0-DEAL WITH INITIAL TRANSLATION                            
          10502    11               0   0  0             80                *                                       ADD LITERAL
          10503    106     105      2   0  0              0        105     **                                      select (N)
          10504    124     999      5   0  3              0                ADJUST ORDERS                           modify address of next
          10505    124             32   0  3              0                FOR FCC MACHINES                        modify address of next
          10506    104             32   0  0              0                *****                                   add (N) to (A)
          10507    103     105     24   0  0              0        105     ****                                    copy (A) to N
          10508    102     105     31   0  0              0        105     ***                                     transfer (A) to N
          10509    124     126      2   0  3              0        126                                             modify address of next
          10510    106              0   0  0              0                LAST ROUTE ON CHANNEL                   select (N)
          10511    2       143      2   0  0              0        143                                             SUBTRACT
          10512    71      105     15   0  0              0        105     NOT THIS ONE                            JUMP IF A != 0
          10513    124     126      2   0  3              0        126                                             modify address of next
          10514    102              0   1  0              0                CLEAR DETAILS                           transfer (A) to N
    10512>10515    124     143      2   0  3              0        143                                             modify address of next
          10516    106             64   0  0              0                OLD ASL                                 select (N)
          10517    124     999      7   0  3              0                NEW ROUTE                               modify address of next
          10518    102             64   0  0              0                                                        transfer (A) to N
          10519            142      2   0  0              0        142     OLD ROUTE TYPE    LOAD NEW ROUTE        SELECT
          10520    124     143      2   0  3              0        143                                             modify address of next
          10521    102             64   0  0              0                                                        transfer (A) to N
          10522            140      2   0  0              0        140     NEW ROUTE TYPE                          SELECT
          10523    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10524    11               0   0  0             80                ***** DON'T MOVE *****                  ADD LITERAL
          10525    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10526    1       999      7   0  0              0                NEW ROUTE                               ADD
  Source image: P1000059.JPG
          10527    124     999      5   0  3              0                                                        modify address of next
          10528    102             34   0  0              0                                                        transfer (A) to N
          10529            999      7   0  0              0                                                        SELECT
          10530    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10531    11               0   0  0             80                ***** DON'T MOVE *****                  ADD LITERAL
          10532    124     999      5   0  3              0                                                        modify address of next
          10533    102             35   0  0              0                                                        transfer (A) to N
          10534    126     125      6   0  3              0        125                                             leave master routine
    12505>10535    52      3        0   0  0              0                                                        EDIT
          10536    C       149     16   0  0              0        149                                             
          10537    154     3        0   0  0              0                                                        COMMENT IN LOG
    12503>                                                                                                         
    10406>10538    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10539    80      134      2   0  0              0        134     >INTERCHANGE A1     D1 ASL'S            ENTER SUBROUTINE
          10540            27      10   0  0              0                INPUT TYPE                              SELECT
          10541    11               0   0  0              .                                                        ADD LITERAL
          10542    34      148     70   1  0              0        148                                             SET (N) IN B
          10543    80      126      2   0  0              0        126     >OPEN B1                                ENTER SUBROUTINE
          10544    54      3        0   1  0           2158                ALL SECTIONS PASS 0                     BULK CLEAR
          10545    54      72       0   1  0            838                ALL SECTIONS PASS 2                     BULK CLEAR
          10546    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          10547            5        0   1  0              0                                                        SELECT
          10548    2       148     44   1  0              0        148     PROGM'                                  SUBTRACT
          10549    3       148     44   1  0              0        148     IND'INITIAL TRANSLATION'                COPY
          10550    71      107      2   0  0              0        107     >AMENDMENT                              JUMP IF A != 0
          10551    40      A6       0   0  0              0                                                        OPEN FILE
          10552    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          10553    10               0   0  0             63                99                                      SELECT LITERAL
          10554    5       94      45   0  0              0                TRANSLATORS PROCR                       TRANSFER
    10639>10555    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          10556    70      125     19   0  0              0        125     >PT AT END SIGN                         JUMP IF A == 0
          10557    0       5        0   1  0              0                                                        SELECT
          10558    2       148     72   1  0              0        148     TRAMD'                                  SUBTRACT
          10559    71      105     66   0  0              0        105                                             JUMP IF A != 0
          10560    10               0   0  0              1                                                        SELECT LITERAL
          10561    5       27      11   0  0              0                IND'INITIAL TRANSLATION'                TRANSFER
    10565>10562    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          10563    80      141      2   0  0              0        141     READ                                    ENTER SUBROUTINE
          10564    70      125     19   0  0              0        125     >PT AT END                              JUMP IF A == 0
          10565    76      105     62   0  0              0        105                                             JUMP unconditional
    10559>10566    54      4        0   1  0             18                                                        BULK CLEAR
          10567            27      10   0  0              0                                                        SELECT
          10568    12               0   0  0              1                                                        SUBTRACT LITERAL
          10569    70      105     73   0  0              0        105     >PT                                     JUMP IF A == 0
          10570    50      5        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          10571    C       150      4   0  0              0        150                                             
          10572    76      105     76   0  0              0        105                                             JUMP unconditional
    10569>10573    124     150      4   0  2              0        150                                             select literal and division
          10574    124     999     15   1  2              0                SEC 5                                   modify address of next
          10575    128              0   0  3              0                                                        unpack variable field data
    10572>10576            4        6   1  0              0                                                        SELECT
          10577    2       148     46   1  0              0        148     PROCR'                                  SUBTRACT
          10578    71      105     81   0  0              0        105     >NO                                     JUMP IF A != 0
          10579    3       148     90   0  0              0        148     SET IND FOR 'PROCR'                     COPY
          10580    76      105     91   0  0              0        105                                             JUMP unconditional
    10578>10581            4        6   1  0              0                                                        SELECT
          10582    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          10583    70      105     90   0  0              0        105                                             JUMP IF A == 0
          10584            4        6   1  0              0                                                        SELECT
          10585    2       148     50   1  0              0        148     CONST'                                  SUBTRACT
  Source image: P1000060.JPG
          10586    71      106     37   0  0              0        106     >NOT A DIRECTIVE                        JUMP IF A != 0
          10587    34      4       16   0  0              0                CONSTANT TYPE                           SET (N) IN B
          10588    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          10589    70      105     91   0  0              0        105     >SHORT                                  JUMP IF A == 0
    10583>10590    10               0   0  0              1                                                        SELECT LITERAL
    10589>                                                                                                         
    10580>10591    5       17       0   0  0              0                                                        TRANSFER
          10592    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10593    10               0   0  0              1                                                        SELECT LITERAL
          10594    4       94      45   0  0              0                TRANSLATOR PROCR                        AUGMENT
          10595    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          10600    PROCR   106       106     DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION                     
          10602            4        8   1  0              0                CODERS PROCR                            SELECT
          10603    12               0   0  0            100                                                        SUBTRACT LITERAL
          10604    73      106     40   0  0              0        106     >LESS THAN 100                          JUMP IF A < 0
          10605    12               0   0  0            899                                                        SUBTRACT LITERAL
          10606    72      106     40   0  0              0        106                                             JUMP IF A >= 0
          10607            4        8   1  0              0                >GREATER THAN 998                       SELECT
          10608    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          10609    12               0   0  0             64                -100                                    SUBTRACT LITERAL
          10610    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          10611    5       17       8   1  0              0                                                        TRANSFER
          10612    74      106     15   0  0              0        106     >C-100 EVEN                             JUMP IF AB == 0        // 27, 1, 0
          10613    10               0   0  0              Ю                                                        SELECT LITERAL
          10614    5       17       9   0  0              0                NO OF BITS TO BE SHIFTED                TRANSFER
    10612>10615            94      45   0  0              0                TRANSLATORS PROCR                       SELECT
          10616    34      148     68   0  0              0        148     BITS 1-10                               SET (N) IN B
          10617    124     17       9   0  1              0                LS HALF EVEN PROCR NUMBER               modify address of next
          10618    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          10619    5       142      2   0  0              0        142     WL                                      TRANSFER
          10620    124     17       8   0  1              0                                                        modify address of next
          10621    36      22       0   0  0              0                                                        COLLATE AND ADD
          10622    71      106     40   0  0              0        106     >PROCR ALREADY USED                     JUMP IF A != 0
          10623            142      2   0  0              0        142                                             SELECT
          10624    124     17       8   0  1              0                                                        modify address of next
          10625    37      22       0   0  0              0                                                        REPLACE SELECTED BITS
    10642>10626    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          10627            94      45   0  0              0                TRANSLATORS PROCR                       SELECT
          10628    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          10629    5       17      10   0  0              0                                                        TRANSFER
          10630    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          10631    5       17       9   0  0              0                                                        TRANSFER
          10632            17       0   0  0              0                SHORT/LONG IND                          SELECT
          10633    124     17       9   0  1              0                                                        modify address of next
          10634    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          10635    124     17      10   0  1              0                                                        modify address of next
          10636    4       94       5-  0  0              0                AUGMENT TABLE                           AUGMENT
    10586>10637    80      131      2   0  0              0        131     WRITE A6                                ENTER SUBROUTINE
          10638    60               0   0  0              0                                                        SET DECIMAL RADIX
          10639    76      105     55   0  0              0        105     >READ PT, TEST NEXT BLOCK               JUMP unconditional
    10622>                                                                                                         
    10606>                                                                                                         
    10604>10640    10               0   0  0              1                                                        SELECT LITERAL
          10641    5       17      16   2  0              0                SET 'PASS 0 DOESN'T LIKE IT'            TRANSFER
          10642    76      106     26   0  0              0        106     >O/P, UPDATE 'LENGTH' IND               JUMP unconditional
                                                                                                                   
          10700    PROCR   107       107     START OF AMENDMENT RUN                                                
    10550>10702    0       5        0   1  0              0                                                        SELECT
          10703    2       148     52   1  0              0        148     'AMEND'                                 SUBTRACT
  Source image: P1000061.JPG
          10704    70      107     16   0  0              0        107                                             JUMP IF A == 0
          10705            5        0   1  0              0                                                        SELECT
          10706    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          10707    70      144      2   0  0              0        144     >                                       JUMP IF A == 0
          10708    150              0   0  0              3                ALARM*3                                 OFFER OPTIONS
          10709    C       136     61   0  0              0        136     >UNLOAD                                 
          10710    C       107     11   0  0              0        107     >REENTER                                
    10965>                                                                                                         
    12524>                                                                                                         
    13658>                                                                                                         
    10710>10711            27       9   0  0              0                                                        SELECT
          10712    11               0   0  0         900000                                                        ADD LITERAL
          10713    91               0   0  3              0                (END VALUE NON ZERO)                    SET MODIFICATION REGISTER AT VARIABLE
          10714    80      134      2   0  0              0        134     >INTERCHANGE A1,D1 ASL'S                ENTER SUBROUTINE
          10715    76      100      2   0  0              0        100                                             JUMP unconditional
    10704>10716    80      145      2   0  0              0        145     UNPACK AND CHECK AMEND BLOCK            ENTER SUBROUTINE
          10717    40      A6       0   0  0              0                                                        OPEN FILE
          10718    54      9        4   1  0             50                                                        BULK CLEAR
          10719    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          10720    80      131      2   0  0              0        131     >WRITE 'AMEND'                          ENTER SUBROUTINE
          10721    0       10      14   1  0              0                                                        SELECT
          10722    12               0   0  0     7.0000007.                                                        SUBTRACT LITERAL
          10723    71      107     27   0  0              0        107     >NOT ISSUE 2.3 OUTPUT                   JUMP IF A != 0
          10724    5       10      12   1  0              0                                                        TRANSFER
          10725    5       10      14   1  0              0                                                        TRANSFER
          10726    5       10      16   1  0              0                                                        TRANSFER
    10723>10727    0       10      16   2  0              0                'MULTI-RECORD'IND                       SELECT
          10728    5       27       1   0  0              0                                                        TRANSFER
          10729    0       10      14   2  0              0                'PSEUDO-ISSUE 5'IND                     SELECT
          10730    5       27       2   0  0              0                                                        TRANSFER
          10731    0       10      12   2  0              0                'ISSUE 6 OR LATER'IND                   SELECT
          10732    3       27       0   0  0              0                                                        COPY
          10733    71      111      2   0  0              0        111     >YES                                    JUMP IF A != 0
    10747>10734    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          10735            27       1   0  0              0                                                        SELECT
          10736    70      107     39   0  0              0        107     >1-RECORD BLOX                          JUMP IF A == 0
          10737    0       10      12   1  0              0                                                        SELECT
          10738    76      107     40   0  0              0        107                                             JUMP unconditional
    10736>10739    0       10      10   1  0              0                                                        SELECT
    10738>10740    2       148     46   1  0              0        148     'PROCR'                                 SUBTRACT
          10741    70      107     48   0  0              0        107                                             JUMP IF A == 0
          10742    1       148     46   1  0              0        148                                             ADD
          10743    2       148     48   1  0              0        148     'TABLE'                                 SUBTRACT
          10744    70      107     48   0  0              0        107                                             JUMP IF A == 0
          10745    1       148     48   1  0              0        148                                             ADD
          10746    2       148     50   1  0              0        148     'CONST'                                 SUBTRACT
          10747    71      107     34   0  0              0        107     >GET TO FIRST PROCR START               JUMP IF A != 0
    10744>                                                                                                         
    10741>10748            27       1   0  0              0                                                        SELECT
          10749    70      107     52   0  0              0        107     >1-RECORD BLOX                          JUMP IF A == 0
          10750    59      10       6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          10751    C       10       4   2  0              0                                                        
    10866>                                                                                                         
    10870>                                                                                                         
    10872>                                                                                                         
    10749>10752            27       1   0  0              0                                                        SELECT
          10753    70      107     56   0  0              0        107                                             JUMP IF A == 0
          10754                     6   1  8              0                                                        SELECT
          10755    76      107     57   0  0              0        107                                             JUMP unconditional
    10753>10756    0       10      10   1  0              0                                                        SELECT
  Source image: P1000062.JPG
    10755>10757    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          10758    70      109      9   0  0              0        109     >END OF INTERCODE                       JUMP IF A == 0
          10759    1       148     60   1  0              0        148                                             ADD
          10760    2       148     46   1  0              0        148     'PROCR'                                 SUBTRACT
          10761    70      108     12   0  0              0        108     >YES                                    JUMP IF A == 0
          10762    1       148     46   1  0              0        148                                             ADD
          10763    2       148     48   1  0              0        148     'TABLE'                                 SUBTRACT
          10764    70      108     11   0  0              0        108     >YES                                    JUMP IF A == 0
          10765    1       148     48   1  0              0        148                                             ADD
          10766    2       148     50   1  0              0        148     'CONST'                                 SUBTRACT
          10767    70      108      2   0  0              0        108     >YES                                    JUMP IF A == 0
          10768    1       148     50   1  0              0        148                                             ADD
          10769    2       148     56   1  0              0        148     'DUMPS'                                 SUBTRACT
          10770    70      109      2   0  0              0        109     >YES                                    JUMP IF A == 0
          10771    1       148     56   1  0              0        148                                             ADD
          10772    2       148     58   1  0              0        148     'FILES'                                 SUBTRACT
          10773    70      109      2   0  0              0        109     >YES                                    JUMP IF A == 0
          10774    1       148     58   1  0              0        148                                             ADD
          10775    12               0   0  0     7551637455                'VALUE'                                 SUBTRACT LITERAL
          10776    71      108     61   0  0              0        108     >NOT A DIRECTIVE                        JUMP IF A != 0
          10777            27       1   0  0              0                                                        SELECT
          10778    70      107     81   0  0              0        107                                             JUMP IF A == 0
          10779                     4   2  8              0                                                        SELECT
          10780    76      107     82   0  0              0        107                                             JUMP unconditional
    10778>10781    0       10       6   2  0              0                LINE SERIAL                             SELECT
    10780>10782    70      108     61   0  0              0        108     >DON'T COUNT                            JUMP IF A == 0
          10783    94      108     61   0  3              1        108     >(NEVER RUNS OUT)                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          10800    PROCR   108       108     STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P          
    10767>10802            27       1   0  0              0                                                        SELECT
          10803    70      108      6   0  0              0        108                                             JUMP IF A == 0
          10804    34              14   2  8              0                CONST TYPE 05                           SET (N) IN B
          10805    76      108      7   0  0              0        108                                             JUMP unconditional
    10803>10806    34      10      20   2  0              0                                                        SET (N) IN B
    10805>10807    10               0   0  0              0                                                        SELECT LITERAL
          10808    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          10809    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          10810    70      108     12   0  0              0        108     >SHORT                                  JUMP IF A == 0
    10764>10811    10               0   0  0              1                                    TABLE               SELECT LITERAL
    10810>                                                                                                         
    10761>10812    5       3       45   0  0              0                WL                  PROCR               TRANSFER
          10813    60               0   0  0              0                                                        SET DECIMAL RADIX
          10814    10               0   0  0              1                                                        SELECT LITERAL
          10815    4       17      10   0  0              0                COUNT DIRECTIVE BLOX                    AUGMENT
          10816            17      10   0  0              0                                                        SELECT
          10817    11               0   0  0             99                                                        ADD LITERAL
          10818    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          10819    3       6        0   0  3              0                                                        COPY
          10820    94               0   0  3              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10821    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          10822    5       148     42   1  0              0        148                                             TRANSFER
          10823    91      148     42   0  1              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          10824    32               0   0  0              9                REMAINDER>A                             SHIFT (AB) BY QUARTETS
          10825    5       3       46   0  0              0                WL           PROCR                      TRANSFER
          10826    0       3       45   0  0              0                BIT IND                                 SELECT
          10827    124     3       46   0  1              0                                                        modify address of next
          10828    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          10829    4       3        5-  0  1              0                LIST IN 3/0-44                          AUGMENT
          10830            27       2   0  0              0                                                        SELECT
          10831    71      108     61   0  0              0        108     >PSEUDO-ISSUE 5                         JUMP IF A != 0
  Source image: P1000063.JPG
          10832            4        2   0  0              0                PROG ID             TEST DUMMY CLEO MOD SELECT
          10833    34      4        4   0  0              0                PROG SERIAL                             SET (N) IN B
          10834    74      108     61   0  0              0        108     >SKIP BUILDING UP SEC 53 FROM LINE SERIAJUMP IF AB == 0        // 27, 1, 0
          10835            27       1   0  0              0                                                        SELECT
          10836    70      108     39   0  0              0        108                                             JUMP IF A == 0
          10837                     4   2  8              0                                                        SELECT
          10838    76      108     40   0  0              0        108                                             JUMP unconditional
    10836>10839    0       10       6   2  0              0                LINE SERIAL                             SELECT
    10838>10840    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10841    80      142      2   0  0              0        142     >BIN(NEW PROG)                          ENTER SUBROUTINE
          10842    5       143      2   0  0              0        143     WL                                      TRANSFER
          10843            27       1   0  0              0                                                        SELECT
          10844    70      108     47   0  0              0        108                                             JUMP IF A == 0
          10845                    10   2  8              0                                                        SELECT
          10846    76      108     48   0  0              0        108                                             JUMP unconditional
    10844>10847    0       10      16   2  0              0                OLD PROG                                SELECT
    10846>10848    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10849    70      108     61   0  0              0        108     >DON'T COUNT                            JUMP IF A == 0
          10850    80      142      2   0  0              0        142     >BIN(NEW PROG)                          ENTER SUBROUTINE
          10851    33               0   0  0              1-               HALVE                                   SHIFT (AB) BY BITS
          10852    92               0   0  2              0                (CLEARS A)                              SET MODIFIER AT VARIABLE
          10853    74      108     58   0  0              0        108     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          10854    34      148     68   0  0              0        148     BITS 1-10                               SET (N) IN B
          10855            143      2   0  0              0        143                                             SELECT
          10856    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          10857    76      108     60   0  0              0        108                                             JUMP unconditional
    10853>10858    34      148     68   0  0              0        148                                             SET (N) IN B
          10859            143      2   0  0              0        143                                             SELECT
    10857>10860    37      53      50-  0  2              0                                                        REPLACE SELECTED BITS
    10849>                                                                                                         
    10834>                                                                                                         
    10831>                                                                                                         
    10783>                                                                                                         
    10782>                                                                                                         
    10776>10861            27       1   0  0              0                                                        SELECT
          10862    70      108     71   0  0              0        108     >1-RECORD BLOCKS                        JUMP IF A == 0
          10863                     0   2  8              0                CURRENT RECORD LENGTH                   SELECT
          10864    5       137      2   0  0              0        137                                             TRANSFER
          10865    97      137      2   0  8              0        137                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          10866    C       107     52   0  0              0        107     >NOT EMPTY                              
          10867    80      137      2   0  0              0        137     >READ A1                                ENTER SUBROUTINE
          10868    59      10       6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          10869    C       10       4   2  0              0                                                        
          10870    76      107     52   0  0              0        107                                             JUMP unconditional
    10862>10871    80      137      2   0  0              0        137     >READ A1                                ENTER SUBROUTINE
          10872    76      107     52   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          10900    PROCR   109       109     DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5     
    10773>                                                                                                         
    10770>10902    0       10       6   2  0              0                                                        SELECT
          10903    5       3       45   0  0              0                STORE 5-DIGIT SERIAL FIRST LINE         TRANSFER
    10907>10904    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          10905    0       10      10   1  0              0                                                        SELECT
          10906    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          10907    71      109      4   0  0              0        109                                             JUMP IF A != 0
          10908    76      109     15   0  0              0        109                         END                 JUMP unconditional
    10758>10909            27       1   0  0              0                                                        SELECT
          10910    70      109     13   0  0              0        109     >SINGLE-RECORD BLOX                     JUMP IF A == 0
          10911                     4   2  8              0                LINE SERIAL                             SELECT
          10912    76      109     14   0  0              0        109                                             JUMP unconditional
  Source image: P1000064.JPG
    10910>10913    0       10       6   2  0              0                                                        SELECT
    10912>10914    5       3       45   0  0              0                STORE HIGHEST LINE SERIAL               TRANSFER
    10908>10915            3       45   0  0              0                                                        SELECT
          10916    71      109     22   0  0              0        109                                             JUMP IF A != 0
          10917    60               0   0  0              0                                                        SET DECIMAL RADIX
          10918    0       17      10   0  0              0                DIRECTIVE CTR                           SELECT
          10919    11               0   0  0            100                                                        ADD LITERAL
          10920    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10921    3       3       45   0  0              0                                                        COPY
    10916>10922    5       17      21   0  0              0                                                        TRANSFER
          10923    60               0   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           SET DECIMAL RADIX
          10924    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          10925    36      3       45   0  0              0                LINE SERIAL OF DUMPS/FILES/END          COLLATE AND ADD
          10926    70      109     28   0  0              0        109     >A PROCR-SHAPED LINE                    JUMP IF A == 0
          10927    10               0   0  0            100                STEP PROCR                              SELECT LITERAL
    10926>10928    1       3       45   0  0              0                                                        ADD
          10929    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10930    80      142      2   0  0              0        142     >TO BIN                                 ENTER SUBROUTINE
          10931    5       3       45   0  0              0                (HIGHEST B/FWD PROCR+1) IN BINARY       TRANSFER
          10932            17      10   0  0              0                DIRECTIVE CTR                           SELECT
          10933    11               0   0  0            100                                                        ADD LITERAL
          10934    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          10935    5       94      45   0  0              0                PROVIS(MAX C/FWD  PROCR)+1              TRANSFER
          10936            27       2   0  0              0                                                        SELECT
          10937    71      110     27   0  0              0        110     >PEUDO-ISSUE 5 O/P                      JUMP IF A != 0
          10938    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          10939    C                0   0  0            900                                                        
          10940    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          10941    C                0   0  0              2                TRICK SETTING                           
    10951>10942    80      139      2   0  0              0        139     >GET NEXT LOCN                          ENTER SUBROUTINE
          10943            4        2   0  0              0                PROG ID                                 SELECT
          10944    34      4        4   0  0              0                PROG SERIAL                             SET (N) IN B
          10945    75      109     51   0  0              0        109     >BY PASS,EXCEPT PROG'00000'             JUMP IF AB != 0
          10946    0       10       4   2  2              0                                                        SELECT
          10947    33               0   0  0             10-                                                       SHIFT (AB) BY BITS
          10948    5       6        1   0  3              0                                                        TRANSFER
          10949    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          10950    5       6        0   0  3              0                                                        TRANSFER
    10945>10951    94      109     42   0  3              2        109                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10952            4        2   0  0              0                                                        SELECT
          10953    34      4        4   0  0              0                                                        SET (N) IN B
          10954    75      109     58   0  0              0        109     >NOT PROGM'00000'                       JUMP IF AB != 0
          10955    10               0   0  0              1                                                        SELECT LITERAL
          10956    5       27       2   0  0              0                SET PSEUDO ISSUE 5                      TRANSFER
          10957    76      110     27   0  0              0        110                                             JUMP unconditional
    10954>10958            17      10   0  0              0                COUNTER OF DIRECTIVE BLOX               SELECT
          10959    12               0   0  0            500                                                        SUBTRACT LITERAL
          10960    73      110      2   0  0              0        110     >OK                                     JUMP IF A < 0
    11013>                                                                                                         
    11026>                                                                                                         
    14410>10961    41      A1       0   0  0              1                                                        CLOSE FILE
          10962    45      A6       0   0  0              1                                                        REWIND
          10963    150              0   0  0              9                                                        OFFER OPTIONS
          10964    C       136     61   0  0              0        136     >UNLOAD                                 
          10965    C       107     11   0  0              0        107     >REENTER                                
                                                                                                                   
          11000    PROCR   110       110     STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5               
    10960>11002    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11003    C                0   0  0            460                (FOR ADJUST DETAILS)                    
          11004    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11005    C                0   0  0            160                FOR STORING                             
  Source image: P1000065.JPG
    11010>11006    80      139      2   0  0              0        139     >GET ITEM                               ENTER SUBROUTINE
          11007    0       10       4   2  2              0                                                        SELECT
          11008    5       54       0   0  1              0                                                        TRANSFER
          11009    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11010    94      110      6   0  3              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11014>11011    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11012            10       4   2  2              0                                                        SELECT
          11013    71      109     61   0  0              0        109     >ALARM 7, TOO MANY ADJUST DETAILS       JUMP IF A != 0
          11014    94      110     11   0  1              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11015    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11016    C                0   0  0             50                                                        
          11017    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11018    C                0   0  0            100                (FOR UNIQUE REFS)                       
    11023>11019    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11020    0       10       4   2  2              0                                                        SELECT
          11021    5       55       0   0  1              0                                                        TRANSFER
          11022    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11023    94      110     19   0  3              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11024    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11025    0       10       4   2  2              0                                                        SELECT
          11026    71      109     61   0  0              0        109     >ALARM 7, TOO MANY UNIQUE REFS          JUMP IF A != 0
    10957>                                                                                                         
    10937>11027    46      A1       8   0  0              1                                                        RUN BACK
          11028    C                0   0  0                                                                       
          11029    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          11030    0       10       6   1  0              0                                                        SELECT
          11031    2       148     62   1  0              0        148     INDEX'                                  SUBTRACT
          11032    70      110     41   0  0              0        110     >READ FWD TO 'PASS 1'                   JUMP IF A == 0
          11033    0       10       4   2  0              0                                                        SELECT
          11034    2       4        2   0  0              0                PROG IDENTITY                           SUBTRACT
          11035    71      110     39   0  0              0        110     >MISALIGNED                             JUMP IF A != 0
          11036    0       10       6   2  0              0                                                        SELECT
          11037    2       4        4   0  0              0                SERIAL                                  SUBTRACT
          11038    70      111     23   0  0              0        111     >OK                                     JUMP IF A == 0
    11035>11039    45      A1       0   0  0              1                                                        REWIND
          11040    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
    11032>11041    80      136      2   0  0              0        136     >APPROACH FROM START OF TAPE            ENTER SUBROUTINE
          11042    76      111     23   0  0              0        111                                             JUMP unconditional
                                                                                                                   
          11100    PROCR   111       111     DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN                               
    10733>11102    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11103    C                0   0  0             46                                                        
    11107>11104    80      137      2   0  0              0        137     READ MT                                 ENTER SUBROUTINE
          11105    55      10       4   2  0             46                                                        BULK COPY
          11106    C       3        0   0  1              0                INDEX 3/0-45                            
          11107    94      111      4   0  1             23        111                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11108            3       45   0  0              0                                                        SELECT
          11109    80      143      2   0  0              0        143     >DEC                                    ENTER SUBROUTINE
          11110    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          11111    5       17      21   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           TRANSFER
          11112    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          11113            3       45   0  0              0                (HIGHEST B/FWD PROCR+1) IN BINARY       SELECT
          11114    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11115    101            100   1  1              0                CREATE B/FWD OLD-NEW PROCR INDEX        add literal address
          11116    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          11117    101            100   1  3              0                                                        select literal address
    11120>11118    3       6      100-  0  1              0                STORE ONE-FOR-ONE                       COPY
          11119    11               0   0  0              1                                                        ADD LITERAL
          11120    94      111     18   0  1              1        111     MAX B/FWD PROCR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
  Source image: P1000066.JPG
          11121            3       45   0  0              0                =PROVIS MAX C/FWD PROCR                 SELECT
          11122    5       94      45   0  0              0                                                        TRANSFER
    11042>                                                                                                         
    11038>11123    52      18       0   0  0              0                                                        EDIT
          11124    C       149      2   0  0              0        149                                             
          11125    154     18       0   0  0              0                TYPE 'AMEND' COMMENT                    COMMENT IN LOG
                                                                                                                   
          11200    PROCR   112       112     READ/WRITE MODS UP TO FIRST DIRECTIVE                                 
    11205>11202    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          11203    70      112      6   0  0              0        112     >YES                                    JUMP IF A == 0
    11212>11204    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11205    76      112      2   0  0              0        112                                             JUMP unconditional
    11203>11206    10               0   0  0           9999                                                        SELECT LITERAL
          11207    3       17      10   0  0              0                SET FOR SEQUENCE CHECKS                 COPY
          11208    5       17      14   0  0              0                                                        TRANSFER
          11209    0       4        3   0  0              0                LINE SERIAL                             SELECT
          11210    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          11211    12               0   0  0             5‼                *                                       SUBTRACT LITERAL
          11212    70      112      4   0  0              0        112     >MOD TO SECTIONS                        JUMP IF A == 0
          11213            17      28   1  0              0                PROG + SERIAL                           SELECT
          11214    71      113     16   0  0              0        113     >NORMAL                                 JUMP IF A != 0
    11218>11215    10               0   0  0              1                PROGM 00000                             SELECT LITERAL
          11216    5       17      16   1  0              0                SET PASS 0 DOESN'T LIKE IT              TRANSFER
          11217    80      133      2   0  0              0        133     >COPY                                   ENTER SUBROUTINE
          11218    76      112     15   0  0              0        112     >IGNORE ALL MODS                        JUMP unconditional
                                                                                                                   
          11300    PROCR   113       113     MAIN LOOP                                                             
    11651>11302    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11303    70      124      2   0  0              0        124     >PT END                                 JUMP IF A == 0
          11304    0       5        0   1  0              0                                                        SELECT
          11305    2       148     72   1  0              0        148     TRAMD'                                  SUBTRACT
          11306    71      113     13   0  0              0        113     >NO                                     JUMP IF A != 0
    11533>                                                                                                         
    12382>                                                                                                         
    12707>11307    10               0   0  0              1                                                        SELECT LITERAL
          11308    5       27      11   0  0              0                SET IND THAT TRAMDING                   TRANSFER
    11311>11309    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11310    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11311    71      113      9   0  0              0        113     >NOT PT END                             JUMP IF A != 0
          11312    76      124      2   0  0              0        124                                             JUMP unconditional
    11306>11313    80      132      2   0  0              0        132     >UNPACK                                 ENTER SUBROUTINE
          11314    80      129      2   0  0              0        129     >STORE SWITCH, TEST DIRECTIVE           ENTER SUBROUTINE
          11315    71      120      2   0  0              0        120                                             JUMP IF A != 0
    11534>                                                                                                         
    11932>                                                                                                         
    12147>                                                                                                         
    12383>                                                                                                         
    11214>11316    60               0   0  0              0                                                        SET DECIMAL RADIX
          11317            17      10   0  0              0                CHECK SEQUENCE AT NEW DIRECTIVE         SELECT
          11318    2       4        2   2  0              0                                                        SUBTRACT
          11319    73      113     24   0  0              0        113     >OK                                     JUMP IF A < 0
          11320    71      121     44   0  0              0        121     >REJECT, READ/COPY TO NEXT DIRECTIVE    JUMP IF A != 0
          11321    0       17      12   0  0              0                                                        SELECT
          11322    12               0   0  0              3                                                        SUBTRACT LITERAL
          11323    71      121     44   0  0              0        121     >PREVIOUS NOT 'T' H53, IGNORE THIS      JUMP IF A != 0
    11319>11324            17      21   0  0              0                MAX B/FWD LINE SERIAL                   SELECT
          11325    2       4        2   2  0              0                THIS LINE SERIAL                        SUBTRACT
          11326    72      113     31   0  0              0        113     >NORMAL                                 JUMP IF A >= 0
    11330>                                                                                                         
    11334>11327    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1000067.JPG
          11328    5       17      16   1  0              0                SET 'PASS 0 DOESNT LIKE IT'             TRANSFER
          11329    80      133      2   0  0              0        133     >WRITE A6                               ENTER SUBROUTINE
          11330    76      113     27   0  0              0        113                                             JUMP unconditional
    11326>11331    71      113     36   0  0              0        113     >OK                                     JUMP IF A != 0
          11332    86      129      2   0  0              0        129                                             SELECT SWITCH R
          11333    12               0   0  0              3                                                        SUBTRACT LITERAL
          11334    71      113     27   0  0              0        113     >MOD AT END IS NOT 'INSERT'             JUMP IF A != 0
          11335    76      119      7   0  0              0        119     >INSERTING AT END SIGN                  JUMP unconditional
    11331>11336            4        2   2  0              0                                                        SELECT
          11337    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11338    80      142      2   0  0              0        142     BIN           TEST IF VALUE             ENTER SUBROUTINE
          11339    5       143      2   0  0              0        143                         DIRECTIVE?          TRANSFER
          11340    124     143      2   0  1              0        143     EQUIV OF CURRENT PROCR                  modify address of next
          11341            6      100-  0  0              0                                                        SELECT
          11342    70      121     44   0  0              0        121     >REJECT.READ/COPY TO NEXT DIRECTIVE     JUMP IF A == 0
          11343    85      129      2   0  0              0        129                                             SWITCH R
          11344    C       118      2   0  0              0        118     R                                       
          11345    C       114      2   0  0              0        114     D                                       
          11346    C       119      2   0  0              0        119     T                                       
          11347    C       118     30   0  0              0        118     A                                       
                                                                                                                   
          11400    PROCR   114       114                                                                           
    11345>11402    80      130      2   0  0              0        130     >FIND 'PROCR 'LENGTH'                   ENTER SUBROUTINE
          11403    5       17       0   0  0              0                0=SHORT, 1=LONG                         TRANSFER
          11404    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          11405    36      4        2   2  0              0                                                        COLLATE AND ADD
          11406    12               0   0  0              1                                                        SUBTRACT LITERAL
          11407    70      114     12   0  0              0        114     >DELETION BEGINS AT'NOTES'              JUMP IF A == 0
          11408    10               0   0  0              0                                                        SELECT LITERAL
          11409    34      17       0   0  0              0                                                        SET (N) IN B
          11410    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          11411    71      121     44   0  0              0        121     >UNACCEPTABLE MOD                       JUMP IF A != 0
    11407>11412    0       4        2   2  0              0                                                        SELECT
          11413    3       17      14   0  0              0                                                        COPY
          11414    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11415    70      114     19   0  0              0        114     >DELETING PROCR                         JUMP IF A == 0
          11416            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          11417    101            460   1  2              0                                                        subtract literal address
          11418    70      121     44   0  0              0        121     >LIST FULL.COPY TO NEXT DIRECTIVE       JUMP IF A == 0
    11415>11419    80      131      2   0  0              0        131     >WRITE A6                               ENTER SUBROUTINE
          11420    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11421    70      115      2   0  0              0        115     >PT AT END. SINGLE LINE DELETE          JUMP IF A == 0
          11422            5        0   1  0              0                                                        SELECT
          11423    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          11424    70      115      2   0  0              0        115                                             JUMP IF A == 0
          11425    80      132      2   0  0              0        132     >UNPACK                                 ENTER SUBROUTINE
          11426    80      129      2   0  0              0        129     >TEST DIRECTIVE                         ENTER SUBROUTINE
          11427    71      116      2   0  0              0        116     >NO, HENCE MULTIPLE DELETE              JUMP IF A != 0
                                                                                                                   
          11500    PROCR   115       115     DEAL WITH SINGLE LINE DELETION                                        
    11424>                                                                                                         
    11421>11502    0       17      14   0  0              0                                                        SELECT
          11503    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
          11504    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11505    71      115      8   0  0              0        115     >NOT DELETING 'PROCR'                   JUMP IF A != 0
          11506            17      14   0  0              0                                                        SELECT
          11507    76      116     19   0  0              0        116     >JOIN UP WITH MULTIPLE DELETION         JUMP unconditional
    11505>11508    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          11509    12               0   0  0              1                                                        SUBTRACT LITERAL
          11510    70      115     26   0  0              0        115     >DELETING 'NOTES'ONLY                   JUMP IF A == 0
  Source image: P1000068.JPG
          11511    10               0   0  0              0                                                        SELECT LITERAL
          11512    2       17       0   0  0              0                                                        SUBTRACT
          11513    12               0   0  0              1                                                        SUBTRACT LITERAL
          11514    5       17      15   0  0              0                                                        TRANSFER
          11515            17      14   0  0              0                                                        SELECT
          11516    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11517    5       17      19   0  0              0                PROCR                                   TRANSFER
          11518            17      14   0  0              0                                                        SELECT
          11519    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAILS)              SUBTRACT
          11520    5       17      14   0  0              0                                                        TRANSFER
          11521            17      14   0  0              0                LINE SERIAL+ADJUST DETAIL               SELECT
          11522    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11523    2       17      19   0  0              0                                                        SUBTRACT
          11524    71      115     26   0  0              0        115     CARRY INTO NEXT PROCR.DON'T STORE       JUMP IF A != 0
          11525    80      140      2   0  0              0        140     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    11755>                                                                                                         
    11524>                                                                                                         
    11510>11526    0       5        0   1  0              0                                                        SELECT
          11527    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          11528    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          11529    2       148     60   1  0              0        148     'END'                                   SUBTRACT
          11530    70      124      2   0  0              0        124     >PT AT END                              JUMP IF A == 0
          11531            5        0   1  0              0                                                        SELECT
          11532    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          11533    70      113      7   0  0              0        113                                             JUMP IF A == 0
          11534    76      113     16   0  0              0        113     >TEST NEW DIRECTIVE IN SEQUENCE         JUMP unconditional
                                                                                                                   
          11600    PROCR   116       116     DEAL WITH MULTIPLE DELETION                                           
    11427>11602            4        2   2  0              0                                                        SELECT
          11603    30               0   0  0              2-                                   TEST IF DIRECTIVE   SHIFT (A) BY QUARTETS
          11604    80      142      2   0  0              0        142     >BIN                IS VALUE SERIAL?    ENTER SUBROUTINE
          11605    5       143      2   0  0              0        143                                             TRANSFER
          11606    124     143      2   0  1              0        143                                             modify address of next
          11607            6      100-  0  0              0                                                        SELECT
          11608    70      121     44   0  0              0        121     >ATTEMPTING TO DELETE 'VALUE' REJECT    JUMP IF A == 0
          11609    80      130      2   0  0              0        130     >FIND PROCR 'LENGTH'                    ENTER SUBROUTINE
          11610    5       17       0   0  0              0                                                        TRANSFER
          11611    34      17       0   0  0              0                                                        SET (N) IN B
          11612    36      4        2   2  0              0                LINE SERIAL 'TO'                        COLLATE AND ADD
          11613    71      121     44   0  0              0        121     >REJECT AMENDMENT                       JUMP IF A != 0
          11614    0       17      14   0  0              0                'FROM'                                  SELECT
          11615    2       4        2   2  0              0                'TO'                                    SUBTRACT
          11616    72      121     44   0  0              0        121     >REJECT.OUT OF SEQUENCE                 JUMP IF A >= 0
          11617            4        2   2  0              0                'TO'PROCR                               SELECT
          11618    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
    11507>11619    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11620    5       17      15   0  0              0                3-DIGIT'TO'                             TRANSFER
          11621            17      14   0  0              0                'FROM'PROCR                             SELECT
          11622    32               0   0  0              2-               'TO'PROCR                               SHIFT (AB) BY QUARTETS
          11623    3       17      19   0  0              0                '3-DIGIT'FROM'                          COPY
          11624    2       17      15   0  0              0                                                        SUBTRACT
          11625    70      116     30   0  0              0        116     >DELETIONS IN SAME PROCR                JUMP IF A == 0
          11626            17      14   0  0              0                'FROM'SERIAL                            SELECT
          11627    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11628    70      117      2   0  0              0        117     >OK.ALLOW DELETION                      JUMP IF A == 0
          11629    76      121     44   0  0              0        121     >REJECT                                 JUMP unconditional
    11625>11630    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          11631    70      117      2   0  0              0        117     >'FROM' PROCR DELETED ONLY              JUMP IF A == 0
          11632    0       17      14   0  0              0                                                        SELECT
          11633    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
  Source image: P1000069.JPG
          11634    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          11635    12               0   0  0              1                                                        SUBTRACT LITERAL
          11636    70      121     44   0  0              0        121     >MULTIPLE DELETION BEGINS AT'NOTES.REJE JUMP IF A == 0
          11637            17      14   0  0              0                'FROM'SERIAL                            SELECT
          11638    2       4        2   2  0              0                'TO'SERIAL                              SUBTRACT
          11639    2       17       0   0  0              0                LENGTH                                  SUBTRACT
          11640    12               0   0  0              1                                                        SUBTRACT LITERAL
          11641    5       17      15   0  0              0                (NEGATIVE ADJUST DETAIL)                TRANSFER
          11642            17      14   0  0              0                                                        SELECT
          11643    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAIL)               SUBTRACT
          11644    5       17      14   0  0              0                                                        TRANSFER
          11645            17      14   0  0              0                LINE SERIAL+ADJUSTMENT                  SELECT
          11646    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11647    2       17      19   0  0              0                PREVIOUS PROCR                          SUBTRACT
          11648    71      116     50   0  0              0        116     >CARRY INTO PROCR.DON'T STORE           JUMP IF A != 0
          11649    80      140      2   0  0              0        140     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    11756>                                                                                                         
    12024>                                                                                                         
    12309>                                                                                                         
    11648>11650    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11651    76      113      2   0  0              0        113     >READ NEXT BLOCK                        JUMP unconditional
                                                                                                                   
          11700    PROCR   117       117     DELETE MANY PROCEDURES                                                
    11631>                                                                                                         
    11628>11702            17      15   0  0              0                'TO'PROCR                               SELECT
          11703    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11704    11               0   0  0              1                                                        ADD LITERAL
          11705    2       3       45   0  0              0                (HIGHEST PROCR+1)                       SUBTRACT
          11706    73      117      8   0  0              0        117                                             JUMP IF A < 0
          11707    10               0   0  0              0                                                        SELECT LITERAL
    11706>11708    1       3       45   0  0              0                                                        ADD
          11709    5       17      15   0  0              0                EFFECTIVE'TO'PROCR                      TRANSFER
          11710            17      19   0  0              0                'FROM'PROCR                             SELECT
          11711    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11712    5       17      19   0  0              0                                                        TRANSFER
          11713            17      14   0  0              0                'FROM' SERIAL                           SELECT
          11714    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11715    70      117     18   0  0              0        117                                             JUMP IF A == 0
          11716    10               0   0  0              1                NOT DELETING ALL 'FROM' PROCR           SELECT LITERAL
          11717    4       17      19   0  0              0                                                        AUGMENT
    11715>11718            17      15   0  0              0                'TO' PROCR+1                            SELECT
          11719    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11720    1       17      19   0  0              0                'FROM' PROCR                            ADD
          11721    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          11722    10               0   0  0              0                                                        SELECT LITERAL
          11723    5       17      22   0  0              0                CTR OF VALUE BLOCKS                     TRANSFER
    11728>11724            6      100-  0  1              0                                                        SELECT
          11725    71      117     28   0  0              0        117     >                                       JUMP IF A != 0
          11726    10               0   0  0              1                                                        SELECT LITERAL
          11727    4       17      22   0  0              0                AUGMENT CTR OF VALUES                   AUGMENT
    11725>11728    94      117     24   0  1              1        117                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11729            17      15   0  0              0                                                        SELECT
          11730    2       17      19   0  0              0                                                        SUBTRACT
          11731    3       142      2   0  0              0        142     WL-DELETED QTTY                         COPY
          11732    11               0   0  0          20000                B Ю 18                                  ADD LITERAL
          11733    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11734    124     17      19   0  1              0                'FROM'PROCR                             modify address of next
          11735    128     6      100-  0  0              0                DELETE ALL PROCEDURES                   bulk copy short numeric
          11736            3       45   0  0              0                HIGHEST PROCR+1                         SELECT
          11737    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
  Source image: P1000070.JPG
          11738    1       17      15   0  0              0                 'TO'PROCR+1                            ADD
          11739    5       148     42   1  0              0        148                                             TRANSFER
          11740    2       142      2   0  0              0        142                                             SUBTRACT
          11741    1       17      22   0  0              0                >NUMBER OF VALUES                       ADD
          11742    3       143      2   0  0              0        143     (-DELETED QTTY)                         COPY
          11743    4       94      45   0  0              0                REDUCE MAX C/FWD PROCR                  AUGMENT
          11744    91      148     42   0  1              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          11745    94      117     47   0  1              0        117     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11746    76      117     52   0  0              0        117     >NONE TO UPDATE                         JUMP unconditional
    11751>                                                                                                         
    11745>11747            6      100-  0  1              0                                                        SELECT
          11748    70      117     51   0  0              0        117     >VALUE DON'T UPDATE                     JUMP IF A == 0
          11749            143      2   0  0              0        143     NON-ZERO LOCNS DELETED                  SELECT
          11750    4       6      100-  0  1              0                UPDATE PROCR                            AUGMENT
    11748>11751    94      117     47   0  1              1        117                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11746>11752    60               0   0  0              0                DEC                                     SET DECIMAL RADIX
          11753            17      10   0  0              0                 'TO' SERIAL                            SELECT
          11754    2       17      14   0  0              0                 'FROM' SERIAL                          SUBTRACT
          11755    70      115     26   0  0              0        115     >SINGLE LINE DELETE                     JUMP IF A == 0
          11756    76      116     50   0  0              0        116                                             JUMP unconditional
                                                                                                                   
          11800    PROCR   118       118     'R'DIRECTIVES AND 'A' DIRECTIVES                                      
    11344>11802    35               0   0  0             11                                    DIRECTIVE LINE 'R'  PREPARE FOR DIGIT COLLATION
          11803    10               0   0  0              0                                                        SELECT LITERAL
          11804    36      4        2   2  0              0                                                        COLLATE AND ADD
          11805    71      118     30   0  0              0        118     >NOT REPLACING  ***00                   JUMP IF A != 0
          11806            4        2   2  0              0                                                        SELECT
          11807    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11808    80      142      2   0  0              0        142     BIN                                     ENTER SUBROUTINE
          11809    2       3       45   0  0              0                HIGHEST B/FWD PROCR+1                   SUBTRACT
          11810    72      118     40   0  0              0        118     >REPLACING DUMPS OR FILES               JUMP IF A >= 0
          11811            4        6   1  0              0                                                        SELECT
          11812    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          11813    70      118     24   0  0              0        118                                             JUMP IF A == 0
          11814            4        6   1  0              0                                                        SELECT
          11815    2       148     48   1  0              0        148      'TABLE'                                SUBTRACT
          11816    70      118     23   0  0              0        118                                             JUMP IF A == 0
          11817            4        6   1  0              0                                                        SELECT
          11818    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          11819    71      121     44   0  0              0        121     >NOT REPLACING BY ANREJE  DIRECTIVE     JUMP IF A != 0
          11820    34      4       16   0  0              0                                                        SET (N) IN B
          11821    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          11822    70      118     24   0  0              0        118     >SHORT CONST                            JUMP IF A == 0
    11816>11823    10               0   0  0              1                                                        SELECT LITERAL
    11822>                                                                                                         
    11813>11824    5       143      2   0  0              0        143     WL=LENGTH OF REPLADEMENT                TRANSFER
          11825    80      130      2   0  0              0        130     FIND 'LENGTH'OF REPLACED BLOCK          ENTER SUBROUTINE
          11826    3       17       0   0  0              0                                                        COPY
          11827    2       143      2   0  0              0        143                                             SUBTRACT
          11828    71      121     44   0  0              0        121     >TRYING TO CHANGE'LENGHT',REJECT        JUMP IF A != 0
          11829    76      119     30   0  0              0        119     >OK                                     JUMP unconditional
    11805>                                                                                                         
    11347>11830    80      130      2   0  0              0        130                                             ENTER SUBROUTINE
          11831    5       17       0   0  0              0                >FIND'LENGTH'                           TRANSFER
          11832    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          11833    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          11834    12               0   0  0              1                                                        SUBTRACT LITERAL
          11835    70      118     40   0  0              0        118     >NOTES                                  JUMP IF A == 0
          11836    10               0   0  0              0                                                        SELECT LITERAL
          11837    34      17       0   0  0              0                                                        SET (N) IN B
  Source image: P1000071.JPG
          11838    36      4        2   2  0              0                                                        COLLATE AND ADD
          11839    71      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A != 0
    11835>                                                                                                         
    11810>11840            4        2   2  0              0                                                        SELECT
          11841    3       17      14   0  0              0                                                        COPY
          11842    3       17      10   0  0              0                                                        COPY
          11843    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11844    5       17      19   0  0              0                                                        TRANSFER
          11845            4        6   1  0              0                                                        SELECT
          11846    2       148     46   1  0              0        148     PROCR'                                  SUBTRACT
          11847    70      121     44   0  0              0        121     >NOT ALLOWED                            JUMP IF A == 0
          11848            4        6   1  0              0                                                        SELECT
          11849    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          11850    70      121     44   0  0              0        121     >                                       JUMP IF A == 0
          11851            4        6   1  0              0                                                        SELECT
          11852    2       148     50   1  0              0        148     CONST'                                  SUBTRACT
          11853    70      121     44   0  0              0        121     >TRYING TO REPLACE BY A DIRECTIVE       JUMP IF A == 0
          11854    76      119     30   0  0              0        119     >O/P                                    JUMP unconditional
                                                                                                                   
          11900    PROCR   119       119     DEAL WITH INSERTIONS                                                  
    11346>11902    80      130      2   0  0              0        130     FIND 'LENGTH'       INSERTION FIRST LINEENTER SUBROUTINE
          11903    5       17       0   0  0              0                                                        TRANSFER
          11904    34      17       0   0  0              0                                                        SET (N) IN B
          11905    36      4        2   2  0              0                                                        COLLATE AND ADD
          11906    71      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A != 0
    11335>11907            4        2   2  0              0                LINE SERIAL                             SELECT
          11908    3       17      10   0  0              0                                                        COPY
          11909    5       17      14   0  0              0                                                        TRANSFER
          11910            17      10   0  0              0                                                        SELECT
          11911    3       17      18   0  0              0                                                        COPY
          11912    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11913    80      142      2   0  0              0        142     >TO BIN                                 ENTER SUBROUTINE
          11914    5       17       7   0  0              0                3 DIGIT REF 'INSERT BEFORE' BIN         TRANSFER
          11915            17      21   0  0              0                HIGHEST LINR SERIAL                     SELECT
          11916    2       17      18   0  0              0                INSERT BEFORE' SERIAL                   SUBTRACT
          11917    71      119     24   0  0              0        119     >NOT INSERTING BEFORE END SIGN          JUMP IF A != 0
          11918    60               0   0  0              0                                                        SET DECIMAL RADIX
          11919            17      18   0  0              0                                                        SELECT
          11920    11               0   0  0             99                ROUND UP INSERT SERIAL                  ADD LITERAL
          11921    32               0   0  0              2-               TO DEAL WITH ISSUE 5 END                SHIFT (AB) BY QUARTETS
          11922    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11923    5       17       7   0  0              0                                                        TRANSFER
    11917>11924            4        2   2  0              0                                                        SELECT
          11925    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11926    70      119     30   0  0              0        119     >INSERTING BEFORE PROCR START NO.ADJUST JUMP IF A == 0
          11927            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          11928    101            460   1  2              0                                                        subtract literal address
          11929    70      121     44   0  0              0        121     >LIST FULL COPY TO NEXR DIRECTIVE       JUMP IF A == 0
    12228>                                                                                                         
    11926>                                                                                                         
    11854>                                                                                                         
    11829>11930    80      131      2   0  0              0        131     WRITE                                   ENTER SUBROUTINE
          11931    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          11932    70      113     16   0  0              0        113     >YES                                    JUMP IF A == 0
                                                                                                                   
          12000    PROCR   120       120     DEAL WITH NON-DIRECTIVE LINE                                          
    12368>                                                                                                         
    11315>12002    85      129      2   0  0              0        129                                             SWITCH R
          12003    C       120      7   0  0              0        120     R                                       
          12004    C       121     44   0  0              0        121     D-NOT ACCEPTED,  2 LINES ALREADY        
  Source image: P1000072.JPG
          12005    C       121      2   0  0              0        121     T                                       
          12006    C       120      7   0  0              0        120     A                                       
    12006>                                                                                                         
    12003>12007    60               0   0  0              0                                                        SET DECIMAL RADIX
          12008            17       0   0  0              0                CURRENT LENGTH                          SELECT
          12009    11               0   0  0              1                                                        ADD LITERAL
          12010    4       17      10   0  0              0                STEP SEQ  CTR                           AUGMENT
          12011            17      10   0  0              0                                                        SELECT
          12012    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12013    2       17      19   0  0              0                PROCR OF R OR A-DIRECTIVE               SUBTRACT
          12014    71      120     25   0  0              0        120     > NOT STILL IN SAME PROCR               JUMP IF A != 0
          12015            4        6   1  0              0                                                        SELECT
          12016    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          12017    70      121     44   0  0              0        121                                             JUMP IF A == 0
          12018            4        6   1  0              0                                                        SELECT
          12019    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          12020    70      121     44   0  0              0        121     >UN ACCEPTABLE                          JUMP IF A == 0
          12021            4        6   1  0              0                                                        SELECT
          12022    2       148     50   1  0              0        148     CONST                                   SUBTRACT
          12023    70      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A == 0
          12024    76      116     50   0  0              0        116                                             JUMP unconditional
    12014>12025    10               0   0  0              1-                                                       SELECT LITERAL
          12026    2       17       0   0  0              0                                                        SUBTRACT
          12027    4       17      10   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       AUGMENT
          12028    76      121     44   0  0              0        121     > READ/COPY TO NEXT DIRECTIVE           JUMP unconditional
                                                                                                                   
          12100    PROCR   121       121     DEAL WITH INSERTIONS                                                  
    12005>12102            4        6   1  0              0                                    INSERTIONS          SELECT
          12103    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          12104    70      121     15   0  0              0        121                                             JUMP IF A == 0
          12105            4        6   1  0              0                                                        SELECT
          12106    2       148     48   1  0              0        148                                             SUBTRACT
          12107    70      121     14   0  0              0        121                                             JUMP IF A == 0
          12108            4        6   1  0              0                                                        SELECT
          12109    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          12110    71      123      2   0  0              0        123      'NOT A DIRECTIVE'                      JUMP IF A != 0
          12111    34      4       16   0  0              0                CONST TYPE                              SET (N) IN B
          12112    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          12113    70      121     15   0  0              0        121     > SHORT CONST                           JUMP IF A == 0
    12107>12114    10               0   0  0              1                                                        SELECT LITERAL
    12113>                                                                                                         
    12104>12115    5       17       0   0  0              0                 'LENGTH' OF INSERTED PROCR             TRANSFER
          12116    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          12117            17      18   0  0              0                                                        SELECT
          12118    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12119    10               0   0  0              0                                                        SELECT LITERAL
          12120    74      121     32   0  0              0        121     > INSERTING BEFORE PROCR START          JUMP IF AB == 0        // 27, 1, 0
          12121            17      18   0  0              0                                                        SELECT
          12122    2       17      21   0  0              0                                                        SUBTRACT
          12123    70      121     32   0  0              0        121     > INSERTING AT END OF PROGM             JUMP IF A == 0
          12124            17      10   0  0              0                                                        SELECT
          12125    2       17      14   0  0              0                                                        SUBTRACT
          12126    70      121     44   0  0              0        121     > NOT IN THE MIDDLE OF AN INSERTION     JUMP IF A == 0
          12127    5       17      15   0  0              0                ADJUST DETAIL                           TRANSFER
          12128            17      10   0  0              0                                                        SELECT
          12129    5       17      14   0  0              0                                                        TRANSFER
          12130    80      140      2   0  0              0        140     STORE ADJUST DETAIL                     ENTER SUBROUTINE
          12131    76      121     44   0  0              0        121     > REJECT 'PROCR'                        JUMP unconditional
    12123>                                                                                                         
    12120>12132            4        8   1  0              0                                                        SELECT
  Source image: P1000073.JPG
          12133    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          12134    73      121     44   0  0              0        121     > NEGATIVE, IGNORE                      JUMP IF A < 0
          12135    3       17       4   0  0              0                NEW PROCR NUMBER (BIN)                  COPY
          12136    2       3       45   0  0              0                HIGHEST B/FWD PROCR (BIN)               SUBTRACT
          12137    73      121     44   0  0              0        121     NOT UNIQUE                              JUMP IF A < 0
          12138            17       4   0  0              0                                                        SELECT
          12139    101            999   1  2              0                MAX PROCR                               subtract literal address
          12140    72      121     44   0  0              0        121     >IGNORE                                 JUMP IF A >= 0
          12141    124     17       4   0  1              0                                                        modify address of next
          12142    106     6      100-  0  0              0                                                        select (N)
          12143    70      122      2   0  0              0        122     > OK, PROCR NOT ALREADY INSETED         JUMP IF A == 0
    12305>                                                                                                         
    13566>                                                                                                         
    12140>                                                                                                         
    12137>                                                                                                         
    12134>                                                                                                         
    12131>                                                                                                         
    12126>                                                                                                         
    12028>                                                                                                         
    12023>                                                                                                         
    12020>                                                                                                         
    12017>                                                                                                         
    12004>                                                                                                         
    11929>                                                                                                         
    11906>                                                                                                         
    11853>                                                                                                         
    11850>                                                                                                         
    11847>                                                                                                         
    11839>                                                                                                         
    11828>                                                                                                         
    11819>                                                                                                         
    11636>                                                                                                         
    11629>                                                                                                         
    11616>                                                                                                         
    11613>                                                                                                         
    11608>                                                                                                         
    11418>                                                                                                         
    11411>                                                                                                         
    11342>                                                                                                         
    11323>                                                                                                         
    11320>12144    10               0   0  0              1                SET IND 'PASS 0 DOESN'T LIKE IT'        SELECT LITERAL
          12145    5       17      16   1  0              0                                                        TRANSFER
          12146    80      133      2   0  0              0        133      READ/WRITE TO NEXT DIRECTIVE           ENTER SUBROUTINE
          12147    76      113     16   0  0              0        113                                             JUMP unconditional
                                                                                                                   
          12200    PROCR   122       122     INSERT NEW PROCR INTO LIST IN SEC 6                                   
    12143>12202    62               0   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       SET EXCESS CONSTANTS
          12203            3       45   0  0              0                > READ/COPY TO NEXT DIRECTIVE           SELECT
          12204    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12205    1       17       7   0  0              0                                                        ADD
          12206    91               0   0  1              0                 'PROCR'                                SET MODIFICATION REGISTER AT VARIABLE
          12207    94      122     10   0  1              0        122     /////> NOT INSERTING BEFORE END SIGN    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12208            94      45   0  0              0                CURRENT (HIGHEST C/FWD PROCR) +1        SELECT
          12209    76      122     12   0  0              0        122                                             JUMP unconditional
    12207>12210    124     17       7   0  1              0                                                        modify address of next
          12211            6      100-  0  0              0                UPDATED REF ''INSERT BEFORE''           SELECT
    12209>12212    5       135      2   0  0              0        135                                             TRANSFER
          12213    10               0   0  0              1                                                        SELECT LITERAL
          12214    4       94      45   0  0              0                                                        AUGMENT
          12215    0       17       0   0  0              0                LENGTH IND                              SELECT
  Source image: P1000074.JPG
          12216    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          12217    1       135      2   0  0              0        135     UPDATED REF                             ADD
          12218    124     17       4   0  1              0                CODER'S PROCR                           modify address of next
          12219    5       6      100-  0  0              0                                                        TRANSFER
          12220    94      122     22   0  1              0        122     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12221    76      122     27   0  0              0        122     >INSERTING BEFORE END SIGN, SKIP        JUMP unconditional
    12226>                                                                                                         
    12220>12222            6      100-  0  1              0                                                        SELECT
          12223    70      122     26   0  0              0        122     >'VALUE' DON'T UPDATE                   JUMP IF A == 0
          12224    10               0   0  0              1                                                        SELECT LITERAL
          12225    4       6      100-  0  1              0                                                        AUGMENT
    12223>12226    94      122     22   0  1              1        122                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12221>12227    60               0   0  0              0                                                        SET DECIMAL RADIX
          12228    76      119     30   0  0              0        119     >READ PT                                JUMP unconditional
                                                                                                                   
          12300    PROCR   123       123     INSERTING INSTRUCTIONS                                                
    12110>12302    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          12303            17      18   0  0              0                                                        SELECT
          12304    12               0   0  0          10002                                                        SUBTRACT LITERAL
          12305    73      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A < 0
          12306            17      18   0  0              0                                                        SELECT
          12307    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12308    10               0   0  0              0                                                        SELECT LITERAL
          12309    74      116     50   0  0              0        116     >INSERTING AT END OF PROCR              JUMP IF AB == 0        // 27, 1, 0
          12310            4        2   2  0              0                LINE SERIAL                             SELECT
          12311    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12312    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          12313    2       3       45   0  0              0                (HIGHEST B/FWD PROCR+1)                 SUBTRACT
          12314    73      123     56   0  0              0        123     >NOT A UNIQUE REF                       JUMP IF A < 0
          12315            17       2   0  0              0                                                        SELECT
          12316    12               0   0  0             64                                                        SUBTRACT LITERAL
          12317    72      123     56   0  0              0        123     >TOO MANY UNIQUE REFS, DON'T STORE THIS JUMP IF A >= 0
          12318            4        2   2  0              0                UNIQUE REF                              SELECT
          12319    124     17       2   0  1              0                                                        modify address of next
          12320    5       21       0   0  0              0                                                        TRANSFER
          12321    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          12322    36      17      14   0  0              0                                                        COLLATE AND ADD
          12323    5       136      2   0  0              0        136     ITEM DEC                                TRANSFER
          12324            17      14   0  0              0                                                        SELECT
          12325    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12326    80      142      2   0  0              0        142                                             ENTER SUBROUTINE
          12327    5       141      2   0  0              0        141     REF BIN                                 TRANSFER
          12328    124     141      2   0  1              0        141                                             modify address of next
          12329            6      100-  0  0              0                                                        SELECT
          12330    80      143      2   0  0              0        143     DEC                                     ENTER SUBROUTINE
          12331    3       17      19   0  0              0                UPDATED REF DEC                         COPY
          12332    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          12333    1       136      2   0  0              0        136     DEC ITEM NOT UPDATED                    ADD
          12334    5       17       6   0  0              0                                                        TRANSFER
          12335            17       7   0  0              0                INSERT BEFORE REF                       SELECT
          12336    2       141      2   0  0              0        141                                             SUBTRACT
          12337    70      123     40   0  0              0        123     >HASN'T GONE OVER THE TOP               JUMP IF A == 0
          12338    10               0   0  0              1-                                                       SELECT LITERAL
          12339    4       17      19   0  0              0                TO GET THE RIGHT ADJUST DETAILS         AUGMENT
    12337>12340    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12341    C                0   0  0            460                                                        
    12349>12342            19       0   0  1              0                                                        SELECT
          12343    70      123     50   0  0              0        123     >END OF ADJUST DETAILS                  JUMP IF A == 0
          12344    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12345    2       17      19   0  0              0                3 DIGIT PROCR                           SUBTRACT
  Source image: P1000110.JPG
          12346    71      123     49   0  0              0        123                                             JUMP IF A != 0
          12347            19       1   0  1              0                                                        SELECT
          12348    4       17       6   0  0              0                ADJUST ADDRESS                          AUGMENT
    12346>12349    94      123     42   0  1              2        123                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12343>12350    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          12351            17       6   0  0              0                                                        SELECT
          12352    124     17       2   0  1              0                                                        modify address of next
          12353    102     21       1   0  0              0                                                        transfer (A) to N
          12354    10               0   0  0              2                                                        SELECT LITERAL
          12355    4       17       2   0  0              0                                                        AUGMENT
    12317>                                                                                                         
    12314>12356    60               0   0  0              0                                                        SET DECIMAL RADIX
          12357            17       0   0  0              0                LENGTH IND                              SELECT
          12358    11               0   0  0              1                                                        ADD LITERAL
          12359    4       17      14   0  0              0                AUGMENT'NEW'LINE SERIAL                 AUGMENT
          12360    80      131      2   0  0              0        131     O/P                                     ENTER SUBROUTINE
          12361    80      141      2   0  0              0        141     READ                                    ENTER SUBROUTINE
          12362    70      123     69   0  0              0        123     >PT AT END                              JUMP IF A == 0
          12363            5        0   1  0              0                                                        SELECT
          12364    2       148     72   1  0              0        148     'TRAMS'                                 SUBTRACT
          12365    70      123     69   0  0              0        123                                             JUMP IF A == 0
          12366    80      132      2   0  0              0        132     UNPACK                                  ENTER SUBROUTINE
          12367    80      129      2   0  0              0        129     DIRECTIVE?                              ENTER SUBROUTINE
          12368    71      120      2   0  0              0        120     >NO                                     JUMP IF A != 0
    12365>                                                                                                         
    12362>12369            17      14   0  0              0                                    END OF MULTIPLE INSESELECT
          12370    2       17      10   0  0              0                DIFFERENCE                              SUBTRACT
          12371    5       17      15   0  0              0                QUANTITY ADJUST                         TRANSFER
          12372            17      10   0  0              0                                                        SELECT
          12373    5       17      14   0  0              0                                                        TRANSFER
          12374    80      140      2   0  0              0        140     STORE ADJUST DETAIL                     ENTER SUBROUTINE
          12375    0       5        0   1  0              0                >                                       SELECT
          12376    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          12377    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          12378    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          12379    70      124      2   0  0              0        124                                             JUMP IF A == 0
          12380            5        0   1  0              0                                                        SELECT
          12381    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          12382    70      113      7   0  0              0        113                                             JUMP IF A == 0
          12383    71      113     16   0  0              0        113     > PT AT DIRECTIVE                       JUMP IF A != 0
                                                                                                                   
          12400    PROCR   124       124     CONSTRUCT C/FWD PROCR LENGTH INDEX                                    
    12704>                                                                                                         
    12379>                                                                                                         
    11530>                                                                                                         
    11312>                                                                                                         
    11303>12402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12403    54      94       0   0  0             45                                                        BULK CLEAR
          12404            3       45   0  0              0                (HIGHEST B/FWD PROCR+1)                 SELECT
          12405    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12406    101            100   1  1              0                                                        add literal address
          12407    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          12408    90               0   0  2              0                SCAN SEC 3                              SET MODIFICATION REGISTER AT LITERAL
          12409    C                0   0  0             45                                                        
    12434>12410    90               0   0  3              0                SCAN WORD IN SEC 3                      SET MODIFICATION REGISTER AT LITERAL
          12411    C                0   0  0             20                                                        
          12412    34      148      2   0  0              0        148     BIT 1                                   SET (N) IN B
    12433>12413            6      100-  0  1              0                                                        SELECT
          12414    70      124     30   0  0              0        124     > PROCR DELETED                         JUMP IF A == 0
          12415    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1000111.JPG
          12416    36      3        0   0  2              0                                                        COLLATE AND ADD
          12417    70      124     30   0  0              0        124     > B/FWD PROCR WAS SHORT                 JUMP IF A == 0
          12418    100     17       0   1  0              0                COPY B                                  copy registers
          12419            6      100-  0  1              0                C/FWD EQUIVALENT                        SELECT
          12420    19               0   0  0             14                20                                      DIVIDE LITERAL
          12421    5       148     42   0  0              0        148                                             TRANSFER
          12422    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          12423    5       148     43   0  0              0        148     REMAINDER                               TRANSFER
          12424    10               0   0  0              1                                                        SELECT LITERAL
          12425    124     148     43   0  1              0        148                                             modify address of next
          12426    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          12427    124     148     42   0  1              0        148                                             modify address of next
          12428    4       94       5-  0  0              0                SET C/FWD LENGTH IND                    AUGMENT
          12429    100     17       0   1  1              0                RESTORE B                               replace registers
    12417>                                                                                                         
    12414>12430    33               0   0  0              1                SHIFT COLLATOR                          SHIFT (AB) BY BITS
          12431    94      124     33   0  1              1        124                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12432    76      124     35   0  0              0        124     > END                                   JUMP unconditional
    12431>12433    94      124     13   0  3              1        124     > THIS BIT NEXT WORD                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12434    94      124     10   0  2              1        124     > NEXT WORD (SHOULD NEVER RUN OUT)      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12432>12435    101           1000   1  3              0                DEAL WITH INSERTED PROCEDURES           select literal address
          12436    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12437    1       3       45   0  0              0                                                        ADD
          12438    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    12454>12439    0       6      100-  0  1              0                                                        SELECT
          12440    70      124     54   0  0              0        124     >NOT USED                               JUMP IF A == 0
          12441    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          12442    70      124     54   0  0              0        124     >SHORT PROCEDURE                        JUMP IF A == 0
          12443    10               0   0  0              0                                                        SELECT LITERAL
          12444    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          12445    19               0   0  0             14                                                        DIVIDE LITERAL
          12446    5       148     42   1  0              0        148                                             TRANSFER
          12447    91      148     42   0  2              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          12448    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          12449    5       17       1   0  0              0                                                        TRANSFER
          12450    10               0   0  0              1                                                        SELECT LITERAL
          12451    124     17       1   0  1              0                                                        modify address of next
          12452    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          12453    4       94       5-  0  2              0                                                        AUGMENT
    12442>                                                                                                         
    12440>12454    94      124     39   0  1              1        124                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12455    76      125      6   0  0              0        125                                             JUMP unconditional
                                                                                                                   
          12500    PROCR   125       125     END OF PASS 0                                                         
          12502    85      129      2   0  0              0        129     3 ORDER CONST                           SWITCH R
          12503    C       105     38   0  0              0        105                                             
          12504    C       104      3   0  0              0        104                                             
          12505    C       105     35   0  0              0        105                                             
    12455>12506    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12507    C                0   0  0            450                                                        
          12508    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12509    C                0   0  0            900                                                        
          12510    10               0   0  0              0                                                        SELECT LITERAL
          12511    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
    12517>12512    36      6        1   0  2              0                                                        COLLATE AND ADD
          12513    31               0   0  0             10                                                        SHIFT (A) BY BITS
          12514    36      6        0   0  2              0                                                        COLLATE AND ADD
          12515    5       22       0   0  1              0                                                        TRANSFER
          12516    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12517    94      125     12   0  2              2        125                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
  Source image: P1000112.JPG
          12518    76      125     27   0  0              0        125                                             JUMP unconditional
    10564>                                                                                                         
    10556>12519    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          12520            148     90   0  0              0        148     IND                                     SELECT
          12521    70      125     25   0  0              0        125                                             JUMP IF A == 0
          12522    150              0   0  0             11                                                        OFFER OPTIONS
          12523    C       136     61   0  0              0        136     > END                                   
          12524    C       107     11   0  0              0        107     > REENTER                               
    12521>12525    10               0   0  0              1                                                        SELECT LITERAL
          12526    4       94      45   0  0              0                                                        AUGMENT
    12518>12527    80      131      2   0  0              0        131     > WRITE END                             ENTER SUBROUTINE
          12528    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12529            27      10   0  0              0                                                        SELECT
          12530    11               0   0  0             18                24                                      ADD LITERAL
          12531    80      126      2   0  0              0        126     > CLOSE B1                              ENTER SUBROUTINE
          12532    45      A6       0   0  0              0                                                        REWIND
          12533    55      22       0   0  0           1010                OLD/NEW PROCRS + ADJUSTS + UNIQUE       BULK COPY
          12534    C       18       0   0  0              0                                                        
          12535    55      94       0   0  0             46                                                        BULK COPY
          12536    C       18    1010   0  0              0                                                        
          12537    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          12538    91               0   0  1              0                & R1                                    SET MODIFICATION REGISTER AT VARIABLE
          12539    80      134      2   0  0              0        134     > INTERCHANGE A1. D1 ASL'S              ENTER SUBROUTINE
    14767>                                                                                                         
    14784>12540            148     44   1  0              0        148                                             SELECT
          12541    70      101      2   0  0              0        101     > INITIAL TRANSLATION                   JUMP IF A == 0
          12542    48      A1       0   0  0              1                BACK 1  I/P > I/P                       STEP BACK
          12543    C                0   0  0              1                                                        
          12544    42      A1       0   0  0              0                                                        INPUT
          12545    C       7        0   0  0              0                                                        
          12546    76      101      2   0  0              0        101     > CANN PASS 1                           JUMP unconditional
                                                                                                                   
          12600    PROCR   126       126     OR B1                                                                 
          12602    81      126      2   0  0              0        126                                             START OF SUBROUTINE
          12603    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12604    1       999      8   0  0              0                                                        ADD
          12605    125           4096   1  1              0                                                        clear indicators
          12606    124     999      0   0  3              0                                                        modify address of next
          12607    123            160   0  2              0                                                        enter master routine
          12608    82      126      2   0  0              0        126                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          12609    41      A1       0   0  0              0                DUMMY FOR ENTRY TO MR                   CLOSE FILE
          12610    126     126      5   0  3              0        126                                             leave master routine
                                                                                                                   
          12700    PROCR   127       127     READ, TEST NEXT P/T BLOCK                                             
          12702    81      127      2   0  0              0        127     3 ORDER CONST                           START OF SUBROUTINE
          12703    80      141      2   0  0              0        141     > READ PT                               ENTER SUBROUTINE
          12704    70      124      2   0  0              0        124     > END                                   JUMP IF A == 0
          12705            5        0   1  0              0                                                        SELECT
          12706    2       148     72   1  0              0        148      'TRAMD'                                SUBTRACT
          12707    70      113      7   0  0              0        113     > YES                                   JUMP IF A == 0
          12708    80      132      2   0  0              0        132     > UNPACK                                ENTER SUBROUTINE
          12709    80      129      2   0  0              0        129     > TEST DIRECTIVE                        ENTER SUBROUTINE
          12710    82      127      2   0  0              0        127                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          12800    PROCR   128       128     COPY INTERCODE BLOCKS                                                 
          12802    81      128      2   0  0              0        128                                             START OF SUBROUTINE
          12803    55      10       4   1  0            148                                                        BULK COPY
          12804    C       8        4   1  0              0                                                        
          12805    43      A2       0   0  0              0                                                        OUTPUT
          12806    C       8        0   0  0              0                                                        
  Source image: P1000113.JPG
          12807    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          12808    82      128      2   0  0              0        128                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          12900    PROCR   129       129     TEST DIRECTIVE                                                        
          12902    81      129      2   0  0              0        129                                             START OF SUBROUTINE
          12903    60               0   0  0              0                                                        SET DECIMAL RADIX
          12904    34      4        4   1  0              0                                                        SET (N) IN B
          12905    10               0   0  0              0                                                        SELECT LITERAL
          12906    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          12907    12               0   0  0             69                                                        SUBTRACT LITERAL
          12908    70      129     18   0  0              0        129                                             JUMP IF A == 0
          12909    11               0   0  0             15                                                        ADD LITERAL
          12910    70      129     17   0  0              0        129                                             JUMP IF A == 0
          12911    12               0   0  0             19                                                        SUBTRACT LITERAL
          12912    70      129     16   0  0              0        129                                             JUMP IF A == 0
          12913    11               0   0  0             22                                                        ADD LITERAL
          12914    71      129     24   0  0              0        129     >NO DIRECTIVE                           JUMP IF A != 0
          12915    10               0   0  0              1                                                        SELECT LITERAL
    12912>12916    11               0   0  0              1                                                        ADD LITERAL
    12910>12917    11               0   0  0              1                                                        ADD LITERAL
    12908>12918    11               0   0  0              1                                                        ADD LITERAL
          12919    5       130      2   0  0              0        130                                             TRANSFER
          12920    86      129      2   0  0              0        129                                             SELECT SWITCH R
          12921    5       17      12   0  0              0                STORE PREVIOUS SETTING                  TRANSFER
          12922    84      129      2   0  0              0        129                                             SET SWITCH(ES) AT VARIABLE VALUE
          12923    C       130      2   0  0              0        130     (A)ZERO DIRECTIVE FOUND                 
    12914>12924    82      129      2   0  0              0        129     (A) NON=-ZERO,NO DIRECTIVE FOUND        END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13000    PROCR   130       130     FIND 'LENGTH'                                                         
          13002    81      130      2   0  0              0        130                                             START OF SUBROUTINE
          13003            4        2   2  0              0                LINE SERIAL OF AMENDMENT                SELECT
          13004    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          13005    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          13006    101            100   1  2              0                                                        subtract literal address
          13007    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          13008    5       148     42   0  0              0        148                                             TRANSFER
          13009    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          13010    5       148     43   0  0              0        148                                             TRANSFER
          13011    34      148      2   0  0              0        148                                             SET (N) IN B
          13012    124     148     43   0  1              0        148                                             modify address of next
          13013    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          13014    124     148     42   0  1              0        148                                             modify address of next
          13015    36      3        0   0  0              0                                                        COLLATE AND ADD
          13016    70      130     18   0  0              0        130     >SHORT                                  JUMP IF A == 0
          13017    10               0   0  0              1                                                        SELECT LITERAL
    13016>13018    60               0   0  0              0                                                        SET DECIMAL RADIX
          13019    82      130      2   0  0              0        130     (A)=ZERO OR ONE                         END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13100    PROCR   131       131     WRITE->A6 FROM SEC9                                                   
          13102    81      131      2   0  0              0        131                                             START OF SUBROUTINE
          13103    80      135      2   0  0              0        135     REPLACE 'BE' BY 'LE'                    ENTER SUBROUTINE
          13104    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          13105    5       9       52   1  0              0                                                        TRANSFER
          13106            17      16   1  0              0                IND'PASS 0 DIDN'T LIKE IT' NON-ZERO     SELECT
          13107    5       9       50   1  0              0                                                        TRANSFER
          13108    43      A6       0   0  0              0                                                        OUTPUT
          13109    C       9        0   0  0              0                                                        
          13110    54      9        4   1  0             50                                                        BULK CLEAR
          13111    5       17      16   1  0              0                CLEAR IND                               TRANSFER
          13112    82      131      2   0  0              0        131                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000114.JPG
          13200    PROCR   132       132     UNPACK POSSIBLE DIRECTIVE BLOCK                                       
          13202    81      132      2   0  0              0        132                                             START OF SUBROUTINE
          13203    10               0   0  0              0                                                        SELECT LITERAL
          13204    5       4        4   1  0              0                WL FOR AMEND DIRECTIVE                  TRANSFER
          13205    5       4       16   1  0              0                                                        TRANSFER
          13206    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          13207    C       132     12   0  0              0        132     >PT                                     
          13208    C       132      9   0  0              0        132     >CARDS                                  
    13208>13209    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          13210    C       150     18   0  0              0        150                                             
          13211    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13207>13212    124     150      2   0  2              0        150     UNPACK PT                               select literal and division
          13213    124     999     15   1  2              0                                                        modify address of next
          13214    128              0   0  3              0                                                        unpack variable field data
          13215    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13300    PROCR   133       133     O/P WHEN MOD NOT ACCEPTED                                             
          13302    81      133      2   0  0              0        133                                             START OF SUBROUTINE
    13305>13303    80      131      2   0  0              0        131     >O/P TO A6                              ENTER SUBROUTINE
          13304    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          13305    71      133      3   0  0              0        133     >NOT YET                                JUMP IF A != 0
          13306    82      133      2   0  0              0        133     NEXT DIRECTIVE FOUND->                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13400    PROCR   134       134     INTERCHANGE A1,D1 ASL'S SR                                            
          13402    81      134      2   0  0              0        134                                             START OF SUBROUTINE
          13403    125           4096   1  1              0                                                        clear indicators
          13404    123     134      6   0  2              0        134                                             enter master routine
          13405    82      134      2   0  0              0        134                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          13406    100              0   0  0              0                                                        Halt
          13407    124     999      9   0  3              0                                                        modify address of next
          13408    100             64   0  2              0                                                        replace (B) by (N)
          13409    124     999      7   0  3              0                                                        modify address of next
          13410    106             64   0  0              0                                                        select (N)
          13411    124     999      9   0  3              0                D1->A1                                  modify address of next
          13412    102             64   0  0              0                                                        transfer (A) to N
          13413    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          13414    124     999      7   0  3              0                A1->D1                                  modify address of next
          13415    102             64   0  0              0                                                        transfer (A) to N
          13416    126     134      6   0  3              0        134                                             leave master routine
                                                                                                                   
          13500    PROCR   135       135     REPLACE BE CHAR BY LE CHAR IN SEC 5                                   
          13502    81      135      2   0  0              0        135                                             START OF SUBROUTINE
          13503    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          13504    C       135     51   0  0              0        135     >PT                                     
          13505    C       135      6   0  0              0        135     >CARDS                                  
    13505>13506    10               0   0  0              0                                                        SELECT LITERAL
          13507    5       132      2   0  0              0        132                                             TRANSFER
          13508    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13509    C                0   0  0             32                                                        
    13520>13510    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          13511    C                0   0  0              2-                                                       
          13512    34      5        0   1  1              0                                                        SET (N) IN B
    13517>13513    10               0   0  0              0                                                        SELECT LITERAL
          13514    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          13515    12               0   0  0             7.                                                        SUBTRACT LITERAL
          13516    70      135     22   0  0              0        135     >BE FOUND                               JUMP IF A == 0
    13550>13517    94      135     13   0  2              2-       135     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13518            5        0   1  1              0                                                        SELECT
          13519    5       9        4   1  1              0                                                        TRANSFER
  Source image: P1000115.JPG
          13520    94      135     10   0  1              2        135     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13521    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13516>13522    100     17      22   1  0              0                COPY B                                  copy registers
          13523    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13524    96               0   0  1              0                                                        SELECT MODIFIER
          13525    16               0   0  0              5                                                        MULTIPLY LITERAL
          13526    5       148     42   1  0              0        148      =10 TIMES WORD NUMBER+CLEAR WL         TRANSFER
          13527    96               0   0  2              0                                                        SELECT MODIFIER
          13528    3       136      2   0  0              0        136                                             COPY
          13529    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          13530    37      148     43   0  0              0        148                                             REPLACE SELECTED BITS
          13531    10               0   0  0              Ю                                                        SELECT LITERAL
          13532    2       148     43   0  0              0        148      =SUBTRACT R2 MODIFIER                  SUBTRACT
          13533    4       148     42   0  0              0        148     AUG COL POSN                            AUGMENT
          13534    60               0   0  0              0                                                        SET DECIMAL RADIX
          13535    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          13536    10               0   0  0             5.                                                        SELECT LITERAL
          13537    124     136      2   0  1              0        136                                             modify address of next
          13538    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          13539    37      5        0   1  1              0                REPLACE BE BY LE                        REPLACE SELECTED BITS
          13540    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13541            132      2   0  0              0        132     CT OF BE'S X 2                          SELECT
          13542    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          13543    70      135     49   0  0              0        135     >5 ALREADY STORED                       JUMP IF A == 0
          13544    92      132      2   0  4              0        132                                             SET MODIFIER AT VARIABLE
          13545            148     42   0  0              0        148                                             SELECT
          13546    5       9       36   2  4              0                2XBE POSN CTR                           TRANSFER
          13547    10               0   0  0              2                                                        SELECT LITERAL
          13548    4       132      2   0  0              0        132     STEP CTR                                AUGMENT
    13543>13549    100     17      22   1  1              0                                                        replace registers
          13550    76      135     17   0  0              0        135     > NEXT CHAR                             JUMP unconditional
    13504>13551    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13552    C                0   0  0             56                                                        
    13563>13553    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          13554    C                0   0  0              2-                                                       
          13555    34      5        0   1  1              0                                                        SET (N) IN B
    13560>13556    10               0   0  0              0                                                        SELECT LITERAL
          13557    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          13558    12               0   0  0             7.                                                        SUBTRACT LITERAL
          13559    70      135     67   0  0              0        135     > BE FOUND                              JUMP IF A == 0
          13560    94      135     56   0  2              2-       135     > GET NEXT CHAR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13561            5        0   1  1              0                COPY TO O/P SECTION                     SELECT
          13562    5       9        4   1  1              0                                                        TRANSFER
          13563    94      135     53   0  1              2        135     >GET NEXT WORD                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13564    10               0   0  0             7.                                    MISREAD             SELECT LITERAL
          13565    5       9       46   1  0              0                                                        TRANSFER
          13566    76      121     44   0  0              0        121                                             JUMP unconditional
    13559>13567    96               0   0  2              0                                                        SELECT MODIFIER
          13568    5       136      2   0  0              0        136                                             TRANSFER
          13569    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          13570    10               0   0  0             5.                                                        SELECT LITERAL
          13571    124     136      2   0  1              0        136                                             modify address of next
          13572    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          13573    37      5        0   1  1              0                REPLACE BE BY LE                        REPLACE SELECTED BITS
          13574            5        0   1  1              0                COPY LAST WORD                          SELECT
          13575    5       9        4   1  1              0                                                        TRANSFER
          13576    100     17      22   1  0              0                                                        copy registers
          13577    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13578    96               0   0  1              0                                                        SELECT MODIFIER
          13579    11               0   0  0              4                                                        ADD LITERAL
  Source image: P1000116.JPG
          13580    30               0   0  0              3                >Q4,5                                   SHIFT (A) BY QUARTETS
          13581    5       9       48   2  0              0                                                        TRANSFER
          13582    35               0   0  0             11                COLUMN POSITION                         PREPARE FOR DIGIT COLLATION
          13583    36      136      2   0  0              0        136                                             COLLATE AND ADD
          13584    37      9       48   2  0              0                                                        REPLACE SELECTED BITS
          13585    100     17      26   0  3              0                                                        set radix
          13586    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13600    PROCR   136       136     GET TO START OF AMENDED PROGRAM                                       
          13602    81      136      2   0  0              0        136                                             START OF SUBROUTINE
    13610>                                                                                                         
    13616>                                                                                                         
    13624>                                                                                                         
    13646>                                                                                                         
    13649>                                                                                                         
    13660>13603    80      137      2   0  0              0        137     READ MT                                 ENTER SUBROUTINE
          13604    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13605    0       10       4   1  0              0                                                        SELECT
          13606    2       148     64   1  0              0        148     FINIS'                                  SUBTRACT
          13607    70      136     51   0  0              0        136     >ALARM*02                               JUMP IF A == 0
          13608    0       10       8   2  0              0                                                        SELECT
          13609    12               0   0  0                                                                       SUBTRACT LITERAL
          13610    71      136      3   0  0              0        136                                             JUMP IF A != 0
          13611    0       10      10   1  0              0                                                        SELECT
          13612    2       148     54   1  0              0        148     PASS I'                                 SUBTRACT
          13613    70      136     43   0  0              0        136                                             JUMP IF A == 0
          13614    0       10       6   1  0              0                                                        SELECT
          13615    2       148     62   1  0              0        148     INDEX'              USE'INDEX'DATA TO   SUBTRACT
          13616    71      136      3   0  0              0        136     >NO                 SEE IF PROGM ON TAPEJUMP IF A != 0
    13642>13617    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          13618    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13619    C                0   0  0             48                                                        
    13641>13620    0       10       4   2  1              0                PROG ID                                 SELECT
          13621    2       148     20   0  0              0        148                                             SUBTRACT
          13622    71      136     26   0  0              0        136     >NOT END SIGN                           JUMP IF A != 0
          13623            148     92   0  0              0        148                                             SELECT
          13624    70      136      3   0  0              0        136     >INTERCODE FOUND.REATO 'PASS I'         JUMP IF A == 0
          13625    76      136     51   0  0              0        136     >ALARM02                                JUMP unconditional
    13622>13626    1       148     20   0  0              0        148                                             ADD
          13627    2       4        2   0  0              0                PROG ID                                 SUBTRACT
          13628    71      136     41   0  0              0        136     >NOT                                    JUMP IF A != 0
          13629    0       10       6   2  1              0                                                        SELECT
          13630    2       4        4   0  0              0                SERIAL                                  SUBTRACT
          13631    71      136     41   0  0              0        136     >NOT                                    JUMP IF A != 0
          13632            10       8   1  1              0                PASS IND                                SELECT
          13633    12               0   0  0             20                                                        SUBTRACT LITERAL
          13634    70      136     41   0  0              0        136     >CLEO               SKIP                JUMP IF A == 0
          13635            10       8   2  1              0                                                        SELECT
          13636    70      136     40   0  0              0        136     >INTERCODE                              JUMP IF A == 0
          13637            10      10   2  1              0                IDENTIFIER                              SELECT
          13638    84      786      2   0  0              0        786                                             SET SWITCH(ES) AT VARIABLE VALUE
          13639    76      136     41   0  0              0        136                                             JUMP unconditional
    13636>13640    5       148     92   0  0              0        148     SET'PROGRAM TAPE'                       TRANSFER
    13639>                                                                                                         
    13634>                                                                                                         
    13631>                                                                                                         
    13628>13641    94      136     20   0  1              8        136                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13642    76      136     17   0  0              0        136     >NEXT BLOCK                             JUMP unconditional
    13613>13643    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          13644    0       10       4   2  0              0                                                        SELECT
  Source image: P1000117.JPG
          13645    2       4        2   0  0              0                PROG IDENTITY                           SUBTRACT
          13646    71      136      3   0  0              0        136     >NO                                     JUMP IF A != 0
          13647    0       10       6   2  0              0                                                        SELECT
          13648    2       4        4   0  0              0                                                        SUBTRACT
          13649    71      136      3   0  0              0        136     >NO                                     JUMP IF A != 0
          13650    82      136      2   0  0              0        136     MATCH FOUND                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13625>                                                                                                         
    13607>13651    41      A1       0   0  0              1                                                        CLOSE FILE
          13652    10               0   0  0              1                                                        SELECT LITERAL
          13653    5       148     92   0  0              0        148                                             TRANSFER
          13654    84      786      2   0  0              0        786     CLEAR                                   SET SWITCH(ES) AT VARIABLE VALUE
          13655    150              0   0  0              2                                                        OFFER OPTIONS
          13656    C       136     61   0  0              0        136     >UNLOAD                                 
          13657    C       136     59   0  0              0        136     >TRY NEW INPUT TAPE                     
          13658    C       107     11   0  0              0        107     >REENTER                                
    13657>13659    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
          13660    76      136      3   0  0              0        136     >TRY AGAIN                              JUMP unconditional
    13656>                                                                                                         
    12523>                                                                                                         
    10964>                                                                                                         
    10709>                                                                                                         
    10404>13661    151              0   0  0              0                                                        UNLOAD PROGRAMME
                                                                                                                   
          13700    PROCR   137       137     READ A1+SEC7                                                          
          13702    81      137      2   0  0              0        137                                             START OF SUBROUTINE
          13703    42      A1       0   0  0              0                                                        INPUT
          13704    C       10       0   0  0              0                                                        
          13705    82      137      2   0  0              0        137                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13800    PROCR   138       138     OPEN A1                                                               
          13802    81      138      2   0  0              0        138                                             START OF SUBROUTINE
          13803    40      A1       0   0  0              1                                                        OPEN FILE
          13804    82      138      2   0  0              0        138                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13900    PROCR   139       139     GET NEXT ITEM                                                         
          13902    81      139      2   0  0              0        139                                             START OF SUBROUTINE
          13903    94      139      7   0  2              2        139                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13904    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          13905    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13906    C                0   0  0             46                                                        
    13903>13907    82      139      2   0  0              0        139                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14000    PROCR   140       140     STORE ADJUST DETAILS SR                                               
          14002    81      140      2   0  0              0        140                                             START OF SUBROUTINE
          14003            17       3   0  0              0                                                        SELECT
          14004    101            460   1  2              0                                                        subtract literal address
          14005    72      140     28   0  0              0        140     >TOO MANY STORED                        JUMP IF A >= 0
          14006    10               0   0  0              0                                                        SELECT LITERAL
          14007    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          14008    36      17      14   0  0              0                                                        COLLATE AND ADD
          14009    5       136      2   0  0              0        136     ITEM                                    TRANSFER
          14010            17      14   0  0              0                                                        SELECT
          14011    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          14012    80      142      2   0  0              0        142                                             ENTER SUBROUTINE
          14013    5       141      2   0  0              0        141     BIN REF                                 TRANSFER
          14014    124     141      2   0  1              0        141                                             modify address of next
          14015            6      100-  0  0              0                UPDATED REF                             SELECT
          14016    80      143      2   0  0              0        143     >TO DEC                                 ENTER SUBROUTINE
          14017    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          14018    1       136      2   0  0              0        136                                             ADD
  Source image: P1000118.JPG
          14019    124     17       3   0  1              0                                                        modify address of next
          14020    5       19       0   0  0              0                LOCN OF ADJUSTMENT                      TRANSFER
          14021    0       17      15   0  0              0                                                        SELECT
          14022    124     17       3   0  1              0                                                        modify address of next
          14023    5       19       1   0  0              0                QUANTITY                                TRANSFER
          14024    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14025    10               0   0  0              2                                                        SELECT LITERAL
          14026    4       17       3   0  0              0                STEP CTR                                AUGMENT
          14027    60               0   0  0              0                                                        SET DECIMAL RADIX
    14005>14028    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14100    PROCR   141       141     SR TO READ PT AND TEST END                                            
          14102    81      141      2   0  0              0        141                                             START OF SUBROUTINE
    14114>14103    100     17      22   1  0              0                                                        copy registers
          14104    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14105    34      999     14   0  0              0                                                        SET (N) IN B
          14106            27      10   0  0              0                                                        SELECT
          14107    11               0   0  0              4                                                        ADD LITERAL
          14108    80      126      2   0  0              0        126     >READ B1                                ENTER SUBROUTINE
          14109    100     17      22   1  1              0                                                        replace registers
          14110            5        0   1  0              0                                                        SELECT
          14111    12               0   0  0     7258555573                SHEET'                                  SUBTRACT LITERAL
          14112    71      141     15   0  0              0        141                                             JUMP IF A != 0
          14113    80      131      2   0  0              0        131                                             ENTER SUBROUTINE
          14114    76      141      3   0  0              0        141     >READ NEXT BLOCK                        JUMP unconditional
    14112>14115    0       5        0   1  0              0                                                        SELECT
          14116    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          14117    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          14118    2       148     60   1  0              0        148     END  '                                  SUBTRACT
          14119    82      141      2   0  0              0        141     (A)=0 IF END                            END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14200    PROCR   142       142     CONVERT TO BIN                                                        
          14202    81      142      2   0  0              0        142                                             START OF SUBROUTINE
          14203    5       148     42   1  0              0        148                                             TRANSFER
          14204    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14205    124     148     22   0  2              0        148                                             select literal and division
          14206    112     148     42   1  0              0        148                                             convert
          14207    82      142      2   0  0              0        142                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14300    PROCR   143       143                                                                           
          14302    81      143      2   0  0              0        143     CONVERT TO DEC                          START OF SUBROUTINE
          14303    5       148     42   1  0              0        148                                             TRANSFER
          14304    60               0   0  0              0                                                        SET DECIMAL RADIX
          14305    124     148      2   0  2              0        148                                             select literal and division
          14306    112     148     42   1  0              0        148                                             convert
          14307    82      143      2   0  0              0        143                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14400    PROCR   144       144     DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK                             
    10707>14402    80      145      2   0  0              0        145     UNPACK AND CHECK PROG ID                ENTER SUBROUTINE
          14403    40      A6       0   0  0              0                                                        OPEN FILE
          14404    0       10      12   2  0              0                                                        SELECT
          14405    5       27       0   0  0              0                SET 'EX ISSUE 7' IND                    TRANSFER
          14406    10               0   0  0              0                                                        SELECT LITERAL
          14407    34      10      12   1  0              0                                                        SET (N) IN B
          14408    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          14409    12               0   0  0             47                                                        SUBTRACT LITERAL
          14410    73      109     61   0  0              0        109     >MADE BEFORE ISSUE 7, ALARM 7           JUMP IF A < 0
          14411            10      16   2  0              0                MULTIRECORD IND                         SELECT
          14412    5       27       1   0  0              0                                                        TRANSFER
          14413    0       148     72   1  0              0        148     'TRAMD'                                 SELECT
  Source image: P1000119.JPG
          14414    5       148     52   1  0              0        148     OVER 'AMEND'                            TRANSFER
          14415    55      149     12   1  0              4        149     ADD'->PTS'TO COMMENT                    BULK COPY
          14416    C       149     10   1  0              0        149                                             
          14417    52      18       0   0  0              0                                                        EDIT
          14418    C       149      2   0  0              0        149                                             
          14419    154     18       0   0  0              0                TYPE 'TRAMD' COMMENT                    COMMENT IN LOG
    14422>14420    80      131      2   0  0              0        131                                             ENTER SUBROUTINE
          14421    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          14422    71      144     20   0  0              0        144     >NOT END                                JUMP IF A != 0
          14423    80      131      2   0  0              0        131     WRITE END BLOCK ***REWIND A6            ENTER SUBROUTINE
          14424    45      A6       0   0  0              0                REWIND A6                               REWIND
          14425    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14426            27      10   0  0              0                                                        SELECT
          14427    11               0   0  0             18                                                        ADD LITERAL
          14428    80      126      2   0  0              0        126     CLOSE B1                                ENTER SUBROUTINE
          14429    54      8        4   1  0             46                                                        BULK CLEAR
          14430    40      A2       0   0  0              0                                    OPEN OUTPUT         OPEN FILE
          14431    32               0   0  0             10                SPOOL NO->A                             SHIFT (AB) BY QUARTETS
          14432    84      153      2   0  0              0        153                                             SET SWITCH(ES) AT VARIABLE VALUE
          14433    80      146      2   0  0              0        146     WRITE TWO BLANK BLOCKS                  ENTER SUBROUTINE
          14434    80      146      2   0  0              0        146                                             ENTER SUBROUTINE
          14435    55      148     74   1  0             10        148                                             BULK COPY
          14436    C       8        4   1  0              0                                                        
          14437    80      146      2   0  0              0        146     WRITE 'INDEX' BLOCK                     ENTER SUBROUTINE
          14438            17      28   0  0              0                PROG IDENTITY                           SELECT
          14439    3       94       0   0  0              0                                                        COPY
          14440    3       8        4   2  0              0                                                        COPY
          14441    3       8       12   2  0              0                                                        COPY
          14442    60               0   0  0              0                                                        SET DECIMAL RADIX
          14443    10               0   0  0              1                                                        SELECT LITERAL
          14444    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          14445    36      17      29   0  0              0                                                        COLLATE AND ADD
          14446    37      17      29   0  0              0                UPDATED PROG SERIAL                     REPLACE SELECTED BITS
          14447    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14448            17      29   0  0              0                                                        SELECT
          14449    3       8        6   2  0              0                                                        COPY
          14450    5       8       14   2  0              0                                                        TRANSFER
          14451    10               0   0  0              2                                                        SELECT LITERAL
          14452    5       8       10   2  0              0                                                        TRANSFER
          14453    10               0   0  0              3                                                        SELECT LITERAL
          14454    5       8       18   2  0              0                                                        TRANSFER
          14455    10               0   0  0              4                                                        SELECT LITERAL
          14456    5       8       16   2  0              0                                                        TRANSFER
          14457            148     78   1  0              0        148                                             SELECT
          14458    5       8       20   1  0              0                                                        TRANSFER
          14459    80      146      2   0  0              0        146                                             ENTER SUBROUTINE
          14460            17      28   0  0              0                PROG IDENTITY                           SELECT
          14461    5       8        4   2  0              0                                                        TRANSFER
          14462            17      29   0  0              0                                                        SELECT
          14463    5       8        6   2  0              0                                                        TRANSFER
          14464            148     78   1  0              0        148                                             SELECT
          14465    5       8        8   1  0              0                                                        TRANSFER
          14466            148     54   1  0              0        148      'PASS '                                SELECT
          14467    5       8       10   1  0              0                                                        TRANSFER
          14468    155              0   0  0              0                TRANSLATOR SERIAL                       SELECT PROGRAM SERIAL TO A
          14469    5       8       12   1  0              0                                                        TRANSFER
          14470    5       8       14   1  0              0                                                        TRANSFER
          14471            27       1   0  0              0                                                        SELECT
          14472    5       8       16   2  0              0                MULTI RECORD IND                        TRANSFER
          14473    80      146      2   0  0              0        146     WRITE 'PASS 1' BLOCK                    ENTER SUBROUTINE
  Source image: P1000120.JPG
          14474    80      137      2   0  0              0        137     >READA1                                 ENTER SUBROUTINE
          14475    80      128      2   0  0              0        128     >WRITE +READ        PROCR LENGTH INDEX  ENTER SUBROUTINE
          14476    80      128      2   0  0              0        128                                             ENTER SUBROUTINE
          14477            17      29   0  0              0                                                        SELECT
          14478    3       94       1   0  0              0                                                        COPY
          14479    5       10      12   2  0              0                UPDATE SERIAL IN'PROGM'BLOCK            TRANSFER
    14493>14480    80      128      2   0  0              0        128     >COPY                                   ENTER SUBROUTINE
          14481            27       1   0  0              0                                                        SELECT
          14482    70      144     85   0  0              0        144     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          14483    0       10      12   1  0              0                                                        SELECT
          14484    76      144     86   0  0              0        144                         OF INTERCODE        JUMP unconditional
    14482>14485    0       10      10   1  0              0                                                        SELECT
    14484>14486    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          14487    70      147      2   0  0              0        147                                             JUMP IF A == 0
          14488    1       148     46   1  0              0        148                                             ADD
          14489    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          14490    70      147      2   0  0              0        147                                             JUMP IF A == 0
          14491    1       148     50   1  0              0        148                                             ADD
          14492    2       148     48   1  0              0        148      'TABLE'                                SUBTRACT
          14493    71      144     80   0  0              0        144                                             JUMP IF A != 0
          14494    76      147      2   0  0              0        147                                             JUMP unconditional
                                                                                                                   
          14500    PROCR   145       145     UNPACK AMEND HEADING, GET TO PROGM START                              
          14502    81      145      2   0  0              0        145                                             START OF SUBROUTINE
          14503    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          14504    C       145      9   0  0              0        145     >PT                                     
          14505    C       145      6   0  0              0        145     >CARDS                                  
    14505>14506    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          14507    C       150     10   0  0              0        150                                             
          14508    76      145     12   0  0              0        145                                             JUMP unconditional
    14504>14509    124     150     10   0  2              0        150     UNPACK PT                               select literal and division
          14510    124     999     15   1  2              0                                                        modify address of next
          14511    128              0   0  3              0                                                        unpack variable field data
    14508>14512            4        2   0  0              0                SUITE                                   SELECT
          14513    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          14514    1       4        3   0  0              0                                                        ADD
          14515    3       4        2   0  0              0                                                        COPY
          14516    5       17      28   0  0              0                PROG ID                                 TRANSFER
          14517            4        4   0  0              0                PROG                                    SELECT
          14518    5       17      29   0  0              0                                                        TRANSFER
          14519    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
          14520    80      136      2   0  0              0        136     >CHECK PROG ID, GET TO 'PASSI' BLOCK    ENTER SUBROUTINE
          14521    82      145      2   0  0              0        145                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14600    PROCR   146       146     O/P->A2                                                               
          14602    81      146      2   0  0              0        146                                             START OF SUBROUTINE
          14603    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          14604    5       8       50   1  0              0                                                        TRANSFER
          14605    43      A2       0   0  0              0                                                        OUTPUT
          14606    C       8        0   0  0              0                                                        
          14607    54      8        4   1  0             46                                                        BULK CLEAR
          14608    82      146      2   0  0              0        146                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14700    PROCR   147       147     'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX                          
    14715>                                                                                                         
    14494>                                                                                                         
    14490>                                                                                                         
    14487>14702            27       1   0  0              0                                                        SELECT
          14703    70      147     16   0  0              0        147                                             JUMP IF A == 0
          14704    0       10       4   2  0              0                                                        SELECT
  Source image: P1000121.JPG
          14705    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          14706    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    14713>14707    0       10      12   1  1              0                                                        SELECT
          14708    2       148     60   1  0              0        148      'END'                                  SUBTRACT
          14709    70      147     19   0  0              0        147     >YES                                    JUMP IF A == 0
          14710    0       10       6   2  1              0                RECORD LENGTH                           SELECT
          14711    5       146      2   0  0              0        146                                             TRANSFER
          14712    97      146      2   0  1              0        146                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          14713    C       147      7   0  0              0        147                                             
    14718>14714    80      128      2   0  0              0        128     >WRITE/READ                             ENTER SUBROUTINE
          14715    76      147      2   0  0              0        147                                             JUMP unconditional
    14703>14716    0       10      10   1  0              0                                                        SELECT
          14717    2       148     60   1  0              0        148      'END'                                  SUBTRACT
          14718    71      147     14   0  0              0        147     >NOT YET                                JUMP IF A != 0
    14722>                                                                                                         
    14709>14719    80      128      2   0  0              0        128     >WRITE/READ/(END SIGNGET TO 'INDEX'     ENTER SUBROUTINE
          14720    0       10       6   1  0              0                                                        SELECT
          14721    2       148     76   1  0              0        148      'INDEX'                                SUBTRACT
          14722    71      147     19   0  0              0        147     >NOT YET                                JUMP IF A != 0
          14723            10      10   2  0              0                                                        SELECT
          14724    12               0   0  0              3                                                        SUBTRACT LITERAL
          14725    70      147     33   0  0              0        147                                             JUMP IF A == 0
          14726    86      786      2   0  0              0        786     PASS 3 ID                               SELECT SWITCH R
          14727    5       142      2   0  0              0        142                                             TRANSFER
          14728    46      A1      10   0  0              1                                                        RUN BACK
          14729    C       142      2   0  0              0        142                                             
          14730    80      137      2   0  0              0        137                                             ENTER SUBROUTINE
          14731    10               0   0  0              3                                                        SELECT LITERAL
          14732    5       10      10   2  0              0                                                        TRANSFER
    14725>14733    80      128      2   0  0              0        128     >WRITE/READ                             ENTER SUBROUTINE
    14741>14734    90               0   0  1              0                                    DRAIN INDEX DETAILS SET MODIFICATION REGISTER AT LITERAL
          14735    C                0   0  0             48                                                        
    14739>14736    0       10       4   2  1              0                PROG IDENTITY                           SELECT
          14737    2       148     20   0  0              0        148                                             SUBTRACT
          14738    70      147     42   0  0              0        147     >END                                    JUMP IF A == 0
          14739    94      147     36   0  1              8        147                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          14740    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          14741    76      147     34   0  0              0        147                                             JUMP unconditional
    14738>14742    10               0   0  0          1.006                1/1/3 6(R1 NON-ZERO)                    SELECT LITERAL
          14743    3       92      30   0  0              0                SET'AMEND RUN'                          COPY
          14744    3       27      13   0  0              0                SET NONZERO                             COPY
          14745    3       27      11   0  0              0                                                        COPY
          14746    5       101      4   0  0              0        101     CHANGE OLAY ORDER                       TRANSFER
          14747    10               0   0  0              2                                                        SELECT LITERAL
          14748    5       27      12   0  0              0                SET'PTS NEEDED'                         TRANSFER
          14749    80      134      2   0  0              0        134     RESTORE ASLS                            ENTER SUBROUTINE
          14750            27       9   0  0              0                OFF LINE PRINT?                         SELECT
          14751    70      147     59   0  0              0        147     >PRINTER                                JUMP IF A == 0
          14752    90               0   0  6              0                                                        SET MODIFICATION REGISTER AT LITERAL
          14753    C                0   0  0            300                                                        
          14754    86      787      2   0  0              0        787     A9 OR NOT                               SELECT SWITCH R
          14755    71      147     68   0  0              0        147     >'PRINT'BLOCK                           JUMP IF A != 0
          14756    10               0   0  0        1200000                                    OPEN MT             SELECT LITERAL
          14757    34      148     98   1  0              0        148     OFF LINE PRINT?                         SET (N) IN B
          14758    76      147     62   0  0              0        147                                             JUMP unconditional
    14751>14759            27       8   0  0              0                                    OPEN PRINTER        SELECT
          14760    11               0   0  0              Ю                                                        ADD LITERAL
          14761    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    14758>14762    1       999      7   0  0              0                                                        ADD
          14763    125           4096   1  1              0                                                        clear indicators
  Source image: P1000122.JPG
          14764    124     999      0   0  3              0                                                        modify address of next
          14765    123            160   0  2              0                                                        enter master routine
          14766            27       9   0  0              0                                                        SELECT
          14767    70      125     40   0  0              0        125     >ENTER PASS  4                          JUMP IF A == 0
    14755>14768    10               0   0  0     6769596573                PRINT'                                  SELECT LITERAL
          14769    5       10       4   1  0              0                                                        TRANSFER
          14770    10               0   0  0           8000                                                        SELECT LITERAL
          14771    5       10       6   2  0              0                                                        TRANSFER
          14772    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          14773    5       10       8   1  0              0                TRANSLATOR SERIAL                       TRANSFER
          14774            17      28   0  0              0                PROG ID                                 SELECT
          14775    5       10      10   2  0              0                                                        TRANSFER
          14776    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          14777    5       10      12   1  0              0                                                        TRANSFER
          14778    10               0   0  0         800000                                    WRITE A9 HDG BLOCK  SELECT LITERAL
          14779    34      999     12   0  0              0                                                        SET (N) IN B
          14780    125           4096   1  1              0                                                        clear indicators
          14781    1       999      7   0  0              0                                                        ADD
          14782    124     999      0   0  3              0                                                        modify address of next
          14783    123            160   0  2              0                                                        enter master routine
          14784    76      125     40   0  0              0        125     >ENTER PASS  4                          JUMP unconditional
                                                                                                                   
          14800    CONST   148       148     1    CONVERT TABLES                                                   
          14802          (D)1;                                             BIN>DEC                                 
          14804          16;                                                                                       
          14806          256;                                                                                      
          14808          4096;                                                                                     
          14810          65536;                                                                                    
          14812          1048576;                                                                                  
          14814          16777216;                                                                                 
          14816          268435456;                                                                                
          14818          4294967296;                                                                               
          14820          ££££££££££;                                                                               
          14822          1;                                                DEC>BIN                                 
          14824          Ю;                                                                                        
          14826          64;                                                                                       
          14828          3.8;                                                                                      
          14830          2710;                                                                                     
          14832          186Ю0;                                                                                    
          14834          £4240;                                                                                    
          14836          989680;                                                                                   
          14838          5£5.100;                                                                                  
          14840          3‼9Ю+Ю00;                                                                                 
          14842          0;                                                WL(A)                                   
          14844          (A)PROGM;                                                                                 
          14846          (A)PROCR;                                                                                 
          14848          (A)TABLE;                                                                                 
          14850          (A)CONST;                                                                                 
          14852          AMEND;                                                                                    
          14854          (A)PASSI;                                                                                 
          14856          (A)DUMPS;                                                                                 
          14858          (A)FILES;                                                                                 
          14860          (A)END  ;                                                                                 
          14862          (A)INDEX;                                                                                 
          14864          FINIS;                                                                                    
          14866          (D)0000005.5.;                                    DOUBLE LINE END                         
          14868          (D)3££;                                           BITS 1-10                               
          14870          0524108000;                                                                               
          14872          (A)TRAMD;                                                                                 
          14874          (D)6£6£6£6£6£;                                                                            
  Source image: P1000123.JPG
          14876          (A)INDEX;                                                                                 
          14878          £££££;                                                                                    
          14880          2;                                                                                        
          14882          CHAIN;                                                                                    
          14884          FIEND;                                                                                    
          14886          08000;                                                                                    
          14888          ALLOC;                                                                                    
          14890          ATED ;                                                                                    
          14892          EXTRA;                                                                                    
          14894          ROUTE;                                                                                    
          14896          (D)£8;                                                                                    
          14898          (D)0514908000;                                    BITS 4-8                                
                                                                                                                   
          14900    TABLE   149       149     1    TYPE'AMEND'COMMENT                                               
          14902   148    86     0     0  2  0   5   0   0   0  0  0  0     08000'                                  
          14904   148    52     0     0  2  0   5   0   2   0  0  0  0     AMEND'                                  
          14906     4     2     0     0  0  0   5   0   2   0  0  0  0     PROG NO                                 
          14908     4     4     0     0  0  0   5   0   1   4  0  0  0     SERIAL NO                               
          14910   148    66     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          14912   151     2     0     0  2  0   5   0   5   0  0  0  0     & Ю                                     
          14914   148    66     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          14916   148    86     0     0  2  0   5   0   0   0  0  0  0     08000'                                  
          14918   148    88     0     0  2  0   5   0   1   0  0  0  0     ALLOC'                                  
          14920   148    90     0     0  2  0   5   0   0   0  0  0  0     ATED'                                   
          14922   148    92     0     0  2  0   5   0   0   0  0  0  0     EXTRA'                                  
          14924   148    94     0     0  2  0   5   0   1   0  0  0  0     ROUTE'                                  
          14926   148    42     0     0  0  0   2   3   2   1  0  0  0     CHANNEL                                 
          14928   129     2     0     0  0  0   1   4   0   0  0  0  0     ROUTE                                   
          14930   148    66     0     0  2  0   2   3   1   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          15000    TABLE   150       150     3    UNPACK PT OR CARD INPUT                                          
          15002     4     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIRECTIVE                     
          15004     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          15006     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          15008     4    16     0     0  0  0   1   0   0   0  0  0  1     /////TYPE OR(ANNOTATION+TYPE)           
          15010     4     6     0     0  2  0   5   0   0   0  0  0  0     (AMEND)                                 
          15012     4     2     0     0  0  0   3   0   0   0  0  0  0     SUITE                                   
          15014     4     3     0     0  0  0   2   0   0   0  0  0  0     JOB                                     
          15016     4     4     0     0  0  0   5   0   0   0  0  0  1     SERIAL                                  
          15018     4     2     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          15020     4     4     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE LETER                         
          15022     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          15024     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          15026     4    16     0     0  0  0   1   0   0   0  0  0  1     TYPE                                    
                                                                                                                   
          15100    CONST   151       151     1                                                                     
          15102          (A)+ PTS;                                                                                 
          15104          ;                                                                                         
          15106          ;                                                                                         
          15108          ;                                                                                         
          15110          ;                                                                                         
          15112          ;                                                                                         
          15114          ;                                                                                         
          15116          ;                                                                                         
          15118          ;                                                                                         
          15120          ;                                                                                         
          15122          ;                                                                                         
          15124          ;                                                                                         
          15126          ;                                                                                         
          15128          ;                                                                                         
  Source image: P1000124.JPG
          15130          ;                                                                                         
          15132          ;                                                                                         
          15134          ;                                                                                         
          15136          ;                                                                                         
          15138          ;                                                                                         
          15140          ;                                                                                         
          15142          ;                                                                                         
          15144          ;                                                                                         
          15146          ;                                                                                         
          15148          ;                                                                                         
          15150          ;                                                                                         
          15152          ;                                                                                         
          15154          ;                                                                                         
          15156          ;                                                                                         
          15158          ;                                                                                         
          15160          ;                                                                                         
          15162          ;                                                                                         
          15164          ;                                                                                         
          15166          ;                                                                                         
          15168          ;                                                                                         
          15170          ;                                                                                         
          15172          ;                                                                                         
          15174          ;                                                                                         
          15176          ;                                                                                         
          15178          ;                                                                                         
          15180          ;                                                                                         
          15182          ;                                                                                         
          15184          ;                                                                                         
          15186          ;                                                                                         
          15188          ;                                                                                         
          15190          ;                                                                                         
          15192          ;                                                                                         
          15194          ;                                                                                         
          15196          ;                                                                                         
          15198          ;                                                                                         
                                                                                                                   
          15200    PROCR   152       152     START OF PASS 1                                                       
          15201     NOTES  152                                                                                     SELECT
    32446>                                                                                                         
    32473>                                                                                                         
    32478>                                                                                                         
    32480>15202    152     152      4   0  0              0        152     CALL/ENTER PASS 2                       OVERLAY
          15203    C       327      6   0  0              0        327     (OVERLAY THE OLAY ORDER)                
          15204    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          15205    54      25       0   1  0             42                CLEAR TRACE SECN                        BULK CLEAR
          15206            27      10   0  0              0                                                        SELECT
          15207    12               0   0  0              1                                                        SUBTRACT LITERAL
          15208    70      152     12   0  0              0        152     >B1 IS PT                               JUMP IF A == 0
          15209            326      8   0  0              0        326     28/0/2                                  SELECT
          15210    5       326      4   0  0              0        326     SET 'UNPACK FIXED'                      TRANSFER
          15211    76      152     17   0  0              0        152                                             JUMP unconditional
    15208>15212    101            512   0  1              0                Q10                                     prepare for digit collation
          15213    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          15214    10               0   0  0              0                                                        SELECT LITERAL
          15215    37      312      8   1  0              0        312     CLEAR BIT 40                            REPLACE SELECTED BITS
          15216    37      312     14   1  0              0        312     DO.                                     REPLACE SELECTED BITS
    15211>15217            326      6   0  0              0        326                                             SELECT
          15218    3       23      46   0  0              0                SET 'PRINT PASS 2'                      COPY
          15219    5       326      3   0  0              0        326                                             TRANSFER
          15220    54      1        0   1  0             46                                                        BULK CLEAR
  Source image: P1000125.JPG
          15221    83      100      2   0  0              1        100     SET 'PRINT PASS 3'                      SET SWITCH(ES) AT LITERAL VALUE
          15222    5       27       6   0  0              0                CLEAR 'PT OMITTED'                      TRANSFER
          15223    84      511      2   0  0              0        511                                             SET SWITCH(ES) AT VARIABLE VALUE
          15224    84      514      2   0  0              0        514                                             SET SWITCH(ES) AT VARIABLE VALUE
          15225    5       27       4   0  0              0                                                        TRANSFER
          15226    83      252      2   0  0              5        252     AMEND DIRECTIVE SWITCH                  SET SWITCH(ES) AT LITERAL VALUE
          15227    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          15228    70      157      2   0  0              0        157     >COMPILER DIDN'T CALL TRAMSLATOR        JUMP IF A == 0
          15229    3       1        0   1  0              0                                                        COPY
          15230    54      27       0   1  0             20                                                        BULK CLEAR
          15231    96               0   0  3              0                MOD ONLY         A9 IND                 SELECT MODIFIER
          15232    3       27       9   0  0              0                SET IND                                 COPY
          15233    10               0   0  0          70000                                                        SELECT LITERAL
          15234    3       27       0   0  0              0                SET 'MULTI RECORD'                      COPY
          15235    3       27       4   0  0              0                SET'COMPILER'                           COPY
          15236    5       27       1   0  0              0                SET 'ISSUE 7 O/P'                       TRANSFER
          15237    54      72       0   1  0            888                                                        BULK CLEAR
          15238    34      1        1   0  0              0                                                        SET (N) IN B
          15239    36      320     22   0  0              0        320     1                                       COLLATE AND ADD
          15240    70      152     42   0  0              0        152                                             JUMP IF A == 0
          15241    83      100      2   0  0              2        100     SET 'DONT PRINT'                        SET SWITCH(ES) AT LITERAL VALUE
    15240>15242    36      318      2   0  0              0        318     BIT 2                                   COLLATE AND ADD
          15243    12               0   0  0              2                                                        SUBTRACT LITERAL
          15244    5       23      46   0  0              0                INHIBIT PRINT                           TRANSFER
          15245    36      318     10   0  0              0        318     BIT 3='PTS NEEDED'                      COLLATE AND ADD
          15246    12               0   0  0              4                                                        SUBTRACT LITERAL
          15247    70      152     50   0  0              0        152     >NO                                     JUMP IF A == 0
          15248    10               0   0  0              2                                                        SELECT LITERAL
          15249    5       27      12   0  0              0                                                        TRANSFER
    15247>15250    36      318      7   0  0              0        318     BIT 4='CLEO TRAMD'IF NON-ZERO           COLLATE AND ADD
          15251    5       27       2   0  0              0                SET'PSEUDO-ISSUE 5'                     TRANSFER
          15252    101            450   1  3              0                                                        select literal address
          15253    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          15254    1       1        0   0  0              0                DATA START                              ADD
          15255    124     999      1   0  3              0                                                        modify address of next
          15256    128     18       0   1  1              0                                                        bulk copy long numeric
          15257    5       153      2   0  0              0        153                                             TRANSFER
          15258    90               0   0  3              0                CALC COMPILER'S HIGHEST PROCR           SET MODIFICATION REGISTER AT LITERAL
          15259    C                0   0  0            450                                                        
    15272>15260    34      18       0   0  3              0                                                        SET (N) IN B
          15261    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          15262    33               0   0  0              2                                                        SHIFT (AB) BY BITS
          15263    2       153      2   0  0              0        153                                             SUBTRACT
          15264    73      152     66   0  0              0        152                                             JUMP IF A < 0
          15265    4       153      2   0  0              0        153     UPDATE                                  AUGMENT
    15264>15266    10               0   0  0              0                                                        SELECT LITERAL
          15267    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          15268    2       153      2   0  0              0        153                                             SUBTRACT
          15269    73      152     71   0  0              0        152                                             JUMP IF A < 0
          15270    4       153      2   0  0              0        153     UPDATE                                  AUGMENT
    15269>15271    10               0   0  0              0                                                        SELECT LITERAL
          15272    94      152     60   0  3              1        152                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          15273            153      2   0  0              0        153                                             SELECT
          15274    11               0   0  0              1                                                        ADD LITERAL
          15275    5       18    1055   0  0              0                (HIGHEST C/FWD PROCR+1)IN BINARY        TRANSFER
          15276    54      18     450   1  0            596                                                        BULK CLEAR
          15277    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          15278    5       1        0   1  0              0                PROG ID+SERIAL                          TRANSFER
          15279    125           4096   1  1              0                                                        clear indicators
          15280    123     153      2   0  2              0        153     >SET ASL'S+GUARD WORDS                  enter master routine
  Source image: P1000126.JPG
          15281    76      156      2   0  0              0        156                                             JUMP unconditional
                                                                                                                   
          15300    PROCR   153       153     SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3                
          15302    81      153      2   0  0              0        153     LINK                                    START OF SUBROUTINE
          15303    10               0   0  0                                                                       SELECT LITERAL
          15304    124     317     92   0  3              0        317                                             modify address of next
          15305    123             56   1  0              0                SEC 5                                   copy into tag
          15306    124     317     92   0  3              0        317                                             modify address of next
          15307    123            210   1  0              0                SEC 7                                   copy into tag
          15308    124     317     92   0  3              0        317                                             modify address of next
          15309    123            364   1  0              0                SEC 8                                   copy into tag
          15310    124     317     92   0  3              0        317                                             modify address of next
          15311    123            518   1  0              0                SEC 9                                   copy into tag
          15312    124     317     92   0  3              0        317                                             modify address of next
          15313    123            576   1  0              0                B1                                      copy into tag
          15314    124     317     92   0  3              0        317                                             modify address of next
          15315    123            730   1  0              0                A1                                      copy into tag
          15316    124     317     92   0  3              0        317                                             modify address of next
          15317    123            884   1  0              0                A2                                      copy into tag
          15318    124     317     92   0  3              0        317                                             modify address of next
          15319    123           1038   1  0              0                A6                                      copy into tag
                                                                                                                   
          15400    PROCR   154       154     SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3                        
          15402    123     317      2   0  3              0        317     PROG TAG                                select tag
          15403    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          15404    4       317     92   0  0              0        317                                             AUGMENT
          15405            317     92   0  0              0        317     ABS START                               SELECT
          15406    124     999     14   1  2              0                SEC 5                                   modify address of next
          15407    103             64   0  0              0                                                        copy (A) to N
          15408    101             58   1  1              0                                                        add literal address
          15409    124     999     16   1  2              0                SEC 7                                   modify address of next
          15410    103             64   0  0              0                                                        copy (A) to N
          15411    101            154   1  1              0                                                        add literal address
          15412    124     999     18   1  2              0                SEC 8                                   modify address of next
          15413    103             64   0  0              0                                                        copy (A) to N
          15414    101            154   1  1              0                                                        add literal address
          15415    124     999     20   1  2              0                SEC 9                                   modify address of next
          15416    103             64   0  0              0                                                        copy (A) to N
          15417    101            154   1  1              0                                                        add literal address
          15418    124     999      8   0  3              0                B1                                      modify address of next
          15419    103             64   0  0              0                                                        copy (A) to N
          15420    101             58   1  1              0                                                        add literal address
          15421    124     999      9   0  3              0                A1                                      modify address of next
          15422    103             64   0  0              0                                                        copy (A) to N
          15423    101            154   1  1              0                                                        add literal address
          15424    124     999     10   0  3              0                A2                                      modify address of next
          15425    103             64   0  0              0                                                        copy (A) to N
          15426    101            154   1  1              0                                                        add literal address
          15427    124     999     11   0  3              0                A6                                      modify address of next
          15428    102             64   0  0              0                                                        transfer (A) to N
                                                                                                                   
          15500    PROCR   155       155     SET UP ASL'S FOR FILES                                                
          15502    124     999      5   0  3              0                                                        modify address of next
          15503    106             34   0  0              0                PRINTER ROUTE ENTRY SPECIAL CHAPTER     select (N)
          15504    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          15505    5       27       8   0  0              0                                                        TRANSFER
          15506    35               0   0  0           1111                Q1-4                                    PREPARE FOR DIGIT COLLATION
          15507            999      5   0  0              0                15-BIT START SPECIAL CHAP               SELECT
          15508    101            204   1  1              0                                                        add literal address
          15509    124     999     12   1  2              0                SEC 10                                  modify address of next
  Source image: P1000127.JPG
          15510    114             64   0  0              0                                                        replace selected bits
          15511            999      5   0  0              0                                                        SELECT
          15512    101            598   1  1              0                394+204                                 add literal address
          15513    124     999      7   1  2              0                                                        modify address of next
          15514    114             64   0  0              0                                                        replace selected bits
          15515    10               0   0  0                                                                       SELECT LITERAL
          15516    124     999      5   0  3              0                SPECIAL CHAP 15-BIT START               modify address of next
          15517    123            596   1  0              0                                                        copy into tag
          15518    124     999      5   0  3              0                                                        modify address of next
          15519    123            990   1  0              0                204+392+394=D1                          copy into tag
          15520    126     153      2   0  3              0        153     >EXIT                                   leave master routine
                                                                                                                   
          15600    PROCR   156       156     TIDY UP FOR COMPILER                                                  
    15281>15602    54      12       0   1  0            120                                                        BULK CLEAR
          15603    0       1        0   1  0              0                                                        SELECT
          15604    5       12       0   1  0              0                                                        TRANSFER
          15605    40      A1       0   0  0              1                                                        OPEN FILE
    15609>15606    80      291      2   0  0              0        291     >READ                                   ENTER SUBROUTINE
          15607    0       7       10   1  0              0                                                        SELECT
          15608    2       181     20   1  0              0        181      'PASS1'                                SUBTRACT
          15609    71      156      6   0  0              0        156     >NOT YET                                JUMP IF A != 0
          15610    10               0   0  0              1                                                        SELECT LITERAL
          15611    3       92      30   0  0              0                                                        COPY
          15612    5       12       8   0  0              0                                                        TRANSFER
          15613            319     14   1  0              0        319      'END  '                                SELECT
          15614    5       9        4   1  0              0                SET END SIGN                            TRANSFER
          15615    76      158      3   0  0              0        158     >ENTER PASS 1 (SIC)                     JUMP unconditional
                                                                                                                   
          15700    PROCR   157       157     TEST INITIAL RUN                                                      
          15701     NOTES          RADIX                                                                           SELECT
    15228>15702    40      A6       0   0  0              1                                                        OPEN FILE
          15703    54      12       0   1  0            120                                                        BULK CLEAR
          15704    10               0   0  0           6700                                                        SELECT LITERAL
          15705    5       12       3   0  0              0                ERROR LETTER'P'                         TRANSFER
          15706    80      292      2   0  0              0        292     >READ FIRST BLOCK                       ENTER SUBROUTINE
          15707    124     179      2   0  2              0        179                                             select literal and division
          15708    80      326      2   0  0              0        326     >UNPACK BLOCK                           ENTER SUBROUTINE
          15709    60               0   0  0              0                                                        SET DECIMAL RADIX
          15710            1        2   1  0              0                TESTTHIS IS AN                          SELECT
          15711    2       181     16   1  0              0        181      'AMEND'                                SUBTRACT
          15712    70      157     20   0  0              0        157                                             JUMP IF A == 0
          15713    80      297      2   0  0              0        297     >ANNOTATION IF CARD                     ENTER SUBROUTINE
          15714    80      176      2   0  0              0        176     >CHECK PROGM BLOC                       ENTER SUBROUTINE
          15715    10               0   0  0              2                                                        SELECT LITERAL
          15716    3       12      33   0  0              0                SET'PT INPUT'                           COPY
          15717    5       27      12   0  0              0                SET'PTS NEEDED'                         TRANSFER
          15718    5       1        8   1  0              0                ENSURE FIRST SERIAL=0,INITIAL TRANSLATIOTRANSFER
          15719    76      160      2   0  0              0        160                                             JUMP unconditional
    15712>15720    5       1       16   1  0              0                CLEAR FOR INDS                          TRANSFER
          15721    5       1       18   1  0              0                                                        TRANSFER
          15722    124     179     38   0  2              0        179                                             select literal and division
          15723    80      326      2   0  0              0        326     >UNPACK 'AMEND' BLOCK AGAIN             ENTER SUBROUTINE
          15724    10               0   0  0              0                                                        SELECT LITERAL
          15725    34      1       16   0  0              0                PRINT INDS                              SET (N) IN B
          15726    36      318      2   0  0              0        318     BIT 2                                   COLLATE AND ADD
          15727    5       23      46   0  0              0                                                        TRANSFER
          15728    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          15729    C       157     34   0  0              0        157     >PT                                     
          15730    C       157     31   0  0              0        157     >CARDS                                  
    15730>15731            1       18   1  0              0                                                        SELECT
  Source image: P1000128.JPG
          15732    12               0   0  0             73                                                        SUBTRACT LITERAL
          15733    76      157     36   0  0              0        157                                             JUMP unconditional
    15729>15734            1       20   1  0              0                                                        SELECT
          15735    12               0   0  0     7300000000                                                        SUBTRACT LITERAL
    15733>15736    71      157     39   0  0              0        157                                             JUMP IF A != 0
          15737    10               0   0  0              2                                                        SELECT LITERAL
          15738    76      157     40   0  0              0        157                                             JUMP unconditional
    15736>15739    10               0   0  0              0                                                        SELECT LITERAL
    15738>15740    5       27      12   0  0              0                0/2=PTS NO/YES                          TRANSFER
          15741            27       0   0  0              0                                                        SELECT
          15742    71      157     46   0  0              0        157     >ISSUE 6 O/P                            JUMP IF A != 0
          15743            1       16   0  0              0                                                        SELECT
          15744    12               0   0  0              4                                                        SUBTRACT LITERAL
          15745    5       23      46   0  0              0                PRINT ISSUE5 O/P                        TRANSFER
    15742>15746    10               0   0  0              2-                                                       SELECT LITERAL
          15747    36      320      2   0  0              0        320     BIT 1                                   COLLATE AND ADD
          15748    84      100      2   0  0              0        100     SET AT 1 OR 2                           SET SWITCH(ES) AT VARIABLE VALUE
          15749    0       1       17   0  0              0                CHANGE TO ISSUE?                        SELECT
          15750    5       197      2   0  0              0        197     SR LINK                                 TRANSFER
          15751    80      297      2   0  0              0        297     >ANNOTATION IF CARD                     ENTER SUBROUTINE
          15752    71      157     57   0  0              0        157     >NOT CARD                               JUMP IF A != 0
          15753    0       1        8   1  0              0                RE-FORM ISSUE+SERIAL IN 18'             SELECT
          15754    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          15755    1       1       20   1  0              0                CARD SERIAL                             ADD
          15756    5       1        8   1  0              0                                                        TRANSFER
    15752>15757    0       1        4   0  0              0                SUITE                                   SELECT
          15758    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          15759    1       1        6   0  0              0                                                        ADD
          15760    5       12       0   0  0              0                                                        TRANSFER
          15761    34      1        8   1  0              0                                                        SET (N) IN B
          15762    80      321      2   0  0              0        321     RIGHT ALIGN                             ENTER SUBROUTINE
          15763    0       12      88   2  0              0                                                        SELECT
          15764    5       12       1   0  0              0                                                        TRANSFER
          15765    10               0   0  0              1                SET'AMEND RUN'                          SELECT LITERAL
          15766    3       92      30   0  0              0                                                        COPY
          15767    5       12       8   0  0              0                                                        TRANSFER
                                                                                                                   
          15800    PROCR   158       158                                                                           
          15801     NOTES          RADIX                                                                           SELECT
          15802    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
    15615>15803    54      1        0   0  0             46                                                        BULK CLEAR
    15807>15804    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          15805    0       7        6   1  0              0                                                        SELECT
          15806    2       181     12   1  0              0        181     PROGM'                                  SUBTRACT
          15807    71      158      4   0  0              0        158     >GET TO IT                              JUMP IF A != 0
          15808            9        4   1  0              0                                                        SELECT
          15809    2       181     12   1  0              0        181     PROGM'                                  SUBTRACT
          15810    70      159      2   0  0              0        159     ='PROGM' BLOCK IS AMENDED               JUMP IF A == 0
          15811    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          15812    C       175     32   0  0              0        175                                             
          15813    55      7       20   1  0             30                COPY ANNOTATION                         BULK COPY
          15814    C       1       16   1  0              0                                                        
    15912>15815    60               0   0  0              0                                                        SET DECIMAL RADIX
          15816    10               0   0  0              1                AUGMENT PROG SERIAL                     SELECT LITERAL
          15817    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          15818    36      1        8   2  0              0                                                        COLLATE AND ADD
          15819    37      1        8   2  0              0                NO CARRY AFTER 99                       REPLACE SELECTED BITS
          15820    76      160      2   0  0              0        160                                             JUMP unconditional
                                                                                                                   
          15900    PROCR   159       159     INPUT AMENDMENTS TO PRGRAM                                            
  Source image: P1000129.JPG
          15901     NOTES          RADIX                                                                           SELECT
    15810>15902    124     179      2   0  2              0        179                                             select literal and division
          15903    80      326      2   0  0              0        326     >UNPACK NEW 'PROGM' BLOCK               ENTER SUBROUTINE
          15904    80      297      2   0  0              0        297     >WORDS IF CARDS                         ENTER SUBROUTINE
          15905    0       12       1   0  0              0                                                        SELECT
          15906    3       1        8   2  0              0                                                        COPY
          15907    11               0   0  0              1                                                        ADD LITERAL
          15908    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          15909    5       1        0   0  0              0                                                        TRANSFER
          15910    5       12       8   0  0              0                SET PAPER TAPE INPUT INDICATOR          TRANSFER
          15911    80      176      2   0  0              0        176     >CHECK 'PROGM' BLOCK                    ENTER SUBROUTINE
          15912    76      158     15   0  0              0        158     >UPDATE SERIAL                          JUMP unconditional
                                                                                                                   
          16000    PROCR   160       160     OPEN O/P FILE  WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK           
          16001     NOTES  160                                                                                     SELECT
    15820>                                                                                                         
    15719>16002    54      8        4   0  0             46                                                        BULK CLEAR
          16003            27       4   0  0              0                COMPILER?                               SELECT
          16004    70      160      9   0  0              0        160     >NORMAL                                 JUMP IF A == 0
          16005    48      A2       0   0  0              3                BACK 0 I/P+O/P                          STEP BACK
          16006    C       999      0   0  0              0                                                        
          16007    10               0   0  0              0                (ZERO SPOOL NUMBER)                     SELECT LITERAL
          16008    76      160     11   0  0              0        160     >                                       JUMP unconditional
    16004>16009    40      A2       0   0  0              0                OPEN FILE                               OPEN FILE
          16010    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
    16008>16011    84      153      2   0  0              0        153     SPOOL NUMBER+WL                         SET SWITCH(ES) AT VARIABLE VALUE
          16012    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16013    80      289      2   0  0              0        289     >2 BLANKS                               ENTER SUBROUTINE
          16014    55      319     30   1  0             10        319                                             BULK COPY
          16015    C       8        4   1  0              0                                                        
          16016    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16017            1        4   0  0              0                SUITE                                   SELECT
          16018    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16019    1       1        6   0  0              0                                                        ADD
          16020    3       12      32   0  0              0                WL=PROG IDENTITY                        COPY
          16021    3       8        4   2  0              0                                                        COPY
          16022    3       8       12   2  0              0                                                        COPY
          16023    0       1        8   2  0              0                PROGRAM SERIAL                          SELECT
          16024    5       12       1   0  0              0                WL                                      TRANSFER
          16025    0       197      2   0  0              0        197     NEW ISSUE WL                            SELECT
          16026    70      160     30   0  0              0        160     >NO CHANGE                              JUMP IF A == 0
          16027    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16028    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          16029    37      12       1   0  0              0                REPLACE EXISTING ISSUE                  REPLACE SELECTED BITS
    16026>16030    52      1        8   0  0              0                                                        EDIT
          16031    C       175     30   0  0              0        175     RESTORE TD 1/8 WITH SIG ZEROS           
          16032    0       1        8   1  0              0                                                        SELECT
          16033    3       8        6   1  0              0                                                        COPY
          16034    5       8       14   1  0              0                                                        TRANSFER
          16035    10               0   0  0              2                INTERCODE IDENTIFIER                    SELECT LITERAL
          16036    5       8       10   2  0              0                                                        TRANSFER
          16037    10               0   0  0              3                MACHINE CODE IDENTIFIER                 SELECT LITERAL
          16038    3       8       18   2  0              0                                                        COPY
          16039    10               0   0  0              2                                                        SELECT LITERAL
          16040    1       27      12   0  0              0                0 OR 2                                  ADD
          16041    5       8       16   2  0              0                                                        TRANSFER
          16042            319     30   2  0              0        319                                             SELECT
          16043    5       8       20   2  0              0                                                        TRANSFER
          16044    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16045            12      32   0  0              0                                                        SELECT
  Source image: P1000130.JPG
          16046    5       8        4   2  0              0                PROG IDENTITY                           TRANSFER
          16047            1        8   1  0              0                                                        SELECT
          16048    5       8        6   1  0              0                PROG SERIAL                             TRANSFER
          16049    10               0   0  0                                                                       SELECT LITERAL
          16050    5       8        8   2  0              0                                                        TRANSFER
          16051            181     20   1  0              0        181     PASSI'                                  SELECT
          16052    5       8       10   1  0              0                                                        TRANSFER
          16053    0       27       4   0  0              0                NON-ZERO IF COMPILER                    SELECT
          16054    3       8       14   2  0              0                SET 'PSEUDO ISSUE 5'                    COPY
          16055    71      160     58   0  0              0        160                                             JUMP IF A != 0
          16056    155              0   0  0              0                PROG SERIAL                             SELECT PROGRAM SERIAL TO A
          16057    3       8       12   1  0              0                ISSUE 6' ND                             COPY
    16055>16058    5       8       16   2  0              0                SET 'MULTI RECORD'                      TRANSFER
          16059    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16060            18    1055   0  0              0                                                        SELECT
          16061    5       319     23   0  0              0        319                                             TRANSFER
          16062            27       4   0  0              0                                                        SELECT
          16063    71      160     70   0  0              0        160     >COMPILER O/P                           JUMP IF A != 0
          16064    55      18    1010   0  0             23                FIRST PROCR LENGTH DETAILS BLOCK        BULK COPY
          16065    C       8        4   2  0              0                A6                                      
          16066    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16067    55      18    1033   0  0             23                SECOND PROCR LENGTH DETAILS BLOCK       BULK COPY
          16068    C       8        4   2  0              0                                                        
          16069    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
    16063>16070    52      8        4   0  0              0                                                        EDIT
          16071    C       175     32   0  0              0        175                                             
          16072    55      1       16   1  0             30                COPY ANNOTATION                         BULK COPY
          16073    C       8       20   1  0              0                                                        
          16074    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16075    0       317     89   0  0              0        317     ABS ADDRESS 18:2496                     SELECT
          16076    5       92       9   0  0              0                                                        TRANSFER
          16077    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          16100    PROCR   161       161     DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS                         
          16101     NOTES  161                                                                                     SELECT
          16102            12       8   0  0              0                                                        SELECT
          16103    70      162      2   0  0              0        162     > FILES REPLACED EX PT                  JUMP IF A == 0
          16104    80      291      2   0  0              0        291     > READ 'ENTRY' EX MT                    ENTER SUBROUTINE
          16105    10               0   0  0              0                                                        SELECT LITERAL
          16106    5       7       46   1  0              0                CLEAR REPORT WORDS                      TRANSFER
          16107    5       7       48   1  0              0                                                        TRANSFER
          16108    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          16109            7        8   2  0              0                                                        SELECT
          16110    80      200      2   0  0              0        200     > REPLACE PROCR                         ENTER SUBROUTINE
          16111    C       178      2   0  0              0        178                                             
          16112    71      161     16   0  0              0        161     > OK                                    JUMP IF A != 0
          16113            319     40   1  0              0        319     ????R'                                  SELECT
          16114    5       7       48   1  0              0                                                        TRANSFER
          16115    76      161     17   0  0              0        161     > USE OLD VALUE                         JUMP unconditional
    16112>16116    5       7        8   2  0              0                                                        TRANSFER
    16132>                                                                                                         
    16115>16117    80      171      2   0  0              0        171     > WRITE                                 ENTER SUBROUTINE
          16118    80      291      2   0  0              0        291     > READ                                  ENTER SUBROUTINE
          16119            7        6   1  0              0                                                        SELECT
          16120    2       181     18   1  0              0        181     CHAPS                                   SUBTRACT
          16121    70      161     33   0  0              0        161     > YES                                   JUMP IF A == 0
          16122    0       7        8   2  0              0                ROUTE TYPE                              SELECT
          16123    80      245      2   0  0              0        245     > TO BIN                                ENTER SUBROUTINE
          16124    33               0   0  0              2-                                                       SHIFT (AB) BY BITS
          16125    1       7        7   0  0              0                FILE ID                                 ADD
  Source image: P1000131.JPG
          16126    33               0   0  0             18-                                                       SHIFT (AB) BY BITS
          16127            7       46   1  0              0                                                        SELECT
          16128    80      164      2   0  0              0        164     >STORE FILE DETAILS                     ENTER SUBROUTINE
          16129    71      161     32   0  0              0        161     >LIST NOT FULL                          JUMP IF A != 0
          16130            319     26   1  0              0        319     SET 'IGNORE'                            SELECT
          16131    5       7       46   1  0              0                                                        TRANSFER
    16129>16132    76      161     17   0  0              0        161     >WRITE                                  JUMP unconditional
    16257>                                                                                                         
    16121>16133            9        4   1  0              0                                                        SELECT
          16134    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16135    70      165      2   0  0              0        165     >PT & MT BOTH AT 'CHAPS'                JUMP IF A == 0
          16136    55      7        8   2  0             30                                                        BULK COPY
          16137    C       12      13   0  0              0                                    MT 'CHAPS' UNAMENDED
          16138    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          16139            12      13   0  0              0                NUMBER OF CHAPS                         SELECT
          16140    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16141    5       12      13   0  0              0                                                        TRANSFER
          16142    91      12      12   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    16151>16143            12      14   0  2              0                START                                   SELECT
          16144    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          16145    C       178      2   0  0              0        178                                             
          16146    71      161     50   0  0              0        161     >OK                                     JUMP IF A != 0
          16147            319     40   1  0              0        319      '????R'                                SELECT
          16148    5       8       48   1  0              0                                                        TRANSFER
          16149    76      161     51   0  0              0        161     >USE OLD VALUE                          JUMP unconditional
    16146>16150    5       12      14   0  2              0                                                        TRANSFER
    16149>16151    94      161     43   0  2              1        161                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16152    55      12      14   0  0             14                                                        BULK COPY
          16153    C       7       10   2  0              0                                                        
          16154    55      7        4   1  0             34                COPY ANNEXES                            BULK COPY
          16155    C       8        4   1  0              0                                                        
          16156    76      165     51   0  0              0        165     >TO TEST 'STORE'                        JUMP unconditional
                                                                                                                   
          16200    PROCR   162       162     DEAL WITH PT INPUT FOR ENTRY FILES                                    
          16201     NOTES  162                                                                                     SELECT
    16103>16202    54      1        0   1  0             46                                                        BULK CLEAR
          16203    80      292      2   0  0              0        292     >RAD PT                                 ENTER SUBROUTINE
          16204    124     179      2   0  2              0        179                                             select literal and division
          16205    80      326      2   0  0              0        326     >UNPACK                                 ENTER SUBROUTINE
          16206    80      297      2   0  0              0        297     >COPY ANNOTATION FOR CARDS              ENTER SUBROUTINE
          16207    10               0   0  0           5500                                                        SELECT LITERAL
          16208    5       12       3   0  0              0                LETTER E FOR REPORTS                    TRANSFER
          16209            1        2   1  0              0                                    CHECK 'ENTRY'       SELECT
          16210    2       181     14   1  0              0        181      'ENTRY'                                SUBTRACT
          16211    70      162     14   0  0              0        162     >OK                                     JUMP IF A == 0
          16212    10               0   0  0              1                                                        SELECT LITERAL
          16213    80      177      2   0  0              0        177     >REPORT *E1                             ENTER SUBROUTINE
    16211>16214            1        4   0  0              0                ENTRY PROCR                             SELECT
          16215    12               0   0  0            100                                                        SUBTRACT LITERAL
          16216    73      162     19   0  0              0        162     >WRONG                                  JUMP IF A < 0
          16217    12               0   0  0            899                                                        SUBTRACT LITERAL
          16218    73      162     22   0  0              0        162     >OK                                     JUMP IF A < 0
    16216>16219    10               0   0  0              2                                                        SELECT LITERAL
          16220    80      177      2   0  0              0        177     >REPORT *E2                             ENTER SUBROUTINE
          16221    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16218>16222    10               0   0  0              1                                                        SELECT LITERAL
          16223    5       12      33   0  0              0                SET 'PT INPUT'                          TRANSFER
          16224            1        4   0  0              0                                                        SELECT
          16225    80      200      2   0  0              0        200     REPLACE PROCR                           ENTER SUBROUTINE
          16226    C       178      2   0  0              0        178                                             
  Source image: P1000132.JPG
          16227    71      162     31   0  0              0        162     >OK                                     JUMP IF A != 0
          16228            319     40   1  0              0        319      '????R'                                SELECT
          16229    5       1       44   1  0              0                                                        TRANSFER
          16230    76      162     32   0  0              0        162                                             JUMP unconditional
    16227>16231    5       1        4   0  0              0                NEW PROCR                               TRANSFER
    16230>16232            1        6   1  0              0                PRIORITY CLASS                          SELECT
          16233    12               0   0  0              1                                                        SUBTRACT LITERAL
          16234    73      162     37   0  0              0        162     >WRONG                                  JUMP IF A < 0
          16235    12               0   0  0              4                                                        SUBTRACT LITERAL
          16236    73      162     40   0  0              0        162     >OK                                     JUMP IF A < 0
    16234>16237    10               0   0  0              3                                                        SELECT LITERAL
          16238    80      177      2   0  0              0        177     >REPORT*E3                              ENTER SUBROUTINE
          16239    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16236>16240    52      8        4   0  0              0                                                        EDIT
          16241    C       175     32   0  0              0        175                                             
          16242    55      1       16   1  0             30                ANNOTATION                              BULK COPY
          16243    C       8       20   1  0              0                                                        
          16244    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
    16398>16245    80      292      2   0  0              0        292     >READ PT            TESTS FOR END OF    ENTER SUBROUTINE
          16246            92      30   0  0              0                                    PT FILE DETAILS     SELECT
          16247    70      162     58   0  0              0        162     >INITIAL TRANSLATION                    JUMP IF A == 0
          16248    80      294      2   0  0              0        294     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          16249    71      162     53   0  0              0        162     >YES                                    JUMP IF A != 0
          16250            9        4   1  0              0                                                        SELECT
          16251    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16252    71      162     73   0  0              0        162     >ASSUME ANOTHER FILE EX PT              JUMP IF A != 0
    16256>                                                                                                         
    16249>16253    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16254            7        6   1  0              0                                    IGNORE MT FILES     SELECT
          16255    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16256    71      162     53   0  0              0        162     >READ/IGNORE MT FILES->PROCESS MT CHAPS JUMP IF A != 0
          16257    76      161     33   0  0              0        161     >PROCESS MT CHAPS                       JUMP unconditional
    16247>16258            9        4   1  0              0                                                        SELECT
          16259    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16260    70      165      2   0  0              0        165     >END OF FILE DETAILS EX PT              JUMP IF A == 0
          16261            9        4   1  0              0                                                        SELECT
          16262    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16263    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          16264    2       319     14   1  0              0        319      'END  '                                SUBTRACT
          16265    71      162     73   0  0              0        162                                             JUMP IF A != 0
          16266    10               0   0  0         900000                                                        SELECT LITERAL
          16267    1       27       9   0  0              0                                                        ADD
          16268    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          16269    150              0   0  0              1                 END' BEFORE 'CHAPS'ALARM*01            OFFER OPTIONS
          16270    C       162     72   0  0              0        162     >UNLOAD                                 
          16271    C       100      2   0  0              0        100     >RE-ENTER                               
    16270>16272    151              0   0  0              0                                                        UNLOAD PROGRAMME
    16265>                                                                                                         
    16252>16273    54      1        0   1  0             46                                                        BULK CLEAR
          16274    5       12       2   0  0              0                CLEAR CTR                               TRANSFER
          16275    124     179     12   0  2              0        179                                             select literal and division
          16276    80      326      2   0  0              0        326     >UNPACK FILE DETAILS                    ENTER SUBROUTINE
          16277    80      297      2   0  0              0        297     >UNPACK CARD ANNOTATION                 ENTER SUBROUTINE
                                                                                                                   
          16300    PROCR   163       163     CHECK/STORE/OUTPUT FILR DETAILS EX PT                                 
          16301     NOTES  163                                                                                     SELECT
          16302    10               0   0  0           5600                                                        SELECT LITERAL
          16303    5       12       3   0  0              0                ERROR LETER F                           TRANSFER
          16304    34      1        2   1  0              0                FILE IDENTITY                           SET (N) IN B
          16305    80      300      2   0  0              0        300     >L-ALIGN IN A                           ENTER SUBROUTINE
  Source image: P1000133.JPG
          16306    3       1        2   1  0              0                                                        COPY
          16307    32               0   0  0              9-                                                       SHIFT (AB) BY QUARTETS
          16308    12               0   0  0              5                CONTROL OF ALPHA PART                   SUBTRACT LITERAL
          16309    73      163     24   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16310    10               0   0  0              0                                                        SELECT LITERAL
          16311    32               0   0  0              1                BASIC OF ALPHA PART                     SHIFT (AB) BY QUARTETS
          16312    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          16313    72      163     24   0  0              0        163     >REPORT                                 JUMP IF A >= 0
          16314    10               0   0  0              0                                                        SELECT LITERAL
          16315    32               0   0  0              2                NUMERIC PART                            SHIFT (AB) BY QUARTETS
          16316    12               0   0  0             30                                                        SUBTRACT LITERAL
          16317    70      163     22   0  0              0        163     >OK                                     JUMP IF A == 0
          16318    12               0   0  0             11                                                        SUBTRACT LITERAL
          16319    73      163     24   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16320    12               0   0  0              9                                                        SUBTRACT LITERAL
          16321    72      163     24   0  0              0        163     >REPORT                                 JUMP IF A >= 0
    16317>16322    10               0   0  0              0                                                        SELECT LITERAL
          16323    74      163     26   0  0              0        163     >OK                                     JUMP IF AB == 0        // 27, 1, 0
    16321>                                                                                                         
    16319>                                                                                                         
    16313>                                                                                                         
    16309>16324    10               0   0  0              1                                                        SELECT LITERAL
          16325    80      177      2   0  0              0        177     >REPORT*F1                              ENTER SUBROUTINE
    16323>16326            1        4   1  0              0                ROUTE TYPE                              SELECT
          16327    12               0   0  0              1                                                        SUBTRACT LITERAL
          16328    73      163     62   0  0              0        163     >IGNORE                                 JUMP IF A < 0
          16329    12               0   0  0              2                                                        SUBTRACT LITERAL
          16330    71      163     33   0  0              0        163     >NOT 3. DEC CARD O/P                    JUMP IF A != 0
          16331    10               0   0  0             26                                                        SELECT LITERAL
          16332    76      163     60   0  0              0        163     >SET BLOCK LENGTH                       JUMP unconditional
    16330>16333    12               0   0  0              1                                                        SUBTRACT LITERAL
          16334    70      163     51   0  0              0        163     >GP PRINTER                             JUMP IF A == 0
          16335    12               0   0  0             15                                                        SUBTRACT LITERAL
          16336    70      163     51   0  0              0        163     >RT 19                                  JUMP IF A == 0
          16337    12               0   0  0              1                                                        SUBTRACT LITERAL
          16338    70      163     70   0  0              0        163     > OUT, IF RT20                          JUMP IF A == 0
          16339    12               0   0  0              1                                                        SUBTRACT LITERAL
          16340    70      163     62   0  0              0        163     >REJECT RT 21                           JUMP IF A == 0
          16341    12               0   0  0              1                                                        SUBTRACT LITERAL
          16342    70      163     70   0  0              0        163     >22,DATA LINK                           JUMP IF A == 0
          16343    12               0   0  0              1                                                        SUBTRACT LITERAL
          16344    70      163     62   0  0              0        163     >REJECT RT 23                           JUMP IF A == 0
          16345    12               0   0  0              1                                                        SUBTRACT LITERAL
          16346    70      163     70   0  0              0        163     >RT24                                   JUMP IF A == 0
          16347    12               0   0  0              1                                                        SUBTRACT LITERAL
          16348    70      163     70   0  0              0        163     >RT25                                   JUMP IF A == 0
          16349    72      163     62   0  0              0        163     >REJECT                                 JUMP IF A >= 0
          16350    76      163     70   0  0              0        163                                             JUMP unconditional
    16336>                                                                                                         
    16334>16351            1        8   1  0              0                BLOCK LENGTH                            SELECT
          16352    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16353    33               0   0  0              6-               DIVIDE BY 64                            SHIFT (AB) BY BITS
          16354    39               0   0  0              0                ROUND UP                                ROUND UP
          16355    12               0   0  0              5                                                        SUBTRACT LITERAL
          16356    72      163     66   0  0              0        163     >TOO BIG                                JUMP IF A >= 0
          16357    11               0   0  0              5                                                        ADD LITERAL
          16358    31               0   0  0              6                                                        SHIFT (A) BY BITS
          16359    80      244      2   0  0              0        244     >TO DEC                                 ENTER SUBROUTINE
    16332>16360    5       1        8   1  0              0                                                        TRANSFER
          16361    76      163     70   0  0              0        163                                             JUMP unconditional
    16349>                                                                                                         
    16344>                                                                                                         
    16340>                                                                                                         
  Source image: P1000134.JPG
    16328>16362    10               0   0  0              2                                                        SELECT LITERAL
          16363    80      177      2   0  0              0        177     >REPORT*F2                              ENTER SUBROUTINE
          16364    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          16365    76      163     70   0  0              0        163                                             JUMP unconditional
    16371>                                                                                                         
    16372>                                                                                                         
    16356>16366    10               0   0  0              4                                                        SELECT LITERAL
          16367    80      177      2   0  0              0        177     >REPORT*F4                              ENTER SUBROUTINE
          16368    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          16369    76      163     73   0  0              0        163                                             JUMP unconditional
    16365>                                                                                                         
    16361>                                                                                                         
    16350>                                                                                                         
    16348>                                                                                                         
    16346>                                                                                                         
    16342>                                                                                                         
    16338>16370    0       1        8   1  0              0                BLOCK LENGTH                            SELECT
          16371    73      163     66   0  0              0        163                                             JUMP IF A < 0
          16372    70      163     66   0  0              0        163                                             JUMP IF A == 0
    16369>16373    76      164     15   0  0              0        164                                             JUMP unconditional
    16419>                                                                                                         
    16433>                                                                                                         
    16436>                                                                                                         
    16441>16374    10               0   0  0              5                                                        SELECT LITERAL
          16375    80      177      2   0  0              0        177     >REPORT*F5                              ENTER SUBROUTINE
          16376    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    16420>                                                                                                         
    16437>                                                                                                         
    16440>16377            1        6   1  0              0                CHAP IND                                SELECT
          16378    73      163     81   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16379    12               0   0  0            100                                                        SUBTRACT LITERAL
          16380    73      163     84   0  0              0        163     >OK                                     JUMP IF A < 0
    16378>16381    10               0   0  0              3                                                        SELECT LITERAL
          16382    80      177      2   0  0              0        177     >REPORT*F3                              ENTER SUBROUTINE
          16383    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16380>16384            1        4   1  0              0                ROUTE TYPE                              SELECT
          16385    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16386    33               0   0  0              2-                                                       SHIFT (AB) BY BITS
          16387    1       1        3   0  0              0                FILE ID                                 ADD
          16388    33               0   0  0             18-                                                       SHIFT (AB) BY BITS
          16389            1       42   1  0              0                                                        SELECT
          16390    80      164      2   0  0              0        164     >STORE DETAIL                           ENTER SUBROUTINE
          16391    71      163     93   0  0              0        163     >OK, LIST NOT FULL                      JUMP IF A != 0
          16392    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    16391>16393    52      8        6   0  0              0                                                        EDIT
          16394    C       175      2   0  0              0        175                                             
          16395    55      1       28   1  0             18                                                        BULK COPY
          16396    C       8       32   1  0              0                                                        
          16397    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          16398    76      162     45   0  0              0        162                                             JUMP unconditional
                                                                                                                   
          16400    PROCR   164       164     STORE FILE DETAILS SR                                                 
          16401     NOTES  164                                                                                     SELECT
          16402    81      164      2   0  0              0        164                                             START OF SUBROUTINE
          16403    2       319     26   1  0              0        319                                             SUBTRACT
          16404    70      164     13   0  0              0        164     >IGNORED ALREADY                        JUMP IF A == 0
          16405    10               0   0  0             10                 =16                                    SELECT LITERAL
  Source image: P1000135.JPG
          16406    2       91       1   0  0              0                                                        SUBTRACT
          16407    70      164     13   0  0              0        164     LIST FULL.  IGNORE                      JUMP IF A == 0
          16408    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          16409    124     91       1   0  1              0                                                        modify address of next
          16410    5       91       5   0  0              0                STORE                                   TRANSFER
          16411    10               0   0  0              2                                                        SELECT LITERAL
          16412    4       91       1   0  0              0                STEP CTR                                AUGMENT
    16407>                                                                                                         
    16404>16413    60               0   0  0              0                                                        SET DECIMAL RADIX
          16414    82      164      2   0  0              0        164     (A)=0 IF FILE TO BE IGNORED             END OF SUBROUTINE / LEAVE SUBROUTINE
    16373>16415            1       10   0  0              0                ALT ROUTE IND                           SELECT
          16416    71      164     21   0  0              0        164                                             JUMP IF A != 0
          16417            1        4   0  0              0                                                        SELECT
          16418    12               0   0  0             19                                                        SUBTRACT LITERAL
          16419    70      163     74   0  0              0        163     >REPORT                                 JUMP IF A == 0
          16420    76      163     77   0  0              0        163     >OK                                     JUMP unconditional
    16416>16421            1        4   0  0              0                ROUTE TYPE                              SELECT
          16422    12               0   0  0              5                                                        SUBTRACT LITERAL
          16423    70      164     38   0  0              0        164     >PT                                     JUMP IF A == 0
          16424    12               0   0  0              2                                                        SUBTRACT LITERAL
          16425    70      164     38   0  0              0        164     >MT 7                                   JUMP IF A == 0
          16426    12               0   0  0              1                                                        SUBTRACT LITERAL
          16427    70      164     38   0  0              0        164     >MT 8                                   JUMP IF A == 0
          16428    12               0   0  0              3                                                        SUBTRACT LITERAL
          16429    70      164     38   0  0              0        164     >MT 11                                  JUMP IF A == 0
          16430    12               0   0  0              4                                                        SUBTRACT LITERAL
          16431    70      164     38   0  0              0        164     >PT 15                                  JUMP IF A == 0
          16432    12               0   0  0              4                                                        SUBTRACT LITERAL
          16433    71      163     74   0  0              0        163     >REPORT. NOT 19                         JUMP IF A != 0
          16434            1       10   0  0              0                SPECIAL ANNEX LENGTH                    SELECT
          16435    12               0   0  0           4096                                                        SUBTRACT LITERAL
          16436    72      163     74   0  0              0        163     >REPORT                                 JUMP IF A >= 0
          16437    76      163     77   0  0              0        163     >OK                                     JUMP unconditional
    16431>                                                                                                         
    16429>                                                                                                         
    16427>                                                                                                         
    16425>                                                                                                         
    16423>16438            1       10   0  0              0                ALT ROUTE IND                           SELECT
          16439    12               0   0  0              1                >OK                                     SUBTRACT LITERAL
          16440    70      163     77   0  0              0        163     >REPORT                                 JUMP IF A == 0
          16441    76      163     74   0  0              0        163                                             JUMP unconditional
                                                                                                                   
          16500    PROCR   165       165     'CHAPS'  ON PT                                                        
          16501     NOTES  165                                                                                     SELECT
    16260>                                                                                                         
    16135>16502    10               0   0  0           5300                                                        SELECT LITERAL
          16503    3       12      33   0  0              0                SET 'PT IN'                             COPY
          16504    5       12       3   0  0              0                ERROR LETTER C                          TRANSFER
          16505    54      1        0   1  0             46                                                        BULK CLEAR
          16506            12       1   0  0              0                STORE AMEND SERIAL INDICATOR            SELECT
          16507    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16508    5       1        0   0  0              0                                                        TRANSFER
          16509    124     180      2   0  2              0        180                                             select literal and division
          16510    80      326      2   0  0              0        326     >UNPACK 'CHAPS'                         ENTER SUBROUTINE
          16511            1        4   0  0              0                NO OF CHARS                             SELECT
          16512    12               0   0  0              1                                                        SUBTRACT LITERAL
          16513    73      165     16   0  0              0        165     >REPORT                                 JUMP IF A < 0
          16514    12               0   0  0             14                                                        SUBTRACT LITERAL
          16515    73      165     19   0  0              0        165     >OK                                     JUMP IF A < 0
    16513>16516    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1000136.JPG
          16517    3       1        4   0  0              0                (SAFE VALUE)                            COPY
          16518    80      177      2   0  0              0        177     >REPORT*C1                              ENTER SUBROUTINE
    16515>16519            1        4   0  0              0                                                        SELECT
          16520    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16521    5       12      13   0  0              0                                                        TRANSFER
          16522    60               0   0  0              0                                                        SET DECIMAL RADIX
          16523    91      12      12   0  2              0                C:0                                     SET MODIFICATION REGISTER AT VARIABLE
    16539>16524            1        5   0  2              0                                                        SELECT
          16525    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          16526    C       178      2   0  0              0        178                                             
          16527    71      165     31   0  0              0        165     >OK                                     JUMP IF A != 0
          16528            319     40   1  0              0        319      '????R'                                SELECT
          16529    5       1       44   1  0              0                                                        TRANSFER
          16530            1        5   0  2              0                OLD VALUE                               SELECT
    16527>16531    3       12      14   0  2              0                STORE START POINTS                      COPY
          16532    3       1        5   0  2              0                                                        COPY
          16533    12               0   0  0            100                                                        SUBTRACT LITERAL
          16534    73      165     37   0  0              0        165     >REPORT                                 JUMP IF A < 0
          16535    12               0   0  0            899                                                        SUBTRACT LITERAL
          16536    73      165     39   0  0              0        165     >OK                                     JUMP IF A < 0
    16534>16537    10               0   0  0              2                                                        SELECT LITERAL
          16538    80      177      2   0  0              0        177     >REPORT*C2                              ENTER SUBROUTINE
    16536>16539    94      165     24   0  2              1        165                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16540            1        5   0  2              0                NEXT CHAP START                         SELECT
          16541    70      165     44   0  0              0        165     >OK                                     JUMP IF A == 0
          16542    10               0   0  0              3                                                        SELECT LITERAL
          16543    80      177      2   0  0              0        177     >REPORT*C3                              ENTER SUBROUTINE
    16541>16544    55      1        4   0  0             15                NO OF CHAPS*START                       BULK COPY
          16545    C       8        8   2  0              0                                                        
          16546    55      1       34   1  0             12                REPORTS                                 BULK COPY
          16547    C       8       38   1  0              0                                                        
          16548    52      8        4   0  0              0                EDIT AMEND IND+'CHARS'                  EDIT
          16549    C       175     26   0  0              0        175                                             
          16550    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
    16156>16551            9        4   1  0              0                                    DEAL WITH 'STOR     SELECT
          16552    2       181     22   1  0              0        181      'STORE'                                SUBTRACT
          16553    70      165     57   0  0              0        165     >PT AT STORE                            JUMP IF A == 0
          16554            92      30   0  0              0                                                        SELECT
          16555    71      165     74   0  0              0        165     >MT UNAMENDED                           JUMP IF A != 0
          16556    76      166      2   0  0              0        166     >INITIAL TRANS WITHOUT STORE            JUMP unconditional
    16553>16557            92      30   0  0              0                                                        SELECT
          16558    70      165     64   0  0              0        165     INITIAL TRANS                           JUMP IF A == 0
          16559    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
          16560            7        6   1  0              0                                                        SELECT
          16561    2       181     22   1  0              0        181      'STORE'                                SUBTRACT
          16562    71      165     64   0  0              0        165                                             JUMP IF A != 0
          16563    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
    16562>                                                                                                         
    16558>16564    54      1        0   1  0             20                                                        BULK CLEAR
          16565    124     180      2   0  2              0        180                                             select literal and division
          16566    80      326      2   0  0              0        326     UNPACK 'STORE'                          ENTER SUBROUTINE
          16567    80      289      2   0  0              0        289     WRITE 'CHAPS'                           ENTER SUBROUTINE
          16568    55      1        4   0  0              7                                                        BULK COPY
          16569    C       8        8   1  0              0                                                        
          16570            181     22   1  0              0        181      'STORE'                                SELECT
          16571    5       8        6   1  0              0                                                        TRANSFER
          16572    80      292      2   0  0              0        292     READ A6                                 ENTER SUBROUTINE
          16573    76      166      2   0  0              0        166                                             JUMP unconditional
    16555>16574    80      291      2   0  0              0        291     READ A1        MT UNAMENDED             ENTER SUBROUTINE
          16575            7        6   1  0              0                                                        SELECT
  Source image: P1000137.JPG
          16576    2       181     22   1  0              0        181                                             SUBTRACT
          16577    71      166      2   0  0              0        166     >NOT STORE                              JUMP IF A != 0
          16578    80      289      2   0  0              0        289     WRITE 'CHAPS'                           ENTER SUBROUTINE
          16579    55      7        4   1  0             40                                                        BULK COPY
          16580    C       8        4   1  0              0                                                        
          16581    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
                                                                                                                   
          16600    PROCR   166       166     PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION      
          16601     NOTES  166                                                                                     SELECT
    16577>                                                                                                         
    16573>                                                                                                         
    16556>16602    10               0   0  0                                                                       SELECT LITERAL
          16603    5       18    2498   1  0              0                LIST END SIGN                           TRANSFER
          16604    5       18    2496   1  0              0                CLEAR FIRST ENTRY                       TRANSFER
          16605    83      267      2   0  0              1        267     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          16606    0       12      13   0  0              0                NO OF CHAPS                             SELECT
          16607    80      244      2   0  0              0        244     >TO DEC                                 ENTER SUBROUTINE
          16608    5       181      8   0  0              0        181                                             TRANSFER
          16609    10               0   0  0           7200                                                        SELECT LITERAL
          16610    5       12       3   0  0              0                ERROR LETTERS                           TRANSFER
          16611    10               0   0  0             99                                                        SELECT LITERAL
          16612    5       92       3   0  0              0                FIRST PROCR-1                           TRANSFER
          16613    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          16614    C                0   0  0             14                TO STORE CHAPTER ENDS                   
          16615    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16616    91      12      12   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    16619>16617    11               0   0  0              1                                                        ADD LITERAL
          16618    3       92      10   0  3              0                STORE UNCORRECETD CHAP NUMBERS          COPY
          16619    94      166     17   0  3              1        166                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16620    60               0   0  0              0                                                        SET DECIMAL RADIX
          16621    10               0   0  0           1001                                                        SELECT LITERAL
          16622    5       12       9   0  0              0                SET FIRST SECTION SERIAL NUMBER         TRANSFER
          16623            92      30   0  0              0                                                        SELECT
          16624    71      167      2   0  0              0        167     >NOT INITIAL TRANSLATION                JUMP IF A != 0
    16635>16625    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          16626    C       166     28   0  0              0        166     >PT                                     
          16627    C       166     30   0  0              0        166     >CARDS                                  
    16626>16628            9        4   1  0              0                                                        SELECT
          16629    76      166     31   0  0              0        166                                             JUMP unconditional
    16627>16630            9        8   1  0              0                                                        SELECT
    16629>16631    80      287      2   0  0              0        287     >TEST PT='PROCR' ETC                    ENTER SUBROUTINE
          16632            12      38   0  0              0                                                        SELECT
          16633    73      185      2   0  0              0        185     >YES, END OF SECTION DETAILS            JUMP IF A < 0
          16634    80      170      2   0  0              0        170     >UNPACK/OUTPUT PT                       ENTER SUBROUTINE
          16635    76      166     25   0  0              0        166                                             JUMP unconditional
                                                                                                                   
          16700    PROCR   167       167     DEAL WITH UNAMENDED SECTION LINE                                      
    16624>16702    80      173      2   0  0              0        173     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          16703    71      167      7   0  0              0        167                                             JUMP IF A != 0
          16704    34      181     10   1  0              0        181     FIVE SQUARES                            SET (N) IN B
          16705    76      169      3   0  0              0        169                                             JUMP unconditional
    16722>                                                                                                         
    16812>                                                                                                         
    16817>16706    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
    16831>                                                                                                         
    16921>                                                                                                         
    16703>16707            12      45   0  0              0                                                        SELECT
          16708    71      167     13   0  0              0        167     >NO MORE PT AMENDS TO SECTIONS          JUMP IF A != 0
          16709            7        4   2  0              0                                                        SELECT
          16710    2       9        4   2  0              0                                                        SUBTRACT
  Source image: P1000138.JPG
          16711    70      168      2   0  0              0        168     >MT AMENDED                             JUMP IF A == 0
          16712    73      169      2   0  0              0        169     >MT>PT, REPORT                          JUMP IF A < 0
    16708>16713    80      174      2   0  0              0        174     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
          16714            12      38   0  0              0                                                        SELECT
          16715    73      185      2   0  0              0        185     >YES                                    JUMP IF A < 0
          16716    50      7        6   0  0              0                                                        UNPACK FIXED FIELD DATA
          16717    C       175     16   0  0              0        175                                             
          16718    55      7       32   1  0             16                                                        BULK COPY
          16719    C       1       28   1  0              0                                                        
          16720    5       1       44   1  0              0                CLEAR REPORT WL                         TRANSFER
          16721    80      172      2   0  0              0        172     >CHECK/EDIT/WRITE SECTION DETAIL        ENTER SUBROUTINE
          16722    76      167      6   0  0              0        167                                             JUMP unconditional
                                                                                                                   
          16800    PROCR   168       168     EFFECT REPLACEMENTS, DELETIONS, INSERTIONS                            
    16711>16802    85      252      2   0  0              0        252                                             SWITCH R
          16803    C       168      7   0  0              0        168     >REPLACE                                
          16804    C       168     15   0  0              0        168     >DELETE                                 
          16805    C       168     27   0  0              0        168     >INSERT BEFORE                          
          16806    C       168      7   0  0              0        168     >ANNOTATION                             
    16814>                                                                                                         
    16806>                                                                                                         
    16803>16807    80      174      2   0  0              0        174     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
          16808    0       12      38   0  0              0                                                        SELECT
          16809    73      185      2   0  0              0        185     >YES                'REPLACE'LOOP       JUMP IF A < 0
          16810    80      170      2   0  0              0        170     >APPLY PT                               ENTER SUBROUTINE
          16811    80      173      2   0  0              0        173     >TEST NEXT PT=DIRECTIVE                 ENTER SUBROUTINE
          16812    71      167      6   0  0              0        167     >YES                                    JUMP IF A != 0
          16813    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16814    76      168      7   0  0              0        168                                             JUMP unconditional
    16825>                                                                                                         
    16804>16815    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          16816    80      173      2   0  0              0        173     >TEST DIRECTIVE     DELETE              ENTER SUBROUTINE
          16817    71      167      6   0  0              0        167     >YES                                    JUMP IF A != 0
    16826>16818    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16819    80      174      2   0  0              0        174     > TEST MT=PROCR ETC                     ENTER SUBROUTINE
          16820            12      38   0  0              0                                                        SELECT
          16821    73      185      2   0  0              0        185     >YES                                    JUMP IF A < 0
          16822            7        4   2  0              0                                                        SELECT
          16823    2       9        4   2  0              0                                                        SUBTRACT
          16824    73      169      2   0  0              0        169     >MODS OUT OF ORDER                      JUMP IF A < 0
          16825    70      168     15   0  0              0        168     >END OF DELETION                        JUMP IF A == 0
          16826    76      168     18   0  0              0        168     >READ/IGNORE MT                         JUMP unconditional
    16805>16827    80      292      2   0  0              0        292     READ FIRST INSERTED BLOCK               ENTER SUBROUTINE
    16830>16828    80      170      2   0  0              0        170     >UNPACK/OUTPUT/READ NEXT PT BLOCK       ENTER SUBROUTINE
          16829    80      173      2   0  0              0        173     >TEST AMEND DIRECTIVE                   ENTER SUBROUTINE
          16830    70      168     28   0  0              0        168     >NO                                     JUMP IF A == 0
          16831    76      167      7   0  0              0        167     >YES                                    JUMP unconditional
                                                                                                                   
          16900    PROCR   169       169     DEAL WITH SEQUENCE ERROR IN MODS                                      
    16824>                                                                                                         
    16712>16902    34      1        2   1  0              0                                                        SET (N) IN B
    16705>16903    0       8       47   0  0              0                TEST TOP HALF TO BE'??5'                SELECT
          16904    2       318     27   0  0              0        318                                             SUBTRACT
          16905    70      169     10   0  0              0        169     >LINE IGNORED, DONT OVERWRITE WORD      JUMP IF A == 0
          16906    10               0   0  0              0                CLEAR SIGN BIT A                        SELECT LITERAL
          16907    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          16908    5       8       46   1  0              0                                                        TRANSFER
          16909    76      169     12   0  0              0        169                                             JUMP unconditional
    16905>16910    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          16911    5       8       44   1  0              0                                                        TRANSFER
  Source image: P1000139.JPG
    16909>16912    0       1        4   1  0              0                AMEND LETTER                            SELECT
          16913    5       8       48   1  0              0                                                        TRANSFER
          16914    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          16915    10               0   0  0           1:1:                                                        SELECT LITERAL
          16916    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          16917    37      8       48   1  0              0                PLANT '??'                              REPLACE SELECTED BITS
    16920>16918    80      292      2   0  0              0        292     >READPT                                 ENTER SUBROUTINE
          16919    80      173      2   0  0              0        173     >TEST AMEND DIRECTIVE                   ENTER SUBROUTINE
          16920    70      169     18   0  0              0        169     >NO                                     JUMP IF A == 0
          16921    76      167      7   0  0              0        167     >YES(DEAL WITH CURRENT MT BLOCK)        JUMP unconditional
                                                                                                                   
          17000    PROCR   170       170     AMENDS TO SECTION DESCRIPTION EX PT                                   
          17002    81      170      2   0  0              0        170                                             START OF SUBROUTINE
          17003    54      1        0   1  0             46                                                        BULK CLEAR
          17004    124     179     26   0  2              0        179                                             select literal and division
          17005    80      326      2   0  0              0        326     >UNPACK PT SECTION                      ENTER SUBROUTINE
          17006    80      297      2   0  0              0        297     UNPACK ANNOTATION(CARDS)                ENTER SUBROUTINE
          17007    86      252      2   0  0              0        252                                             SELECT SWITCH R
          17008    12               0   0  0              4                                                        SUBTRACT LITERAL
          17009    71      170     13   0  0              0        170     >NOT 'UNPACK ANNOTATION'                JUMP IF A != 0
          17010    50      7        6   0  0              0                                                        UNPACK FIXED FIELD DATA
          17011    C       175     16   0  0              0        175     UNPACK MT DETAILS                       
          17012    76      170     15   0  0              0        170                                             JUMP unconditional
    17009>17013    0       12       1   0  0              0                SET AMEND IND                           SELECT
          17014    5       1        6   0  0              0                                                        TRANSFER
    17012>17015    80      292      2   0  0              0        292     >READ NEXT PT BLOCK                     ENTER SUBROUTINE
          17016    80      172      2   0  0              0        172     >CHECK/EDIT/OUTPUT SECTION DETAIL       ENTER SUBROUTINE
          17017    82      170      2   0  0              0        170                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17100    PROCR   171       171                                                                           
          17102    81      171      2   0  0              0        171                                             START OF SUBROUTINE
          17103    43      A2       0   0  0              0                                                        OUTPUT
          17104    C       7        0   0  0              0                                                        
          17105    82      171      2   0  0              0        171                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17200    PROCR   172       172     CHECK/EDIT/WRITE SECTION DETAILS                                      
          17202    81      172      2   0  0              0        172                                             START OF SUBROUTINE
          17203    80      189      2   0  0              0        189     DELETE B/FWD REPORTS                    ENTER SUBROUTINE
          17204    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17205    C                0   0  0              4                                                        
          17206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17207    C                0   0  0              8                                                        
          17208    10               0   0  0              0                                                        SELECT LITERAL
          17209    5       1       44   1  0              0                CLEAR REPORT WORD                       TRANSFER
    17222>17210            1        2   0  1              0                                                        SELECT
          17211    2       181      3   0  2              0        181     LOWER LIMIT                             SUBTRACT
          17212    73      172     16   0  0              0        172     >REPORT                                 JUMP IF A < 0
          17213            181      2   0  2              0        181     UPPER LIMIT                             SELECT
          17214    2       1        2   0  1              0                                                        SUBTRACT
          17215    72      172     21   0  0              0        172     >OK                                     JUMP IF A >= 0
    17212>17216    96               0   0  1              0                                                        SELECT MODIFIER
          17217    11               0   0  0              1                                                        ADD LITERAL
    17230>17218    80      177      2   0  0              0        177     >REPORT S(NOMBER)                       ENTER SUBROUTINE
          17219    80      295      2   0  0              0        295     >IGNORE SECTION                         ENTER SUBROUTINE
          17220    76      172     44   0  0              0        172                                             JUMP unconditional
    17215>17221    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17222    94      172     10   0  2              2        172                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17223            1        4   0  0              0                TX AREA IND                             SELECT
          17224    70      172     31   0  0              0        172     >NO                                     JUMP IF A == 0
          17225    4       92       6   0  0              0                AUG CTR                                 AUGMENT
  Source image: P1000140.JPG
          17226            92       6   0  0              0                                                        SELECT
          17227    12               0   0  0              9                                                        SUBTRACT LITERAL
          17228    73      172     31   0  0              0        172     >OK, NOT >8 TX AREAS                    JUMP IF A < 0
    17235>17229    10               0   0  0              5                                                        SELECT LITERAL
          17230    76      172     18   0  0              0        172     >REPORT, IGNORE                         JUMP unconditional
    17228>                                                                                                         
    17224>17231            1        2   0  0              0                                                        SELECT
          17232    80      183      2   0  0              0        183     >DECODE SEC NUMBER                      ENTER SUBROUTINE
          17233    34      12      40   0  0              0                                                        SET (N) IN B
          17234    36      12      72   0  3              0                                                        COLLATE AND ADD
          17235    71      172     29   0  0              0        172     >SECTION ALREADY USED                   JUMP IF A != 0
          17236    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          17237            12      40   0  0              0                                                        SELECT
          17238    4       12      72   0  3              0                SET '  AM A SECTION' IND                AUGMENT
          17239            1        4   0  0              0                                                        SELECT
          17240    70      172     44   0  0              0        172     >NOT TX AREA                            JUMP IF A == 0
          17241            12      40   0  0              0                                                        SELECT
          17242    31               0   0  0             10                                                        SHIFT (A) BY BITS
          17243    4       12      72   0  3              0                SET '  AM A TX AREA' IND                AUGMENT
    17240>                                                                                                         
    17220>17244    60               0   0  0              0                                                        SET DECIMAL RADIX
          17245    80      289      2   0  0              0        289     >WRITE PREVINS BLOCK                    ENTER SUBROUTINE
          17246    52      8        4   0  0              0                                                        EDIT
          17247    C       175     12   0  0              0        175                                             
          17248    10               0   0  0              1                                                        SELECT LITERAL
          17249    4       12       9   0  0              0                STEP SERIAL CTR                         AUGMENT
          17250    55      1       28   1  0             18                ANNOTATION                              BULK COPY
          17251    C       8       32   1  0              0                                                        
          17252    82      172      2   0  0              0        172                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17300    PROCR   173       173     TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION                   
          17302    81      173      2   0  0              0        173                                             START OF SUBROUTINE
          17303    80      294      2   0  0              0        294     >TEST AMEND DIRECTIVE/END               ENTER SUBROUTINE
          17304    70      173     12   0  0              0        173     >NO                                     JUMP IF A == 0
          17305            1        3   0  0              0                TOPCHAR OF SERIAL NUMBER                SELECT
          17306    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          17307    12               0   0  0             5‼                *                                       SUBTRACT LITERAL
          17308    70      173     11   0  0              0        173     >IS MOD TO SECTIONS                     JUMP IF A == 0
          17309    10               0   0  0              1                                                        SELECT LITERAL
          17310    5       12      45   0  0              0                                                        TRANSFER
    17308>17311    10               0   0  0              1                                                        SELECT LITERAL
    17304>17312    82      173      2   0  0              0        173     (A)=0 IF NOT DIRECTIVE                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17400    PROCR   174       174     TEST MT AT START OF CODING                                            
          17402    81      174      2   0  0              0        174                                             START OF SUBROUTINE
          17403            27       1   0  0              0                                                        SELECT
          17404    70      174      8   0  0              0        174     >SINGLE RECORD BLOCKS                   JUMP IF A == 0
          17405            7       12   1  0              0                DIRECTIVE WORD                          SELECT
    17409>17406    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          17407    82      174      2   0  0              0        174                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    17404>17408            7       10   1  0              0                                                        SELECT
          17409    76      174      6   0  0              0        174                                             JUMP unconditional
                                                                                                                   
          17500    TABLE   175       175     1                                                                     
          17501     NOTES                                                                                          
          17502     1     2     0     0  2  0   5   0   0   0  0  0  0     FILE IDENTITY==FILES LINE               
          17504     1     4     0     0  0  0   5   0   0   5  0  0  0     RTE TYPE                                
          17506     1     6     0     0  0  0   5   0   0   5  0  0  0     RETN PERIOD                             
          17508     1     8     0     0  0  0   5   0   0   5  0  0  0     MAX BLOCK                               
          17510     1    10     0     0  0  0   5   0   0   5  0  0  1     ALT ROUTE                               
  Source image: P1000141.JPG
          17512   319     8     0     0  2  0   1   0   0   0  0  0  0     *                                       
          17514    12     9     0     0  0  0   4   1   0   3  0  0  0     SECTION SERIAL NUMBER                   
          17516     1     2     0     0  0  0   5   0   0   4  0  0  0     SECTION==SECTION LINE                   
          17518     1     3     0     0  0  0   5   0   0   4  0  0  0     LENGTH                                  
          17520     1     4     0     0  0  0   5   0   0   4  0  0  0     TX AREA IND                             
          17522     1     5     0     0  0  0   5   0   0   4  0  0  0     CHAPTER                                 
          17524     1     6     0     0  0  0   5   0   0   5  0  0  1     AMEND IND                               
          17526     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          17528     1     2     0     0  2  0   5   0   0   0  0  0  1     'CHAPS'                                 
          17530    12     1     0     0  0  0   5   0   0   4  0  0  1     FOR UPDATED SERIAL                      
          17532     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          17534     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          17536     1     4     0     0  0  0   5   0   0   5  0  0  0                                             
          17538     1     6     0     0  0  0   5   0   0   4  0  0  0                                             
          17540     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL/CODER                            
          17542     1    10     0     0  1  0  10   0   0  10  0  0  0     (SPACER)                                
          17544     1    10     0     0  0  0   5   0   0   5  0  0  1     (SPACER)                                
                                                                                                                   
          17600    PROCR   176       176     CHECK PERFORATING IN PROGM BLOCK                                      
          17601     NOTES  176                                                                                     SELECT
          17602    81      176      2   0  0              0        176                                             START OF SUBROUTINE
          17603            1        4   0  0              0                SUITE                                   SELECT
          17604    12               0   0  0           1000                                                        SUBTRACT LITERAL
          17605    73      176      8   0  0              0        176     >OK                                     JUMP IF A < 0
          17606    10               0   0  0             41                                                        SELECT LITERAL
          17607    80      177      2   0  0              0        177     >REPORT*P1                              ENTER SUBROUTINE
    17605>17608            1        6   0  0              0                JOB                                     SELECT
          17609    12               0   0  0            100                                                        SUBTRACT LITERAL
          17610    73      176     13   0  0              0        176     >OK                                     JUMP IF A < 0
          17611    10               0   0  0             42                                                        SELECT LITERAL
          17612    80      177      2   0  0              0        177     >REPORT*P2                              ENTER SUBROUTINE
    17610>17613            1        4   0  0              0                                                        SELECT
          17614    1       1        6   0  0              0                                                        ADD
          17615    71      176     18   0  0              0        176     >OK                                     JUMP IF A != 0
          17616    10               0   0  0             43                                                        SELECT LITERAL
          17617    80      177      2   0  0              0        177     >REPORT*P3                              ENTER SUBROUTINE
    17615>17618            92      30   0  0              0                                                        SELECT
          17619    71      176     21   0  0              0        176     >AMEND RUN                              JUMP IF A != 0
          17620    5       1        8   1  0              0                CLEAR SERIAL NUMBER                     TRANSFER
    17619>17621    10               0   0  0              0                                                        SELECT LITERAL
          17622    5       12       2   0  0              0                CLEAR CTR                               TRANSFER
          17623    82      176      2   0  0              0        176                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17700    PROCR   177       177     ERROR REPORT SR                                                       
          17702    81      177      2   0  0              0        177                                             START OF SUBROUTINE
          17703    5       12       4   0  0              0                                                        TRANSFER
          17704    91      12       2   0  3              0                CTR                                     SET MODIFICATION REGISTER AT VARIABLE
          17705            319      8   1  0              0        319                         *                   SELECT
          17706    1       12       4   0  0              0                REPORT NUMBER                           ADD
          17707    1       12       3   0  0              0                REPORT LETTER                           ADD
          17708    5       1       38   1  3              0                                                        TRANSFER
          17709    12               0   0  0              2                                                        SUBTRACT LITERAL
          17710    4       12       2   0  0              0                REDUCE CTR                              AUGMENT
          17711    10               0   0  0              0                                                        SELECT LITERAL
          17712    82      177      2   0  0              0        177                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17800    PROCR   178       178     REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS                      
          17802    81      178      2   0  0              0        178     (12/119=DEC PROCR)                      START OF SUBROUTINE
          17803            12     119   0  0              0                                                        SELECT
          17804    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
  Source image: P1000142.JPG
          17805    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          17806    5       320     42   1  0              0        320                                             TRANSFER
          17807    91      320     42   0  1              0        320                                             SET MODIFICATION REGISTER AT VARIABLE
          17808    74      178     12   0  0              0        178     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          17809            18      50-  0  1              0                                                        SELECT
          17810    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          17811    76      178     14   0  0              0        178                                             JUMP unconditional
    17808>17812    34      319     20   0  0              0        319     BITS 1-10                               SET (N) IN B
          17813    36      18      50-  0  1              0                                                        COLLATE AND ADD
    17811>17814    80      244      2   0  0              0        244     >DEC                                    ENTER SUBROUTINE
          17815    82      178      2   0  0              0        178                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17900    TABLE   179       179     3    UNPACK PROGM/ENTRY/SECTION                                       
          17901     NOTES                         SALE DESCRIPTION FROM P/T & CARDS                                
          17902     1     2     0     0  2  0   5   0   0   0  0  0  0     PROGM/ENTRY                             
          17904     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO/E POINT                        
          17906     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB NO/PRIORITY CLASS                   
          17908     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL, VERSION, BLANK/CODER            
          17910     1    16     0     0  2  1   5   0   0   0  0  0  1     /////ANNOTATION/CHECKER                 
          17912    12    48     0     0  0  0   2   0   0   0  0  0  0     FILES DESCRIPTION-SERIAL NO             
          17914     1     2     0     0  2  0   2   0   0   0  0  0  0     FILE ID                                 
          17916     1     4     0     0  1  0   2   0   0   0  0  0  0     ROUTE TYPE                              
          17918     1     6     0     0  1  0   2   0   0   0  0  0  0     CHAPTER                                 
          17920     1     8     0     0  1  0   4   0   0   0  0  0  0     BLOCK LENGTH                            
          17922     1    10     0     0  1  0   4   0   0   0  0  0  0     ALT ROUTE IND                           
          17924     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
          17926    12    48     0     0  0  0   6   0   0   0  0  0  0     /////SERIAL-SEC DESCRIPTION             
          17928     1     2     0     0  0  0   2   0   0   0  0  0  0     SECTION NO                              
          17930     1     3     0     0  0  0   4   0   0   0  0  0  0     LENGTH                                  
          17932     1     4     0     0  0  0   1   0   0   0  0  0  0     TX?                                     
          17934     1     5     0     0  0  0   2   0   0   0  0  0  0     CHAP NO                                 
          17936     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
          17938     1     2     0     0  2  0   5   0   0   0  0  0  0     'AMEND'                                 
          17940     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO                                
          17942     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB NO                                  
          17944     1     8     0     0  2  0   2   0   0   0  0  0  0     (ISSUE+SERIAL)/ISSUE                    
          17946     1    20     0     0  2  0   3   0   0   0  0  0  0     (WORDS ETC)/SERIAL                      
          17948     1    16     0     0  0  0   1   0   0   0  0  0  0     ''PRINT PASS 3'' IND                    
          17950     1    17     0     0  0  0   3   0   0   0  0  0  0     NEW ISSUE                               
          17952     1    18     0     0  2  0   1   0   0   0  0  0  1     PTS IND(CARDS)                          
                                                                                                                   
          18000    TABLE   180       180     3    UNPACK CHAPS BLOCK                                               
          18001     NOTES                         FROM CARDS                                                       
          18002     1     2     0     0  2  0   5   0   0   0  0  0  0     CHAPS'                                  
          18004     1     4     0     0  0  0   2   0   0   0  0  0  0     NO OF CHAPS                             
          18006     1     5     0     0  0  0   3   0   0   0  0  0  0     1-ST START                              
          18008     1     6     0     0  0  0   3   0   0   0  0  0  0     2-ND START                              
          18010     1     7     0     0  0  0   3   0   0   0  0  0  0                                             
          18012     1     8     0     0  0  0   3   0   0   0  0  0  0                                             
          18014     1     9     0     0  0  0   3   0   0   0  0  0  0                                             
          18016     1    10     0     0  0  0   3   0   0   0  0  0  0                                             
          18018     1    11     0     0  0  0   3   0   0   0  0  0  0                                             
          18020     1    12     0     0  0  0   3   0   0   0  0  0  0                                             
          18022     1    13     0     0  0  0   3   0   0   0  0  0  0                                             
          18024     1    14     0     0  0  0   3   0   0   0  0  0  0     10-TH START                             
          18026     1    15     0     0  0  0   3   0   0   0  0  0  0                                             
          18028     1    16     0     0  0  0   3   0   0   0  0  0  0                                             
          18030     1    17     0     0  0  0   3   0   0   0  0  0  0                                             
          18032     1    18     0     0  0  0   3   0   0   0  0  0  1     14-TH START                             
                                                                                                                   
  Source image: P1000143.JPG
          18100    CONST   181       181     1    FUNCTIONAL                                                       
          18102          (D)100099;                                        UPPER/LOWER LIM SEC NUMBER              
          18104          4096;                                             DO LENGTH                               
          18106          1;                                                DO TX AREA IND                          
          18108          0;                                                DO CHAP NUMBER                          
          18110          1£1£1£1£1£;                                                                               
          18112          (A)PROGM;                                                                                 
          18114          ENTRY;                                                                                    
          18116          AMEND;                                                                                    
          18118          CHAPS;                                                                                    
          18120          PASSI;                                                                                    
          18122          STORE;                                                                                    
                                                                                                                   
          18200    CONST   182       182     1    DUMMY                                                            
          18202          (B)0;                                                                                     
          18204          ;                                                                                         
          18206          ;                                                                                         
          18208          ;                                                                                         
          18210          ;                                                                                         
                                                                                                                   
          18300    PROCR   183       183     DECODE SECTION NUMBER                                                 
          18301     NOTES          RADIX     D    BITS 1-10 OF 10 LOCATIONS                                        SELECT
          18302    81      183      2   0  0              0        183                                             START OF SUBROUTINE
          18303    70      183     11   0  0              0        183     >ZERO SECTION                           JUMP IF A == 0
          18304    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          18305    92               0   0  3              0                SET MODIFIER=LOCN   CLEAR A             SET MODIFIER AT VARIABLE
          18306    32               0   0  0              1                REMAINDER                               SHIFT (AB) BY QUARTETS
          18307    5       12      40   0  0              0                WL                                      TRANSFER
          18308    10               0   0  0              1                                                        SELECT LITERAL
          18309    124     12      40   0  0              0                                                        modify address of next
          18310    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
    18303>18311    5       12      40   0  0              0                STORE COLLATION BIT                     TRANSFER
          18312    82      183      2   0  0              0        183                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18400    CONST   184       184     1    DUMMY                                                            
                                                                                                                   
          18500    PROCR   185       185     MAIN LOOP-DEAL WITH INITIAL TRANSLATION                               
          18501     NOTES          RADIX                                                                           SELECT
    16821>                                                                                                         
    16809>                                                                                                         
    16715>                                                                                                         
    16633>18502    55      18       0   0  0           1010                COPY CURRENT AMEND DETAILS              BULK COPY
          18503    C       93       0   0  0              0                                                        
          18504    54      29       0   1  0             44                                                        BULK CLEAR
          18505    83      191      2   0  0              2        191     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          18506    10               0   0  0              1                                                        SELECT LITERAL
          18507    5       27       5   0  0              0                UNPACK SWITCH                           TRANSFER
          18508    0       92      30   0  0              0                                                        SELECT
          18509    3       12       8   1  0              0                (CLEAR 12/9)                            COPY
          18510    70      185     14   0  0              0        185     >INITIAL TRANSLATION                    JUMP IF A == 0
          18511    59      7        6   0  8              0                SET I/P MR                              SET MODIFICATION REGISTER FOR MERGE
          18512    C       7        4   2  0              0                                                        
          18513    76      251      2   0  0              0        251                                             JUMP unconditional
    18510>18514    10               0   0  0              1                                                        SELECT LITERAL
          18515    5       12      33   0  0              0                SET 'PT INS INPUT'                      TRANSFER
    18534>18516            9        4   1  0              0                                                        SELECT
          18517    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          18518    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          18519    2       319     14   1  0              0        319     'END  '                                 SUBTRACT
          18520    70      322      2   0  0              0        322     >END OF INITIAL TRANSLATION             JUMP IF A == 0
  Source image: P1000144.JPG
          18521            9        4   1  0              0                                                        SELECT
          18522    2       319     46   1  0              0        319     'TRAMD'                                 SUBTRACT
          18523    70      322      2   0  0              0        322                                             JUMP IF A == 0
          18524    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          18525    C       185     27   0  0              0        185     >PT                                     
          18526    C       185     29   0  0              0        185     >CARDS                                  
    18525>18527            9        4   1  0              0                                                        SELECT
          18528    76      185     30   0  0              0        185                                             JUMP unconditional
    18526>18529            9        8   1  0              0                                                        SELECT
    18528>18530    80      287      2   0  0              0        287     >TEST STACK DIRECTIVE                   ENTER SUBROUTINE
          18531    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          18532    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          18533    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          18534    76      185     16   0  0              0        185     >LOOP TILL END                          JUMP unconditional
                                                                                                                   
          18600    PROCR   186       186     START OF CHECK/EDIT/OUTPUT SR                                         
          18601     NOTES          RADIX                                                                           SELECT
          18602    81      186      2   0  0              0        186                                             START OF SUBROUTINE
          18603            12      38   0  0              0                STACKING DIRECTIVE                      SELECT
          18604    70      190      2   0  0              0        190     NO                                      JUMP IF A == 0
          18605    72      191      2   0  0              0        191     >'NOTES' BLOCK                          JUMP IF A >= 0
          18606            12      61   0  0              0                C-LINE MUST FOLLOW                      SELECT
          18607    70      186      9   0  0              0        186     INDICATOR                               JUMP IF A == 0
          18608    80      296      2   0  0              0        296     IGNORE THIS INSTRUCTION                 ENTER SUBROUTINE
    18607>18609            12      54   0  0              0                                                        SELECT
          18610    12               0   0  0             55                                                        SUBTRACT LITERAL
          18611    70      186     14   0  0              0        186                                             JUMP IF A == 0
          18612    10               0   0  0              0                                                        SELECT LITERAL
          18613    5       12      60   1  0              0                                                        TRANSFER
    18611>18614    5       12       9   0  0              0                                                        TRANSFER
          18615    5       12      43   0  0              0                CLEAR LINE INCREMENT FOR 'SER' CHECKS   TRANSFER
          18616            92      30   0  0              0                                                        SELECT
          18617    71      186     22   0  0              0        186     >AMEND RUN                              JUMP IF A != 0
          18618            9       50   2  0              0                PASS 0 DOESN'T LIKE IT' IND             SELECT
          18619    70      186     22   0  0              0        186     >OK                                     JUMP IF A == 0
          18620            319     40   1  0              0        319     ????R'                                  SELECT
          18621    5       1       44   1  0              0                                                        TRANSFER
    18619>                                                                                                         
    18617>18622            27       5   0  0              0                                                        SELECT
          18623    12               0   0  0              4                                                        SUBTRACT LITERAL
          18624    70      187     38   0  0              0        187     >VALUE (DIRECTIVE OR DATA)              JUMP IF A == 0
          18625            92       3   0  0              0                                                        SELECT
          18626    11               0   0  0              1                FORM TRANSLATORS PROCR                  ADD LITERAL
          18627    3       92       3   0  0              0                                                        COPY
          18628    3       12       0   0  0              0                                                        COPY
          18629    5       12       4   0  0              0                                                        TRANSFER
                                                                                                                   
          18700    PROCR   187       187     TEST NEW CHAPTER                                                      
          18702            1        8   2  0              0                                                        SELECT
          18703    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          18704    3       1       14   0  0              0                B/FWD PROCR                             COPY
          18705    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          18706    C       202      2   0  0              0        202                                             
          18707    2       92       3   0  0              0                                                        SUBTRACT
          18708    70      187     11   0  0              0        187     >OK PASS 0 HASN'T BOOBED                JUMP IF A == 0
          18709            319     40   1  0              0        319     ????R'                                  SELECT
          18710    5       1       44   1  0              0                                                        TRANSFER
    18708>18711    52      1        8   0  0              0                EDIT NEW PROCR                          EDIT
          18712    C       306      2   0  0              0        306                                             
  Source image: P1000145.JPG
          18713            27       4   0  0              0                                                        SELECT
          18714    71      187     19   0  0              0        187     >COMPILER.DONT SET IND                  JUMP IF A != 0
          18715            1       14   0  0              0                OLD                                     SELECT
          18716    2       12       4   0  0              0                NEW                                     SUBTRACT
          18717    70      187     19   0  0              0        187     >PROCR DOESNT CHANGE                    JUMP IF A == 0
          18718    80      188      2   0  0              0        188     >SET 'PRINT PROCR'                      ENTER SUBROUTINE
    18717>                                                                                                         
    18714>18719            92       3   0  0              0                                                        SELECT
          18720    12               0   0  0            100                                                        SUBTRACT LITERAL
          18721    71      187     25   0  0              0        187     >NOT FIRST TIME THROUGH                 JUMP IF A != 0
          18722    0       12       0   0  0              0                FIRST CODERS PROCR                      SELECT
          18723    5       12      14   0  0              0                SET AS FIRST CHAP START                 TRANSFER
          18724    76      187     33   0  0              0        187                                             JUMP unconditional
    18721>18725            12      14   0  4              0                                                        SELECT
          18726    2       12       0   0  0              0                                                        SUBTRACT
          18727    71      187     38   0  0              0        187     >THIS PROCR IS NOT A CHAPTER START      JUMP IF A != 0
          18728            92       3   0  0              0                                                        SELECT
          18729    12               0   0  0              1                                                        SUBTRACT LITERAL
          18730    80      245      2   0  0              0        245     >CHAP END IN BIN                        ENTER SUBROUTINE
          18731    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          18732    4       92       9   0  4              0                STORE CHAP END POINT                    AUGMENT
    18724>18733    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18734    10               0   0  0              1                                                        SELECT LITERAL
          18735    4       92       0   0  0              0                STEP UNCORR CHAP IN BIN                 AUGMENT
          18736    60               0   0  0              0                                                        SET DECIMAL RADIX
          18737    94               0   0  4              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    18727>                                                                                                         
    18624>18738    83      191      2   0  0              1        191     SET CHECK SWITCH FOR DIRECTIVES         SET SWITCH(ES) AT LITERAL VALUE
          18739    76      191      2   0  0              0        191                                             JUMP unconditional
                                                                                                                   
          18800    PROCR   188       188     SET IND IN SEC 23 IF PROCR TO BE PRINTED                              
          18802    81      188      2   0  0              0        188                                             START OF SUBROUTINE
          18803            92       3   0  0              0                CURRENT PROCR                           SELECT
          18804    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
          18805    19               0   0  0             14                                                        DIVIDE LITERAL
          18806    5       320     42   0  0              0        320                                             TRANSFER
          18807    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          18808    5       320     43   0  0              0        320     REMAINDER                               TRANSFER
          18809    34      320     22   0  0              0        320     1                                       SET (N) IN B
          18810    124     320     43   0  1              0        320                                             modify address of next
          18811    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          18812            320     20   0  0              0        320     £X5                                     SELECT
          18813    124     320     42   0  1              0        320                                             modify address of next
          18814    37      23       5-  0  0              0                SET BIT                                 REPLACE SELECTED BITS
          18815    60               0   0  0              0                                                        SET DECIMAL RADIX
          18816    82      188      2   0  0              0        188                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18900    PROCR   189       189     CHECK FOR B/FWD ERROR REPORTS                                         
          18901     NOTES                    0                                                                     SELECT
          18902    81      189      2   0  0              0        189                                             START OF SUBROUTINE
          18903            1       42   1  0              0                LAST  5 CHARS OF ANNOTATION             SELECT
          18904    2       319     26   1  0              0        319      '?????'                                SUBTRACT
          18905    70      189     12   0  0              0        189                                             JUMP IF A == 0
          18906            1       42   1  0              0                                                        SELECT
          18907    12               0   0  0     5£5£5£5£5£                FIVE SQUARES                            SUBTRACT LITERAL
          18908    70      189     12   0  0              0        189                                             JUMP IF A == 0
          18909            1       42   1  0              0                                                        SELECT
          18910    2       319     24   1  0              0        319      'SHEET'                                SUBTRACT
          18911    71      189     13   0  0              0        189                                             JUMP IF A != 0
    18908>                                                                                                         
  Source image: P1000146.JPG
    18905>18912    5       1       42   1  0              0                CLEAR OUT REPORT                        TRANSFER
    18911>18913    82      189      2   0  0              0        189                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19000    PROCR   190       190     CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION                    
          19001     NOTES          RADIX                                                                           SELECT
    18604>19002            92      30   0  0              0                                                        SELECT
          19003    71      191      2   0  0              0        191                                             JUMP IF A != 0
          19004    34      1        2   1  0              0                RIGHT ALIGN                             SET (N) IN B
          19005    80      321      2   0  0              0        321     SERIAL NO                               ENTER SUBROUTINE
          19006            12      88   2  0              0                                                        SELECT
          19007    2       12      43   0  0              0                                                        SUBTRACT
          19008    70      190     14   0  0              0        190     SERIAL NO IS IN FACT SERIAL             JUMP IF A == 0
          19009    86      191      2   0  0              0        191                                             SELECT SWITCH R
          19010    12               0   0  0              6                                                        SUBTRACT LITERAL
          19011    72      191      2   0  0              0        191     >NO CHECK ON PM+TRIAL DATA              JUMP IF A >= 0
          19012    10               0   0  0         725569                PUT'SER' IN ERROR INDICATOR             SELECT LITERAL
          19013    5       1       44   1  0              0                                                        TRANSFER
    19008>19014            12      88   2  0              0                STORE THIS SERIAL NO                    SELECT
          19015    1       12      90   0  0              0                >LONG/SHORT COUNTER                     ADD
          19016    11               0   0  0              1                1                                       ADD LITERAL
          19017    5       12      43   0  0              0                TO TEST NEXT INSTRUCTION                TRANSFER
                                                                                                                   
          19100    PROCR   191       191     SWITCH B                                                              
          19101     NOTES          RADIX                                                                           SELECT
    19011>                                                                                                         
    19003>                                                                                                         
    18739>                                                                                                         
    18605>19102    80      189      2   0  0              0        189     >DELETE B/FWD ERROR REPORTS             ENTER SUBROUTINE
    20712>19103            12      33   0  0              0                                                        SELECT
          19104    70      191      9   0  0              0        191     >EX MT                                  JUMP IF A == 0
          19105            92      30   0  0              0                                                        SELECT
          19106    70      191      9   0  0              0        191                                             JUMP IF A == 0
          19107    80      188      2   0  0              0        188     >SET'PRINT PROCR'                       ENTER SUBROUTINE
          19108    10               0   0  0              0                                                        SELECT LITERAL
    19106>                                                                                                         
    19104>19109    85      191      2   0  0              0        191                                             SWITCH R
          19110    C       205      2   0  0              0        205     STACKING DIRECTIVE                      
          19111    C       210      2   0  0              0        210     INSTRUCTIONS                            
          19112    C       276      2   0  0              0        276     TABLES                                  
          19113    C       260      2   0  0              0        260     CONSTANTS                               
          19114    C       191     15   0  0              0        191     VALUE'=5                                
    19114>19115    0       1        9   0  0              0                REF                                     SELECT
          19116    34      1       10   0  0              0                                                        SET (N) IN B
          19117    74      191     23   0  0              0        191     ZERO REF & ITEM                         JUMP IF AB == 0        // 27, 1, 0
          19118    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          19119    0       12       4   0  0              0                                                        SELECT
          19120    5       1        9   0  0              0                NEW REF                                 TRANSFER
          19121    80      277      2   0  0              0        277     CHECK ADJUSTED REF                      ENTER SUBROUTINE
          19122    76      247      2   0  0              0        247     >EDIT AND OUTPUT                        JUMP unconditional
    19117>19123    85      108      2   0  0              0        108                                             SWITCH R
          19124    C       247      2   0  0              0        247     >LAST REF/ITEM CORRECT                  
          19125    C       191     26   0  0              0        191     >LAST REF/ITEM IGNORED                  
    19125>19126    80      195      2   0  0              0        195     REPORT R                                ENTER SUBROUTINE
          19127    80      295      2   0  0              0        295     IGNORE THIS LINE                        ENTER SUBROUTINE
          19128    76      247      2   0  0              0        247     >EDIT AND OUTPUT                        JUMP unconditional
                                                                                                                   
          19200    PROCR   192       192     CHECK I IS EVEN,REPORT IF NOT                                         
          19201     NOTES          0         0                                                                     SELECT
          19202    81      192      2   0  0              0        192                                             START OF SUBROUTINE
          19203    5       245      2   0  0              0        245     ITEM TO WL=SR LINK                      TRANSFER
  Source image: P1000147.JPG
          19204    10               0   0  0              1                                                        SELECT LITERAL
          19205    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          19206    36      245      2   0  0              0        245                                             COLLATE AND ADD
          19207    70      192      9   0  0              0        192     >OK                                     JUMP IF A == 0
          19208    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
    19207>19209    82      192      2   0  0              0        192                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19300    PROCR   193       193     ERROR REPORT OF D                                                     
          19301     NOTES  193                                                                                     SELECT
          19302    81      193      2   0  0              0        193                                             START OF SUBROUTINE
          19303    10               0   0  0             54                D                                       SELECT LITERAL
          19304    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19305    82      193      2   0  0              0        193                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19400    PROCR   194       194     ERROR REPORT OF M                                                     
          19401     NOTES  194                                                                                     SELECT
          19402    81      194      2   0  0              0        194                                             START OF SUBROUTINE
          19403    10               0   0  0             64                M                                       SELECT LITERAL
          19404    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19405    82      194      2   0  0              0        194                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19500    PROCR   195       195     ERROR REPORT OF R                                                     
          19501     NOTES  195                                                                                     SELECT
          19502    81      195      2   0  0              0        195                                             START OF SUBROUTINE
          19503    10               0   0  0             69                                                        SELECT LITERAL
          19504    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19505    82      195      2   0  0              0        195                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19600    PROCR   196       196     ERROR REPORT OF I                                                     
          19601     NOTES  196                                                                                     SELECT
          19602    81      196      2   0  0              0        196                                             START OF SUBROUTINE
          19603    10               0   0  0             59                I                                       SELECT LITERAL
          19604    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19605    82      196      2   0  0              0        196                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19700    PROCR   197       197     ERROR REPORT OF L                                                     
          19701     NOTES  197                                                                                     SELECT
          19702    81      197      2   0  0              0        197                                             START OF SUBROUTINE
          19703    10               0   0  0             63                L                                       SELECT LITERAL
          19704    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19705    82      197      2   0  0              0        197                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19800    PROCR   198       198     ERROR REPORT OF T                                                     
          19801     NOTES  198                                                                                     SELECT
          19802    81      198      2   0  0              0        198                                             START OF SUBROUTINE
          19803    10               0   0  0             73                T                                       SELECT LITERAL
          19804    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19805    82      198      2   0  0              0        198                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19900    PROCR   199       199     MAKE ERROR REPORT                                                     
          19901     NOTES  199                                                                                     SELECT
          19902    81      199      2   0  0              0        199                                             START OF SUBROUTINE
          19903    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          19904            1       44   1  0              0                TEST REPORT ALREADY MADE                SELECT
          19905    30               0   0  0              2-               WITH '????'                             SHIFT (A) BY QUARTETS
          19906    12               0   0  0       5:5:5:5:                                                        SUBTRACT LITERAL
          19907    70      199     20   0  0              0        199     >YES,DON'T CORRUPT IT                   JUMP IF A == 0
          19908            1       44   1  0              0                                                        SELECT
          19909    12               0   0  0         725569                 'SER'                                  SUBTRACT LITERAL
          19910    71      199     12   0  0              0        199                                             JUMP IF A != 0
  Source image: P1000148.JPG
          19911    5       1       44   1  0              0                LET OTHERS TAKE PRECEDENCE              TRANSFER
    19910>19912    10               0   0  0              0                                                        SELECT LITERAL
          19913    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          19914    124     12     115   1  2              0                                                        modify address of next
          19915    30               0   0  0              0                /////                                   SHIFT (A) BY QUARTETS
          19916    4       1       44   1  0              0                                                        AUGMENT
          19917    10               0   0  0              2                                                        SELECT LITERAL
          19918    1       12     115   0  0              0                                                        ADD
          19919    5       12     115   0  0              0                                                        TRANSFER
    19907>19920    82      199      2   0  0              0        199                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20000    PROCR   200       200     REPLACE CODERS PROCR TO C/FWD VALUE                                   
          20002    81      200      2   0  0              0        200                                             START OF SUBROUTINE
          20003    3       12     119   0  0              0                                                        COPY
          20004    3       12     118   0  0              0                                                        COPY
          20005    12               0   0  0            100                                                        SUBTRACT LITERAL
          20006    73      200     27   0  0              0        200     >EX RANGE                               JUMP IF A < 0
          20007    12               0   0  0            899                                                        SUBTRACT LITERAL
          20008    72      200     27   0  0              0        200     >DON'T REPLACE                          JUMP IF A >= 0
          20009            12      33   0  0              0                                                        SELECT
          20010    71      200     21   0  0              0        200     >EX PT                                  JUMP IF A != 0
          20011            27       0   0  0              0                                                        SELECT
          20012    71      200     21   0  0              0        200     >ISSUE 6 O/P                            JUMP IF A != 0
          20013            27       4   0  0              0                                                        SELECT
          20014    71      200     21   0  0              0        200     >COMPILER CALLED TRANSLATOR             JUMP IF A != 0
          20015    80      201      2   0  0              0        201     >REPLACE EX ISSUE 5                     ENTER SUBROUTINE
          20016    71      200     19   0  0              0        200     >OK                                     JUMP IF A != 0
          20017    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          20018    76      200     21   0  0              0        200                                             JUMP unconditional
    20016>20019    3       12     119   0  0              0                                                        COPY
          20020    5       12     118   0  0              0                                                        TRANSFER
    20018>                                                                                                         
    20014>                                                                                                         
    20012>                                                                                                         
    20010>20021    80      1001     0   0  0              0                >REPLACE EX ISSUE 6                     ENTER SUBROUTINE
          20022    71      200     26   0  0              0        200     >OK                                     JUMP IF A != 0
          20023            319     40   1  0              0        319      '????R'                                SELECT
          20024    5       1       44   1  0              0                                                        TRANSFER
          20025    82      200      2   0  0              0        200                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20022>20026    3       12     119   0  0              0                                                        COPY
    20008>                                                                                                         
    20006>20027    82      200      2   0  0              0        200                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20100    PROCR   201       201     REPLACE CODERS PROCR-ISSUE 5 O/P                                      
          20102    81      201      2   0  0              0        201     (12/119)=DEC PROCR                      START OF SUBROUTINE
          20103            27       2   0  0              0                                                        SELECT
          20104    70      201      7   0  0              0        201     >NOT PSEUDO-ISSUE 5 O/P                 JUMP IF A == 0
          20105            12     119   0  0              0                REPLACEMENT=ITSELF                      SELECT
          20106    76      201     23   0  0              0        201                                             JUMP unconditional
    20104>20107            12     119   0  0              0                                                        SELECT
          20108    12               0   0  0            600                                                        SUBTRACT LITERAL
          20109    72      201     24   0  0              0        201     >OUT OF RANGE                           JUMP IF A >= 0
          20110            12     119   0  0              0                                                        SELECT
          20111    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          20112    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          20113    5       245      2   0  0              0        245     SR LINK                                 TRANSFER
          20114    74      201     19   0  0              0        201     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          20115    124     245      2   0  1              0        245                                             modify address of next
          20116            53      50-  0  0              0                                                        SELECT
          20117    31               0   0  0             10-                                                       SHIFT (A) BY BITS
  Source image: P1000149.JPG
          20118    76      201     22   0  0              0        201                                             JUMP unconditional
    20114>20119    34      319     20   0  0              0        319     BITS 1 -10                              SET (N) IN B
          20120    124     245      2   0  1              0        245                                             modify address of next
          20121    36      53      50-  0  0              0                                                        COLLATE AND ADD
    20118>20122    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
    20106>20123    82      201      2   0  0              0        201                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20109>20124    10               0   0  0              0                                                        SELECT LITERAL
          20125    82      201      2   0  0              0        201                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20200    PROCR   202       202     REPLACE CODERS PROCR-ISSUE 6 O/P                                      
          20202    81      202      2   0  0              0        202     (12/119-DEC PROCR)                      START OF SUBROUTINE
          20203            12     119   0  0              0                                                        SELECT
          20204    80      245      2   0  0              0        245     > TO BIN                                ENTER SUBROUTINE
          20205    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          20206    5       245      2   0  0              0        245                                             TRANSFER
          20207    74      202     12   0  0              0        202     > EVEN                                  JUMP IF AB == 0        // 27, 1, 0
          20208    124     245      2   0  1              0        245                                             modify address of next
          20209            93      50-  0  0              0                                                        SELECT
          20210    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          20211    76      202     15   0  0              0        202                                             JUMP unconditional
    20207>20212    34      319     20   0  0              0        319     BITS 1 -10                              SET (N) IN B
          20213    124     245      2   0  1              0        245                                             modify address of next
          20214    36      93      50-  0  0              0                                                        COLLATE AND ADD
    20211>20215    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
          20216    82      202      2   0  0              0        202                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20300    PROCR   203       203     ADJUST SR-ISSUE 5 O/P                                                 
          20302    81      203      2   0  0              0        203     (A) = SERIAL TO BE ADJUSTED             START OF SUBROUTINE
          20303    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20304    C                0   0  0            160                                                        
          20305    5       12      58   0  0              0                                                        TRANSFER
          20306    5       12      46   0  0              0                                                        TRANSFER
          20307    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20308    36      12      58   0  0              0                                                        COLLATE AND ADD
          20309    5       12      30   0  0              0                STORE PROCR                             TRANSFER
    20316>20310    36      54       0   0  1              0                                                        COLLATE AND ADD
          20311    70      203     17   0  0              0        203     > END                                   JUMP IF A == 0
          20312    2       12      30   0  0              0                                                        SUBTRACT
          20313    70      203     20   0  0              0        203     > PROCR MATCHES                         JUMP IF A == 0
          20314    72      203     17   0  0              0        203     > POINT PASSED      END                 JUMP IF A >= 0
    20322>                                                                                                         
    20325>20315    10               0   0  0              0                                                        SELECT LITERAL
          20316    94      203     10   0  1              2        203                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20314>                                                                                                         
    20311>20317            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          20318    1       12      58   0  0              0                                                        ADD
          20319    82      203      2   0  0              0        203                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20313>20320            12      58   0  0              0                SEARCH WITHIN PROCR                     SELECT
          20321    2       54       0   0  1              0                                                        SUBTRACT
          20322    73      203     15   0  0              0        203     > NOT FOR THIS POINT IN PROCR           JUMP IF A < 0
          20323            54       1   0  1              0                                                        SELECT
          20324    4       12      46   0  0              0                FORM TOTAL ADJUSTMENT                   AUGMENT
          20325    76      203     15   0  0              0        203                                             JUMP unconditional
                                                                                                                   
          20400    PROCR   204       204     ADJUST SR-ISSUE 6 O/P                                                 
          20402    81      204      2   0  0              0        204                                             START OF SUBROUTINE
          20403    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20404    C                0   0  0            460                                                        
          20405    10               0   0  0              0                (12/58)= SERIAL TO BE ADJUSTED          SELECT LITERAL
          20406    5       12      46   0  0              0                CLEAR FOR TOTAL ADJUSTMENT              TRANSFER
  Source image: P1000150.JPG
          20407    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20408    36      12      58   0  0              0                                                        COLLATE AND ADD
          20409    5       12      30   0  0              0                PROCR                                   TRANSFER
    20422>20410    36      97       0   0  1              0                                                        COLLATE AND ADD
          20411    70      204     23   0  0              0        204     > END                                   JUMP IF A == 0
          20412    2       12      30   0  0              0                                                        SUBTRACT
          20413    73      204     21   0  0              0        204     > SEARCH                                JUMP IF A < 0
          20414    71      204     23   0  0              0        204     > END                                   JUMP IF A != 0
          20415            97       0   0  1              0                                                        SELECT
          20416    2       12      58   0  0              0                                                        SUBTRACT
          20417    70      204     19   0  0              0        204                                             JUMP IF A == 0
          20418    72      204     32   0  0              0        204     > NEXT ADJUST POINT IN PROCR IS LATER   JUMP IF A >= 0
    20417>20419            97       1   0  1              0                                                        SELECT
          20420    4       12      46   0  0              0                                                        AUGMENT
    20413>20421    10               0   0  0              0                                                        SELECT LITERAL
          20422    94      204     10   0  1              2        204                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20434>                                                                                                         
    20440>                                                                                                         
    20442>                                                                                                         
    20444>                                                                                                         
    20446>                                                                                                         
    20449>                                                                                                         
    20414>                                                                                                         
    20411>20423    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          20424            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          20425    36      12      58   0  0              0                                                        COLLATE AND ADD
          20426    3       12      58   0  0              0                NEW ITEM                                COPY
          20427    12               0   0  0            100                                                        SUBTRACT LITERAL
          20428    73      204     31   0  0              0        204                                             JUMP IF A < 0
          20429            319     42   1  0              0        319      '???? '                                SELECT
          20430    5       1       44   1  0              0                REPORT WRITTEN ITEM >99                 TRANSFER
    20428>20431    82      204      2   0  0              0        204                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20418>20432    1       97       1   0  1              0                QUANTITY (+ -)                          ADD
          20433    70      204     35   0  0              0        204     > ADDRESS DELETED                       JUMP IF A == 0
          20434    72      204     23   0  0              0        204     > NEXT IS INSERTION                     JUMP IF A >= 0
    20433>20435    0       1        7   0  0              0                                                        SELECT
          20436    12               0   0  0          53000                                                        SUBTRACT LITERAL
          20437    70      204     47   0  0              0        204     > C-LINE REPORT                         JUMP IF A == 0
          20438            12      54   0  0              0                BIN ACTION                              SELECT
          20439    101             83   1  2              0                                                        subtract literal address
          20440    70      204     23   0  0              0        204     > 83 DON'T REPORT                       JUMP IF A == 0
          20441    101              1   1  2              0                                                        subtract literal address
          20442    70      204     23   0  0              0        204     > 84                                    JUMP IF A == 0
          20443    101              1   1  2              0                                                        subtract literal address
          20444    70      204     23   0  0              0        204     > 85                                    JUMP IF A == 0
          20445    101              1   1  2              0                                                        subtract literal address
          20446    70      204     23   0  0              0        204     > 86                                    JUMP IF A == 0
    20437>20447            319     44   1  0              0        319      '???? DELTA'                           SELECT
          20448    5       1       44   1  0              0                                                        TRANSFER
          20449    76      204     23   0  0              0        204                                             JUMP unconditional
                                                                                                                   
          20500    PROCR   205       205     DEAL WITH PROCR/TABLE/CONST                                           
          20501     NOTES          RADIX                                                                           SELECT
    19110>20502            1        6   1  0              0                                                        SELECT
          20503    2       319      6   1  0              0        319     PROCR                                   SUBTRACT
          20504    71      205      7   0  0              0        205     NO                                      JUMP IF A != 0
          20505    5       12      90   1  0              0                                                        TRANSFER
          20506    76      247      2   0  0              0        247     FORM SERIAL                             JUMP unconditional
    20504>20507            1        6   1  0              0                                                        SELECT
          20508    2       319      2   1  0              0        319     TABLE                                   SUBTRACT
  Source image: P1000151.JPG
          20509    71      206      5   0  0              0        206     NO                                      JUMP IF A != 0
          20510    10               0   0  0         100001                SET LONG/SHORT                          SELECT LITERAL
          20511    5       12      90   1  0              0                COUNTER                                 TRANSFER
          20512    34      1       16   1  0              0                TABLE TYPE                              SET (N) IN B
          20513    80      321      2   0  0              0        321     >RIGHT ALIGN                            ENTER SUBROUTINE
          20514    0       12      88   2  0              0                                                        SELECT
          20515    73      205     20   0  0              0        205     TABLE TYPE IS                           JUMP IF A < 0
          20516    3       12      59   0  0              0                                                        COPY
          20517    70      205     20   0  0              0        205                                             JUMP IF A == 0
          20518    12               0   0  0              5                                                        SUBTRACT LITERAL
          20519    73      206      2   0  0              0        206                                             JUMP IF A < 0
    20517>                                                                                                         
    20515>20520    83      278      8   0  0              5        278     TABLE TYPE IS OUT                       SET SWITCH(ES) AT LITERAL VALUE
          20521    76      282     29   0  0              0        282                                             JUMP unconditional
                                                                                                                   
          20600    PROCR   206       206                                                                           
          20601     NOTES          RADIX                                                                           SELECT
    20519>20602    84      278      8   0  0              0        278     SET TABLE CHECKING                      SET SWITCH(ES) AT VARIABLE VALUE
          20603    C       12      59   0  0              0                SWITCH ACCORDING TO                     
          20604    76      247      2   0  0              0        247     FORM SERIAL NO.                         JUMP unconditional
    20509>20605            1        6   1  0              0                                                        SELECT
          20606    2       319      4   1  0              0        319     CONST                                   SUBTRACT
          20607    71      206     25   0  0              0        206     >NO                                     JUMP IF A != 0
          20608    54      94      60   0  0             40                                                        BULK CLEAR
          20609    34      318      3   0  0              0        318     BIT 17                                  SET (N) IN B
          20610    36      1       16   2  0              0                                                        COLLATE AND ADD
          20611    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          20612    3       12      90   0  0              0                LONG/SHORT IND                          COPY
          20613    71      206     15   0  0              0        206     >LONG                                   JUMP IF A != 0
          20614    10               0   0  0             30                ALPHA ZERO                              SELECT LITERAL
    20613>20615    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          20616    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          20617    37      1       17   0  0              0                                                        REPLACE SELECTED BITS
          20618    76      206     21   0  0              0        206     SET ALPHA 0 OR 1                        JUMP unconditional
          20619    10               0   0  0              1                                                        SELECT LITERAL
          20620    3       12      90   0  0              0                                                        COPY
    20618>20621    83      263      2   0  0              1        263     SAFETY VALUE                            SET SWITCH(ES) AT LITERAL VALUE
          20622    10               0   0  0              4                SET CHECK SWITCH                        SELECT LITERAL
          20623    84      191      2   0  0              0        191                                             SET SWITCH(ES) AT VARIABLE VALUE
          20624    76      247      2   0  0              0        247     >O/P                                    JUMP unconditional
    20607>20625    0       1        6   1  0              0                                                        SELECT
          20626    2       319     28   1  0              0        319      'VALUE'                                SUBTRACT
          20627    71      207      2   0  0              0        207     >HENCE 'NOTES'                          JUMP IF A != 0
          20628    10               0   0  0              5                                                        SELECT LITERAL
          20629    84      191      2   0  0              0        191                                             SET SWITCH(ES) AT VARIABLE VALUE
          20630    5       12      90   1  0              0                CLEAR IND=SHORT                         TRANSFER
          20631    76      247      2   0  0              0        247     O/P                                     JUMP unconditional
                                                                                                                   
          20700    PROCR   207       207     DEAL WITH NOTES                                                       
          20701     NOTES          RADIX                                                                           SELECT
    20627>20702            12      91   0  0              0                                                        SELECT
          20703    71      207      6   0  0              0        207                                             JUMP IF A != 0
          20704    10               0   0  0              2                FOR INSTRUCTIONS                        SELECT LITERAL
          20705    76      207      7   0  0              0        207                                             JUMP unconditional
    20703>20706    10               0   0  0              3                FOR TABLE ENTRIES                       SELECT LITERAL
    20705>20707    84      191      2   0  0              0        191     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          20708    2       12      38   0  0              0                DIRECTIVE IND FOR THIS LINE             SUBTRACT
          20709    73      247      2   0  0              0        247     >IS'NOTES'(IE>0)                        JUMP IF A < 0
          20710    10               0   0  0              2                                                        SELECT LITERAL
          20711    5       12       9   0  0              0                SET THIS LINE SERIAL                    TRANSFER
  Source image: P1000152.JPG
          20712    76      191      3   0  0              0        191     >TO CHECK SWITCH                        JUMP unconditional
                                                                                                                   
          20800    PROCR   208       208     REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI     
          20801     NOTES          RADIX                                                                           SELECT
          20802    81      208      2   0  0              0        208                                             START OF SUBROUTINE
          20803    34      1        8   1  0              0                REF                                     SET (N) IN B
          20804    80      321      2   0  0              0        321     >RIGHT ALIGN                            ENTER SUBROUTINE
          20805    12               0   0  0             67                                                        SUBTRACT LITERAL
          20806    3       274      2   0  0              0        274                                             COPY
          20807    71      208     10   0  0              0        208     >NOT'P'                                 JUMP IF A != 0
          20808    0       12       0   0  0              0                                                        SELECT
          20809    5       12      88   2  0              0                                                        TRANSFER
    27507>                                                                                                         
    20807>20810    0       12      88   2  0              0                                                        SELECT
          20811    3       12       4   0  0              0                                                        COPY
          20812    12               0   0  0            100                                                        SUBTRACT LITERAL
          20813    73      208     32   0  0              0        208     >SECTION                                JUMP IF A < 0
          20814    12               0   0  0            899                                                        SUBTRACT LITERAL
          20815    72      208     32   0  0              0        208     >NOT REPLACEABLE (INCLUDES 999)         JUMP IF A >= 0
          20816            1       10   1  0              0                                                        SELECT
          20817    5       294      2   0  0              0        294      'PREVIOUS' ITEM                        TRANSFER
          20818    80      209      2   0  0              0        209     >CALC C/FWD ADDRESS                     ENTER SUBROUTINE
          20819            27       4   0  0              0                                                        SELECT
          20820    71      208     28   0  0              0        208     >COMPILER, DONT SET IND                 JUMP IF A != 0
          20821            12      88   2  0              0                TEST IMPLICIT                           SELECT
          20822    2       12       4   0  0              0                                    AMENDMENT           SUBTRACT
          20823    71      208     27   0  0              0        208     >CHANGE TO REF                          JUMP IF A != 0
          20824            1       10   1  0              0                                                        SELECT
          20825    2       294      2   0  0              0        294                                             SUBTRACT
          20826    70      208     28   0  0              0        208     >NO CHANGE TO ITEM                      JUMP IF A == 0
    20823>20827    80      188      2   0  0              0        188     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    20826>                                                                                                         
    20820>20828            12      88   2  0              0                                                        SELECT
          20829    5       12       4   0  0              0                NEW REF                                 TRANSFER
          20830    52      1        8   0  0              0                REPLACE REF WITH ZEROS                  EDIT
          20831    C       306      2   0  0              0        306                                             
    20815>                                                                                                         
    20813>20832    82      208      2   0  0              0        208                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20900    PROCR   209       209     REPLACE AND ADJUSR ADDRESS                                            
          20901     NOTES  209                                                                                     SELECT
          20902    81      209      2   0  0              0        209                                             START OF SUBROUTINE
          20903            92      30   0  0              0                                                        SELECT
          20904    71      209      8   0  0              0        209     >NOT INITIAL                            JUMP IF A != 0
          20905    10               0   0  0              2                                                        SELECT LITERAL
          20906    4       1       10   1  0              0                                                        AUGMENT
          20907    76      209     50   0  0              0        209                                             JUMP unconditional
    20904>20908            27       0   0  0              0                                                        SELECT
          20909    34      12      33   0  0              0                                                        SET (N) IN B
          20910    75      209     50   0  0              0        209     >ISSUE 6 I/P OR PT I/P                  JUMP IF AB != 0
          20911            274      2   0  0              0        274                                             SELECT
          20912    70      209     50   0  0              0        209     >REF WAS'P'                             JUMP IF A == 0
          20913            27       4   0  0              0                                                        SELECT
          20914    71      209     50   0  0              0        209     >COMPILER CALLED TRANSLATOR             JUMP IF A != 0
          20915            12      88   2  0              0                                                        SELECT
          20916    5       12     119   0  0              0                                                        TRANSFER
          20917    80      201      2   0  0              0        201     >REPLACE OLD PROCR                      ENTER SUBROUTINE
          20918    71      209     38   0  0              0        209     >MATCH FOUND        NOW ADJUST          JUMP IF A != 0
          20919            12      88   2  0              0                                                        SELECT
          20920    30               0   0  0              2                                    TRY UNIQUE REFS     SHIFT (A) BY QUARTETS
  Source image: P1000153.JPG
          20921    1       1       10   0  0              0                                                        ADD
          20922    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20923    C                0   0  0             50                                                        
          20924    5       245      2   0  0              0        245                                             TRANSFER
    20929>20925            55       1   0  1              0                                                        SELECT
          20926    70      209     30   0  0              0        209     >END,NO MATCH                           JUMP IF A == 0
          20927    2       245      2   0  0              0        245                                             SUBTRACT
          20928    70      209     32   0  0              0        209                                             JUMP IF A == 0
          20929    94      209     25   0  1              2        209                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20926>20930    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          20931    76      209     50   0  0              0        209     >CARRY ON                               JUMP unconditional
    20928>20932            55       0   0  1              0                EQUIVALENT OF UNIQUE REF                SELECT
          20933    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          20934    5       12      88   2  0              0                                                        TRANSFER
          20935    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20936    5       1       10   0  0              0                                                        TRANSFER
          20937    76      209     50   0  0              0        209     >NOW REPLACE/ADJUST(NEW STYLE)          JUMP unconditional
    20918>20938    3       12      88   2  0              0                                                        COPY
          20939    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20940    1       1       10   0  0              0                                                        ADD
          20941    5       203      2   0  0              0        203     WL                                      TRANSFER
          20942            1       10   1  0              0                                                        SELECT
          20943    73      209     50   0  0              0        209     >DONT ADJUST NEG ITEM                   JUMP IF A < 0
          20944            203      2   0  0              0        203                                             SELECT
          20945    80      203      2   0  0              0        203     >ADJUST(OLD STYLE)                      ENTER SUBROUTINE
          20946    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          20947    5       12      88   2  0              0                                                        TRANSFER
          20948    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20949    5       1       10   0  0              0                                                        TRANSFER
    20943>                                                                                                         
    20937>                                                                                                         
    20931>                                                                                                         
    20914>                                                                                                         
    20912>                                                                                                         
    20910>                                                                                                         
    20907>20950            12      88   2  0              0                REPLACE PROCR(NEW STYLE)                SELECT
          20951    3       12     118   0  0              0                                                        COPY
          20952    5       12     119   0  0              0                                                        TRANSFER
          20953            274      2   0  0              0        274                                             SELECT
          20954    71      209     57   0  0              0        209     >REF WAS NOT'P'                         JUMP IF A != 0
          20955            12      88   2  0              0                                                        SELECT
          20956    76      209     79   0  0              0        209                                             JUMP unconditional
    20954>20957    80      202      2   0  0              0        202     >REPLACE                                ENTER SUBROUTINE
          20958    71      209     79   0  0              0        209     >MATCH                                  JUMP IF A != 0
          20959            12      88   2  0              0                                                        SELECT
          20960    30               0   0  0              2                TRY UNIQUE REFS                         SHIFT (A) BY QUARTETS
          20961    1       1       10   0  0              0                (NEW STYLE)                             ADD
          20962    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20963    C                0   0  0            100                                                        
          20964    5       245      2   0  0              0        245                                             TRANSFER
    20969>20965            52       0   0  1              0                                                        SELECT
          20966    70      209     70   0  0              0        209     >END,NO MATCH                           JUMP IF A == 0
          20967    2       245      2   0  0              0        245                                             SUBTRACT
          20968    70      209     73   0  0              0        209     >MATCH                                  JUMP IF A == 0
          20969    94      209     65   0  1              2        209                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20966>20970            319     40   1  0              0        319      '????R'                                SELECT
          20971    5       1       44   1  0              0                                                        TRANSFER
          20972    76      209     88   0  0              0        209     >END                                    JUMP unconditional
    20968>20973            52       1   0  1              0                                                        SELECT
          20974    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
  Source image: P1000154.JPG
          20975    5       12      88   2  0              0                                                        TRANSFER
          20976    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20977    5       1       10   0  0              0                                                        TRANSFER
          20978    76      209     88   0  0              0        209     >NEW ADDRESS CALCULATED                 JUMP unconditional
    20958>                                                                                                         
    20956>20979    3       12      88   2  0              0                                                        COPY
          20980    30               0   0  0              2                NEW REF                                 SHIFT (A) BY QUARTETS
          20981    1       1       10   0  0              0                                                        ADD
          20982    5       12      58   0  0              0                                                        TRANSFER
          20983            1       10   1  0              0                                                        SELECT
          20984    73      209     88   0  0              0        209     >DONT ADJUST NEG ITEMS                  JUMP IF A < 0
          20985    80      204      2   0  0              0        204     >ADJUST SR(NEW STYLE)                   ENTER SUBROUTINE
          20986            12      58   0  0              0                NEW ITEM                                SELECT
          20987    5       1       10   0  0              0                                                        TRANSFER
    20984>                                                                                                         
    20978>                                                                                                         
    20972>20988    82      209      2   0  0              0        209                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21000    PROCR   210       210     BEGIN CHECKS ON ACTION OR C-LINE                                      
          21001     NOTES          RADIX                                                                           SELECT
    19111>21002    80      208      2   0  0              0        208     >DEAL WITH ADDRESS OF INSTRUCTION       ENTER SUBROUTINE
          21003            12       4   0  0              0                NEW REF                                 SELECT
          21004    12               0   0  0            100                                                        SUBTRACT LITERAL
          21005    73      210     10   0  0              0        210     >SECTION                                JUMP IF A < 0
          21006    12               0   0  0            899                                                        SUBTRACT LITERAL
          21007    72      210     10   0  0              0        210     >REF=999+                               JUMP IF A >= 0
          21008            12     118   0  0              0                PEVIOUS PROCR                           SELECT
          21009    5       1       22   0  0              0                                                        TRANSFER
    21007>                                                                                                         
    21005>21010            1        7   0  0              0                                                        SELECT
          21011    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          21012    71      210     28   0  0              0        210     >NOT C-LINE                             JUMP IF A != 0
          21013            12      60   1  0              0                                                        SELECT
          21014    70      211      2   0  0              0        211     >IGNORE             C-LINE NOT POSSIBLE JUMP IF A == 0
          21015    124     12      55   1  2              0                                                        modify address of next
          21016    100              1   0  2              0                C-LINE CHECK CONSTANT TO B              replace (B) by (N)
          21017    0       317     88   0  0              0        317     A 55 ACTION WILL TERMINATE              SELECT
          21018    5       317     25   0  0              0        317     AFTER 2 C-LINES                         TRANSFER
          21019    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          21020    0       12      54   0  0              0                ACION                                   SELECT
          21021    12               0   0  0             2‼                 43                                     SUBTRACT LITERAL
          21022    70      210     25   0  0              0        210     >YES                                    JUMP IF A == 0
          21023    11               0   0  0              1                                                        ADD LITERAL
          21024    71      210     62   0  0              0        210     >NOT                                    JUMP IF A != 0
    21022>21025    10               0   0  0              1                                                        SELECT LITERAL
          21026    4       12      55   0  0              0                (TO GET NEXT C-LINE CHECK CONST)        AUGMENT
          21027    76      210     62   0  0              0        210                                             JUMP unconditional
    21012>21028            12      61   0  0              0                                                        SELECT
          21029    70      210     31   0  0              0        210                                             JUMP IF A == 0
          21030    80      296      2   0  0              0        296                                             ENTER SUBROUTINE
    21029>21031    34      1        6   1  0              0                                                        SET (N) IN B
          21032    80      321      2   0  0              0        321     RIGHT ALIGN ACTION                      ENTER SUBROUTINE
          21033    0       12      88   2  0              0                                                        SELECT
          21034    73      211      2   0  0              0        211     >NEGATIVE ACTION                        JUMP IF A < 0
          21035    12               0   0  0            159                REJECT ACTION>158                       SUBTRACT LITERAL
          21036    72      211      2   0  0              0        211                                             JUMP IF A >= 0
          21037    0       12      88   2  0              0                                                        SELECT
          21038    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
          21039    3       12      54   0  0              0                BINARY ACTION                           COPY
          21040    12               0   0  0             41                 65                                     SUBTRACT LITERAL
  Source image: P1000156.JPG
          21041    72      210     54   0  0              0        210     > SECOND HALF OF TABLE                  JUMP IF A >= 0
          21042    0       12      54   0  0              0                                                        SELECT
          21043    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          21044    101     316      2   0  0              0        316     TLU                                     table look up
    21057>21045    32               0   0  0             10                ABS BIN ADDRESS > A                     SHIFT (AB) BY QUARTETS
          21046    3       12      55   0  0              0                LOCN TO SELECT C-LINE CHECK CONSTANT    COPY
          21047    0       12      54   0  0              0                BIN ACTION                              SELECT
          21048    12               0   0  0             37                 = 55                                   SUBTRACT LITERAL
          21049    71      210     60   0  0              0        210     > NOT                                   JUMP IF A != 0
          21050    0       1       16   1  0              0                LITERAL                                 SELECT
          21051    71      210     58   0  0              0        210     > SET SECOND C-LINE IMPOSSIBLE          JUMP IF A != 0
          21052    0       317     86   0  0              0        317                                             SELECT
          21053    76      210     59   0  0              0        210     > SET SECOND C-LINE ESSENTIAL           JUMP unconditional
    21041>21054    0       12      54   0  0              0                                                        SELECT
          21055    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          21056    101     317     34   0  0              0        317     TLU FOR ACTION > 64                     table look up
          21057    76      210     45   0  0              0        210                                             JUMP unconditional
    21051>21058    0       317     88   0  0              0        317                                             SELECT
    21053>21059    5       317     25   0  0              0        317     CHECK CONST FOR ACTION 55 C-LINE        TRANSFER
    21049>21060    124     12      55   1  2              0                                                        modify address of next
          21061    100              0   0  2              0                CHECK CONST                             replace (B) by (N)
    21027>                                                                                                         
    21024>21062    10               0   0  0              0                                                        SELECT LITERAL
          21063    36      318      4   0  0              0        318     Q1-3                                    COLLATE AND ADD
          21064    71      211      6   0  0              0        211     > ACTION EXISTS                         JUMP IF A != 0
                                                                                                                   
  Source image: P1000160.JPG
          21100    PROCR   211       211                                                                           
          21101     NOTES          RADIX                                                                           SELECT
    21036>                                                                                                         
    21034>                                                                                                         
    21014>21102    10               0   0  0     5100000000                                                        SELECT LITERAL
          21103    5       1       44   1  0              0                NONEXISTENT ACTION = ERROR OF A         TRANSFER
    21319>21104    80      295      2   0  0              0        295                                             ENTER SUBROUTINE
          21105    76      247      2   0  0              0        247                                             JUMP unconditional
    21064>21106    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          21107    84      227      2   0  0              0        227     LITERAL' SWITCH BY Q3                   SET SWITCH(ES) AT VARIABLE VALUE
          21108    36      318      5   0  0              0        318     BITS 5-7                                COLLATE AND ADD
          21109    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          21110    84      217      2   0  0              0        217      'REF/ITEM'                             SET SWITCH(ES) AT VARIABLE VALUE
          21111    36      318      6   0  0              0        318     BITS 1-3                                COLLATE AND ADD
          21112    84      214      2   0  0              0        214      'DISC/MOD' SWITCH BY Q1                SET SWITCH(ES) AT VARIABLE VALUE
          21113    36      318      7   0  0              0        318     BIT 4                                   COLLATE AND ADD
          21114    5       12      61   0  0              0                IND THAT C-LINE ESSENTIAL               TRANSFER
          21115    36      318      8   0  0              0        318     BIT 8                                   COLLATE AND ADD
          21116    5       12      60   0  0              0                IND THAT C-LINE IS POSSIBLE             TRANSFER
          21117    5       12      59   0  0              0                CLEAR THIS                              TRANSFER
                                                                                                                   
          21200    PROCR   212       212                                                                           
          21201     NOTES          RADIX                                                                           SELECT
          21202    60               0   0  0              0                                                        SET DECIMAL RADIX
          21203            1       10   0  0              0                MODULUS OF ITEM                         SELECT
          21204    12               0   0  0           8192                                                        SUBTRACT LITERAL
          21205    72      212      8   0  0              0        212     > REPORT                                JUMP IF A >= 0
          21206            1       11   0  0              0                                                        SELECT
          21207    70      212      9   0  0              0        212     > OK                                    JUMP IF A == 0
    21205>21208    80      196      2   0  0              0        196     > REPORT 1                              ENTER SUBROUTINE
    21207>21209    0       12      54   0  0              0                BIN ACTION                              SELECT
          21210    12               0   0  0             64                100                                     SUBTRACT LITERAL
          21211    73      212     26   0  0              0        212     > NOT MACHINE CODE                      JUMP IF A < 0
          21212    0       12      54   0  0              0                                                        SELECT
  Source image: P1000161.JPG
          21213    12               0   0  0             84                132                                     SUBTRACT LITERAL
          21214    72      212     26   0  0              0        212     >NOT MACHINE CODE                       JUMP IF A >= 0
          21215    0       1       12   1  0              0                DISC                                    SELECT
          21216    70      212     20   0  0              0        212     >OK                                     JUMP IF A == 0
          21217    12               0   0  0              1                                                        SUBTRACT LITERAL
          21218    70      212     20   0  0              0        212     >OK                                     JUMP IF A == 0
          21219    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21218>                                                                                                         
    21216>21220    0       1       14   1  0              0                MOD                                     SELECT
          21221    70      217      2   0  0              0        217     >OK                                     JUMP IF A == 0
          21222    12               0   0  0              4                                                        SUBTRACT LITERAL
          21223    73      217      2   0  0              0        217     >OK                                     JUMP IF A < 0
          21224    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21225    76      217      2   0  0              0        217     >TO CHECK R,I,L                         JUMP unconditional
    21214>                                                                                                         
    21211>21226    0       1       12   1  0              0                D                                       SELECT
          21227    70      213      7   0  0              0        213     >OK                                     JUMP IF A == 0
          21228    0       1       10   0  0              0                                                        SELECT
          21229    80      192      2   0  0              0        192     >CHECK I                                ENTER SUBROUTINE
                                                                                                                   
          21300    PROCR   213       213     TEST D AND M ARE IN RANGE                                             
          21301     NOTES          RADIX          ACCEPTABLE                                                       SELECT
          21302            1       12   1  0              0                                                        SELECT
          21303    73      213      6   0  0              0        213                                             JUMP IF A < 0
          21304    12               0   0  0              3                                                        SUBTRACT LITERAL
          21305    73      213      7   0  0              0        213                                             JUMP IF A < 0
    21303>21306    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21305>                                                                                                         
    21227>21307            1       14   1  0              0                MOD DIGITS                              SELECT
          21308    70      214      2   0  0              0        214     >OK                                     JUMP IF A == 0
          21309    73      213     18   0  0              0        213                                             JUMP IF A < 0
          21310    12               0   0  0             21                                                        SUBTRACT LITERAL
          21311    72      213     18   0  0              0        213     >WRONG                                  JUMP IF A >= 0
          21312    0       1       14   0  0              0                                                        SELECT
          21313    12               0   0  0              4                                                        SUBTRACT LITERAL
          21314    72      214      2   0  0              0        214                                             JUMP IF A >= 0
          21315    10               0   0  0              1                IF MR 1-3                               SELECT LITERAL
          21316    5       92       4   0  0              0                SETTING 'REQUIRED' IND                  TRANSFER
          21317    76      214      2   0  0              0        214                                             JUMP unconditional
    21311>                                                                                                         
    21309>21318    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21319    76      211      4   0  0              0        211     >IGNORE                                 JUMP unconditional
                                                                                                                   
          21400    PROCR   214       214                                                                           
          21401     NOTES          RADIX                                                                           SELECT
    21317>                                                                                                         
    21314>                                                                                                         
    21308>21402    85      214      2   0  0              0        214                                             SWITCH R
          21403    C       217      2   0  0              0        217     >D,M ANY VALUE                          
          21404    C       215      2   0  0              0        215     >D,M MUST BOTH BE ZERO                  
          21405    C       215      7   0  0              0        215     >D ZERO, M ANY                          
          21406    C       215      3   0  0              0        215     >M ZERO, D ANY                          
          21407    C       215      9   0  0              0        215     >D ZERO, M NONZERO                      
          21408    C       215     10   0  0              0        215     >M NONZERO, D ANY                       
          21409    C       214     10   0  0              0        214     >D,M ZERO, R NON-ZERO IF L=0            
    21409>21410            1       16   0  0              0                L                                       SELECT
          21411    70      214     16   0  0              0        214     >EXPECT R                               JUMP IF A == 0
          21412    0       1        8   2  0              0                REF                                     SELECT
          21413    70      215      2   0  0              0        215     >OK                                     JUMP IF A == 0
          21414    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
  Source image: P1000166.JPG
          21415    76      215      2   0  0              0        215                                             JUMP unconditional
    21411>21416            1        8   2  0              0                                                        SELECT
          21417    71      215      2   0  0              0        215     >OK                                     JUMP IF A != 0
          21418    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
                                                                                                                   
          21500    PROCR   215       215     CHECK D AND M                                                         
          21501     NOTES          RADIX                                                                           SELECT
    21417>                                                                                                         
    21415>                                                                                                         
    21413>                                                                                                         
    21404>21502    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
    21406>21503            1       14   1  0              0                                                        SELECT
          21504    70      217      2   0  0              0        217                                             JUMP IF A == 0
    21513>21505    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21506    76      217      2   0  0              0        217                                             JUMP unconditional
    21405>21507    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
          21508    76      217      2   0  0              0        217     >CHECK D=0                              JUMP unconditional
    21407>21509    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
    21408>21510            1       14   1  0              0                >OK                                     SELECT
          21511    71      217      2   0  0              0        217     >IGNORE                                 JUMP IF A != 0
          21512    80      295      2   0  0              0        295     >REPORT M                               ENTER SUBROUTINE
          21513    76      215      5   0  0              0        215                                             JUMP unconditional
                                                                                                                   
          21600    PROCR   216       216     TO CHECK REFERENCE AND ITEM                                           
          21601     NOTES          RADIX                                                                           SELECT
          21602    81      216      2   0  0              0        216                                             START OF SUBROUTINE
          21603            1       12   1  0              0                                                        SELECT
          21604    70      216      6   0  0              0        216                                             JUMP IF A == 0
          21605    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21604>21606    82      216      2   0  0              0        216                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21700    PROCR   217       217                                                                           
          21701     NOTES          RADIX                                                                           SELECT
    21511>                                                                                                         
    21508>                                                                                                         
    21506>                                                                                                         
    21504>                                                                                                         
    21403>                                                                                                         
    21225>                                                                                                         
    21223>                                                                                                         
    21221>21702    85      217      2   0  0              0        217                                             SWITCH R
          21703    C       218      2   0  0              0        218     >R ZERO, PROCR, SECTION OR '1000+'      
          21704    C       219      2   0  0              0        219     >R, I BOTH ZERO                         
          21705    C       220      2   0  0              0        220     MAINLINE OF FILE CONTROL                
          21706    C       224      2   0  0              0        224     R=100-998 OR 1000+, I EVEN              
          21707    C       225      2   0  0              0        225     >R IS A TRANSIT AREA                    
          21708    C       226      2   0  0              0        226     >R IN RANGE 100-998                     
          21709    C       218     58   0  0              0        218     >R IS PROCR OR SECTION, BUT NOT TX AREA 
                                                                                                                   
          21800    PROCR   218       218     SWITCH = 1                                                            
          21801     NOTES          RADIX                                                                           SELECT
    22011>                                                                                                         
    22504>                                                                                                         
    21703>21802            12       4   0  0              0                                                        SELECT
          21803    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          21804    71      218     20   0  0              0        218     >OK                                     JUMP IF A != 0
          21805            1       14   0  0              0                MOD DIGITS                              SELECT
          21806    71      218     49   0  0              0        218     >OK EXCEPT FOR 93,97                    JUMP IF A != 0
          21807    0       1       10   1  0              0                ITEM                                    SELECT
          21808    73      218     13   0  0              0        218     >ACCEPT ONLY IF ITEM                    JUMP IF A < 0
  Source image: P1000167.JPG
          21809    71      218     55   0  0              0        218     >OK                                     JUMP IF A != 0
          21810    0       12      54   0  0              0                ACTION                                  SELECT
          21811    70      218     36   0  0              0        218     >IGNORE R                               JUMP IF A == 0
          21812    76      218     55   0  0              0        218     >OJ                                     JUMP unconditional
    21808>21813    10               0   0  0              0                                                        SELECT LITERAL
          21814    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          21815    36      1       10   0  0              0                                                        COLLATE AND ADD
          21816    12               0   0  0              +                                                        SUBTRACT LITERAL
          21817    70      218     55   0  0              0        218     >OK(ITEM*)                              JUMP IF A == 0
    22207>                                                                                                         
    22208>                                                                                                         
    22210>                                                                                                         
    22216>21818    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          21819    76      219      6   0  0              0        219     >REPORT I                               JUMP unconditional
    21804>21820    12               0   0  0            100                                                        SUBTRACT LITERAL
          21821    73      218     31   0  0              0        218     >SECTION                                JUMP IF A < 0
          21822    12               0   0  0            900                                                        SUBTRACT LITERAL
          21823    73      218     55   0  0              0        218     >OK                                     JUMP IF A < 0
          21824    70      218     36   0  0              0        218     >IGNORE IF=1000                         JUMP IF A == 0
          21825    12               0   0  0             21                                                        SUBTRACT LITERAL
          21826    72      218     36   0  0              0        218     >IGNORE IF>1020                         JUMP IF A >= 0
          21827    0       12      54   0  0              0                BIN ACTION                              SELECT
          21828    12               0   0  0             50                 80                                     SUBTRACT LITERAL
          21829    70      218     36   0  0              0        218     >IGNORE                                 JUMP IF A == 0
          21830    76      218     55   0  0              0        218     >OK                                     JUMP unconditional
    21821>21831            12       4   0  0              0                DECSECTION                              SELECT
          21832    80      183      2   0  0              0        183     >DECODE SECTION NUMBER                  ENTER SUBROUTINE
          21833    34      12      40   0  0              0                                                        SET (N) IN B
          21834    36      12      72   0  3              0                                                        COLLATE AND ADD
          21835    71      218     55   0  0              0        218     >SECTION EXISTS                         JUMP IF A != 0
    21851>                                                                                                         
    21854>                                                                                                         
    22407>                                                                                                         
    22411>                                                                                                         
    22413>                                                                                                         
    22604>                                                                                                         
    22606>                                                                                                         
    21829>                                                                                                         
    21826>                                                                                                         
    21824>                                                                                                         
    21811>                                                                                                         
    21803>21836    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    21903>21837    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          21838    86      217      2   0  0              0        217                                             SELECT SWITCH R
          21839    12               0   0  0              5                                                        SUBTRACT LITERAL
          21840    70      225     31   0  0              0        225     >42 OR 43 ACTION.IGNORE PREVIOUS LINE   JUMP IF A == 0
          21841            12      54   0  0              0                                                        SELECT
          21842    101             40   1  2              0                40                                      subtract literal address
          21843    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21844    101             93   1  2              0                133                                     subtract literal address
          21845    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21846    101              1   1  2              0                134                                     subtract literal address
          21847    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21848    76      227      2   0  0              0        227                                             JUMP unconditional
    21806>21849            12      54   0  0              0                                                        SELECT
          21850    101             93   1  2              0                93?                                     subtract literal address
          21851    70      218     36   0  0              0        218     >REPORT                                 JUMP IF A == 0
          21852            12      54   0  0              0                                                        SELECT
          21853    101             97   1  2              0                97?                                     subtract literal address
          21854    70      218     36   0  0              0        218     >REPORT                                 JUMP IF A == 0
    21835>                                                                                                         
    21830>                                                                                                         
    21823>                                                                                                         
    21817>                                                                                                         
    21812>                                                                                                         
  Source image: P1000168.JPG
    21809>21855            12      59   0  0              0                                                        SELECT
          21856    70      227      2   0  0              0        227     >GO TO CHECK L                          JUMP IF A == 0
          21857    76      225      5   0  0              0        225     >CHECK SECTION IS TX AREA               JUMP unconditional
    21709>21858    80      277      2   0  0              0        277     >CHECK REF                              ENTER SUBROUTINE
          21859    76      227      2   0  0              0        227     >CHECK LITERAL                          JUMP unconditional
                                                                                                                   
          21900    PROCR   219       219     TEST R AND I ARE BOTH ZERO                                            
          21901     NOTES          RADIX                                                                           SELECT
    21704>21902            1        8   2  0              0                TEST REF IS ZERO                        SELECT
          21903    71      218     37   0  0              0        218                                             JUMP IF A != 0
          21904            1       10   1  0              0                                                        SELECT
          21905    70      227      2   0  0              0        227                                             JUMP IF A == 0
    21819>21906    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          21907    76      227      2   0  0              0        227     >NO CHECK LITERAL                       JUMP unconditional
                                                                                                                   
          22000    PROCR   220       220     CHECK FILES                                                           
          22001     NOTES          RADIX                                                                           SELECT
    21705>22002            12      54   0  0              0                ACTION                                  SELECT
          22003    101             40   1  2              0                                                        subtract literal address
          22004    71      220     12   0  0              0        220     >NOT ACTION 40                          JUMP IF A != 0
          22005            12      60   1  0              0                                                        SELECT
          22006    70      220     12   0  0              0        220     >NOT C-LINE                             JUMP IF A == 0
          22007            1        7   0  0              0                                                        SELECT
          22008    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          22009    71      220     12   0  0              0        220     >NOT THE C-LINE                         JUMP IF A != 0
          22010            1       12   1  0              0                C-LINE DISC                             SELECT
          22011    71      218      2   0  0              0        218     >CHECK REF IS SEC/PROCR                 JUMP IF A != 0
    22009>                                                                                                         
    22006>                                                                                                         
    22004>22012            91       1   0  0              0                                                        SELECT
          22013    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          22014    91               0   0  5              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          22015            317     94   0  0              0        317     SET  2ND C-LINE POSSIBLE                SELECT
          22016    5       317     14   0  0              0        317                                             TRANSFER
    22024>22017            91       5   0  5              0                                                        SELECT
          22018    33               0   0  0              6-                                                       SHIFT (AB) BY BITS
          22019    70      220     30   0  0              0        220     >NO FILES                               JUMP IF A == 0
          22020    11               0   0  0           4000                BIT 15                                  ADD LITERAL
          22021    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          22022    2       1        9   0  0              0                                                        SUBTRACT
          22023    70      220     39   0  0              0        220     >MATCH FOUND                            JUMP IF A == 0
          22024    94      220     17   0  5              2        220                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          22025            1        7   0  0              0                                                        SELECT
          22026    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          22027    71      220     30   0  0              0        220     >                                       JUMP IF A != 0
          22028    80      295      2   0  0              0        295     SET C-LINE IMPOSS                       ENTER SUBROUTINE
          22029    80      296      2   0  0              0        296     IGNORE PREVIOUS LINE                    ENTER SUBROUTINE
    22532>                                                                                                         
    22027>                                                                                                         
    22019>22030    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          22031    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    22164>22032            12      54   0  0              0                                                        SELECT
          22033    101             42   1  2              0                                                        subtract literal address
          22034    70      220     37   0  0              0        220                                             JUMP IF A == 0
          22035    101              1   1  2              0                                                        subtract literal address
  Source image: P1000169.JPG
          22036    71      235      2   0  0              0        235     >                                       JUMP IF A != 0
    22034>22037    5       12      60   1  0              0                42 OR 43                                TRANSFER
          22038    76      235      2   0  0              0        235     >                                       JUMP unconditional
    22023>22039    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          22040            12      54   0  0              0                                                        SELECT
          22041    101            132   1  2              0                                                        subtract literal address
          22042    73      220     47   0  0              0        220     >HENCE GROUP 4                          JUMP IF A < 0
          22043    101              3   1  2              0                                                        subtract literal address
          22044    73      222      2   0  0              0        222     >ACTIONS 132-134                        JUMP IF A < 0
          22045    76      227      2   0  0              0        227     >ACTION 156                             JUMP unconditional
          22046    70      227      2   0  0              0        227     >ACTION 156         CHECK L             JUMP IF A == 0
    22042>22047    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          22048    33               0   0  0              6                ROUTE TYPE                              SHIFT (AB) BY BITS
          22049    12               0   0  0              5                                                        SUBTRACT LITERAL
          22050    73      221     20   0  0              0        221     >RT1-4                                  JUMP IF A < 0
          22051    70      221     13   0  0              0        221     >RT5                                    JUMP IF A == 0
          22052    12               0   0  0              1                                                        SUBTRACT LITERAL
          22053    70      221      2   0  0              0        221     >RT6                                    JUMP IF A == 0
          22054    12               0   0  0              3                                                        SUBTRACT LITERAL
          22055    73      221     24   0  0              0        221     >RT7,8                                  JUMP IF A < 0
          22056    70      221     20   0  0              0        221     >RT9                                    JUMP IF A == 0
          22057    12               0   0  0              1                                                        SUBTRACT LITERAL
          22058    70      221      2   0  0              0        221     >RT10                                   JUMP IF A == 0
          22059    12               0   0  0              1                                                        SUBTRACT LITERAL
          22060    70      221     24   0  0              0        221     >RT11                                   JUMP IF A == 0
          22061    12               0   0  0              1                                                        SUBTRACT LITERAL
          22062    70      221      2   0  0              0        221     >RT12                                   JUMP IF A == 0
          22063    12               0   0  0              1                                                        SUBTRACT LITERAL
          22064    70      221     65   0  0              0        221     >RT13                                   JUMP IF A == 0
          22065    12               0   0  0              2                                                        SUBTRACT LITERAL
          22066    70      221      2   0  0              0        221     >RT15                                   JUMP IF A == 0
          22067    12               0   0  0              1                                                        SUBTRACT LITERAL
          22068    70      221     20   0  0              0        221     >RT16                                   JUMP IF A == 0
          22069    12               0   0  0              2                                                        SUBTRACT LITERAL
          22070    70      221     65   0  0              0        221     >RT 18                                  JUMP IF A == 0
          22071    12               0   0  0              1                                                        SUBTRACT LITERAL
          22072    70      221     20   0  0              0        221     >RT19                                   JUMP IF A == 0
          22073    12               0   0  0              1                                                        SUBTRACT LITERAL
          22074    70      220     82   0  0              0        220     >RT 20                                  JUMP IF A == 0
          22075    12               0   0  0              2                                                        SUBTRACT LITERAL
          22076    70      221     55   0  0              0        221     >22                                     JUMP IF A == 0
          22077    12               0   0  0              2                                                        SUBTRACT LITERAL
          22078    70      221      9   0  0              0        221     >RT24                                   JUMP IF A == 0
          22079    12               0   0  0              1                                                        SUBTRACT LITERAL
          22080    71      221     60   0  0              0        221     >NOT 25                                 JUMP IF A != 0
          22081    76      221     20   0  0              0        221     >LIKE1                                  JUMP unconditional
    22074>22082            12      54   0  0              0                ACTION                                  SELECT
          22083    101             40   1  2              0                                                        subtract literal address
          22084    70      222      6   0  0              0        222     >ACTION 40                              JUMP IF A == 0
          22085    12               0   0  0              1                                                        SUBTRACT LITERAL
          22086    70      221     60   0  0              0        221     >REJECT                                 JUMP IF A == 0
                                                                                                                   
          22100    PROCR   221       221     CHECK FILES (CONTD)                                                   
    22115>                                                                                                         
    22066>                                                                                                         
    22062>                                                                                                         
    22058>                                                                                                         
    22053>22102            12      54   0  0              0                ACTION                                  SELECT
          22103    101             42   1  2              0                                                        subtract literal address
          22104    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
  Source image: P1000170.JPG
    22123>22105            12      54   0  0              0                RT 1-6+9-10                             SELECT
          22106    101             42   1  2              0                                                        subtract literal address
          22107    73      235      2   0  0              0        235     >OK                                     JUMP IF A < 0
          22108    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
    22078>22109            12      54   0  0              0                ACTION                                  SELECT
          22110    101             42   1  2              0                                                        subtract literal address
          22111    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22112    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
    22051>22113            12      54   0  0              0                RT 5                                    SELECT
          22114    101             44   1  2              0                                                        subtract literal address
          22115    71      221      2   0  0              0        221                                             JUMP IF A != 0
          22116            1       16   0  0              0                L                                       SELECT
          22117    12               0   0  0              3                                                        SUBTRACT LITERAL
          22118    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22119    76      228      4   0  0              0        228     >IGNORE L                               JUMP unconditional
    22159>                                                                                                         
    22081>                                                                                                         
    22072>                                                                                                         
    22068>                                                                                                         
    22056>                                                                                                         
    22050>22120            12      54   0  0              0                RT 1-4+9                                SELECT
          22121    101             43   1  2              0                                                        subtract literal address
          22122    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22123    76      221      5   0  0              0        221                                             JUMP unconditional
    22060>                                                                                                         
    22055>22124    0       12      54   0  0              0                BIN ACTION                              SELECT
          22125    12               0   0  0             30                48                                      SUBTRACT LITERAL
          22126    70      221     50   0  0              0        221     >ACTION 48                              JUMP IF A == 0
          22127            12      54   0  0              0                                                        SELECT
          22128    12               0   0  0             29                41                                      SUBTRACT LITERAL
          22129    70      221     50   0  0              0        221     >ACTION 41 FOR M/T                      JUMP IF A == 0
          22130            12      54   0  0              0                                                        SELECT
          22131    12               0   0  0             2+                                                        SUBTRACT LITERAL
          22132    70      221     45   0  0              0        221     >44                                     JUMP IF A == 0
          22133    12               0   0  0              2                                                        SUBTRACT LITERAL
          22134    70      221     37   0  0              0        221     >46                                     JUMP IF A == 0
          22135    12               0   0  0              1                                                        SUBTRACT LITERAL
          22136    71      227      2   0  0              0        227     >NOT 47, CHECK L                        JUMP IF A != 0
    22134>22137            1       10   1  0              0                                                        SELECT
          22138    73      221     43   0  0              0        221     >REPORT                                 JUMP IF A < 0
          22139    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          22140    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          22141    10               0   0  0              0                                                        SELECT LITERAL
          22142    74      227      2   0  0              0        227     >EVEN, OK                               JUMP IF AB == 0        // 27, 1, 0
    22138>22143    80      196      2   0  0              0        196     REPORT I                                ENTER SUBROUTINE
          22144    76      227      2   0  0              0        227                                             JUMP unconditional
    22132>22145            1       16   1  0              0                L                                       SELECT
          22146    12               0   0  0              2                                                        SUBTRACT LITERAL
          22147    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22148    12               0   0  0              1                                                        SUBTRACT LITERAL
          22149    76      228      2   0  0              0        228                                             JUMP unconditional
    22129>                                                                                                         
    22126>22150            1       16   1  0              0                LITERAL                                 SELECT
          22151    73      228      5   0  0              0        228     >REPORT L                               JUMP IF A < 0
          22152    12               0   0  0              4                                                        SUBTRACT LITERAL
          22153    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          22154    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
    22076>22155            317     87   0  0              0        317     CONST FOR 2ND C-LINE                    SELECT
          22156    5       317     14   0  0              0        317                                             TRANSFER
          22157            12      54   0  0              0                ACTION                                  SELECT
  Source image: P1000171.JPG
          22158    101             41   1  2              0                                                        subtract literal address
          22159    71      221     20   0  0              0        221     >OK, NOT 41                             JUMP IF A != 0
    22168>                                                                                                         
    22205>                                                                                                         
    22112>                                                                                                         
    22108>                                                                                                         
    22086>                                                                                                         
    22080>22160    10               0   0  0     5100000000                A                                       SELECT LITERAL
          22161    5       1       44   1  0              0                                                        TRANSFER
          22162    80      295      2   0  0              0        295     >IGNORE THIS INSTRUCTION                ENTER SUBROUTINE
          22163    5       2       60   1  0              0                SET C LINE IMPOSSIBLE                   TRANSFER
          22164    76      220     32   0  0              0        220     >CHECK FOR C-LINE                       JUMP unconditional
    22070>                                                                                                         
    22064>22165            12      54   0  0              0                                                        SELECT
          22166    101             44   1  2              0                                                        subtract literal address
          22167    73      235      2   0  0              0        235     >OK                                     JUMP IF A < 0
          22168    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
                                                                                                                   
          22200    PROCR   222       222     ACTIONS 132-134                                                       
    22044>22202    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          22203    33               0   0  0              6                RT                                      SHIFT (AB) BY BITS
          22204    12               0   0  0             11                                                        SUBTRACT LITERAL
          22205    71      221     60   0  0              0        221     >WRONG FILE                             JUMP IF A != 0
    22084>22206            1       10   1  0              0                ITEM                                    SELECT
          22207    73      218     18   0  0              0        218     >IGNORE I                               JUMP IF A < 0
          22208    70      218     18   0  0              0        218     >IGNORE I                               JUMP IF A == 0
          22209    12               0   0  0            100                                                        SUBTRACT LITERAL
          22210    72      218     18   0  0              0        218     >IGNORE I                               JUMP IF A >= 0
          22211            1       10   1  0              0                                                        SELECT
          22212    80      183      2   0  0              0        183     >DECODE SECTION NO                      ENTER SUBROUTINE
          22213    34      12      40   0  0              0                COLLATION BIT                           SET (N) IN B
          22214    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          22215    36      12      72   0  3              0                                                        COLLATE AND ADD
          22216    70      218     18   0  0              0        218     >NOT A TX AREA, IGNORE I                JUMP IF A == 0
          22217    76      225     17   0  0              0        225     >X AREA CHECK, & CHECK L                JUMP unconditional
                                                                                                                   
          22300    PROCR   223       223     ACTIONS 132-134                                                       
                                                                                                                   
          22400    PROCR   224       224     TEST R IS A PROCEDURE NUMBER                                          
          22401     NOTES          RADIX          SWITCH=4                                                         SELECT
    21706>22402            12       4   0  0              0                                                        SELECT
          22403    71      224      6   0  0              0        224     >NOT ABSOLUTE ADDRESS                   JUMP IF A != 0
          22404    0       1       14   0  0              0                MOD DIGITS                              SELECT
          22405    71      224     14   0  0              0        224     >OK                                     JUMP IF A != 0
    22403>22406    12               0   0  0            100                                                        SUBTRACT LITERAL
          22407    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          22408    12               0   0  0            899                                                        SUBTRACT LITERAL
          22409    73      224     14   0  0              0        224     >OK                                     JUMP IF A < 0
          22410    12               0   0  0              2                                                        SUBTRACT LITERAL
          22411    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          22412    12               0   0  0             20                                                        SUBTRACT LITERAL
          22413    72      218     36   0  0              0        218     >IGNORE R                               JUMP IF A >= 0
    22409>                                                                                                         
    22405>22414            12      54   0  0              0                                                        SELECT
          22415    101             70   1  2              0                                                        subtract literal address
          22416    73      224     19   0  0              0        224     >CHECK I                                JUMP IF A < 0
          22417    101             10   1  2              0                                                        subtract literal address
          22418    73      227      2   0  0              0        227     >ACTION 70-79, DON'T CHECK I            JUMP IF A < 0
    22416>22419            1       10   0  0              0                                                        SELECT
          22420    80      192      2   0  0              0        192     >CHECK I EVEN                           ENTER SUBROUTINE
  Source image: P1000172.JPG
          22421    76      227      2   0  0              0        227     >CHECK LITERAL                          JUMP unconditional
                                                                                                                   
          22500    PROCR   225       225                                                                           
          22501     NOTES          RADIX                                                                           SELECT
    21707>22502    10               0   0  0              1                SWITCHES                                SELECT LITERAL
          22503    5       12      59   0  0              0                                                        TRANSFER
          22504    76      218      2   0  0              0        218     >CHECK R IS A SECTION                   JUMP unconditional
    21857>22505    10               0   0  0              0                                                        SELECT LITERAL
          22506    34      12      40   0  0              0                                                        SET (N) IN B
          22507    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          22508    36      12      72   0  3              0                COLLATE TX AREA IND                     COLLATE AND ADD
          22509    70      225     31   0  0              0        225     >NOT, IGNORE PREVIOUS INSTRUCTION       JUMP IF A == 0
          22510    10               0   0  0              0                                                        SELECT LITERAL
          22511    34      320     44   0  0              0        320     BITS 1-6                                SET (N) IN B
          22512    36      91       5   0  5              0                                                        COLLATE AND ADD
          22513    12               0   0  0              3                                                        SUBTRACT LITERAL
          22514    70      227      2   0  0              0        227     >RT 3 CARD O/P                          JUMP IF A == 0
          22515    12               0   0  0              1                                                        SUBTRACT LITERAL
          22516    70      227      2   0  0              0        227     >RT 4               GP PRINT            JUMP IF A == 0
    22217>22517    96               0   0  3              0                                                        SELECT MODIFIER
          22518    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
          22519    33               0   0  0              1-               HALVE THE MODIFIER                      SHIFT (AB) BY BITS
          22520    92               0   0  3              0                SET NEW MODIFIER, CLEAR A               SET MODIFIER AT VARIABLE
          22521    74      225     26   0  0              0        225     > NO REMAINDER                          JUMP IF AB == 0        // 27, 1, 0
          22522    34      12      40   0  0              0                                                        SET (N) IN B
          22523            12      40   0  0              0                                                        SELECT
          22524    33               0   0  0             10                FORM 5-LOCN MATRIX FOR ALL TX AREAS     SHIFT (AB) BY BITS
          22525    76      225     28   0  0              0        225     NOT USED IN GPOP ORDERS                 JUMP unconditional
    22521>22526            12      40   0  0              0                                                        SELECT
          22527    34      12      40   0  0              0                                                        SET (N) IN B
    22525>22528    37      12     100   0  3              0                SET BIT                                 REPLACE SELECTED BITS
          22529    60               0   0  0              0                AREA PATTERN                            SET DECIMAL RADIX
          22530    76      227      2   0  0              0        227                                             JUMP unconditional
    22509>                                                                                                         
    21847>                                                                                                         
    21845>                                                                                                         
    21843>                                                                                                         
    21840>22531    80      296      2   0  0              0        296     IGNORE PREVIOUS     INSTRUCTION         ENTER SUBROUTINE
          22532    76      220     30   0  0              0        220                                             JUMP unconditional
                                                                                                                   
          22600    PROCR   226       226     TEST REFERENCE IS GREATER THAN 99                                     
          22601     NOTES          RADIX          SWITCH=6                                                         SELECT
    21708>22602            12       4   0  0              0                                                        SELECT
          22603    12               0   0  0            100                                                        SUBTRACT LITERAL
          22604    73      218     36   0  0              0        218                                             JUMP IF A < 0
          22605    12               0   0  0            900                                                        SUBTRACT LITERAL
          22606    72      218     36   0  0              0        218     IGNORE R                                JUMP IF A >= 0
                                                                                                                   
          22700    PROCR   227       227     SWITCH FOR LITERALS                                                   
          22701     NOTES          RADIX          CHECK L IS NOT > 10 QUARTETS                                     SELECT
    22530>                                                                                                         
    22516>                                                                                                         
    22514>                                                                                                         
    22421>                                                                                                         
    22418>                                                                                                         
    22144>                                                                                                         
    22142>                                                                                                         
    22136>                                                                                                         
    22046>                                                                                                         
    22045>                                                                                                         
    21907>                                                                                                         
    21905>                                                                                                         
    21859>                                                                                                         
    21856>                                                                                                         
  Source image: P1000173.JPG
    21848>22702    0       1       18   1  0              0                                                        SELECT
          22703    71      228      4   0  0              0        228     >IGNORE L                               JUMP IF A != 0
          22704    34      1       16   1  0              0                                                        SET (N) IN B
          22705    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          22706    5       1       18   1  0              0                STORE MODULUS L                         TRANSFER
          22707    85      227      2   0  0              0        227                                             SWITCH R
          22708    C       235      2   0  0              0        235     >NO FURTHER CHECK                       
          22709    C       233      2   0  0              0        233     >MOD L<8192                             
          22710    C       229      2   0  0              0        229     >L POSITIVE/ZERO                        
          22711    C       230      2   0  0              0        230     MOD<32                                  
          22712    C       231      2   0  0              0        231     L HAS DIGITS 0 OR 1                     
          22713    C       232      2   0  0              0        232     1-<L<16                                 
          22714    C       233     12   0  0              0        233     1-<L<8182                               
          22715    C       234      2   0  0              0        234     -1<L<5 QTTS                             
          22716    C       234      5   0  0              0        234     MOD L<4096                              
          22717    C       234     17   0  0              0        234     >L NONZERO                              
          22718    C       234     20   0  0              0        234     >L ZERO                                 
          22719    C       234     22   0  0              0        234     >L<100                                  
          22720    C       234     32   0  0              0        234     >IF L=0,MUST HAVE C-LINE                
                                                                                                                   
          22800    PROCR   228       228     MAKE REPORTS ON L                                                     
          22801     NOTES          RADIX          SWITCH=2                                                         SELECT
    23404>                                                                                                         
    23421>                                                                                                         
    22149>22802    70      235      2   0  0              0        235                                             JUMP IF A == 0
          22803    76      228      5   0  0              0        228                                             JUMP unconditional
    22904>                                                                                                         
    23203>                                                                                                         
    23313>                                                                                                         
    23319>                                                                                                         
    23409>                                                                                                         
    23425>                                                                                                         
    23430>                                                                                                         
    22703>                                                                                                         
    22119>22804    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    23003>                                                                                                         
    23005>                                                                                                         
    23109>                                                                                                         
    23205>                                                                                                         
    23306>                                                                                                         
    23310>                                                                                                         
    23418>                                                                                                         
    23423>                                                                                                         
    22803>                                                                                                         
    22153>                                                                                                         
    22151>22805    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
          22806    76      235      2   0  0              0        235     >END OF CHECKS                          JUMP unconditional
                                                                                                                   
          22900    PROCR   229       229     TEST L IS POSITIVE OR ZERO                                            
          22901     NOTES          RADIX          SWITCH=3                                                         SELECT
    22710>22902            1       16   1  0              0                (ACTIONS 11,12)                         SELECT
          22903    72      235      2   0  0              0        235     >OK                                     JUMP IF A >= 0
          22904    76      228      4   0  0              0        228     >IGNORE L                               JUMP unconditional
                                                                                                                   
          23000    PROCR   230       230     L=1-31 INCLUSIVE                                                      
          23001     NOTES          RADIX          SWITCH=4                                                         SELECT
  Source image: P1000183.JPG
    22711>23002    0       1       18   1  0              0                MOD L               (ACTIONS 30-33)     SELECT
          23003    70      228      5   0  0              0        228     >REPORT L                               JUMP IF A == 0
          23004    12               0   0  0             32                                                        SUBTRACT LITERAL
    23416>23005    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          23006    76      235      2   0  0              0        235                                             JUMP unconditional
                                                                                                                   
          23100    PROCR   231       231     TEST DIGITS OF L ARE 1 OR 0                                           
          23101     NOTES          RADIX          SWITCH=5                                                         SELECT
    22712>23102    90               0   0  3              0                ACTION 35, CERTAIN GROUP 4              SET MODIFICATION REGISTER AT LITERAL
          23103    C                0   0  0             10                                                        
          23104    10               0   0  0              0                                                        SELECT LITERAL
          23105    34      1       16   1  0              0                                                        SET (N) IN B
    23110>23106    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          23107    70      231     10   0  0              0        231                                             JUMP IF A == 0
          23108    12               0   0  0              1                                                        SUBTRACT LITERAL
          23109    71      228      5   0  0              0        228                                             JUMP IF A != 0
    23107>23110    94      231      6   0  3              1        231                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          23111    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23200    PROCR   232       232     TEST L IS IN RANGE 1-15                                               
          23201     NOTES          RADIX          SWITCH=6                                                         SELECT
    22713>23202            1       16   1  0              0                ACTION 38                               SELECT
          23203    73      228      4   0  0              0        228     >REPORT L IGNORE                        JUMP IF A < 0
          23204    12               0   0  0             16                                                        SUBTRACT LITERAL
          23205    72      228      5   0  0              0        228                                             JUMP IF A >= 0
          23206    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23300    PROCR   233       233     L IS LESS THAN 8192   BULK COPY                                       
          23301     NOTES          RADIX          SWITCH=7                                                         SELECT
    22709>23302            12      61   0  0              0                C-LINE IND          (ACTION 90)         SELECT
          23303    71      233      7   0  0              0        233     >NOT C-LINE                             JUMP IF A != 0
          23304            12      46   0  0              0                FIRST LINE LITERAL                      SELECT
          23305    34      1       18   0  0              0                C-LINE LITERAL                          SET (N) IN B
          23306    74      228      5   0  0              0        228     >REPORT L IF BOTH ZERO                  JUMP IF AB == 0        // 27, 1, 0
    23303>23307            1       18   1  0              0                                                        SELECT
          23308    3       12      46   0  0              0                                                        COPY
          23309    12               0   0  0           8192                                                        SUBTRACT LITERAL
          23310    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          23311    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
    22714>23312            1       16   1  0              0                ACTION 55                               SELECT
          23313    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
    23413>23314            1       12   0  0              0                DISC                                    SELECT
          23315    70      233     17   0  0              0        233     >SHORT                                  JUMP IF A == 0
          23316    10               0   0  0           4095                                                        SELECT LITERAL
    23315>23317    11               0   0  0           4095                                                        ADD LITERAL
          23318    2       1       16   1  0              0                                                        SUBTRACT
          23319    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
          23320    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23400    PROCR   234       234                                                                           
          23401     NOTES          RADIX                                                                           SELECT
    22715>23402    0       1       16   1  0              0                LITERAL IN 5 QUARTETS                   SELECT
          23403    30               0   0  0              5-               (LEAVE SIGN IN A)                       SHIFT (A) BY QUARTETS
          23404    76      228      2   0  0              0        228                                             JUMP unconditional
    22716>23405    0       12      54   0  0              0                ACTIONS 54,94                           SELECT
          23406    12               0   0  0             36                                                        SUBTRACT LITERAL
          23407    71      234     14   0  0              0        234     >NOT ACTION 54                          JUMP IF A != 0
          23408    0       1       16   1  0              0                                                        SELECT
          23409    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
          23410    70      234     34   0  0              0        234                                             JUMP IF A == 0
  Source image: P1000185.JPG
          23411    10               0   0  0              0                                                        SELECT LITERAL
          23412    5       12      60   1  0              0                                                        TRANSFER
          23413    76      233     14   0  0              0        233     >CHECK RANGE                            JUMP unconditional
    23407>23414    0       1       18   1  0              0                MOD L                                   SELECT
          23415    12               0   0  0           4096                                                        SUBTRACT LITERAL
          23416    76      230      5   0  0              0        230                                             JUMP unconditional
    22717>23417    0       1       16   1  0              0                CHECK L NONZERO (ACTION 17:19)          SELECT
          23418    70      228      5   0  0              0        228                                             JUMP IF A == 0
          23419    76      235      2   0  0              0        235                                             JUMP unconditional
    22718>23420            1       16   1  0              0                CHECK L=0  ACTIONS 83                   SELECT
          23421    76      228      2   0  0              0        228                                             JUMP unconditional
    22719>23422            1       16   1  0              0                L<100                                   SELECT
          23423    73      228      5   0  0              0        228     > REPORT L                              JUMP IF A < 0
          23424    12               0   0  0            100                                                        SUBTRACT LITERAL
          23425    72      228      4   0  0              0        228     > IGNORE L                              JUMP IF A >= 0
          23426    0       12      54   0  0              0                ACTION                                  SELECT
          23427    101             83   1  2              0                                                        subtract literal address
          23428    71      235      2   0  0              0        235     > NOT 83                                JUMP IF A != 0
          23429    0       1       16   0  0              0                                                        SELECT
          23430    70      228      4   0  0              0        228     > IGNORE L                              JUMP IF A == 0
          23431    76      235      2   0  0              0        235                                             JUMP unconditional
    22720>23432    0       1       16   1  0              0                ACTION 77, 78                           SELECT
          23433    71      235      2   0  0              0        235     > OK                                    JUMP IF A != 0
    23410>23434    10               0   0  0              1                (ZERO L FOR 54, 77, 78 ACTIONS)         SELECT LITERAL
          23435    5       12      61   0  0              0                MUST BE C-LINE                          TRANSFER
                                                                                                                   
          23500    PROCR   235       235     TEST FP/MG USED, STORE MR>3 DETAILS                                   
          23501     NOTES          RADIX                                                                           SELECT
    23433>                                                                                                         
    23431>                                                                                                         
    23428>                                                                                                         
    23419>                                                                                                         
    23320>                                                                                                         
    23311>                                                                                                         
    23206>                                                                                                         
    23111>                                                                                                         
    23006>                                                                                                         
    22903>                                                                                                         
    22806>                                                                                                         
    22802>                                                                                                         
    22708>                                                                                                         
    22167>                                                                                                         
    22154>                                                                                                         
    22147>                                                                                                         
    22122>                                                                                                         
    22118>                                                                                                         
    22111>                                                                                                         
    22107>                                                                                                         
    22104>                                                                                                         
    22038>                                                                                                         
    22036>23502    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          23503            12      54   0  0              0                                                        SELECT
          23504    12               0   0  0             14                TEST ACTION IS 20 - 29                  SUBTRACT LITERAL
          23505    73      247      2   0  0              0        247                                             JUMP IF A < 0
          23506    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          23507    73      235     17   0  0              0        235                                             JUMP IF A < 0
          23508    12               0   0  0             15                                                        SUBTRACT LITERAL
          23509    73      247      2   0  0              0        247     >30 - 50                                JUMP IF A < 0
          23510    12               0   0  0                                                                       SUBTRACT LITERAL
          23511    70      235     14   0  0              0        235     > 66                                    JUMP IF A == 0
  Source image: P1000186.JPG
          23512    12               0   0  0              1                                                        SUBTRACT LITERAL
          23513    71      235     19   0  0              0        235     >NOT 67                                 JUMP IF A != 0
    23511>23514    10               0   0  0              1-                                                       SELECT LITERAL
          23515    5       92       5   0  0              0                                                        TRANSFER
          23516    76      235     19   0  0              0        235                                             JUMP unconditional
    23507>23517    5       92       5   0  0              0                SET F. PT. INDICATOR FOR PASS 3         TRANSFER
          23518    76      247      2   0  0              0        247                                             JUMP unconditional
    23516>                                                                                                         
    23513>23519            1       14   0  0              0                MOD DIGITS                              SELECT
          23520    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          23521    3       12      88   0  0              0                STORE                                   COPY
          23522    70      236      2   0  0              0        236                                             JUMP IF A == 0
          23523    12               0   0  0              4                                                        SUBTRACT LITERAL
          23524    73      236      2   0  0              0        236     >MR 1-3                                 JUMP IF A < 0
          23525            12      54   0  0              0                ACTION                                  SELECT
          23526    12               0   0  0             3‼                59                                      SUBTRACT LITERAL
          23527    70      235     32   0  0              0        235     >ACTION 59                              JUMP IF A == 0
          23528    12               0   0  0             1£                31                                      SUBTRACT LITERAL
          23529    73      236      2   0  0              0        236     ><90                                    JUMP IF A < 0
          23530    12               0   0  0              4                                                        SUBTRACT LITERAL
          23531    72      236      2   0  0              0        236     >>93                                    JUMP IF A >= 0
    23527>23532    91      71       0   0  3              0                CTR OF MR'S (INITIALLY 0:0)             SET MODIFICATION REGISTER AT VARIABLE
    23539>23533    10               0   0  0              0                                                        SELECT LITERAL
          23534    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          23535    36      71       2   0  3              0                                                        COLLATE AND ADD
          23536    70      235     40   0  0              0        235     >NONE STORED YET                        JUMP IF A == 0
          23537    2       12      88   0  0              0                THIS ONE                                SUBTRACT
          23538    70      236      2   0  0              0        236     >ALREADY STORED                         JUMP IF A == 0
          23539    94      235     33   0  3              1        235     >SEARCH                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23536>23540            92       0   0  0              0                UNCORR CHAP (BIN)                       SELECT
          23541    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          23542    1       12      88   0  0              0                MR (BIN)                                ADD
          23543    5       71       2   0  3              0                STORE DETAIL                            TRANSFER
          23544    10               0   0  0              1                                                        SELECT LITERAL
          23545    4       71       1   0  0              0                AUG CTR                                 AUGMENT
                                                                                                                   
          23600    PROCR   236       236     TEST ACTION IS C                                                      
          23601     NOTES          RADIX          FOR ACTIONS 85 AND 150                                           SELECT
    23538>                                                                                                         
    23531>                                                                                                         
    23529>                                                                                                         
    23524>                                                                                                         
    23522>23602    62               0   0  0              0                                                        SET EXCESS CONSTANTS
                                                                                                                   
          23700    PROCR   237       237     TEST FOR SEQUENCE CHANGES                                             
          23701     NOTES          RADIX                                                                           SELECT
          23702    0       12      54   0  0              0                BIN ACTION                              SELECT
          23703    12               0   0  0             46                                                        SUBTRACT LITERAL
          23704    73      243      2   0  0              0        243     >ACTION <70                             JUMP IF A < 0
          23705    12               0   0  0              7                                                        SUBTRACT LITERAL
          23706    73      240      2   0  0              0        240     ACTIONS 70-76                           JUMP IF A < 0
          23707    12               0   0  0              2                                                        SUBTRACT LITERAL
          23708    70      240      2   0  0              0        240     >ACTION 79                              JUMP IF A == 0
          23709    72      237     14   0  0              0        237     >OTHERS                                 JUMP IF A >= 0
          23710    0       1        6   1  0              0                ACTION OR C                             SELECT
          23711    12               0   0  0     5300000000                                                        SUBTRACT LITERAL
          23712    71      240      2   0  0              0        240     >MAINLINE OF 77, 78                     JUMP IF A != 0
          23713    76      247      2   0  0              0        247     >HENCE C-LINE OF 77-78                  JUMP unconditional
    23709>23714    12               0   0  0              6                                                        SUBTRACT LITERAL
          23715    70      238      2   0  0              0        238     >ACTION 85                              JUMP IF A == 0
  Source image: P1000187.JPG
          23716    12               0   0  0              2                                                        SUBTRACT LITERAL
          23717    70      237     22   0  0              0        237     >87                                     JUMP IF A == 0
          23718    12               0   0  0              7                                                        SUBTRACT LITERAL
          23719    70      239     13   0  0              0        239     >ACTION 94                              JUMP IF A == 0
          23720    12               0   0  0              3                                                        SUBTRACT LITERAL
          23721    71      237     26   0  0              0        237     >ACTIONS>97                             JUMP IF A != 0
    23727>                                                                                                         
    23717>23722            1        7   0  0              0                                                        SELECT
          23723    12               0   0  0          53000                                                        SUBTRACT LITERAL
          23724    70      240      2   0  0              0        240     >IS C-LINE, COUNT AS CHANGE             JUMP IF A == 0
          23725    76      247      2   0  0              0        247     >OUTPUT                                 JUMP unconditional
    23721>23726    12               0   0  0             35                                                        SUBTRACT LITERAL
          23727    70      237     22   0  0              0        237     >ACTION 150                             JUMP IF A == 0
          23728    76      239      2   0  0              0        239     >TRY MACHINE CODE ACTIONS               JUMP unconditional
                                                                                                                   
          23800    PROCR   238       238     FORM SWITCH DETAILS                                                   
          23801     NOTES          RADIX                                                                           SELECT
    23715>23802            1        7   0  0              0                                                        SELECT
          23803    12               0   0  0          53000                                                        SUBTRACT LITERAL
          23804    70      240      2   0  0              0        240     >IS C-LINE OF 85 ACTION                 JUMP IF A == 0
          23805    91      95       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          23806            12       4   0  0              0                PROCR                                   SELECT
          23807    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          23808    5       12      32   0  0              0                                                        TRANSFER
    23815>23809    10               0   0  0              0                                                        SELECT LITERAL
          23810    34      319     20   0  0              0        319     BITS 1-10                               SET (N) IN B
          23811    36      95       2   0  3              0                                                        COLLATE AND ADD
          23812    70      238     16   0  0              0        238     >NONE STORED YET                        JUMP IF A == 0
          23813    2       12      32   0  0              0                                                        SUBTRACT
          23814    70      238     25   0  0              0        238     >ALREADY STORED                         JUMP IF A == 0
          23815    94      238      9   0  3              1        238                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23812>23816    0       95       1   0  0              0                                                        SELECT
          23817    12               0   0  0             30                                                        SUBTRACT LITERAL
          23818    72      238     25   0  0              0        238     >DONT STORE 49-TH                       JUMP IF A >= 0
          23819    0       92       0   0  0              0                CURRENT BIN UNCORR CHAP                 SELECT
          23820    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          23821    1       12      32   0  0              0                SWITCH PROCR                            ADD
          23822    5       95       2   0  3              0                STORE DETAIL                            TRANSFER
          23823    10               0   0  0              1                                                        SELECT LITERAL
          23824    4       95       1   0  0              0                STEP CTR                                AUGMENT
    23818>                                                                                                         
    23814>23825    60               0   0  0              0                COUNTER IN BINARY                       SET DECIMAL RADIX
          23826    76      247      2   0  0              0        247     >O/P INSTRUCTION                        JUMP unconditional
                                                                                                                   
          23900    PROCR   239       239     MACHINE CODE SEQUENCE CHANGES                                         
          23901     NOTES          RADIX                                                                           SELECT
    23728>23902    0       12      54   0  0              0                BIN ACTION                              SELECT
          23903    12               0   0  0             7                                                         SUBTRACT LITERAL
          23904    70      240      2   0  0              0        240     >ACTION 127/D/M                         JUMP IF A == 0
          23905    11               0   0  0              3                                                        ADD LITERAL
          23906    71      241      2   0  0              0        241     >NOT 124/D/M                            JUMP IF A != 0
          23907            1       12   0  0              0                                                        SELECT
          23908    12               0   0  0              1                                                        SUBTRACT LITERAL
          23909    71      241      2   0  0              0        241     >NOT 124/1/M                            JUMP IF A != 0
          23910            1       14   0  0              0                                                        SELECT
          23911    71      241      2   0  0              0        241     >NOT 124/1/0                            JUMP IF A != 0
          23912    76      240      2   0  0              0        240                         ACTION 94           JUMP unconditional
    23719>23913    60               0   0  0              0                                                        SET DECIMAL RADIX
          23914    0       1       16   1  0              0                                                        SELECT
          23915    71      239     17   0  0              0        239                                             JUMP IF A != 0
  Source image: P1000188.JPG
          23916    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
    23915>23917    0       1        8   1  0              0                                                        SELECT
          23918    71      240      2   0  0              0        240     >COUNT AS SEQ CHANGE                    JUMP IF A != 0
          23919    0       1       10   0  0              0                                                        SELECT
          23920    70      247      2   0  0              0        247                                             JUMP IF A == 0
          23921    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          23922    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          24000    PROCR   240       240     TEST IF SEQUENCE CHANGE IS FORWARD OR BACK                            
          24001     NOTES          RADIX                                                                           SELECT
    23918>                                                                                                         
    23912>                                                                                                         
    23904>                                                                                                         
    23804>                                                                                                         
    23724>                                                                                                         
    23712>                                                                                                         
    23708>                                                                                                         
    23706>24002    0       12       4   0  0              0                DEC REF                                 SELECT
          24003    12               0   0  0            999                                                        SUBTRACT LITERAL
          24004    72      247      2   0  0              0        247                                             JUMP IF A >= 0
          24005    0       92       3   0  0              0                (CURRENT LINE SERIAL)                   SELECT
          24006    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24007    1       12       9   0  0              0                SEQ CHANGE SOURCE                       ADD
          24008    3       12     118   0  0              0                SOURCE                                  COPY
          24009    2       1        8   2  0              0                L-ALIGNED REF                           SUBTRACT
          24010    2       1       10   0  0              0                ITEM                                    SUBTRACT
          24011    73      247      2   0  0              0        247     >SOURCE<DEST. SEQ CHANGE FWD            JUMP IF A < 0
          24012            1        8   2  0              0                                                        SELECT
          24013    70      247      2   0  0              0        247     >SC TO ABS ADDRESS, DON'T STORE         JUMP IF A == 0
          24014    1       1       10   0  0              0                                                        ADD
          24015    73      247      2   0  0              0        247     >SKIP                                   JUMP IF A < 0
          24016    5       12     119   0  0              0                DESTINATION                             TRANSFER
          24017    0       12     118   1  0              0                                                        SELECT
          24018    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24019    124     92       9   1  2              0                ABS START OF LIST 918+2496 INITIALLY)   modify address of next
          24020    101              0   1  0              0                TABLE LOOKUP                            table look up
          24021    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24022    91               0   0  1              0                STORE LOCN OF FIRST GREATER             SET MODIFICATION REGISTER AT VARIABLE
          24023    2       92       9   0  0              0                                                        SUBTRACT
          24024    30               0   0  0              5                SHIFT QTTY TO BE MOVED                  SHIFT (A) BY QUARTETS
          24025    1       92       9   0  0              0                START                                   ADD
          24026    5       12      88   1  0              0                WL=BULK COPY TABLE ENTRY                TRANSFER
          24027    0       92       9   0  0              0                CURRENT LIST START                      SELECT
          24028    2       317     90   0  0              0        317     ABS ADDRESS 18:0                        SUBTRACT
          24029    70      247      2   0  0              0        247     >LIST FULL, DONT STORE                  JUMP IF A == 0
          24030    10               0   0  0              2-                                                       SELECT LITERAL
          24031    4       92       9   0  0              0                ADJUST FOR NEW START                    AUGMENT
          24032            12      88   1  0              0                                                        SELECT
          24033    124     92       9   1  2              0                                                        modify address of next
          24034    128              0   1  1              0                BULK COPY UP ONE WORD                   bulk copy long numeric
          24035    94               0   0  1              2-               ADJUST                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24036            12     118   1  0              0                NEW SEQ CH BACK                         SELECT
          24037    5                0   1  1              0                PLACE IN LIST                           TRANSFER
          24038    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          24100    PROCR   241       241     STORE OVERLAY DETAILS                                                 
          24101     NOTES          RADIX                                                                           SELECT
    23911>                                                                                                         
    23909>                                                                                                         
    23906>24102            12      54   0  0              0                BIN ACTION                              SELECT
  Source image: P1000189.JPG
          24103    12               0   0  0             98                                                        SUBTRACT LITERAL
          24104    71      243      2   0  0              0        243     >NOT ACTION 152, OVERLAY                JUMP IF A != 0
          24105    91      12      12   0  3              0                SCAN CHAPTER STARTS                     SET MODIFICATION REGISTER AT VARIABLE
    24109>24106            12       4   0  0              0                PROCR OF OLAID/OLAYER CHAP START        SELECT
          24107    2       12      14   0  3              0                NEXT CHAP START                         SUBTRACT
          24108    70      241     13   0  0              0        241     >MATCH FOUND                            JUMP IF A == 0
          24109    94      241      6   0  3              1        241     >TRY NEXT                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24110    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          24111    80      295      2   0  0              0        295     >IGNORE INSTRUCTION                     ENTER SUBROUTINE
          24112    76      241     14   0  0              0        241     >PRETEND IS CHAP 1                      JUMP unconditional
    24108>24113    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
    24112>24114    11               0   0  0              1                                                        ADD LITERAL
          24115    5       12      46   0  0              0                                                        TRANSFER
          24116    0       12      61   0  0              0                IS C-LINE READ YET?                     SELECT
          24117    70      242      2   0  0              0        242     >THIS IS C-LINE NOW                     JUMP IF A == 0
          24118    0       12      46   0  0              0                OLAID CHAP                              SELECT
          24119    5       12      47   0  0              0                                                        TRANSFER
          24120    76      247      2   0  0              0        247     >O/P+READ C-LINE                        JUMP unconditional
                                                                                                                   
          24200    PROCR   242       242     UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS                    
          24201     NOTES          RADIX                                                                           SELECT
    24117>24202    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          24203    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          24204    10               0   0  0             10                                                        SELECT LITERAL
          24205    124     12      46   0  1              0                OLAYER              SET 'NON-UNIQUE' INDmodify address of next
          24206    37      92       9   0  0              0                                    BIT 5               REPLACE SELECTED BITS
          24207    124     12      47   0  1              0                OLAID                                   modify address of next
          24208    37      92       9   0  0              0                                                        REPLACE SELECTED BITS
          24209    10               0   0  0              0                                                        SELECT LITERAL
          24210    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          24211    124     12      46   0  1              0                                                        modify address of next
          24212    36      92       9   0  0              0                OLAYER PREVIOUS CORR CHAP               COLLATE AND ADD
          24213    5       12      46   0  0              0                                                        TRANSFER
          24214    124     12      47   0  1              0                                                        modify address of next
          24215    36      92       9   0  0              0                CORR CHAP OF OLAID                      COLLATE AND ADD
          24216    3       12      47   0  0              0                                                        COPY
          24217    2       12      46   0  0              0                                                        SUBTRACT
          24218    70      247      2   0  0              0        247     >NO ADJUSTMENTS NEEDED                  JUMP IF A == 0
          24219    73      242     24   0  0              0        242     >12/46>12/47                            JUMP IF A < 0
          24220    34      12      46   0  0              0                                                        SET (N) IN B
          24221    4       12      46   0  0              0                                                        AUGMENT
          24222    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24223    5       12      47   0  0              0                GREATER IN 46       LESSER IN 47        TRANSFER
    24219>24224    91      12      12   0  3              0                UNCORR CHAPS:0                          SET MODIFICATION REGISTER AT VARIABLE
          24225    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
    24232>24226    10               0   0  0              0                                                        SELECT LITERAL
          24227    36      92      10   0  3              0                CORR CHAP                               COLLATE AND ADD
          24228    2       12      46   0  0              0                GREATER IN THIS OVERLAY                 SUBTRACT
          24229    71      242     32   0  0              0        242     >NOT TO BE REPLACED                     JUMP IF A != 0
          24230            12      47   0  0              0                                                        SELECT
          24231    37      92      10   0  3              0                REPLACE                                 REPLACE SELECTED BITS
    24229>24232    94      242     26   0  3              1        242     >TREAT ALL CHAPS                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24233    76      247      2   0  0              0        247     O/P INSTRUCTION                         JUMP unconditional
                                                                                                                   
          24300    PROCR   243       243     STORE OLD/NEW RADICES FOR CONVERT ACTIONS                             
          24301     NOTES          RADIX                                                                           SELECT
    24104>                                                                                                         
    23704>24302    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24303            12      54   0  0              0                                                        SELECT
          24304    12               0   0  0             5:                                                        SUBTRACT LITERAL
  Source image: P1000190.JPG
          24305    70      243     14   0  0              0        243     >ACTION 93 DEC-BIN                      JUMP IF A == 0
          24306    11               0   0  0             1+                                                        ADD LITERAL
          24307    70      243     32   0  0              0        243     >ACTION 65 ANY-ANY                      JUMP IF A == 0
          24308    11               0   0  0              2                                                        ADD LITERAL
          24309    70      243     13   0  0              0        243     >ACTION 63 DEC-STERLING                 JUMP IF A == 0
          24310    12               0   0  0              1                                                        SUBTRACT LITERAL
          24311    71      246      2   0  0              0        246     >ACTION NOT 64, STERLING - DECIMAL      JUMP IF A != 0
          24312    10               0   0  0       7£:££802                                                        SELECT LITERAL
    24309>24313    11               0   0  0          66.64                                                        ADD LITERAL
    24305>24314    11               0   0  0     6666600000                                                        ADD LITERAL
          24315    5       12      46   1  0              0                STORE OLD - NEW RADIX                   TRANSFER
    24335>24316            92       7   0  0              0                CTR OF CONVERT TABLES TO DATE           SELECT
          24317    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          24318    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          24319    70      243     27   0  0              0        243     > NONE STORED YET                       JUMP IF A == 0
    24323>24320            99       0   1  3              0                                                        SELECT
          24321    2       12      46   1  0              0                                                        SUBTRACT
          24322    70      247      2   0  0              0        247     > ALREADY STORED                        JUMP IF A == 0
          24323    94      243     20   0  3              2        243                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24324    0       92       7   0  0              0                                                        SELECT
          24325    12               0   0  0             32                50                                      SUBTRACT LITERAL
          24326    72      247      2   0  0              0        247     > DONT STORE 26-TH                      JUMP IF A >= 0
    24319>24327    0       12      46   1  0              0                                                        SELECT
          24328    5       99       0   1  3              0                                                        TRANSFER
          24329    10               0   0  0              2                                                        SELECT LITERAL
          24330    4       92       7   0  0              0                AUG CTR                                 AUGMENT
          24331    76      247      2   0  0              0        247     > O/P INSTRUCTION                       JUMP unconditional
    24307>24332            1       16   0  0              0                L=RADIX                                 SELECT
          24333    5       12      46   0  0              0                                                        TRANSFER
          24334            12      61   0  0              0                C-LINE IND                              SELECT
          24335    70      243     16   0  0              0        243     > THIS IS C-LINE    INSERT RADIX PAIR   JUMP IF A == 0
          24336            12      46   0  0              0                                                        SELECT
          24337    5       12      47   0  0              0                SET OLD RADIX                           TRANSFER
          24338    76      247      2   0  0              0        247     > GET C-LINE                            JUMP unconditional
                                                                                                                   
          24400    PROCR   244       244     CONVERT (A) TO DEC                                                    
          24401     NOTES  244                                                                                     SELECT
          24402    81      244      2   0  0              0        244                                             START OF SUBROUTINE
          24403    5       320     42   1  0              0        320                                             TRANSFER
          24404    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          24405    124     320      2   0  2              0        320                                             select literal and division
          24406    112     320     42   1  0              0        320                                             convert
          24407    82      244      2   0  0              0        244                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24500    PROCR   245       245     CONVERT (A) TO BINARY                                                 
          24501     NOTES  245                                                                                     SELECT
          24502    81      245      2   0  0              0        245                                             START OF SUBROUTINE
          24503    5       320     42   1  0              0        320                                             TRANSFER
          24504    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          24505    124     320     22   0  2              0        320                                             select literal and division
          24506    112     320     42   1  0              0        320                                             convert
          24507    82      245      2   0  0              0        245                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24600    PROCR   246       246     STORE UNPACK AND CONDENSE                                             
          24601     NOTES          RADIX                                                                           SELECT
    24311>24602    0       12      61   0  0              0                                                        SELECT
          24603    70      247      2   0  0              0        247     > THIS IS C-LINE                        JUMP IF A == 0
          24604    0       12      54   0  0              0                ACTION                                  SELECT
          24605    101             51   1  2              0                                                        subtract literal address
          24606    70      246     11   0  0              0        246     > UNPACK                                JUMP IF A == 0
  Source image: P1000191.JPG
          24607    101              2   1  2              0                                                        subtract literal address
          24608    70      246     11   0  0              0        246     >CONDENSE                               JUMP IF A == 0
          24609    101            104   1  2              0                                                        subtract literal address
          24610    71      247      2   0  0              0        247     >NOT EXPAND (157)                       JUMP IF A != 0
    24608>                                                                                                         
    24606>24611            12       4   0  0              0                SECTION                                 SELECT
          24612    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          24613    3       12      88   0  0              0                SEC/ PROCR                              COPY
          24614    12               0   0  0             64                100                                     SUBTRACT LITERAL
          24615    72      247      2   0  0              0        247     >DON'T STORE FOR 3-DIGT REP             JUMP IF A >= 0
          24616            98       0   1  0              0                                                        SELECT
          24617    91      98       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          24618    70      246     28   0  0              0        246     >NONE STORED YET                        JUMP IF A == 0
    24624>24619    10               0   0  0              0                                                        SELECT LITERAL
          24620    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          24621    36      98       2   0  3              0                                                        COLLATE AND ADD
          24622    2       12      88   0  0              0                                                        SUBTRACT
          24623    70      247      2   0  0              0        247     > MATCH FWND                            JUMP IF A == 0
          24624    94      246     19   0  3              1        246                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24625    0       98       1   0  0              0                                                        SELECT
          24626    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          24627    72      247      2   0  0              0        247     > DONT STORE 11 - TH                    JUMP IF A >= 0
    24618>24628    0       92       0   0  0              0                THIS CHAP UNCORR                        SELECT
          24629    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          24630    1       12      88   0  0              0                SECTION                                 ADD
          24631    5       98       2   0  3              0                                                        TRANSFER
          24632    10               0   0  0              1                                                        SELECT LITERAL
          24633    4       98       1   0  0              0                AUG CTR                                 AUGMENT
                                                                                                                   
          24700    PROCR   247       247     FORM SERIAL NUMBER                                                    
          24701     NOTES          RADIX                                                                           SELECT
    26621>                                                                                                         
    26624>                                                                                                         
    26714>                                                                                                         
    26725>                                                                                                         
    26727>                                                                                                         
    26729>                                                                                                         
    26733>                                                                                                         
    26808>                                                                                                         
    27103>                                                                                                         
    27107>                                                                                                         
    27304>                                                                                                         
    27813>                                                                                                         
    28026>                                                                                                         
    28037>                                                                                                         
    28143>                                                                                                         
    28231>                                                                                                         
    24627>                                                                                                         
    24623>                                                                                                         
    24615>                                                                                                         
    24610>                                                                                                         
    24603>                                                                                                         
    24338>                                                                                                         
    24331>                                                                                                         
    24326>                                                                                                         
    24322>                                                                                                         
    24233>                                                                                                         
    24218>                                                                                                         
    24120>                                                                                                         
    24038>                                                                                                         
    24029>                                                                                                         
    24015>                                                                                                         
    24013>                                                                                                         
    24011>                                                                                                         
    24004>                                                                                                         
    23922>                                                                                                         
    23920>                                                                                                         
    23826>                                                                                                         
    23725>                                                                                                         
    23713>                                                                                                         
    23518>                                                                                                         
    23509>                                                                                                         
    23505>                                                                                                         
    21105>                                                                                                         
    20709>                                                                                                         
    20631>                                                                                                         
    20624>                                                                                                         
    20604>                                                                                                         
    20506>                                                                                                         
    19128>                                                                                                         
    19124>                                                                                                         
  Source image: P1000192.JPG
    19122>24702    0       12      85   0  0              0                TEST IF TO IGNORE                       SELECT
          24703    70      247      5   0  0              0        247     THIS BLOCK                              JUMP IF A == 0
          24704    80      295      2   0  0              0        295     YES - IGNORE                            ENTER SUBROUTINE
    24703>24705    60               0   0  0              0                                                        SET DECIMAL RADIX
          24706            92       3   0  0              0                TRANSLATOR'S PROCR                      SELECT
          24707    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24708    5       12      88   0  0              0                                                        TRANSFER
          24709    86      191      2   0  0              0        191                                             SELECT SWITCH R
          24710    12               0   0  0              5                                                        SUBTRACT LITERAL
          24711    70      247     26   0  0              0        247     >VALUES                                 JUMP IF A == 0
          24712            12       9   0  0              0                LONE SERIAL IN PROCR                    SELECT
          24713    12               0   0  0            100                                                        SUBTRACT LITERAL
          24714    73      247     26   0  0              0        247     >OK                                     JUMP IF A < 0
          24715    86      191      2   0  0              0        191                                             SELECT SWITCH R
          24716    12               0   0  0              2                                                        SUBTRACT LITERAL
          24717    70      247     22   0  0              0        247     >INSTRUCTIONS, IGNORE                   JUMP IF A == 0
          24718    35               0   0  0         111111                TABLE ENTRIES, CONSTS='SER'             PREPARE FOR DIGIT COLLATION
          24719    10               0   0  0         725569                                                        SELECT LITERAL
          24720    37      1       44   1  0              0                                                        REPLACE SELECTED BITS
          24721    76      247     23   0  0              0        247                                             JUMP unconditional
    24717>24722    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    24721>24723    10               0   0  0             99                                                        SELECT LITERAL
          24724    2       12      90   0  0              0                (0=SHORT, 1=LONG)                       SUBTRACT
          24725    76      247     27   0  0              0        247     >SET 98 OR 99                           JUMP unconditional
    24714>                                                                                                         
    24711>24726            12       9   0  0              0                                                        SELECT
    24725>24727    4       12      88   0  0              0                                                        AUGMENT
          24728    52      1        2   0  0              0                EDIT SERIAL                             EDIT
          24729    C       306      6   0  0              0        306                                             
                                                                                                                   
          24800    PROCR   248       248     AUGMENT INSTRUCTION COUNTER                                           
          24801     NOTES          RADIX                                                                           SELECT
          24802    10               0   0  0              0                                                        SELECT LITERAL
          24803    85      191      2   0  0              0        191                                             SWITCH R
          24804    C       248     11   0  0              0        248     >'PROCR/TABLE'                          
          24805    C       249     13   0  0              0        249     >INSTRUCTIONS/'NNOTES'                  
          24806    C       249      2   0  0              0        249     >TABLE ENTRY/'NOTES'                    
          24807    C       249      7   0  0              0        249     >CONSTANT/'CONST'                       
          24808    C       248      9   0  0              0        248     VALUE ENTRY/VALUE                       
  Source image: P1000193.JPG
    24808>24809    5       1        2   1  0              0                CLEAR LINE SERIAL                       TRANSFER
          24810    76      248     13   0  0              0        248                                             JUMP unconditional
    24804>24811    0       12       9   0  0              0                SERIAL THIS LINE WITHIN SECTION         SELECT
          24812    71      248     18   0  0              0        248     >NOTES BLOCK                            JUMP IF A != 0
    24911>                                                                                                         
    24810>24813            319     22   0  0              0        319     SW 27/5 LAST TIME THRU                  SELECT
          24814    12               0   0  0              3                                                        SUBTRACT LITERAL
          24815    71      248     18   0  0              0        248     >LAST TIME WASN'T FOR CONSTANTS         JUMP IF A != 0
          24816    10               0   0  0              1                                                        SELECT LITERAL
          24817    5       29       6   1  0              0                CONSTS END SIGN                         TRANSFER
    24815>                                                                                                         
    24812>24818    10               0   0  0              0                                                        SELECT LITERAL
          24819    76      249     13   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24900    PROCR   249       249     AUGMENT INSTRUCTION                                                   
          24901     NOTES          RADIX                                                                           SELECT
    24806>24902            12       9   0  0              0                                                        SELECT
          24903    12               0   0  0              1                                                        SUBTRACT LITERAL
          24904    70      249     13   0  0              0        249                                             JUMP IF A == 0
          24905    10               0   0  0              2                                                        SELECT LITERAL
          24906    76      249     14   0  0              0        249                                             JUMP unconditional
    24807>24907            12       9   0  0              0                                                        SELECT
          24908    71      249     12   0  0              0        249     >NOT 'CONST' BLOCK                      JUMP IF A != 0
          24909    10               0   0  0              1                                                        SELECT LITERAL
          24910    4       12       9   0  0              0                (SO AS TO STEP BY 2 EVENTUALLY)         AUGMENT
          24911    76      248     13   0  0              0        248     >TEST IF LAST SECTION WAS CONSTANTS     JUMP unconditional
    24908>24912    0       12      90   0  0              0                                                        SELECT
    24904>                                                                                                         
    24819>                                                                                                         
    24805>24913    11               0   0  0              1                                                        ADD LITERAL
    24906>24914    4       12       9   0  0              0                                                        AUGMENT
          24915    0       12      33   0  0              0                                                        SELECT
          24916    70      249     20   0  0              0        249     >BLOCK EX MT                            JUMP IF A == 0
          24917    0       12       1   0  0              0                                                        SELECT
          24918    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24919    5       1        0   1  0              0                AMEND IND                               TRANSFER
    24916>24920    5       92      34   1  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          25000    PROCR   250       250     EDIT                                                                  
          25002    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          25003            318     11   0  0              0        318     INDICATOR                               SELECT
          25004    70      250      7   0  0              0        250     >FIRST RECORD                           JUMP IF A == 0
          25005    80      288      2   0  0              0        288                                             ENTER SUBROUTINE
          25006    76      250      8   0  0              0        250                                             JUMP unconditional
    25004>25007    80      289      2   0  0              0        289     >WRITE LAST SECTION                     ENTER SUBROUTINE
    25006>25008            12      38   0  0              0                                                        SELECT
          25009    71      250     30   0  0              0        250     >DIRECTIVE                              JUMP IF A != 0
          25010            27       5   0  0              0                SWITCH                                  SELECT
          25011    12               0   0  0              4                                                        SUBTRACT LITERAL
          25012    70      250     25   0  0              0        250     >VALUES                                 JUMP IF A == 0
          25013    124     27       5   0  1              0                                                        modify address of next
          25014            305      6   0  0              0        305                                             SELECT
          25015    128     29       2   1  2              0                EDIT PROCR, TABLE, CONST.               edit fixed field formats
          25016            319     48   1  0              0        319                                             SELECT
          25017    124     27       5   0  1              0                                                        modify address of next
          25018    124     305      2   0  1              0        305                                             modify address of next
          25019    128     29       0   1  1              0                COPY ANNOTATION                         bulk copy long numeric
          25020            1       44   1  0              0                                                        SELECT
          25021    124     27       5   0  1              0                                                        modify address of next
          25022    124     305      2   0  1              0        305                                             modify address of next
  Source image: P1000194.JPG
          25023    5       29       2-  1  0              0                COPY REPORTS PASS 1                     TRANSFER
          25024    76      250     48   0  0              0        250                                             JUMP unconditional
    25012>25025    55      1       11   0  0             16                VALUES                                  BULK COPY
          25026    C       29      10   2  0              0                                                        
          25027    52      29       6   0  0              0                REF+ITEM                                EDIT
          25028    C       315      2   0  0              0        315                                             
          25029    76      250     48   0  0              0        250                                             JUMP unconditional
    25009>25030    52      29       2   0  0              0                DIRECTIVES                              EDIT
          25031    C       307     16   0  0              0        307                                             
          25032    10               0   0  0              0                                                        SELECT LITERAL
          25033    5       319     22   0  0              0        319                                             TRANSFER
          25034            27       5   0  0              0                                                        SELECT
          25035    12               0   0  0              1                                                        SUBTRACT LITERAL
          25036    71      250     43   0  0              0        250     >NOT PROCR                              JUMP IF A != 0
          25037            12      38   0  0              0                                                        SELECT
          25038    73      250     43   0  0              0        250     NOT NOTES OF PROCR                      JUMP IF A < 0
          25039            1        8   1  0              0                                                        SELECT
          25040    5       29      12   1  0              0                COPY 'RADIX'                            TRANSFER
          25041    5       29       8   1  0              0                CLEAR                                   TRANSFER
          25042    76      250     45   0  0              0        250                                             JUMP unconditional
    25038>                                                                                                         
    25036>25043            1       44   1  0              0                PASS 1 REPORTS                          SELECT
          25044    5       29      12   1  0              0                                                        TRANSFER
    25042>25045    55      1       16   1  0             28                BULK COPY ANNOTATION                    BULK COPY
          25046    C       29      14   1  0              0                                                        
          25047    76      250     50   0  0              0        250                                             JUMP unconditional
    25029>                                                                                                         
    25024>25048            27       5   0  0              0                                                        SELECT
          25049    5       319     22   0  0              0        319                                             TRANSFER
    25047>25050    10               0   0  0              1                                                        SELECT LITERAL
          25051    5       318     11   0  0              0        318     SET INDICATOR                           TRANSFER
          25052    60               0   0  0              0                                                        SET DECIMAL RADIX
          25053    10               0   0  0              0                                                        SELECT LITERAL
          25054    5       12     115   0  0              0                ERROR REPROT SHIFT CONTROL              TRANSFER
          25055    0       23      47   0  0              0                                                        SELECT
          25056    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25057    37      29       2   1  0              0                                                        REPLACE SELECTED BITS
          25058    10               0   0  0              0                                                        SELECT LITERAL
          25059    5       23      47   0  0              0                IMPLICITLY AMENDED'                     TRANSFER
          25060    82      186      2   0  0              0        186                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          25100    PROCR   251       251     START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END            
    25428>                                                                                                         
    25562>                                                                                                         
    25619>                                                                                                         
    18513>25102    80      294      2   0  0              0        294     >TEST PT AT DIRECTIVE/END               ENTER SUBROUTINE
          25103    70      252      2   0  0              0        252     >NO                                     JUMP IF A == 0
    25121>                                                                                                         
    25317>                                                                                                         
    25532>                                                                                                         
    25843>25104    0       12      45   0  0              0                                                        SELECT
          25105    71      251     14   0  0              0        251     >PT AT END                              JUMP IF A != 0
          25106            27       1   0  0              0                                                        SELECT
          25107    70      251     10   0  0              0        251     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          25108                     4   2  8              0                (ABS MR)                                SELECT
          25109    76      251     11   0  0              0        251                                             JUMP unconditional
    25107>25110    0       7        6   2  0              0                MT SERIAL                               SELECT
    25109>25111    2       9        4   2  0              0                A6 SERIAL                               SUBTRACT
          25112    70      252      2   0  0              0        252     >MT AMENDED                             JUMP IF A == 0
          25113    72      253      2   0  0              0        253     >MT>PT, REPORT                          JUMP IF A >= 0
  Source image: P1000195.JPG
    25105>25114    80      299      2   0  0              0        299     >TEST MT=END                            ENTER SUBROUTINE
          25115    10               0   0  0              0                SET 'MT INPUT'                          SELECT LITERAL
          25116    5       12      33   0  0              0                                                        TRANSFER
          25117    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25118    80      284      2   0  0              0        284     >UNPACK                                 ENTER SUBROUTINE
          25119    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25120    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25121    76      251      4   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25200    PROCR   252       252     SWITCH FOR AMENDMENTS                                                 
          25201     NOTES          RADIX                                                                           SELECT
    25112>                                                                                                         
    25103>25202    85      252      2   0  0              0        252                                             SWITCH R
          25203    C       254      2   0  0              0        254     >REPLACE                                
          25204    C       255      2   0  0              0        255     >DELETE                                 
          25205    C       258      2   0  0              0        258     >INSERT BEFORE                          
          25206    C       256      2   0  0              0        256     >REPLACE ANNOTATION                     
                                                                                                                   
          25300    PROCR   253       253     DEAL WITH OUT-OF-SEQUENCE DIRECTIVE                                   
          25301     NOTES          RADIX                                                                           SELECT
    25113>25302            1        4   1  0              0                AMENDMENTS MODS ARE                     SELECT
          25303    124     319     22   0  1              0        319                                             modify address of next
          25304    124     305     10   0  1              0        305                                             modify address of next
          25305    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25306    34      1        2   1  0              0                SERIAL                                  SET (N) IN B
    25543>                                                                                                         
    25545>25307    80      259      2   0  0              0        259     PUT ERROR REPORT                        ENTER SUBROUTINE
          25308    10               0   0  0           1:5:                '??' OF 5-DIGIT                         SELECT LITERAL
          25309    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25310    35               0   0  0           1111                SERIAL AND                              PREPARE FOR DIGIT COLLATION
          25311    124     319     22   0  1              0        319                                             modify address of next
          25312    124     305     10   0  1              0        305                                             modify address of next
          25313    37      29       0   1  0              0                REPORT WORD                             REPLACE SELECTED BITS
    25316>25314    80      292      2   0  0              0        292     INPUT ON PAPER                          ENTER SUBROUTINE
          25315    80      294      2   0  0              0        294     FIND DIRECTIVE                          ENTER SUBROUTINE
          25316    70      253     14   0  0              0        253     >READ/IGNORE PT TO NEXT DIRECTIVE       JUMP IF A == 0
          25317    76      251      4   0  0              0        251     >MAKE THIS AMENDMENT                    JUMP unconditional
                                                                                                                   
          25400    PROCR   254       254     REPLACE                                                               
          25401     NOTES          RADIX                                                                           SELECT
    25203>25402            9       50   2  0              0                'PASS 0' IND                            SELECT
          25403    71      254     34   0  0              0        254     >REJECT                                 JUMP IF A != 0
          25404            27       5   0  0              0                'UNPACK SWITCH'                         SELECT
          25405    5       296      2   0  0              0        296                                             TRANSFER
          25406    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25407    0       12      38   0  0              0                                                        SELECT
          25408    5       197      2   0  0              0        197                                             TRANSFER
          25409    80      293      2   0  0              0        293     >TEST PT=STACK DIRECTIVE                ENTER SUBROUTINE
          25410    0       12      38   0  0              0                IS REPLACING BLOCK STACK DIR  OR NOT    SELECT
          25411    2       197      2   0  0              0        197     ARE BOTH BLOCKS SIMILAR                 SUBTRACT
          25412    71      254     29   0  0              0        254      ILLEGAL?                               JUMP IF A != 0
    25431>25413    10               0   0  0              1                SET AS PT INPUT                         SELECT LITERAL
          25414    5       12      33   0  0              0                                                        TRANSFER
          25415    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          25416    80      299      2   0  0              0        299     >DON'T REPLACE END SIGN                 ENTER SUBROUTINE
          25417    0       12      38   0  0              0                                                        SELECT
          25418    72      254     25   0  0              0        254     >NOT PT DIRECTIVE                       JUMP IF A >= 0
          25419            27       1   0  0              0                                                        SELECT
          25420    70      254     23   0  0              0        254     >1 RECORD PER BLOCK                     JUMP IF A == 0
          25421                     8   1  8              0                PROCR NO                                SELECT
  Source image: P1000196.JPG
          25422    76      254     24   0  0              0        254                                             JUMP unconditional
    25420>25423    0       7       16   1  0              0                                                        SELECT
    25422>25424    5       1        8   1  0              0                TRANSFER MT PROCR NUMBER                TRANSFER
    25418>25425    80      302      2   0  0              0        302     >GET NEXT A1 RECORD                     ENTER SUBROUTINE
          25426    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25427    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25428    76      251      2   0  0              0        251                                             JUMP unconditional
    25412>25429    0       12      38   0  0              0                PT DIRECTIVE                            SELECT
          25430    1       197      2   0  0              0        197     MT DIRECTIVE                            ADD
          25431    72      254     13   0  0              0        254     >NEITHER IS STACK DIRECTIVE, ALLOW REPLAJUMP IF A >= 0
          25432            296      2   0  0              0        296                                             SELECT
          25433    5       27       5   0  0              0                RESTORE SWITCH                          TRANSFER
    25403>25434    10               0   0  0             69                                                        SELECT LITERAL
          25435    76      255     36   0  0              0        255     >REPORT                                 JUMP unconditional
                                                                                                                   
          25500    PROCR   255       255     DELETION LOOP                                                         
          25501     NOTES          RADIX                                                                           SELECT
    25204>25502    80      299      2   0  0              0        299     >END SIGN ON MT?                        ENTER SUBROUTINE
          25503            9        4   1  0              0                                                        SELECT
          25504    5       1        0   1  0              0                STORE SERIAL                            TRANSFER
          25505            9       50   2  0              0                'PASS 0' IND                            SELECT
          25506    71      255     35   0  0              0        255     >REPORT                                 JUMP IF A != 0
          25507    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25508    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25509    71      255     46   0  0              0        255     >YES (SINGLE-LINE DELETE)               JUMP IF A != 0
          25510            9       50   2  0              0                PASS 0 IND                              SELECT
          25511    71      255     35   0  0              0        255     >MOD REJECTED                           JUMP IF A != 0
          25512            27       1   0  0              0                                                        SELECT
          25513    70      255     16   0  0              0        255     >1 RECORD/BLOCK                         JUMP IF A == 0
          25514                     4   2  8              0                                                        SELECT
          25515    76      255     17   0  0              0        255                                             JUMP unconditional
    25513>25516            7        6   2  0              0                MT SERIAL                               SELECT
    25515>25517    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25518    70      255     20   0  0              0        255     >DIRECTIVE DELETED                      JUMP IF A == 0
          25519    80      188      2   0  0              0        188     >SET 'PRINT PROCEDURE'                  ENTER SUBROUTINE
    25534>                                                                                                         
    25518>25520    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25521    80      299      2   0  0              0        299     >TEST END                               ENTER SUBROUTINE
          25522            27       1   0  0              0                                                        SELECT
          25523    70      255     26   0  0              0        255                                             JUMP IF A == 0
          25524                     4   2  8              0                                                        SELECT
          25525    76      255     27   0  0              0        255                                             JUMP unconditional
    25523>25526            7        6   2  0              0                MT SERIAL                               SELECT
    25525>25527    2       1        2   2  0              0                PT SERIAL                               SUBTRACT
          25528    71      255     34   0  0              0        255                                             JUMP IF A != 0
          25529    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25530    80      292      2   0  0              0        292     >READ PT(NEXT DIRECTIVE)                ENTER SUBROUTINE
          25531    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25532    71      251      4   0  0              0        251     >YES                                    JUMP IF A != 0
          25533    76      255     35   0  0              0        255     >REJECT                                 JUMP unconditional
    25528>25534    73      255     20   0  0              0        255     >LOOP                                   JUMP IF A < 0
    25533>                                                                                                         
    25511>                                                                                                         
    25506>25535    10               0   0  0             54                REPORT                                  SELECT LITERAL
    25607>                                                                                                         
    25847>                                                                                                         
    25435>25536    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25537    124     319     22   0  1              0        319                                             modify address of next
          25538    124     305     10   0  1              0        305                                             modify address of next
          25539    5       29       0   1  0              0                REPORT WORD                             TRANSFER
  Source image: P1000197.JPG
          25540            27       1   0  0              0                                                        SELECT
          25541    70      255     44   0  0              0        255     >1 RECORD BLOCK                         JUMP IF A == 0
          25542    34               4   1  8              0                                                        SET (N) IN B
          25543    76      253      7   0  0              0        253                                             JUMP unconditional
    25541>25544    34      7        6   1  0              0                SERIAL BEING DELETED                    SET (N) IN B
          25545    76      253      7   0  0              0        253     >REPORT                                 JUMP unconditional
    25509>25546            27       1   0  0              0                                                        SELECT
          25547    70      255     50   0  0              0        255                                             JUMP IF A == 0
          25548                     4   2  8              0                                                        SELECT
          25549    76      255     51   0  0              0        255                                             JUMP unconditional
    25547>25550            7        6   2  0              0                                                        SELECT
    25549>25551    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25552    70      255     54   0  0              0        255                                             JUMP IF A == 0
          25553    80      188      2   0  0              0        188                                             ENTER SUBROUTINE
    25561>                                                                                                         
    25552>25554    80      302      2   0  0              0        302     >GET RECORD AFTER DELETED ONE           ENTER SUBROUTINE
          25555            27       1   0  0              0                                                        SELECT
          25556    70      255     59   0  0              0        255                                             JUMP IF A == 0
          25557                     4   2  8              0                                                        SELECT
          25558    76      255     60   0  0              0        255                                             JUMP unconditional
    25556>25559            7        6   2  0              0                                                        SELECT
    25558>25560    2       1        0   2  0              0                PT SERIAL FOR DELETION                  SUBTRACT
          25561    70      255     54   0  0              0        255     >DELETE ALL BLOCKS THIS SERIAL          JUMP IF A == 0
          25562    76      251      2   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25600    PROCR   256       256     REPLACE ANNOTATION                                                    
          25601     NOTES          RADIX                                                                           SELECT
    25206>25602    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25603    80      283      2   0  0              0        283     >UNPACK PT BLOCK                        ENTER SUBROUTINE
          25604            9       50   2  0              0                'PASS 0' IND                            SELECT
          25605    70      256      8   0  0              0        256                                             JUMP IF A == 0
          25606    10               0   0  0             51                                                        SELECT LITERAL
          25607    76      255     36   0  0              0        255     >REPORT, READ NEXT DIRECTIVE            JUMP unconditional
    25605>25608    10               0   0  0              1                                                        SELECT LITERAL
          25609    3       23      47   0  0              0                SET 'IMPLICITLY AMENDED'                COPY
          25610    5       12      86   0  0              0                SET IND FOR SR                          TRANSFER
          25611    80      257      2   0  0              0        257                                             ENTER SUBROUTINE
          25612    10               0   0  0              0                                                        SELECT LITERAL
          25613    5       12      86   0  0              0                                                        TRANSFER
          25614    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25615    10               0   0  0              0                                                        SELECT LITERAL
          25616    5       12      33   0  0              0                                                        TRANSFER
          25617    80      186      2   0  0              0        186     SET 'MT IN'                             ENTER SUBROUTINE
          25618    80      302      2   0  0              0        302     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25619    76      251      2   0  0              0        251     >GET NEXT A1 RECORD                     JUMP unconditional
                                                                                                                   
          25700    PROCR   257       257     ENTRY TO 'UNPACK' SR                                                  
          25702    81      257      2   0  0              0        257                                             START OF SUBROUTINE
          25703    0       257      2   0  0              0        257                                             SELECT
          25704    5       284      2   0  0              0        284     PLANT LINK                              TRANSFER
          25705    76      284      4   0  0              0        284     AVOID BULK CLEAR                        JUMP unconditional
                                                                                                                   
          25800    PROCR   258       258     INSERTION LOOP                                                        
          25801     NOTES          RADIX                                                                           SELECT
    25205>25802            9       50   2  0              0                PASS 0' IND                             SELECT
          25803    71      258     46   0  0              0        258     >REPORT                                 JUMP IF A != 0
          25804    5       12      38   0  0              0                SET NON DIRECTIVE                       TRANSFER
          25805    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          25806    C       258     17   0  0              0        258                                             
          25807    C       258     17   0  0              0        258                                             
  Source image: P1000198.JPG
          25808    C       258     10   0  0              0        258     CONST                                   
          25809    C       258     17   0  0              0        258                                             
    25808>25810    54      1        0   1  0             46                                                        BULK CLEAR
          25811    124     312      2   0  2              0        312                                             select literal and division
          25812    80      326      2   0  0              0        326     UNPACK (PRETEND ITS PROCR)              ENTER SUBROUTINE
          25813    10               0   0  0              0                                                        SELECT LITERAL
          25814    5       1       20   1  0              0                CLEAR CLEO WORD                         TRANSFER
          25815    5       1       44   1  0              0                CLEAR ERROR WORD                        TRANSFER
          25816    76      258     18   0  0              0        258                                             JUMP unconditional
    25809>                                                                                                         
    25807>                                                                                                         
    25806>25817    80      283      2   0  0              0        283     UNPACK                                  ENTER SUBROUTINE
    25816>25818    90               0   0  1              6                                                        SET MODIFICATION REGISTER AT LITERAL
          25819    C                0   0  0             44                                                        
    25822>25820            1        0   1  1              0                                                        SELECT
          25821    71      258     24   0  0              0        258     >REPORT, CODING                         JUMP IF A != 0
          25822    94      258     20   0  1              2        258                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          25823    76      258     41   0  0              0        258                                             JUMP unconditional
    25821>25824    10               0   0  0             73                                                        SELECT LITERAL
          25825    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25826    124     319     22   0  1              0        319                                             modify address of next
          25827    124     305     10   0  1              0        305                                             modify address of next
          25828    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25829            27       1   0  0              0                                                        SELECT
          25830    70      258     33   0  0              0        258     >1 RECORD/BLOCK                         JUMP IF A == 0
          25831    34               4   1  8              0                LINE SERIAL                             SET (N) IN B
          25832    76      258     34   0  0              0        258                                             JUMP unconditional
    25830>25833    34      7        6   1  0              0                LINE SERIAL                             SET (N) IN B
    25832>25834    80      259      2   0  0              0        259     STORE REPORT                            ENTER SUBROUTINE
          25835    10               0   0  0           1:5:                                                        SELECT LITERAL
          25836    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25837    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25838    124     319     22   0  1              0        319                                             modify address of next
          25839    124     305     10   0  1              0        305                                             modify address of next
          25840    37      29       0   1  0              0                                                        REPLACE SELECTED BITS
    25853>                                                                                                         
    25823>25841    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25842    80      294      2   0  0              0        294     FIND AMENDMENT DIRECTIVE                ENTER SUBROUTINE
          25843    71      251      4   0  0              0        251     >NEW DIRECTIVE OR END SIGN              JUMP IF A != 0
          25844            9       50   2  0              0                PASS 0' IND                             SELECT
          25845    70      258     48   0  0              0        258     >MOD OK                                 JUMP IF A == 0
    25803>25846    10               0   0  0             73                                                        SELECT LITERAL
          25847    76      255     36   0  0              0        255     >REPORT, READ TO NEXT AMEND DIRECTIVE   JUMP unconditional
    25845>25848    80      293      2   0  0              0        293     >TEST STACK DIRECTIVE                   ENTER SUBROUTINE
          25849    10               0   0  0              1                                                        SELECT LITERAL
          25850    5       12      33   0  0              0                SET 'PT IS INPUT'                       TRANSFER
          25851    80      283      2   0  0              0        283     >UNPACK                                 ENTER SUBROUTINE
          25852    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25853    76      258     41   0  0              0        258                                             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     319     22   0  1              0        319                                             modify address of next
          25904    124     305      2   0  1              0        305                                             modify address of next
          25905            29      15   0  0              0                LAST 2.5 CHARS ANNOTATION               SELECT
          25906    2       319     27   0  0              0        319                                             SUBTRACT
          25907    70      259     14   0  0              0        259     >LINE IGNORED       DON'T OVERWRITE WORDJUMP 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     319     22   0  1              0        319                                             modify address of next
  Source image: P1000199.JPG
          25911    124     305      2   0  1              0        305     LAST FIVE CHARS ANNOTATION              modify address of next
          25912    5       29      14   1  0              0                                                        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     319     22   0  1              0        319                                             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
    19113>26002    5       12      69   0  0              0                                                        TRANSFER
          26003    5       12      66   1  0              0                CLEAR INDICATORS                        TRANSFER
          26004    5       12      70   0  0              0                                                        TRANSFER
          26005    84      695      2   0  0              0        695     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
          26109            12      70   0  0              0                                                        SELECT
          26110    71      261      2   0  0              0        261     >NO, DONT 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
  Source image: P1000200.JPG
          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    5       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      695      2   0  0              1        695     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     >IGNORE UNDIRECTED CONST                SET SWITCH(ES) AT LITERAL VALUE
          26220    80      263     10   0  0              0        263     >CLEAR OUT ALL DETAILS                  ENTER SUBROUTINE
    26218>                                                                                                         
    26216>                                                                                                         
    26204>26221            12      88   0  0              0                                                        SELECT
          26222    76      263     10   0  0              0        263     CHECK                                   JUMP unconditional
    26207>26223    80      263     10   0  0              0        263     >CLEAR OUT ALL DETAILS                  ENTER SUBROUTINE
          26224    76      263     20   0  0              0        263     >SET SWITCH AT 2                        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                CLEAR DETAILS                           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' DIRECTIV E LETTER      
          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
          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
  Source image: P1000201.JPG
          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      695      2   0  0              0        695     WL=LOCN OF SECOND 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      695      2   0  0              0        695     WL=LOCN OF SECOND CHAR                  SET SWITCH(ES) AT VARIABLE VALUE
          26355    10               0   0  0              1                RANDO                                   SELECT LITERAL
    26349>26356    11               0   0  0              1                P                                       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 NEXT 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>                                                                                                         
    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>                                                                                                         
  Source image: P1000202.JPG
    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                                             JUMP IF A == 0
          26423    12               0   0  0              1                                                        SUBTRACT LITERAL
          26424    70      264      8   0  0              0        264                                             JUMP IF A == 0
          26425    76      264     14   0  0              0        264     >REPORT                                 JUMP unconditional
    26407>26426            12      88   0  0              0                CHAR 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                ASSEMBLE 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                                                        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                                                        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
          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                COMMAS X2                               SELECT
          26509    70      265     14   0  0              0        265                                             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                                             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
  Source image: P1000203.JPG
    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      695      2   0  0              0        695                                             SELECT SWITCH R
          26523    70      265     47   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     47   0  0              0        265     >SECTION                                JUMP IF A < 0
          26528    12               0   0  0            899                                                        SUBTRACT LITERAL
          26529    72      265     47   0  0              0        265     >EX RANGE                               JUMP IF A >= 0
          26530    0       12      67   0  0              0                                                        SELECT
          26531    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          26532    C       202      2   0  0              0        202                                             
          26533            12     119   0  0              0                                                        SELECT
          26534    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26535    32               0   0  0              2-               REPLACE 3-DIGIT NUMBER                  SHIFT (AB) BY QUARTETS
          26536    5       94       1-  0  1              0                (FIRST DIGIT ALWAYS ZERO)               TRANSFER
          26537    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26538    71      265     40   0  0              0        265                                             JUMP IF A != 0
          26539    10               0   0  0             30                                                        SELECT LITERAL
    26538>26540    5       94       0   0  1              0                                                        TRANSFER
          26541    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26542    71      265     44   0  0              0        265                                             JUMP IF A != 0
          26543    10               0   0  0             30                                                        SELECT LITERAL
    26542>26544    5       94       1   0  1              0                                                        TRANSFER
          26545    54      1        6   0  0             18                                                        BULK CLEAR
          26546    76      265     83   0  0              0        265     >ASSEMBLE                               JUMP unconditional
    26529>                                                                                                         
    26527>                                                                                                         
    26523>26547    0       12      33   0  0              0                                                        SELECT
          26548    70      266     17   0  0              0        266     >MT                                     JUMP IF A == 0
          26549    54      1        6   0  0             18                CLEAR 1/6'-1.22'=EDIT AREA              BULK CLEAR
          26550    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          26551    C       265     83   0  0              0        265     >PT                                     
          26552    C       265     53   0  0              0        265     >CARDS                                  
    26552>26553            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26554    12               0   0  0              4                                                        SUBTRACT LITERAL
          26555    72      265     72   0  0              0        265     >MIXED CONSTANT                         JUMP IF A >= 0
          26556    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26557    12               0   0  0              1                                                        SUBTRACT LITERAL
          26558    71      265     72   0  0              0        265     >NOT ALPHA                              JUMP IF A != 0
          26559            94       0   0  0              0                FIRST CHAR                              SELECT
          26560    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26561    70      265     63   0  0              0        265     >'('                                    JUMP IF A == 0
          26562    10               0   0  0              3-                                                       SELECT LITERAL
    26561>26563    11               0   0  0              3                                                        ADD LITERAL
          26564    17      12      90   0  0              3                LONG/SHORT CTR                          MULTIPLY LITERAL and ADD
          26565    11               0   0  0        1.00002                END VLAUE 30                            ADD LITERAL
          26566    3       12      70   0  0              0                NEW CONSTANT LENGTH                     COPY
          26567    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26568    10               0   0  0             7:                                                        SELECT LITERAL
    26570>26569    5       94       0   0  1              0                                                        TRANSFER
          26570    94      265     69   0  1              1        265     >CLEAR REST OF CONSTANT                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26571    76      265     83   0  0              0        265                                             JUMP unconditional
    26558>                                                                                                         
    26555>26572    90               0   0  1             28                                                        SET MODIFICATION REGISTER AT LITERAL
          26573    C                0   0  0              0                                                        
    26576>26574            94       0   0  1              0                                                        SELECT
  Source image: P1000204.JPG
          26575    71      265     77   0  0              0        265     >FIRST NON ZERO CHAR FROM END           JUMP IF A != 0
          26576    94      265     74   0  1              1-       265                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26575>26577    10               0   0  0             7:                                                        SELECT LITERAL
          26578    5       94       1   0  1              0                SET CONST END                           TRANSFER
          26579    5       94      29   0  0              0                CLEAR OLD END                           TRANSFER
          26580    96               0   0  1              0                                                        SELECT MODIFIER
          26581    11               0   0  0              1                                                        ADD LITERAL
          26582    5       12      70   0  0              0                NEW NUMBERS OF CHARS                    TRANSFER
    26616>                                                                                                         
    26571>                                                                                                         
    26551>                                                                                                         
    26546>26583            94       0   0  2              0                                                        SELECT
                                                                                                                   
          26600    PROCR   266       266                                                                           
          26601     NOTES          RADIX          STORE OLD - NEW RADIX                                            SELECT
          26602    30               0   0  0              2                CTR OF CONVERT TABLES TO DATE           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     83   0  0              0        265     > CYCLE FOR MULTIPLE OF 5               JUMP IF A < 0
    26548>26617            1       42   1  0              0                                                        SELECT
          26618    2       319     26   1  0              0        319                                             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      247      2   0  0              0        247                                             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      247      2   0  0              0        247     > CONST IS MIXED OR CONTAINS            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Ю                P ‼  ‼  ½‼   I ½  ‼ Ю        ‼    Ю‼    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‼                P ‼  ‼  ½‼   I ½  ‼ Ю        ‼    Ю‼    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                                                      
          26701     NOTES  267                                                                                     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     28   0  0              0        267     > REPORT R                              JUMP IF A >= 0
  Source image: P1000205.JPG
          26711    11               0   0  0            £67                1000 - 99 BIN RADIX                     ADD LITERAL
          26712    72      267     30   0  0              0        267     >REF IS A PROCR                         JUMP IF A >= 0
          26713            12      67   0  0              0                SECTION IN DEC                          SELECT
          26714    70      247      2   0  0              0        247     >ABS ADDRESS, NO CHECKS                 JUMP IF A == 0
          26715    80      183      2   0  0              0        183     >DECODE                                 ENTER SUBROUTINE
          26716    34      12      40   0  0              0                                                        SET (N) IN B
          26717    36      12      72   0  3              0                                                        COLLATE AND ADD
          26718    70      267     28   0  0              0        267     > SECTION NON-EXISTEREPORT R            JUMP IF A == 0
          26719    10               0   0  0              0                                                        SELECT LITERAL
          26720    33               0   0  0             10                SHIFT COLLATOR                          SHIFT (AB) BY BITS
          26721    36      12      72   0  3              0                                                        COLLATE AND ADD
          26722    71      267     28   0  0              0        267     > SECTION IS TX AREAREPORT R            JUMP IF A != 0
          26723            12      66   0  0              0                ITEM                                    SELECT
          26724    12               0   0  0           8191                                                        SUBTRACT LITERAL
          26725    73      247      2   0  0              0        247     > OK                                    JUMP IF A < 0
    26732>26726    80      196      2   0  0              0        196     > REPORT                                ENTER SUBROUTINE
          26727    76      247      2   0  0              0        247                                             JUMP unconditional
    26722>                                                                                                         
    26718>                                                                                                         
    26710>26728    80      195      2   0  0              0        195     > REPORT R                              ENTER SUBROUTINE
          26729    76      247      2   0  0              0        247                                             JUMP unconditional
    26712>26730            12      66   0  0              0                ITEM                                    SELECT
          26731    12               0   0  0             99                                                        SUBTRACT LITERAL
          26732    72      267     26   0  0              0        267     > REPORT 1                              JUMP IF A >= 0
          26733    76      247      2   0  0              0        247     > OK                                    JUMP unconditional
                                                                                                                   
          26800    PROCR   268       268     CHECK ALPHA CONSTANTS                                                 
          26801     NOTES  268                                                                                     SELECT
    26703>26802    0       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      247      2   0  0              0        247     > 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    0       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 BEFOR 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
  Source image: P1000206.JPG
          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 CHARACTER                         TRANSFER
          27011    0       12      66   1  0              0                                                        SELECT
          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    0       12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27103    71      247      2   0  0              0        247                                             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      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          27200    PROCR   272       272     BINARY PATTERN                                                        
          27201     NOTES          RADIX                                                                           SELECT
    26706>27202    0       12      90   0  0              0                LONG/SHORT CONSTANT 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      247      2   0  0              0        247                                             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 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
  Source image: P1000207.JPG
          27506    5       208      2   0  0              0        208                                             TRANSFER
          27507    76      208     10   0  0              0        208     >ENTER                                  JUMP unconditional
                                                                                                                   
          27600    PROCR   276       276                                                                           
          27601     NOTES          RADIX                                                                           SELECT
    19112>27602    5       12       3   0  0              0                CLEAR ERROR WL                          TRANSFER
          27603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          27604    C                0   0  0              8                                                        
    27618>27605    0       1       22   0  2              0                ITEM                                    SELECT
          27606    5       1       10   0  0              0                                                        TRANSFER
          27607    0       1       20   1  2              0                REF (NUM)                               SELECT
          27608    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          27609    0       1       10   0  0              0                NEW ITEM                                SELECT
          27610    5       1       22   0  2              0                                                        TRANSFER
          27611    0       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     18   0  0              0        276                                             JUMP IF A == 0
          27616            1       10   0  0              0                                                        SELECT
          27617    80      192      2   0  0              0        192     >CHECK ITEM IS EVEN                     ENTER SUBROUTINE
    27615>27618    94      276      5   0  2              4        276                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27619    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      108      2   0  0              1        108                                             SET SWITCH(ES) AT LITERAL VALUE
          27704            12       4   0  0              0                REF TO BE CHECKED                       SELECT
          27705    12               0   0  0            100                                                        SUBTRACT LITERAL
          27706    72      277     27   0  0              0        277     >NOT SECTION                            JUMP IF A >= 0
          27707    0       12       4   0  0              0                                                        SELECT
          27708    73      277     23   0  0              0        277                                             JUMP IF A < 0
          27709    70      277     18   0  0              0        277                                             JUMP IF A == 0
          27710    80      183      2   0  0              0        183     >DECODE SR                              ENTER SUBROUTINE
          27711    34      12      40   0  0              0                                                        SET (N) IN B
          27712    36      12      72   0  3              0                                                        COLLATE AND ADD
          27713    70      277     23   0  0              0        277     >IGNORE, SECTION NONEXISTENT            JUMP IF A == 0
          27714    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          27715    10               0   0  0              0                                                        SELECT LITERAL
          27716    36      12      72   0  3              0                                                        COLLATE AND ADD
          27717    71      277     23   0  0              0        277     >IGNORE, SECTION IS TX AREA             JUMP IF A != 0
    27709>27718    0       1       10   0  0              0                                                        SELECT
          27719    12               0   0  0           8192                                                        SUBTRACT LITERAL
          27720    73      277     29   0  0              0        277                                             JUMP IF A < 0
          27721    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          27722    76      277     24   0  0              0        277                                             JUMP unconditional
    27728>                                                                                                         
    27717>                                                                                                         
    27713>                                                                                                         
    27708>27723    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
    27722>27724    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          27725    83      108      2   0  0              2        108     IGNORE ANY MORE 'VALTHIS REF FOR        SET SWITCH(ES) AT LITERAL VALUE
          27726    76      277     29   0  0              0        277                                             JUMP unconditional
    27706>27727    12               0   0  0            900                                                        SUBTRACT LITERAL
          27728    72      277     23   0  0              0        277     >REF>999, IGNORE                        JUMP IF A >= 0
    27726>                                                                                                         
    27720>27729    82      277      2   0  0              0        277                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27800    PROCR   278       278     TABLE SWITCH                                                          
  Source image: P1000208.JPG
          27801     NOTES          RADIX                                                                           SELECT
    27619>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     23   0  0              0        281     >TYPE 4                                 
          27813    C       247      2   0  0              0        247                                             
                                                                                                                   
          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
          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                SECON 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     >INCONSISTENT 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
          27927            1       12   0  0              0                CHARS                                   SELECT
          27928    2       1       15   0  0              0                ZEROS                                   SUBTRACT
          27929    73      282      8   0  0              0        282     >ZEROS>NO CHARS 'T10'                   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 SPCES                         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 INDICATOR                      SELECT
          28013    71      280     17   0  0              0        280                                             JUMP IF A != 0
  Source image: P1000209.JPG
          28014    2       12      63   0  0              0                STERLING CTR                            SUBTRACT
          28015    70      280     24   0  0              0        280                                             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                        SELECT
          28025    3       12       6   0  0              0                COPY TO WL                              COPY
          28026    70      247      2   0  0              0        247                                             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 STR AT EACH LTE                   TRANSFER
          28036    2       12      63   0  0              0                STERLING INDICATORS NOT                 SUBTRACT
          28037    70      247      2   0  0              0        247     OCCURRED IN 3 CONSECUTIVE LINES         JUMP IF A == 0
    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
    27810>28102            1       24   0  0              0                2ND REF                                 SELECT
          28103    70      281     23   0  0              0        281     >IS ZERO                                JUMP IF A == 0
          28104    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          28105    71      281     13   0  0              0        281     >3 DIG REF                              JUMP IF A != 0
          28106            1       20   0  0              0                                                        SELECT
          28107    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          28108    71      282     22   0  0              0        282     >3 DIG + 2 DIG 'T3'                     JUMP IF A != 0
          28109    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          28110    2       1       24   0  0              0                2ND REF                                 SUBTRACT
          28111    71      282     22   0  0              0        282     >2 DIG REF                              JUMP IF A != 0
          28112    76      281     20   0  0              0        281     >CHECK ITEMS                            JUMP unconditional
    28105>28113            1       20   0  0              0                1ST REF                                 SELECT
          28114    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          28115    70      282     22   0  0              0        282     >2 DIG + 3 DIG RED (3 DIG) 'T3'         JUMP IF A == 0
          28116            1       24   0  0              0                2ND REF                                 SELECT
          28117    2       1       20   0  0              0                1ST REF                                 SUBTRACT
          28118    73      282     22   0  0              0        282     >2ND REF <1ST REF (3 DIG) 'T3'          JUMP IF A < 0
          28119    71      281     23   0  0              0        281                                             JUMP IF A != 0
    28112>28120            1       26   0  0              0                2ND ITEM                                SELECT
          28121    2       1       22   0  0              0                FIRST ITEM                              SUBTRACT
          28122    73      282     20   0  0              0        282     >2ND <1ST 'T4'                          JUMP IF A < 0
    28119>                                                                                                         
    28103>                                                                                                         
    27812>28123            1       11   0  0              0                'SINGLE/BE'                             SELECT
          28124    70      281     29   0  0              0        281                                             JUMP IF A == 0
          28125    12               0   0  0              1                                                        SUBTRACT LITERAL
          28126    71      282     16   0  0              0        282                                             JUMP IF A != 0
          28127            1       18   0  0              0                LAST TABLE ENTRY'                       SELECT
          28128    70      282      2   0  0              0        282                                             JUMP IF A == 0
    28124>28129            1       12   0  0              0                NO OF CHARS                             SELECT
          28130    71      282     14   0  0              0        282                                             JUMP IF A != 0
  Source image: P1000210.JPG
          28131            1       13   0  0              0                DISCARDS                                SELECT
          28132    71      282     12   0  0              0        282                                             JUMP IF A != 0
          28133            1       14   0  0              0                SPACES                                  SELECT
          28134    71      282     10   0  0              0        282                                             JUMP IF A != 0
          28135            1       15   0  0              0                ZEROS                                   SELECT
          28136    71      282      8   0  0              0        282                                             JUMP IF A != 0
          28137            1       16   0  0              0                SIGN                                    SELECT
          28138    70      281     41   0  0              0        281                                             JUMP IF A == 0
          28139    12               0   0  0              2                                                        SUBTRACT LITERAL
          28140    71      282      6   0  0              0        282                                             JUMP IF A != 0
    28138>28141            1       17   0  0              0                STERLING IND                            SELECT
          28142    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28143    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          28200    PROCR   282       282     MAKE REPORT 'T*'                                                      
          28201     NOTES          RADIX                                                                           SELECT
    28128>                                                                                                         
    28028>28202    10               0   0  0              1                                                        SELECT LITERAL
          28203    5       12       3   0  0              0                                                        TRANSFER
    28142>                                                                                                         
    28039>                                                                                                         
    28018>28204    10               0   0  0              1                                                        SELECT LITERAL
          28205    4       12       3   0  0              0                                                        AUGMENT
    28140>28206    10               0   0  0              1                                                        SELECT LITERAL
          28207    4       12       3   0  0              0                                                        AUGMENT
    28136>                                                                                                         
    28011>                                                                                                         
    27929>                                                                                                         
    27926>28208    10               0   0  0              1                                                        SELECT LITERAL
          28209    4       12       3   0  0              0                                                        AUGMENT
    28134>                                                                                                         
    28004>28210    10               0   0  0              1                                                        SELECT LITERAL
          28211    4       12       3   0  0              0                                                        AUGMENT
    28132>28212    10               0   0  0              1                                                        SELECT LITERAL
          28213    4       12       3   0  0              0                                                        AUGMENT
    28130>                                                                                                         
    28006>                                                                                                         
    27922>28214    10               0   0  0              1                                                        SELECT LITERAL
          28215    4       12       3   0  0              0                                                        AUGMENT
    28126>                                                                                                         
    27914>28216    10               0   0  0              1                                                        SELECT LITERAL
          28217    4       12       3   0  0              0                                                        AUGMENT
    27805>                                                                                                         
    27803>28218    10               0   0  0              1                                                        SELECT LITERAL
          28219    4       12       3   0  0              0                                                        AUGMENT
    28122>28220    10               0   0  0              1                                                        SELECT LITERAL
          28221    4       12       3   0  0              0                                                        AUGMENT
    28118>                                                                                                         
    28115>                                                                                                         
    28111>                                                                                                         
    28108>                                                                                                         
    27912>28222    10               0   0  0              2                                                        SELECT LITERAL
          28223    4       12       3   0  0              0                                                        AUGMENT
    27807>28224    10               0   0  0              1                                                        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                                             
    20521>28229    10               0   0  0         730000                                                        SELECT LITERAL
          28230    4       1       44   1  0              0                                                        AUGMENT
  Source image: P1000211.JPG
          28231    76      247      2   0  0              0        247                                             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                                             
          28308    C       283     31   0  0              0        283     CARDS                                   
    28307>28309    0       92      30   0  0              0                AMEND RUN?                              SELECT
          28310    70      283     13   0  0              0        283                                             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      326      2   0  0              0        326     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    0       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    5       1        8   1  0              0                & MUST BE UNPACKED DIFFERENTLY          TRANSFER
          28322    0       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      326      2   0  0              0        326     UNPACK CORRECTLY                        ENTER SUBROUTINE
    28339>                                                                                                         
    28342>                                                                                                         
    28506>                                                                                                         
    28612>                                                                                                         
    28638>                                                                                                         
    28649>                                                                                                         
    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    0       1        8   1  0              0                                                        SELECT
          28336    30               0   0  0              4                LEFT ALIGN SECTION NO                   SHIFT (A) BY QUARTETS
          28337    5       1        8   1  0              0                                                        TRANSFER
          28338    0       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
          28342    71      283     28   0  0              0        283     >NOT 'PROCR'        LEAVE SR            JUMP IF A != 0
          28343    0       1       18   1  0              0                S/DIR WAS ''NOTES'' OF PROCR            SELECT
          28344    5       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
  Source image: P1000212.JPG
          28402    81      284      2   0  0              0        284                                             START OF SUBROUTINE
          28403    54      1        6   1  0             40                                                        BULK CLEAR
    25705>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                                                                           
          28501     NOTES          RADIX                                                                           SELECT
    28305>28502    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28503    C       286      2   0  0              0        286     >'PROCR'                                
          28504    C       286      9   0  0              0        286     >'TABLE'                                
          28505    C       286     14   0  0              0        286     >'CONST'                                
          28506    C       283     28   0  0              0        283     VALUE' (DUMMY)                          
                                                                                                                   
          28600    PROCR   286       286                                                                           
          28601     NOTES          RADIX                                                                           SELECT
    28503>28602    124     312      2   0  2              0        312                                             select literal and division
  Source image: P1000213.JPG
          28603    80      326      2   0  0              0        326     >INSTRUCTIONS                           ENTER SUBROUTINE
          28604    10               0   0  0              0                                                        SELECT LITERAL
          28605    5       1       20   1  0              0                CLEAR 'CLEO' WORD                       TRANSFER
          28606    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28607    C       286     38   0  0              0        286     P/T INSTRUCTIONS                        
          28608    C       286     19   0  0              0        286     CARD INSTRUCTIONS                       
    28504>28609    124     313      2   0  2              0        313                                             select literal and division
          28610    80      326      2   0  0              0        326     >TABLE ENTRIES                          ENTER SUBROUTINE
          28611    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28612    C       283     28   0  0              0        283                                             
          28613    C       286     35   0  0              0        286     TABLE ENTRY FROM CARD                   
    28505>28614    124     314      2   0  2              0        314                                             select literal and division
          28615    80      326      2   0  0              0        326     >CONSTANTS                              ENTER SUBROUTINE
          28616    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28617    C       286     47   0  0              0        286     P/T CONST                               
          28618    C       286     39   0  0              0        286     CARD CONST                              
    28608>28619    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          28620            1        8   1  0              0                REF ALPHA E-ALIGNED                     SELECT
          28621    32               0   0  0              4-               TEST TOP CHAR                           SHIFT (AB) BY QUARTETS
          28622    12               0   0  0             10                                                        SUBTRACT LITERAL
          28623    70      286     26   0  0              0        286     >'Ю' FIRST WAY                          JUMP IF A == 0
          28624    12               0   0  0             3Ю                                                        SUBTRACT LITERAL
          28625    71      286     27   0  0              0        286     >NOT 'Ю' OTHER WAY                      JUMP IF A != 0
    28623>28626    10               0   0  0           40.6                                                        SELECT LITERAL
    28625>28627    11               0   0  0             4Ю                                                        ADD LITERAL
          28628    60               0   0  0              0                                                        SET DECIMAL RADIX
          28629    32               0   0  0              6-               R-ALIGN IN B                            SHIFT (AB) BY QUARTETS
          28630    80      300      2   0  0              0        300     LEFT ALIGN                              ENTER SUBROUTINE
          28631    5       1        8   1  0              0                REF ALPHA E-ALIGNED                     TRANSFER
          28632    34      1        6   1  0              0                                                        SET (N) IN B
          28633    80      300      2   0  0              0        300     LEFT ALIGN                              ENTER SUBROUTINE
          28634    5       1        6   1  0              0                ACTION                                  TRANSFER
    28613>28635            9        4   1  0              0                LINE SERIAL                             SELECT
          28636    5       1        2   1  0              0                                                        TRANSFER
          28637    80      298      2   0  0              0        298     >UNPACK ANNOTATION                      ENTER SUBROUTINE
    28607>28638    76      283     28   0  0              0        283                                             JUMP unconditional
    28618>28639            9        4   1  0              0                LINE SERIAL                             SELECT
          28640    5       1        2   1  0              0                                                        TRANSFER
          28641    80      298      2   0  0              0        298     >UNPACK ANNOTATION                      ENTER SUBROUTINE
          28642    10               0   0  0             7:                                                        SELECT LITERAL
          28643    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          28644    32               0   0  0              8                                                        SHIFT (AB) BY QUARTETS
          28645    37      9       18   1  0              0                IN 36-TH CHAR POSN                      REPLACE SELECTED BITS
          28646    37      9        6   1  0              0                IN 6-TH CHAR POSN                       REPLACE SELECTED BITS
    28617>28647    50      9        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28648    C       310      8   0  0              0        310                                             
          28649    76      283     28   0  0              0        283                                             JUMP unconditional
                                                                                                                   
          28700    PROCR   287       287     TEST WORD IN ACCUMULATOR                                              
          28701     NOTES          RADIX          IS A STACKING DIRECTIVE                                          SELECT
          28702    81      287      2   0  0              0        287                                             START OF SUBROUTINE
          28703    2       319      4   1  0              0        319     '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       319      4   1  0              0        319                                             ADD
          28707    2       319     12   1  0              0        319     'NOTES'                                 SUBTRACT
          28708    71      287     14   0  0              0        287                                             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
  Source image: P1000214.JPG
          28712    10               0   0  0             10                SET (12/38)>0                           SELECT LITERAL
          28713    76      287     33   0  0              0        287                                             JUMP unconditional
    28708>28714    1       319     12   1  0              0        319     'NOTES'                                 ADD
          28715    2       319      6   1  0              0        319     '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    1       319      6   1  0              0        319     'PROCR'                                 ADD
          28719    2       319      2   1  0              0        319     '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    1       319      2   1  0              0        319     'TABLE'                                 ADD
          28723    2       319     28   1  0              0        319     '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     >PT IN, 'VALUE' ISNT A DIRECTIVE        JUMP IF A != 0
          28727    10               0   0  0              1                                                        SELECT LITERAL
    28705>28728    11               0   0  0              1                (CONST)                                 ADD LITERAL
    28720>28729    11               0   0  0              1                (TABLE)                                 ADD LITERAL
    28716>28730    11               0   0  0              1                (PROCR)                                 ADD LITERAL
          28731    5       27       5   0  0              0                                                        TRANSFER
          28732    12               0   0  0             10                                                        SUBTRACT LITERAL
    28713>28733    5       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>                                                                                                         
    28704>28735    10               0   0  0              0                                                        SELECT LITERAL
          28736    5       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                                                        SELECT
          28804    70      288     11   0  0              0        288                                             JUMP IF A == 0
          28805            12     111   0  0              0                CARD SER ERROR                          SELECT
          28806    70      288     10   0  0              0        288     >NO ERROR                               JUMP IF A == 0
          28807    124     319     22   0  1              0        319                                             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                                                        
    28817>28813            29       2-  1  1              0                LAST WORD                               SELECT
          28814    70      288     17   0  0              0        288                                             JUMP IF A == 0
          28815    2       319     10   1  0              0        319                                             SUBTRACT
          28816    71      288     18   0  0              0        288                                             JUMP IF A != 0
    28814>28817    94      288     13   0  1              2-       288                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    28816>28818    96               0   0  1              0                CONTENTS OF MODIFIER                    SELECT MODIFIER
          28819    3       29       0   2  0              0                REC LENGTH                              COPY
          28820    10               0   0  0             90                TOTAL ROOM SEC 8                        SELECT LITERAL
          28821    2       318     12   0  0              0        318                                             SUBTRACT
          28822    2       29       0   2  0              0                CURRENT RECORD LENGTH                   SUBTRACT
          28823    72      288     32   0  0              0        288     >+VE OR ZERO                            JUMP IF A >= 0
    32505>28824            318     12   0  0              0        318                                             SELECT
          28825    3       8        4   2  0              0                BLOCK LENGTH                            COPY
          28826    91      318     12   0  1              0        318                                             SET MODIFICATION REGISTER AT VARIABLE
          28827            319     10   1  0              0        319     BE WORD                                 SELECT
  Source image: P1000215.JPG
          28828    5       8        6   1  1              0                                                        TRANSFER
          28829    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          28830    54      8        4   1  0             46                                                        BULK CLEAR
          28831    5       318     12   0  0              0        318                                             TRANSFER
    28823>28832    10               0   0  0              6                                                        SELECT LITERAL
          28833    5       12       2   0  0              0                                                        TRANSFER
          28834    91      318     12   0  1              0        318                                             SET MODIFICATION REGISTER AT VARIABLE
          28835    55      29       0   1  0              0                COPY TO SEC 8                           BULK COPY
          28836    C       8        6   1  1              0                                                        
          28837    C       29       0   2  0              0                                                        
          28838            29       0   2  0              0                                                        SELECT
          28839    4       318     12   0  0              0        318     STEP QTTY IN BLOCK TO DATE              AUGMENT
          28840    54      29       0   1  0             44                CLEAR SEC 29                            BULK CLEAR
          28841    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       319     10   1  0              0        319                                             SELECT
          28904    5       8       50   1  0              0                                                        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
                                                                                                                   
          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
    29224>                                                                                                         
    29233>29203    80      301      2   0  0              0        301     >READ A6                                ENTER SUBROUTINE
          29204    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29205    C       292     13   0  0              0        292                                             
          29206    C       292      7   0  0              0        292     CARDS-CHECK CARD SER                    
    29206>29207            9       34   2  0              0                                                        SELECT
          29208    2       12     111   0  0              0                PREVIOUS SER                            SUBTRACT
          29209    4       12     111   0  0              0                STORE THIS SER                          AUGMENT
          29210    12               0   0  0              1                                                        SUBTRACT LITERAL
          29211    5       12     110   0  0              0                STORE ANY ERROR                         TRANSFER
          29212    5       9       34   1  0              0                                                        TRANSFER
    29205>29213            9        4   1  0              0                                                        SELECT
          29214    2       319     24   1  0              0        319     'SHEET'                                 SUBTRACT
          29215    71      292     34   0  0              0        292                                             JUMP IF A != 0
          29216    124     306      8   0  2              0        306                                             select literal and division
          29217    80      326      2   0  0              0        326     UNPACK                                  ENTER SUBROUTINE
          29218    34      12      88   1  0              0                SHEET NO                                SET (N) IN B
          29219    80      321      2   0  0              0        321                                             ENTER SUBROUTINE
          29220    0       12      88   2  0              0                                                        SELECT
          29221    2       12      92   0  0              0                PREVIOUS SER                            SUBTRACT
          29222    4       12      92   0  0              0                REPLACE BY CURRENT                      AUGMENT
          29223    12               0   0  0              1                CHECK SEQUENCE                          SUBTRACT LITERAL
  Source image: P1000216.JPG
          29224    70      292      3   0  0              0        292     >CORRECT                                JUMP IF A == 0
          29225    0       319     24   1  0              0        319     'SHEET''                                SELECT
          29226    124     319     22   0  1              0        319                                             modify address of next
          29227    124     305      2   0  1              0        305                                             modify address of next
          29228    5       29      14   1  0              0                                                        TRANSFER
          29229    0       12      88   1  0              0                WRONG NUMBER                            SELECT
          29230    124     319     22   0  1              0        319                                             modify address of next
          29231    124     305     10   0  1              0        305                                             modify address of next
          29232    5       29       0   1  0              0                                                        TRANSFER
          29233    76      292      3   0  0              0        292                                             JUMP unconditional
    29215>29234            9        4   1  0              0                                                        SELECT
          29235    2       319     46   1  0              0        319     'TRAMD'                                 SUBTRACT
          29236    70      292     49   0  0              0        292     >DON'T INSERT BE                        JUMP IF A == 0
          29237    34      9       48   2  0              0                                                        SET (N) IN B
          29238    10               0   0  0              0                                                        SELECT LITERAL
          29239    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          29240    5       320     42   1  0              0        320     WORD CTR                                TRANSFER
          29241    91      320     42   0  1              0        320                                             SET MODIFICATION REGISTER AT VARIABLE
          29242    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          29243    5       288      2   0  0              0        288     COL POSN+WL                             TRANSFER
          29244    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          29245    10               0   0  0             7.                                                        SELECT LITERAL
          29246    124     288      2   0  1              0        288                                             modify address of next
          29247    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          29248    37      9        0   1  1              0                                                        REPLACE SELECTED BITS
    29236>29249    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    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29305    C       293     13   0  0              0        293                                             
          29306    C       293      7   0  0              0        293     CARDS                                   
    29306>29307    50      9        8   0  0              0                                                        UNPACK FIXED FIELD DATA
          29308    C       311      4   0  0              0        311                                             
          29309    0       1        8   1  0              0                                                        SELECT
          29310    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          29311    5       1        8   1  0              0                L-ALIGN PROCR NUMBER                    TRANSFER
          29312    76      293     15   0  0              0        293                                             JUMP unconditional
    29305>29313    124     311      2   0  2              0        311                                             select literal and division
          29314    80      326      2   0  0              0        326                                             ENTER SUBROUTINE
    29312>29315            1        6   1  0              0                                                        SELECT
          29316    80      287      2   0  0              0        287     >TEST DIRECTIVE                         ENTER SUBROUTINE
          29317    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       319     14   1  0              0        319     'END  '                                 SUBTRACT
          29407    70      294     11   0  0              0        294                                             JUMP IF A == 0
          29408            9        4   1  0              0                                                        SELECT
          29409    2       319     46   1  0              0        319     '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     39   0  0              0        294                                             JUMP unconditional
    29410>29413    10               0   0  0              0                CLEAR LOCATION TO WHICH                 SELECT LITERAL
  Source image: P1000217.JPG
          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      326      2   0  0              0        326     >UNPACK AMEND LETTER                    ENTER SUBROUTINE
          29417    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29418    C       294     22   0  0              0        294     P/T                                     
          29419    C       294     20   0  0              0        294     CARDS                                   
    29419>29420    34      1        6   1  0              0                                                        SET (N) IN B
          29421    76      294     23   0  0              0        294                                             JUMP unconditional
    29418>29422    34      1        4   1  0              0                                                        SET (N) IN B
    29421>29423    10               0   0  0              0                                                        SELECT LITERAL
          29424    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          29425    12               0   0  0             69                                                        SUBTRACT LITERAL
          29426    70      294     36   0  0              0        294                                             JUMP IF A == 0
          29427    11               0   0  0             15                                                        ADD LITERAL
          29428    70      294     35   0  0              0        294                                             JUMP IF A == 0
          29429    12               0   0  0             19                                                        SUBTRACT LITERAL
          29430    70      294     34   0  0              0        294                                             JUMP IF A == 0
          29431    11               0   0  0             22                                                        ADD LITERAL
          29432    71      294     41   0  0              0        294                                             JUMP IF A != 0
          29433    10               0   0  0              1                                                        SELECT LITERAL
    29430>29434    11               0   0  0              1                                                        ADD LITERAL
    29428>29435    11               0   0  0              1                                                        ADD LITERAL
    29426>29436    11               0   0  0              1                                                        ADD LITERAL
          29437    84      252      2   0  0              0        252                                             SET SWITCH(ES) AT VARIABLE VALUE
          29438    10               0   0  0              1                                                        SELECT LITERAL
    29442>                                                                                                         
    29412>29439    3       12      44   1  0              0                                                        COPY
          29440    82      294      2   0  0              0        294                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    29432>29441    10               0   0  0              0                                                        SELECT LITERAL
          29442    76      294     39   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            319     26   1  0              0        319     IGNORE INDICATOR                        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            319     26   1  0              0        319                                             SELECT
          29604    124     319     22   0  1              0        319                                             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    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29705    C       297      8   0  0              0        297     P/T                                     
          29706    C       297      7   0  0              0        297     CARDS                                   
    29706>29707    80      298      2   0  0              0        298     BULK COPY WORDS-THUS SETTING (A)=0      ENTER SUBROUTINE
    29705>29708    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
  Source image: P1000218.JPG
          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    0       7       10   1  0              0                                                        SELECT
    29906>29908    2       319     14   1  0              0        319                                             SUBTRACT
          29909    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29910    1       319     14   1  0              0        319                                             ADD
          29911    2       319     16   1  0              0        319      'DUMPS'                                SUBTRACT
          29912    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29913    1       319     16   1  0              0        319                                             ADD
          29914    2       319     18   1  0              0        319      'FILES'                                SUBTRACT
          29915    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29916    82      299      2   0  0              0        299                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30000    PROCR   300       300     LEFT ALIGN SUBROUTINE                                                 
          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
  Source image: P1000219.JPG
    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     37   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
          30420    70      304     34   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    70      304     29   0  0              0        304     >PROCR,TEST NOTES                       JUMP IF A == 0
          30424    12               0   0  0              1                                                        SUBTRACT LITERAL
          30425    71      304     31   0  0              0        304     >CONST                                  JUMP IF A != 0
          30426            12      38   0  0              0                                                        SELECT
          30427    72      304     52   0  0              0        304     >NOTES OF TABLE                         JUMP IF A >= 0
          30428    76      304     31   0  0              0        304     >NOT TABLE NOTES                        JUMP unconditional
    30423>30429            12      38   0  0              0                                                        SELECT
          30430    73      304     52   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
    30428>                                                                                                         
    30425>30431            28      14   1  0              0                                                        SELECT
          30432    5       1       16   1  0              0                CONST/TABLE TYPE OR RADIX LETTER        TRANSFER
          30433    76      304     52   0  0              0        304                                             JUMP unconditional
    30420>30434    55      28      14   1  0             26                ANNOTATION ETC EVEN IF ABSENT           BULK COPY
          30435    C       1       16   1  0              0                                                        
          30436    76      304     52   0  0              0        304                                             JUMP unconditional
    30405>30437            27       5   0  0              0                                                        SELECT
          30438    12               0   0  0              4                                                        SUBTRACT LITERAL
          30439    70      304     66   0  0              0        304     >VALUES                                 JUMP IF A == 0
          30440                     0   2  8              0                                                        SELECT
          30441    3       320     42   0  0              0        320     LENGTH                                  COPY
          30442    124     27       5   0  1              0                                                        modify address of next
          30443    2       305      2   0  0              0        305     (MAX DATA LENGTH*2)                     SUBTRACT
          30444    72      304     54   0  0              0        304     >RECORD HAS ANNOTATION                  JUMP IF A >= 0
          30445            320     42   0  0              0        320                                             SELECT
    30465>30446    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30447    98               0   0  8              0                DATA START                              ADD MODIFICATION REGISTER TO A
          30448    128     28       0   1  1              0                COPY RECORD                             bulk copy long numeric
          30449    124     27       5   0  1              0                                                        modify address of next
          30450            305      6   0  0              0        305                                             SELECT
          30451    128     28       2   0  2              0                UNPACK-SEC1                             unpack fixed field data
    30472>                                                                                                         
    30436>                                                                                                         
    30433>                                                                                                         
    30430>                                                                                                         
  Source image: P1000220.JPG
    30427>30452    60               0   0  0              0                                                        SET DECIMAL RADIX
          30453    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30444>30454    5       320     43   0  0              0        320     ANNOTATION LENGTH ANNOTATED DATA        TRANSFER
          30455            12      86   0  0              0                                                        SELECT
          30456    71      304     63   0  0              0        304     >JUST HERE TO UNPACK NUMBERS            JUMP IF A != 0
          30457            320     43   0  0              0        320                                             SELECT
          30458    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30459    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30460    124     27       5   0  1              0                                                        modify address of next
          30461    1       305      2   0  0              0        305     DATA LENGTH+2                           ADD
          30462    128     1       28   1  1              0                COPY ANNOTATION                         bulk copy long numeric
    30456>30463    124     27       5   0  1              0                                                        modify address of next
          30464            305      2   0  0              0        305                                             SELECT
          30465    76      304     46   0  0              0        304     >UNPACK NUMBERS                         JUMP unconditional
    30439>30466                     0   2  8              0                LENGTH VALUES                           SELECT
          30467    12               0   0  0              6                                                        SUBTRACT LITERAL
          30468    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30469    98               0   0  8              0                START                                   ADD MODIFICATION REGISTER TO A
          30470    11               0   0  0              7                                                        ADD LITERAL
          30471    128     1        9   1  0              0                ALPHA+NUM                               bulk copy alpha to short
          30472    76      304     52   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          (R)308:0;                                         UNPACK ORDERS                           
          30508          309:0;                                            UNPACK TABLES                           
          30509          310:0;                                            UNPACK CONSTANTS                        
          30510          (B)12;                                            DIRECTIVES-PASS 1 REPORTS               
          30511          22;                                               ORDERS                                  
          30512          22;                                               TABLE                                   
          30513          26;                                               CONSTANT                                
          30514          42;                                               VALUES                                  
                                                                                                                   
          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    EDIT STACKING DIRECTIVE                                          
          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 SERIAL                             
          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                          
                                                                                                                   
  Source image: P1000221.JPG
          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 SERIAL                             
          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                        
                                                                                                                   
          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' ONWARD                             
          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                 
          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 INSTRUCTIONS                                              
          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                                  
  Source image: P1000222.JPG
          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     D                                       
          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                                             
          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    UNPACK CONSTANT (FIRST STAGE)                                    
          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)      
          31406     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION (FROM P/T) OR NEXT 5         
                                                                                                                   
          31500    TABLE   315       315     1    EDIT ALL BUT TRIAL DATA                                          
          31502     1     9     0     0  0  0   5   0   0   4  0  0  0     REF---VALUES                            
          31504     1    10     0     0  0  0   5   0   0   4  1  0  1     LTE                                     
                                                                                                                   
          31600    CONST   316       316     0    CHECKING CONST FOR INSTRUCTIONS                                  
          31602          (D)06‼11;                                         'LITERAL' SWITCH Q3                     
          31603          08‼19;                                            'REF/ITEM' SW Q2                        
          31604          00‼11;                                            'DISC/MOD' SWITCH Q1                    
          31605          09‼11;                                                                                    
          31606          0Ю122;                                            ACTION 10                               
          31607          0+322;                                                                                    
          31608          0£000;                                                                                    
          31609          11Ю11;                                                                                    
          31610          12000;                                                                                    
          31611          13Ю91;                                                                                    
                                                                                                                   
          31700    CONST   317       317     0    CHECKING CONSTANTS FOR INSTRUCTIONS                              
          31702          (D)1Ю‼11;                                         ACTIONS 20-26                           
          31703          1+000;                                            2728                                    
          31704          1:‼11;                                            29                                      
          31705          21422;                                            30-33                                   
          31706          22‼11;                                                                                    
          31707          23522;                                                                                    
          31708          25‼11;                                                                                    
          31709          26622;                                                                                    
          31710          27‼22;                                                                                    
          31711          295‼2;                                                                                    
  Source image: P1000223.JPG
          31712          005‼2;                                            ACTIONS 42, 43                          
          31713          2‼‼39;                                            42, 43 FIRST C-LINE                     
          31714          00‼:1;                                            43 SECOND LINE                          
          31715          00‼41;                                            44                                      
          31716          2++32;                                                                                    
          31717          2:531;                                            ACTIONS 46-49                           
          31718          3153Ю;                                            46-49 C-LINES                           
          31719          00114;                                            ACTIONS 50-53                           
          31720          35‼1‼;                                                                                    
          31721          00‼43;                                            ACTION 54                               
          31722          36991;                                                                                    
          31723          00‼13;                                                                                    
          31724          37719;                                                                                    
          31725          00‼91;                                                                                    
          31726          38‼11;                                                                                    
          31727          39117;                                            57                                      
          31728          3Ю112;                                                                                    
          31729          3‼11:;                                            59                                      
          31730          00‼14;                                            C-LINE                                  
          31731          3:‼22;                                            6061                                    
          31732          3.822;                                                                                    
          31733          40‼11;                                                                                    
          31734          41819;                                                                                    
          31735          00822;                                                                                    
          31736          43‼22;                                            66.67                                   
          31737          45000;                                            6869                                    
          31738          4+‼42;                                            70-76                                   
          31739          4.:+2;                                            77-78                                   
          31740          00‼12;                                            C-LINE                                  
          31741          4£‼42;                                            79                                      
          31742          50‼+2;                                            80                                      
          31743          00‼92;                                            C-LINE                                  
          31744          52‼42;                                            81-82                                   
          31745          53+62;                                            83                                      
          31746          54‼.2;                                            84                                      
          31747          00‼11;                                            84 C-LINE                               
          31748          55‼6Ю;                                            85                                      
          31749          00‼.1;                                                                                    
          31750          56162;                                            86                                      
          31751          57‼1‼;                                                                                    
          31752          00‼.1;                                            C-LINE                                  
          31753          59000;                                                                                    
          31754          5Ю22:;                                            ACTION 90                               
          31755          00222;                                                                                    
          31756          5:‼16;                                            ACTIONS 91-93                           
          31757          5.915;                                            94                                      
          31758          60‼25;                                                                                    
          31759          61‼95;                                            ACTION 97                               
          31760          00‼62;                                                                                    
          31761          63‼26;                                            9899                                    
          31762          83‼91;                                                                                    
          31763          00‼11;                                                                                    
          31764          84‼32;                                            132                                     
          31765          8653Ю;                                            133-4                                   
          31766          00‼62;                                            C-LINE                                  
          31767          8‼000;                                                                                    
          31768          8£‼91;                                            140-143                                 
          31769          90000;                                            144                                     
          31770          94‼91;                                            ACTIONS 145-148                         
          31771          00‼11;                                            CONTINUATION LINES                      
  Source image: P1000224.JPG
          31772          95000;                                                                                    
          31773          96+1£;                                                                                    
          31774          00‼.1;                                                                                    
          31775          97‼22;                                                                                    
          31776          98‼4Ю;                                                                                    
          31777          00‼42;                                                                                    
          31778          99‼22;                                            ACTION 153                              
          31779          9Ю‼12;                                            ACTION 153-154                          
          31780          9‼‼22;                                                                                    
          31781          9+‼31;                                                                                    
          31782          9:‼1‼;                                                                                    
          31783          00‼43;                                            C-LINE                                  
          31784          9.511;                                                                                    
          31785          ££000;                                                                                    
          31786          00‼19;                                            CONST FOR ACTION 55=2 C-LINES           
          31787          00‼:9;                                            2ND C LINE RT 22 ACTION 43              
          31788          00‼11;                                            =1 C-LINE                               
          31789          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          31790          (R)18:0;                                                                                  
          31791          (R)93:0;                                                                                  
          31792          (R)14:0;                                                                                  
          31793          (D)0;                                             ZERO IF RT9 PRINTER                     
          31794          00‼:1;                                            43 ACTIONS                              
                                                                                                                   
          31800    CONST   318       318     0    MISC                                                             
          31802          (D)2;                                                                                     
          31803          10000;                                            BIT 17                                  
          31804          £££;                                              Q1-3                                    
          31805          70;                                               BITS 5-7                                
          31806          7;                                                BITS 1-3                                
          31807          8;                                                BIT 4                                   
          31808          80;                                               BIT 8                                   
          31809          £00;                                                                                      
          31810          4;                                                BIT3                                    
          31811          0;                                                FIRST RECORD INDICATOR                  
          31812          0;                                                ACC.RECORD LENGTH                       
                                                                                                                   
          31900    CONST   319       319     1    ALPHA CONSTANTS                                                  
          31902          (A)TABLE;                                                                                 
          31904          CONST;                                                                                    
          31906          PROCR;                                                                                    
          31908          *    ;                                                                                    
          31910          (D)7.0000007.;                                    BLOCK END WORD                          
          31912          (A)NOTES;                                                                                 
          31914          END  ;                                                                                    
          31916          DUMPS;                                                                                    
          31918          FILES;                                                                                    
          31920          (D)££+00003££;                                    BITS 1-10 AND 31-40                     
          31922          0;                                                EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHE
          31924          (A)SHEET;                                                                                 
          31926          (D)5:5:5:5:5:;                                    '?????'                                 
          31928          (A)VALUE;                                                                                 
          31930          (D)6£6£6£6£6£;                                                                            
          31932          (A)INDEX;                                                                                 
          31934          £££££;                                                                                    
          31936          2;                                                                                        
          31938          CHAIN;                                                                                    
          31940          ????R;                                                                                    
          31942          ????I;                                                                                    
          31944          ????*;                                                                                    
  Source image: P1000225.JPG
          31946          (A)TRAMD;                                                                                 
          31948          (B20)16(D)0(C)1:28;                               BULK COPY                               
          31950          (A)FINIS;                                                                                 
                                                                                                                   
          32000    CONST   320       320     1    CONVERT TABLES                                                   
          32002          (D)1;                                             BIN+DEC                                 
          32004          16;                                                                                       
          32006          256;                                                                                      
          32008          4096;                                                                                     
          32010          65536;                                                                                    
          32012          1048576;                                                                                  
          32014          16777216;                                                                                 
          32016          268435456;                                                                                
          32018          4294967296;                                                                               
          32020          ££££££££££;                                                                               
          32022          1;                                                DEC+BIN                                 
          32024          Ю;                                                                                        
          32026          64;                                                                                       
          32028          3.8;                                                                                      
          32030          2710;                                                                                     
          32032          186Ю0;                                                                                    
          32034          £4240;                                                                                    
          32036          989680;                                                                                   
          32038          5£5.100;                                                                                  
          32040          3‼9Ю+Ю00;                                                                                 
          32042          0;                                                (A)WL                                   
          32044          3£;                                               BITS 1-6                                
          32046          (A)CHAPT;                                                                                 
          32048          PREND;                                                                                    
                                                                                                                   
          32100    PROCR   321       321     RIGHT ALIGN A WORD                                                    
          32101     NOTES          RADIX          PLACED IN B                                                      SELECT
          32102    81      321      2   0  0              0        321                                             START OF SUBROUTINE
          32103    10               0   0  0              0                                                        SELECT LITERAL
          32104    5       12      88   1  0              0                                                        TRANSFER
    32108>32105    1       12      88   1  0              0                                                        ADD
          32106    32               0   0  0              2                LEAVE A CLEAR                           SHIFT (AB) BY QUARTETS
          32107    5       12      88   1  0              0                                                        TRANSFER
          32108    75      321      5   0  0              0        321     AND PUT WORD                            JUMP IF AB != 0
          32109            12      88   1  0              0                                                        SELECT
          32110    82      321      2   0  0              0        321     IN 12/88'                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          32200    PROCR   322       322     END ROUTINE                                                           
          32201     NOTES          RADIX                                                                           SELECT
    29915>                                                                                                         
    29912>                                                                                                         
    29909>                                                                                                         
    18523>                                                                                                         
    18520>32202    60               0   0  0              0                                                        SET DECIMAL RADIX
          32203    10               0   0  0              1                                                        SELECT LITERAL
          32204    4       92       3   0  0              0                STEP PROCR                              AUGMENT
          32205    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32206            319     22   0  0              0        319     DIRECTIVE FOR LAST BLOCK EDITED         SELECT
          32207    12               0   0  0              3                                                        SUBTRACT LITERAL
          32208    71      322     11   0  0              0        322     >WASN'T  A CONSTANT                     JUMP IF A != 0
          32209    10               0   0  0              1                                                        SELECT LITERAL
          32210    5       29       6   0  0              0                                                        TRANSFER
    32208>32211    80      288      2   0  0              0        288     >O/P FINAL DATA BLOCK                   ENTER SUBROUTINE
          32212    0       92       3   0  0              0                                                        SELECT
          32213    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
  Source image: P1000226.JPG
          32214    5       12      88   0  0              0                                                        TRANSFER
          32215    52      29       4   0  0              0                                                        EDIT
          32216    C       306      6   0  0              0        306                                             
    32229>32217            9        4   1  0              0                                                        SELECT
          32218    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32219    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          32220    2       319     14   1  0              0        319                                             SUBTRACT
          32221    70      322     30   0  0              0        322     > END WITHOUT TD                        JUMP IF A == 0
          32222            9        4   1  0              0                                                        SELECT
          32223    2       319     46   1  0              0        319      'TRAMD'                                SUBTRACT
          32224    70      322     32   0  0              0        322                                             JUMP IF A == 0
          32225    10               0   0  0     5£5£5£5£5£                5 SQUARES                               SELECT LITERAL
          32226    3       27       6   0  0              0                 'PT OMMITTED'                          COPY
          32227    5       29      12   1  0              0                                                        TRANSFER
          32228    80      301      2   0  0              0        301     > READ PT                               ENTER SUBROUTINE
          32229    76      322     17   0  0              0        322     > TEST NEXT BLOCK                       JUMP unconditional
    32221>32230            319     50   1  0              0        319      'FINIS'                                SELECT
          32231    5       9        4   1  0              0                                                        TRANSFER
    32224>32232            319     14   1  0              0        319                                             SELECT
          32233    5       29       6   1  0              0                 'END'                                  TRANSFER
          32234    80      288      2   0  0              0        288     > WRITE INTERCODE END SIGN              ENTER SUBROUTINE
          32235    80      325      2   0  0              0        325                                             ENTER SUBROUTINE
          32236    90               0   0  1              1                                                        SET MODIFICATION REGISTER AT LITERAL
          32237    C                0   0  0            100                                                        
          32238    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32239    C                0   0  0            200                                                        
    32268>32240    96               0   0  1              0                                                        SELECT MODIFIER
          32241    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
          32242    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32243    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          32244    92               0   0  3              0                TENS DIGIT                              SET MODIFIER AT VARIABLE
          32245    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          32246    5       244      2   0  0              0        244     WL                                      TRANSFER
          32247    10               0   0  0              1                                                        SELECT LITERAL
          32248    124     244      2   0  1              0        244                                             modify address of next
          32249    31               0   0  0              0                /////BIT PATTERN OF UNITS DIGIT         SHIFT (A) BY BITS
          32250    3       244      2   0  0              0        244                                             COPY
          32251    33               0   0  0             30-               REL TO BIT 10 OF 8                      SHIFT (AB) BY BITS
          32252    36      12      72   0  3              0                12/72-81= SECTION BIT PATTERNS          COLLATE AND ADD
          32253    70      322     68   0  0              0        322     > NOT TX AREA                           JUMP IF A == 0
          32254    96               0   0  3              0                                                        SELECT MODIFIER
          32255    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
          32256    33               0   0  0              1-               HALVE                                   SHIFT (AB) BY BITS
          32257    92               0   0  3              0                                                        SET MODIFIER AT VARIABLE
          32258    75      322     61   0  0              0        322     > WAS ODD                               JUMP IF AB != 0
          32259    34      244      2   0  0              0        244                                             SET (N) IN B
          32260    76      322     63   0  0              0        322                                             JUMP unconditional
    32258>32261    34      244      2   0  0              0        244                                             SET (N) IN B
          32262    33               0   0  0             10                                                        SHIFT (AB) BY BITS
    32260>32263    36      12     100   0  3              0                12/100-104='TX AREA USED' INDS          COLLATE AND ADD
          32264    71      322     68   0  0              0        322     > NOT PSEUDEO-TX AREA                   JUMP IF A != 0
          32265    96               0   0  1              0                                                        SELECT MODIFIER
          32266    5       92      34   0  2              0                STORE SECTION NUMBER                    TRANSFER
          32267    94               0   0  2              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    32264>                                                                                                         
    32253>32268    94      322     40   0  1              1        322     > NEXT SECTION                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          32300    PROCR   323       323     CALC CHAPS INITIALLY                                                  
          32302    10               0   0  0          £££00                                                        SELECT LITERAL
          32303    3       23      47   0  0              0                 (TO PRINT HEADING)                     COPY
  Source image: P1000227.JPG
          32304    124     92       0   0  0              0                                                        modify address of next
          32305    4       92       9   0  0              0                 'LAST PROCR' IN FINAL CHAP             AUGMENT
          32306    91      12      12   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32313>32307            92      10   0  3              0                                                        SELECT
          32308    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          32309    30               0   0  0              9-               ISOLATE Q1-CORR CHAP                    SHIFT (A) BY QUARTETS
          32310    2       92      29   0  0              0                (ZERO INITIALLY)                        SUBTRACT
          32311    73      323     13   0  0              0        323                                             JUMP IF A < 0
          32312    4       92      29   0  0              0                UPDATE                                  AUGMENT
    32311>32313    94      323      7   0  3              1        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32314    10               0   0  0              1                                                        SELECT LITERAL
          32315    4       92      29   0  0              0                FORM CHAPS INITIALLY                    AUGMENT
          32316            92       9   0  0              0                                                        SELECT
          32317    5       92       8   0  0              0                STORE SC CTR                            TRANSFER
          32318            92      29   0  0              0                                                        SELECT
          32319    5       92       9   0  0              0                SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT  TRANSFER
                                                                                                                   
          32400    PROCR   324       324     READ/COPY TRIAL DATA MODS                                             
          32401     NOTES          RADIX     1                                                                     SELECT
          32402    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32403    80      289      2   0  0              0        289     > WRITE 2 BLANKS                        ENTER SUBROUTINE
          32404            319     30   1  0              0        319                                             SELECT
          32405    5       8        4   1  0              0                5 ALIGN MARKS                           TRANSFER
          32406    10               0   0  0              6                                                        SELECT LITERAL
          32407    5       8       10   0  0              0                                                        TRANSFER
          32408    80      289      2   0  0              0        289     > WRITE ALIGN BLOCK FOR PASS 3          ENTER SUBROUTINE
          32409            319     32   1  0              0        319      'INDEX'                                SELECT
          32410    5       8        4   1  0              0                                                        TRANSFER
          32411    80      289      2   0  0              0        289     > WRITE                                 ENTER SUBROUTINE
          32412    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32413    C                0   0  0           1010                                                        
          32414    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32415    C                0   0  0             48                                                        
    32424>32416            93       0   0  1              0                                                        SELECT
          32417    5       8        4   2  2              0                                                        TRANSFER
          32418    94      324     24   0  2              2        324                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32419            319     10   1  0              0        319     BEW                                     SELECT
          32420    5       8       52   1  0              0                                                        TRANSFER
          32421    80      290      2   0  0              0        290     > WRITE                                 ENTER SUBROUTINE
          32422    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32423    C                0   0  0             48                                                        
    32418>32424    94      324     16   0  1              1        324                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32425    80      290      2   0  0              0        290     > LAST BLOCK                            ENTER SUBROUTINE
          32426    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32427    80      289      2   0  0              0        289     > TWO BLANKS                            ENTER SUBROUTINE
    32435>32428    0       9        4   1  0              0                                                        SELECT
          32429    2       319     50   1  0              0        319      'FINIS'                                SUBTRACT
          32430    70      324     36   0  0              0        324                                             JUMP IF A == 0
          32431    55      9        4   1  0             50                                                        BULK COPY
          32432    C       8        4   1  0              0                                                        
          32433    80      289      2   0  0              0        289     > WRITE                                 ENTER SUBROUTINE
          32434    80      301      2   0  0              0        301     > READ                                  ENTER SUBROUTINE
          32435    76      324     28   0  0              0        324                                             JUMP unconditional
    32430>32436            27       4   0  0              0                COMPILER ?                              SELECT
          32437    70      324     41   0  0              0        324     > NORMAL                                JUMP IF A == 0
          32438    46      A2      10   0  0              0                 (TO START OF INTERCODE)                RUN BACK
          32439    C                0   0  0              2                                                        
          32440    76      324     43   0  0              0        324                                             JUMP unconditional
    32437>32441    45      A2       0   0  0              0                                                        REWIND
          32442    45      A6       0   0  0              1                                                        REWIND
  Source image: P1000228.JPG
    32440>32443    0       12      12   1  0              0                COPY DATA FOR PASS 2 PREP STAGE         SELECT
          32444    5       94       0   1  0              0                                                        TRANSFER
          32445    0       92      30   0  0              0                IND OF AMEND RUN                        SELECT
          32446    70      152      2   0  0              0        152     >NO, CALL PASS 2                        JUMP IF A == 0
          32447            27       4   0  0              0                                                        SELECT
          32448    70      324     52   0  0              0        324     >NORMAL                                 JUMP IF A == 0
          32449            27       2   0  0              0                                                        SELECT
          32450    70      324     74   0  0              0        324                                             JUMP IF A == 0
          32451    76      324     58   0  0              0        324                                             JUMP unconditional
    32448>32452    86      786      2   0  0              0        786                                             SELECT SWITCH R
          32453    70      324     74   0  0              0        324     >NO TRIAL DATA                          JUMP IF A == 0
          32454    5       289      2   0  0              0        289     WL                                      TRANSFER
          32455    47      A1      10   0  0              0                RUN TO START OF THIS PROGS MACHINE CODE RUN ON
          32456    C       289      2   0  0              0        289                                             
    32470>32457    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
    32451>32458            7        4   1  0              0                                    TESTS FOR CLOSING A1SELECT
          32459    2       320     48   1  0              0        320      'PREND'                                SUBTRACT
          32460    70      324     74   0  0              0        324     >YES                                    JUMP IF A == 0
          32461    1       320     48   1  0              0        320                                             ADD
          32462    2       319     18   1  0              0        319      'FILES'                                SUBTRACT
          32463    70      324     71   0  0              0        324                                             JUMP IF A == 0
          32464    1       319     18   1  0              0        319                                             ADD
          32465    2       320     46   1  0              0        320      'CHAPT'                                SUBTRACT
          32466    70      324     71   0  0              0        324     >YES                                    JUMP IF A == 0
          32467    1       320     46   1  0              0        320                                             ADD
          32468    2       319     50   1  0              0        319      'FINIS'                                SUBTRACT
          32469    70      324     74   0  0              0        324     >YES                                    JUMP IF A == 0
          32470    76      324     57   0  0              0        324     >READ/IGNORE                            JUMP unconditional
    32466>                                                                                                         
    32463>32471    10               0   0  0              1                                                        SELECT LITERAL
          32472    5       27       3   0  0              0                                                        TRANSFER
          32473    76      152      2   0  0              0        152     >CALL PASS 2,LEAVE A1 OPEN              JUMP unconditional
    32469>                                                                                                         
    32460>                                                                                                         
    32453>                                                                                                         
    32450>32474    5       27       3   0  0              0                                                        TRANSFER
          32475            27       4   0  0              0                COMPILER CALLED TRANSLATOR?             SELECT
          32476    70      324     79   0  0              0        324     >NO                                     JUMP IF A == 0
          32477    45      A1       0   0  0              1                                                        REWIND
          32478    76      152      2   0  0              0        152     >CALL PASS 2                            JUMP unconditional
    32476>32479    41      A1       0   0  0              1                                                        CLOSE FILE
          32480    76      152      2   0  0              0        152     >CALL PASS 2                            JUMP unconditional
                                                                                                                   
          32500    PROCR   325       325                                                                           
          32502    81      325      2   0  0              0        325                                             START OF SUBROUTINE
          32503            325      2   0  0              0        325                                             SELECT
          32504    5       288      2   0  0              0        288                                             TRANSFER
          32505    76      288     24   0  0              0        288                                             JUMP unconditional
                                                                                                                   
          32600    PROCR   326       326     UNPACK SECTION 9 SUBROUTINE                                           
          32601     NOTES          RADIX                                                                           SELECT
          32602    81      326      2   0  0              0        326                                             START OF SUBROUTINE
          32603    124     999      0   1  2              0                (FORMED)                                modify address of next
          32604    128              4   0  3              0                                                        unpack variable field data
          32605    82      326      2   0  0              0        326                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          32606            9        0   0  0              0                DUMMY FOR PARAMETER                     SELECT
          32607    128              4   0  2              0                                                        unpack fixed field data
                                                                                                                   
          32700    PROCR   327       327     START OF PASS 2                                                       
          32701     NOTES          RADIX          DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT                       SELECT
    36935>                                                                                                         
  Source image: P1000229.JPG
    36937>32702    152     152      4   0  0              0        152     CALL/ENTER PASS 3                       OVERLAY
          32703    C       553      4   0  0              0        553                                             
          32704            999     16   1  0              0                COPY SEC 7 PARAS-PTS WL'S               SELECT
          32705    5       999     30   1  0              0                                                        TRANSFER
          32706    54      5        0   0  0             50                                                        BULK CLEAR
          32707    52      5        2   0  0              0                                                        EDIT
          32708    C       342     36   0  0              0        342     EDIT 'INDEX' LINE                       
                                                                                                                   
          32800    PROCR   328       328     CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER                
          32801     NOTES          RADIX          AND MOVE THE SC BACK LIST                                        SELECT
          32802    54      72       3   0  0             14                                                        BULK CLEAR
          32803    90               0   0 19              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32804    C                0   0  0             10                                                        
          32805    90               0   0 20              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32806    C                0   0  0             10                                                        
          32807    10               0   0  0              1                                                        SELECT LITERAL
          32808    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32809            95       1   0  0              0                NO OF SWITCHES                          SELECT
          32810    70      328     16   0  0              0        328     >NONE                                   JUMP IF A == 0
          32811    5       61       1   0  0              0                                                        TRANSFER
          32812    10               0   0  0              Ю                                                        SELECT LITERAL
          32813    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32814    124     95       0   0  2              0                                                        select literal and division
          32815    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32810>32816    10               0   0  0              8                                                        SELECT LITERAL
          32817    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32818            98       1   0  0              0                NO OF ITEM+                             SELECT
          32819    70      328     23   0  0              0        328     >NONE                                   JUMP IF A == 0
          32820    5       61       1   0  0              0                                                        TRANSFER
          32821    124     98       0   0  2              0                                                        select literal and division
          32822    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32819>32823    91      94       0   0  3              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32828>32824    10               0   0  0              1                                                        SELECT LITERAL
          32825    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          32826    36      72       3   0  3              0                                                        COLLATE AND ADD
          32827    4       72       3   0  3              0                ROUND UP CTRS                           AUGMENT
          32828    94      328     24   0  3              1        328                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32829            71       1   0  0              0                CTR OF INDIRECT MR'S                    SELECT
          32830    70      328     36   0  0              0        328     >NONE                                   JUMP IF A == 0
          32831    5       61       1   0  0              0                                                        TRANSFER
          32832    10               0   0  0              2                                                        SELECT LITERAL
          32833    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32834    124     71       0   0  2              0                                                        select literal and division
          32835    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32830>32836    10               0   0  0              2                SEQ CHANGE LIST                         SELECT LITERAL
          32837    4       92       8   0  0              0                                                        AUGMENT
          32838    1       545     74   0  0              0        545     ABS ADDRESS 18:2496                     ADD
          32839    2       92       8   0  0              0                                                        SUBTRACT
          32840    3       344      2   0  0              0        344     QTY TO COPY                             COPY
          32841    70      328     46   0  0              0        328     >NONE                                   JUMP IF A == 0
          32842    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32843    1       92       8   0  0              0                START                                   ADD
          32844    124     544     17   1  2              0        544     ABS ADDRESS 18/0                        modify address of next
          32845    128              0   1  1              0                                                        bulk copy long numeric
    32841>32846            544     17   0  0              0        544                                             SELECT
          32847    1       344      2   0  0              0        344     QTTY                                    ADD
          32848    5       92       8   0  0              0                NEW LIST END                            TRANSFER
          32849            27       4   0  0              0                COMPILER?                               SELECT
          32850    70      330      2   0  0              0        330     >NO                                     JUMP IF A == 0
  Source image: P1000230.JPG
          32851    76      330      3   0  0              0        330                                             JUMP unconditional
                                                                                                                   
          32900    PROCR   329       329     PROCESS SW/ITEM+/INDIRECT MR LISTS                                    
          32901     NOTES  329                                                                                     SELECT
          32902    81      329      2   0  0              0        329                                             START OF SUBROUTINE
          32903    3       61       0   0  0              0                                                        COPY
          32904    4       61       1   0  0              0                                                        AUGMENT
          32905    91      61       0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32914>32906                     2   0  1              0                                                        SELECT
          32907    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32908    5       61       2   0  0              0                UNCORR CHAP                             TRANSFER
          32909    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          32910    124     61       2   0  1              0                                                        modify address of next
          32911    36      92       9   0  0              0                                                        COLLATE AND ADD
          32912    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          32913    37               2   0  1              0                REPLACE BY CORR CHAP                    REPLACE SELECTED BITS
          32914    94      329      6   0  1              1        329     >NEXT DETAIL                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32915    10               0   0  0              0                                                        SELECT LITERAL
          32916    5       61       2   0  0              0                                                        TRANSFER
          32917    91      94       0   0  2              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32934>32918    10               0   0  0              1                                                        SELECT LITERAL
          32919    4       61       2   0  0              0                                                        AUGMENT
          32920    91      61       0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32933>32921                     2   0  1              0                                                        SELECT
          32922    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32923    2       61       2   0  0              0                                                        SUBTRACT
          32924    71      329     33   0  0              0        329     >NOT IN THIS CORR CHAP                  JUMP IF A != 0
          32925    124     61       2   0  1              0                                                        modify address of next
          32926            72       2   0  0              0                CTR WITHIN SWITCH PROCR                 SELECT
          32927    124     61       3   0  1              0                                                        modify address of next
          32928    31               0   0  0              0                /////AS NEEDED                          SHIFT (A) BY BITS
          32929    4                2   0  1              0                                                        AUGMENT
          32930            61       4   0  0              0                INCREMENT                               SELECT
          32931    124     61       2   0  1              0                                                        modify address of next
          32932    4       72       2   0  0              0                STEP CTR                                AUGMENT
    32924>32933    94      329     21   0  1              1        329     >NEXT DETAIL                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32934    94      329     18   0  2              1        329     >NEXT CORR CHAP                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32935    82      329      2   0  0              0        329                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          33000    PROCR   330       330     OPEN FILES CLEAR W/LS                                                 
          33001     NOTES          RADIX          PREP STAGE                                                       SELECT
    32850>33002    40      A2       0   0  0              1                *****DON'T MOVE*****                    OPEN FILE
    32851>33003    0       27       9   0  0              0                                                        SELECT
          33004    71      330     13   0  0              0        330     >NOT PRINT                              JUMP IF A != 0
          33005            27       8   0  0              0                PRINTER TYPE                            SELECT
          33006    11               0   0  0              Ю                                                        ADD LITERAL
          33007    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          33008    1       999      7   0  0              0                ROUTE                                   ADD
          33009    125           4096   1  1              0                                                        clear indicators
          33010    124     999      0   0  3              0                                                        modify address of next
          33011    123            160   0  2              0                >OPEN PRINTER OR MT A9                  enter master routine
          33012    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    33004>33013    54      61       0   0  0            120                                                        BULK CLEAR
          33014    54      94       0   0  0            100                                                        BULK CLEAR
          33015    54      66       0   0  0             34                66+49                                   BULK CLEAR
          33016    10               0   0  0              1                                                        SELECT LITERAL
          33017    4       92       0   0  0              0                NO OF CHAPS                             AUGMENT
          33018    101            998   1  3              0                                                        select literal address
          33019    1       92       0   0  0              0                (CHAPS CODED)+1                         ADD
          33020    3       61       5   0  0              0                LONG CONSTS PROCR                       COPY
  Source image: P1000325.JPG
          33021    11               0   0  0              1                                                        ADD LITERAL
          33022    3       61       6   0  0              0                SHORT CONSTS PROCR                      COPY
          33023    11               0   0  0              1                                                        ADD LITERAL
          33024    5       61       7   0  0              0                TSL PROCR                               TRANSFER
          33025    10               0   0  0         800000                                                        SELECT LITERAL
          33026    1       27       9   0  0              0                                                        ADD
          33027    91               0   0  3              0                SET FOR REENTRY                         SET MODIFICATION REGISTER AT VARIABLE
                                                                                                                   
          33100    PROCR   331       331     I/P 1ST BLOCK, UNPACK, PRINT                                          
          33101     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33108>33102    80      539      2   0  0              0        539     >READ                                   ENTER SUBROUTINE
          33103            8        6   1  0              0                                                        SELECT
          33104    2       343      4   1  0              0        343     'PROGM'                                 SUBTRACT
          33105    70      331     12   0  0              0        331     >OK                                     JUMP IF A == 0
          33106            8        4   1  0              0                                                        SELECT
          33107    12               0   0  0     5659650000                '  FIN'                                 SUBTRACT LITERAL
          33108    71      331      2   0  0              0        331     >KEEP READING                           JUMP IF A != 0
          33109    150              0   0  0              4                                                        OFFER OPTIONS
          33110    C       331     11   0  0              0        331     >UNLOAD                                 
    33110>33111    151              0   0  0              0                                                        UNLOAD PROGRAMME
    33105>33112    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33113    C       341      2   0  0              0        341                                             
          33114    52      8        2   0  0              0                                                        EDIT
          33115    C       341      2   0  0              0        341                                             
          33116            66       4   1  0              0                SUITE NO                                SELECT
          33117    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          33118    1       66       6   2  0              0                JOB NO                                  ADD
          33119    5       61     112   0  0              0                PROG ID                                 TRANSFER
          33120    00      66       8   1  0              0                                                        SELECT
          33121    5       72       0   1  0              0                ALPHA SERIAL NUMBER                     TRANSFER
          33122            27       9   0  0              0                                                        SELECT
          33123    70      331     48   0  0              0        331     >PRINTING                               JUMP IF A == 0
          33124            27       4   0  0              0                                                        SELECT
          33125    71      331     46   0  0              0        331     >DON'T WRITE HDG EITHER                 JUMP IF A != 0
          33126    86      787      2   0  0              0        787                                             SELECT SWITCH R
          33127    71      331     34   0  0              0        331     >DON'T OPEN A9                          JUMP IF A != 0
          33128    10               0   0  0        1200000                                                        SELECT LITERAL
          33129    34      343     14   1  0              0        343                                             SET (N) IN B
          33130    1       999      7   0  0              0                                                        ADD
          33131    125           4096   1  1              0                                                        clear indicators
          33132    124     999      0   0  3              0                                                        modify address of next
          33133    123            160   0  2              0                >OPEN A9 O/P MT                         enter master routine
    33127>33134    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          33135    10               0   0  0     6769596573                'PRINT'                                 SELECT LITERAL
          33136    5       10       4   1  0              0                                                        TRANSFER
          33137    10               0   0  0           8000                                                        SELECT LITERAL
          33138    5       10       6   2  0              0                                                        TRANSFER
          33139    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          33140    5       10       8   1  0              0                                                        TRANSFER
          33141            61     112   0  0              0                OBJECT PROG ID                          SELECT
          33142    5       10      10   2  0              0                                                        TRANSFER
          33143            544      2   1  0              0        544                                             SELECT
          33144    5       10      12   1  0              0                                                        TRANSFER
          33145    80      541      2   0  0              0        541     >WRITE A9 HEADING BLOCK                 ENTER SUBROUTINE
    33125>33146    90               0   0  6              0                PREPARE FOR 6 BLKS                      SET MODIFICATION REGISTER AT LITERAL
          33147    C                0   0  0            300                                                        
    33123>33148    80      340      2   0  0              0        340     >WRITE/PRINT 'PROGM'                    ENTER SUBROUTINE
          33149            27       4   0  0              0                COMPILER?                               SELECT
          33150    71      331     53   0  0              0        331     >YES                                    JUMP IF A != 0
          33151    40      A6       0   0  0              0                                                        OPEN FILE
  Source image: P1000326.JPG
          33152    76      331     56   0  0              0        331                                             JUMP unconditional
    33150>33153    48      A6       0   0  0              3                BACK 0 I/P>O/P                          STEP BACK
          33154    C       999      0   0  0              0                                                        
          33155    76      331     64   0  0              0        331     >DON'T WRITE 'INDEX'                    JUMP unconditional
    33152>33156    52      9        4   0  0              0                EDIT FIRST HEADING                      EDIT
          33157    C       341     12   0  0              0        341     BLOCK                                   
          33158    80      514      2   0  0              0        514     OP                                      ENTER SUBROUTINE
          33159            543     20   0  0              0        543     '£££££'                                 SELECT
          33160    5       9        4   2  0              0                                                        TRANSFER
          33161            544      2   1  0              0        544     BEW                                     SELECT
          33162    5       9        6   1  0              0                                                        TRANSFER
          33163    80      514      2   0  0              0        514     >DUMMY 'INDEX' DATA                     ENTER SUBROUTINE
    33155>33164    52      9        4   0  0              0                PROG & SERIAL FOR PASS 3                EDIT
          33165    C       341     20   0  0              0        341                                             
          33166    5       9       16   1  0              0                                                        TRANSFER
          33167    80      514      2   0  0              0        514     >SHORT RUBBISH BLOCK                    ENTER SUBROUTINE
          33168    80      539      2   0  0              0        539     I/P                                     ENTER SUBROUTINE
          33169    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33170    C       341      2   0  0              0        341                                             
          33171            66       4   1  0              0                PROCR OF ENTRY                          SELECT
          33172    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
          33173    5       72       2   0  0              0                                                        TRANSFER
          33174    52      8        2   0  0              0                                                        EDIT
          33175    C       341      2   0  0              0        341                                             
          33176    80      340      2   0  0              0        340     PRINT 'ENTRY'                           ENTER SUBROUTINE
          33177    52      9        4   0  0              0                EDIT SECOND BLOCK                       EDIT
          33178    C       341     28   0  0              0        341                                             
          33179    80      514      2   0  0              0        514     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          33200    PROCR   332       332     DEAL WITH FILE IDS                                                    
          33201     NOTES          RADIX     B                                                                     SELECT
          33202    17      92       7   0  0             10                SPACE OCCUPIED BY CONVERT TABLES        MULTIPLY LITERAL and ADD
          33203    101            204   1  1              0                FOR ALLOCATOR                           add literal address
          33204    5       61     100   0  0              0                SP CHAP SPACE CTR                       TRANSFER
          33205    0       91       1   0  0              0                2R                                      SELECT
          33206    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          33207    1       92      29   0  0              0                EXTRA CHAP NO                           ADD
          33208    1       92      29   0  0              0                                                        ADD
          33209    3       61      40   0  0              0                LAST ROUTE PARAMETER                    COPY
          33210    5       61      39   0  0              0                PARA CTR                                TRANSFER
          33211    0       91       1   0  0              0                2R                                      SELECT
          33212    3       91       2   0  0              0                                                        COPY
          33213    5       91       3   0  0              0                                                        TRANSFER
          33214    91      91       0   0  2              0                SCAN FILE LIST                          SET MODIFICATION REGISTER AT VARIABLE
    33445>33215    90               0   0  1              0                O/P M.R.                                SET MODIFICATION REGISTER AT LITERAL
          33216    C                0   0  0             48                                                        
    33406>                                                                                                         
    33441>33217    80      539      2   0  0              0        539     I/P                                     ENTER SUBROUTINE
          33218            8        6   1  0              0                                                        SELECT
          33219    2       343      8   1  0              0        343     'CHAPS'                                 SUBTRACT
          33220    70      335      2   0  0              0        335     >YES                                    JUMP IF A == 0
          33221    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33222    C       341     52   0  0              0        341     UNPACK FILE IDENTITIES                  
          33223            8       46   1  0              0                                                        SELECT
          33224    2       542     28   1  0              0        542     '?????'                                 SUBTRACT
          33225    3       344      2   1  0              0        344     WL                                      COPY
          33226    70      334      2   0  0              0        334     >FILE IGNORED                           JUMP IF A == 0
          33227            66       4   0  0              0                ROUTE TYPE                              SELECT
          33228    12               0   0  0             19                                                        SUBTRACT LITERAL
          33229    70      332     54   0  0              0        332     >ROUTE TYPE 19                          JUMP IF A == 0
  Source image: P1000327.JPG
          33230            66       6   0  0              0                CHAP NO                                 SELECT
          33231    80      537      2   0  0              0        537     CONVERT TO BIN                          ENTER SUBROUTINE
          33232    2       92       0   0  0              0                CHAPS +1                                SUBTRACT
          33233    73      333      2   0  0              0        333     >OK                                     JUMP IF A < 0
          33234            542     28   1  0              0        542     ?????'                                  SELECT
          33235    5       8       46   1  0              0                                                        TRANSFER
          33236    5       344      2   1  0              0        344                                             TRANSFER
          33237            91       3   0  0              0                2(R+T)=LIST LENGTH                      SELECT
          33238    99               0   0  2              0                -R2 MODIFIER                            SUBTRACT MODIFICATION REGISTER FROM A
          33239    30               0   0  0              5                FORM LENGTH OF REMAINDER OF LIST Q6-10  SHIFT (A) BY QUARTETS
          33240    1       343      2   0  0              0        343     ADDRESS 91:6                            ADD
          33241    98               0   0  2              0                FORM ADDRESS OF FIRST TO OPY            ADD MODIFICATION REGISTER TO A
          33242    124     999     24   0  0              0                (R2)                                    modify address of next
          33243    128     91       4   0  0              0                COPY UP TO DELETE A FILE                bulk copy short numeric
          33244    12               0   0  0              2                                                        SUBTRACT LITERAL
          33245    4       91       1   0  0              0                REDUCE CTRS FOR DELETED FILE            AUGMENT
          33246    4       91       2   0  0              0                                                        AUGMENT
          33247    4       91       3   0  0              0                                                        AUGMENT
          33248    124     999     22   0  3              0                                                        modify address of next
          33249    107              5   0  0              0                REDUCE R2 END VALUE                     augment (N) by (A)
          33250    11               0   0  0              1                                                        ADD LITERAL
          33251    4       61      39   0  0              0                (REDUCE BY 1)                           AUGMENT
          33252    4       61      40   0  0              0                                                        AUGMENT
          33253    76      334      2   0  0              0        334     >FILE IGNORED                           JUMP unconditional
    33229>33254            66       6   0  0              0                CHAPTER PAIR        RT19                SELECT
          33255    30               0   0  0              2                Q2->Q4                                  SHIFT (A) BY QUARTETS
          33256    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33257    124     91       3   0  1              0                                                        modify address of next
          33258    37      91       4   0  0              0                STORE TX AREA CHAP WITH GP DETAILS      REPLACE SELECTED BITS
          33259            66      10   0  0              0                SPECIAL LENGTH                          SELECT
          33260    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33261    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          33262    124     91       3   0  1              0                                                        modify address of next
          33263    37      91       4   0  0              0                STORE HALF-LENGTH AS GP LENGTH          REPLACE SELECTED BITS
          33264            66       8   0  0              0                GP HALF-LENGTH                          SELECT
          33265    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33266    76      333      9   0  0              0        333                                             JUMP unconditional
                                                                                                                   
          33300    PROCR   333       333     FILE IDS                                                              
          33301     NOTES          RADIX     B                                                                     SELECT
    33233>33302            66       4   0  0              0                ROUTE TYPE                              SELECT
          33303    12               0   0  0              3                                                        SUBTRACT LITERAL
          33304    70      333     11   0  0              0        333                                             JUMP IF A == 0
          33305    12               0   0  0              1                                                        SUBTRACT LITERAL
          33306    71      334      2   0  0              0        334     >NOT 4                                  JUMP IF A != 0
          33307    0       66       8   0  0              0                ANNEX LENGTH                            SELECT
          33308    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
    33266>33309    33               0   0  0              6-               DIVIDE BY 64                            SHIFT (AB) BY BITS
          33310    5       61       8   0  0              0                MULTIPLES FOR Q10 FN WORD               TRANSFER
    33304>33311            61      39   0  0              0                PARA CTR                                SELECT
          33312    11               0   0  0              1                                                        ADD LITERAL
          33313    124     91       3   0  1              0                                                        modify address of next
          33314    5       91       5   0  0              0                TX AREA ENTRY                           TRANSFER
          33315    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33316            66       8   0  0              0                HALF LENGTH                             SELECT
          33317    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33318    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          33319    11               0   0  0              2                                                        ADD LITERAL
          33320    37      91       4   1  2              0                                                        REPLACE SELECTED BITS
          33321    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
  Source image: P1000328.JPG
          33322            91       3   0  0              0                2(R+T)                                  SELECT
          33323    2       91       2   0  0              0                                                        SUBTRACT
          33324    30               0   0  0              4                CTR WITHIN GPTXAREAS                    SHIFT (A) BY QUARTETS
          33325    37      91       4   1  2              0                                                        REPLACE SELECTED BITS
          33326    10               0   0  0              0                                                        SELECT LITERAL
          33327    124     91       3   0  1              0                                                        modify address of next
          33328    2       91       4   0  0              0                                                        SUBTRACT
          33329    124     91       3   0  1              0                                                        modify address of next
          33330    5       91       4   0  0              0                SET GP TX AREA SIGN B/T                 TRANSFER
          33331    10               0   0  0              2                                                        SELECT LITERAL
          33332    4       91       3   0  0              0                STEP(ROUTES +TX AREAS) CTR              AUGMENT
          33333    4       61      39   0  0              0                STEP PARA CTR                           AUGMENT
                                                                                                                   
          33400    PROCR   334       334     FILE IDS                                                              
          33401     NOTES          RADIX                                                                           SELECT
    33306>                                                                                                         
    33253>                                                                                                         
    33226>33402    52      8        2   0  0              0                                                        EDIT
          33403    C       341     52   0  0              0        341                                             
          33404    80      340      2   0  0              0        340     PRINT FILES                             ENTER SUBROUTINE
          33405    0       344      2   1  0              0        344                                             SELECT
          33406    70      332     17   0  0              0        332     >FILE IGNORED                           JUMP IF A == 0
          33407    94               0   0  2              2                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33408    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          33409    C                0   0  0              6                                                        
    33413>33410            66       4   1  3              0                                                        SELECT
          33411    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          33412    5       66       4   1  3              0                                                        TRANSFER
          33413    94      334     10   0  3              2        334                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33414    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33415            66       6   1  0              0                                                        SELECT
          33416    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          33417    37      91       2   1  2              0                CHAP NO (BIN)                           REPLACE SELECTED BITS
          33418            66       4   0  0              0                                                        SELECT
          33419    12               0   0  0             13                                                        SUBTRACT LITERAL
          33420    71      334     28   0  0              0        334     >NOT RT 19                              JUMP IF A != 0
          33421            66       6   0  0              0                PAIR OF CHAPS                           SELECT
          33422    80      538      2   0  0              0        538     >DEC                                    ENTER SUBROUTINE
          33423    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          33424    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33425    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          33426    37      91       2   1  2              0                STORE Q1 OF DECIMAL PAIR                REPLACE SELECTED BITS
          33427    76      334     33   0  0              0        334                                             JUMP unconditional
    33420>33428            66       8   1  0              0                ANNEX (BIN) IN WORDS                    SELECT
          33429    11               0   0  0              2                                                        ADD LITERAL
          33430    4       91       2   1  2              0                HALF LENGTH                             AUGMENT
          33431    3       66       8   1  0              0                SET ANNEX LENGTH                        COPY
          33432    4       66       8   1  0              0                                                        AUGMENT
    33427>33433    0       66       4   1  0              0                ROUTE TYPE                              SELECT
          33434    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          33435    5       66       4   1  0              0                                                        TRANSFER
          33436    0       66       2   1  0              0                                                        SELECT
          33437    30               0   0  0              6-               RT. ALIGN THE FILE I.D.                 SHIFT (A) BY QUARTETS
          33438    5       66       2   1  0              0                                                        TRANSFER
          33439    52      9        4   0  1              0                                                        EDIT
          33440    C       341     64   0  0              0        341                                             
          33441    94      332     17   0  1             12        332     O/P CTR                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33442            544      2   1  0              0        544     B.E.WORD                                SELECT
          33443    5       9       52   1  0              0                                                        TRANSFER
          33444    80      514      2   0  0              0        514                                             ENTER SUBROUTINE
  Source image: P1000329.JPG
          33445    76      332     15   0  0              0        332                                             JUMP unconditional
                                                                                                                   
          33500    PROCR   335       335     O/P REMAINING FILE IDS, CHAP START POINTS                             
          33501     NOTES          RADIX     B    PREP                                                             SELECT
    33220>33502    96               0   0  1              0                                                        SELECT MODIFIER
          33503    70      335      7   0  0              0        335                                             JUMP IF A == 0
          33504            544      2   1  0              0        544     BE WORD                                 SELECT
          33505    5       9        4   1  1              0                                                        TRANSFER
          33506    80      514      2   0  0              0        514     O/P                                     ENTER SUBROUTINE
    33503>33507    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33508    C       342      2   0  0              0        342     UNPACK 'CHAPS'                          
          33509    54      70       0   1  0            100                CLEAR FOR SECTION DETAILS               BULK CLEAR
          33510    80      512      2   0  0              0        512     >BLANK LINE                             ENTER SUBROUTINE
          33511    52      8        2   0  0              0                                                        EDIT
          33512    C       342      2   0  0              0        342                                             
          33513    80      340      2   0  0              0        340     PRINT 'CHAPS'                           ENTER SUBROUTINE
          33514    80      539      2   0  0              0        539     >READ MT                                ENTER SUBROUTINE
          33515            8        6   1  0              0                                                        SELECT
          33516    12               0   0  0     7273666955                 'STORE'                                SUBTRACT LITERAL
          33517    71      337      2   0  0              0        337     >NO                                     JUMP IF A != 0
          33518    50      8        8   0  0              0                                                        UNPACK FIXED FIELD DATA
          33519    C       342      8   0  0              0        342     66/6 ET SEQ                             
          33520    10               0   0  0     7273666955                 'STORE'                                SELECT LITERAL
          33521    5       66       2   1  0              0                                                        TRANSFER
          33522    5       66       4   1  0              0                                                        TRANSFER
          33523    52      8        4   0  0              0                                                        EDIT
          33524    C       342      4   0  0              0        342                                             
          33525    5       8        8   1  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          33600    PROCR   336       336     DEAL WITH 'STORE' DATA                                                
          33602    91      92      28   0  1              0                CHAPS INITIALLY                         SET MODIFICATION REGISTER AT VARIABLE
          33603    92               0   0  1              0                 (CLEAR MODIFIER)                       SET MODIFIER AT VARIABLE
    33613>33604            66       6   0  1              0                                                        SELECT
          33605    12               0   0  0              1                                                        SUBTRACT LITERAL
          33606    70      336     13   0  0              0        336     >OP,FIRST STORE                         JUMP IF A == 0
          33607    12               0   0  0              1                                                        SUBTRACT LITERAL
          33608    71      336     16   0  0              0        336     >REJECT                                 JUMP IF A != 0
          33609    10               0   0  0             20                BIT 6                                   SELECT LITERAL
          33610    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          33611    10               0   0  0             20                                                        SELECT LITERAL
          33612    37      92      10   0  1              0                SET IND FOR SECOND STORE                REPLACE SELECTED BITS
    33606>33613    94      336      4   0  1              1        336                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33614            66       7   0  1              0                                                        SELECT
          33615    70      336     18   0  0              0        336     >OK                                     JUMP IF A == 0
    33608>33616            542     28   1  0              0        542      '?????'                                SELECT
          33617    5       8       46   1  0              0                                                        TRANSFER
    33615>33618    80      340      2   0  0              0        340     >PRINT STORE                            ENTER SUBROUTINE
          33619    80      539      2   0  0              0        539     >READ                                   ENTER SUBROUTINE
                                                                                                                   
          33700    PROCR   337       337     PRINT CHAPS I/P & TEST S/D                                            
          33701     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33517>33702    80      530      2   0  0              0        530     >PRINT'INDEX'EX SEC 5                   ENTER SUBROUTINE
          33703    80      530      2   0  0              0        530     >PRINT BLANK LINE                       ENTER SUBROUTINE
          33704    76      337      7   0  0              0        337                                             JUMP unconditional
    33812>33705    80      340      2   0  0              0        340     PRINT IGNORED SECTION                   ENTER SUBROUTINE
    33927>33706    80      539      2   0  0              0        539     >READ                                   ENTER SUBROUTINE
    33704>33707            8       12   1  0              0                                                        SELECT
          33708    2       542      8   1  0              0        542     PROCR                                   SUBTRACT
          33709    70      346      2   0  0              0        346                                             JUMP IF A == 0
          33710    1       542      8   1  0              0        542                                             ADD
  Source image: P1000330.JPG
          33711    2       542      4   1  0              0        542     TABLE                                   SUBTRACT
          33712    70      346      2   0  0              0        346                                             JUMP IF A == 0
          33713    1       542      4   1  0              0        542                                             ADD
          33714    2       542      6   1  0              0        542     CONST                                   SUBTRACT
          33715    70      346      2   0  0              0        346                                             JUMP IF A == 0
                                                                                                                   
          33800    PROCR   338       338     SECTION DETAILS                                                       
          33801     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          33802            8       14   1  0              0                AMEND IND                               SELECT
          33803    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          33804    5       8        2   1  0              0                                                        TRANSFER
          33805    5       8       14   1  0              0                                                        TRANSFER
          33806    50      8        2   0  0              0                                                        UNPACK FIXED FIELD DATA
          33807    C       341     40   0  0              0        341                                             
          33808    52      8        2   0  0              0                                                        EDIT
          33809    C       341     40   0  0              0        341                                             
          33810            8       46   1  0              0                                                        SELECT
          33811    2       542     28   1  0              0        542     ?????                                   SUBTRACT
          33812    70      337      5   0  0              0        337     >IGNORE THIS SECTION                    JUMP IF A == 0
          33813    80      340      2   0  0              0        340     PRINT SECTIONS                          ENTER SUBROUTINE
          33814            66       4   1  0              0                                                        SELECT
          33815    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          33816    5       66       4   1  0              0                                                        TRANSFER
          33817            66       8   1  0              0                                                        SELECT
          33818    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
          33819    5       66       8   1  0              0                CHAP OF SECTION                         TRANSFER
          33820            66       2   1  0              0                                                        SELECT
          33821    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          33822    3       66       2   1  0              0                SECT NO                                 COPY
          33823    92               0   0  1              0                                                        SET MODIFIER AT VARIABLE
          33824            66       6   1  0              0                T.A. IND                                SELECT
          33825    70      339     16   0  0              0        339     -NOT T.A.                               JUMP IF A == 0
          33826    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          33827    C                0   0  0              4                                                        
    33831>33828            92      34   0  2              0                CODER'S TRANSIT AREAS ONLY FOR GP O/P   SELECT
          33829    2       66       2   1  0              0                SECTION NUMBER                          SUBTRACT
          33830    70      339     16   0  0              0        339     >DON'T COUNT SECTION AS TRANSIT AREA    JUMP IF A == 0
          33831    94      338     28   0  2              1        338                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33832    10               0   0  0              2                                                        SELECT LITERAL
          33833    4       91       3   0  0              0                TX AREA CTR                             AUGMENT
          33834    4       66       4   1  0              0                INCREASE ANNEX LENGTH                   AUGMENT
          33835    4       61      39   0  0              0                PARA COUNTER                            AUGMENT
                                                                                                                   
          33900    PROCR   339       339     SECT DETAILS                                                          
          33901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          33902    0       66       4   1  0              0                LENGTH IN WORDS                         SELECT
          33903    31               0   0  0              5                IN LOCNS IN Q2                          SHIFT (A) BY BITS
          33904    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          33905    124     66       8   0  0              0                UNCORRECTED CHAPTER                     modify address of next
          33906    36      92       9   0  0              0                CORRECTED CHAP OF TRANSIT AREA          COLLATE AND ADD
          33907    30               0   0  0              2                LENGTH Q7-10,CHAP Q6                    SHIFT (A) BY QUARTETS
          33908    1       61      39   0  0              0                PARA CTR                                ADD
          33909    12               0   0  0              1                                                        SUBTRACT LITERAL
          33910    30               0   0  0              3                PARAMETER IN Q4-5                       SHIFT (A) BY QUARTETS
          33911    1       66       2   1  0              0                SECTION NUMBER Q1-3                     ADD
          33912    124     91       3   0  1              0                2(ROUTES+TX AREAS)                      modify address of next
          33913    5       91       2   1  0              0                                                        TRANSFER
          33914            545     58   0  0              0        545     BIT 19 AND 20         BIT 20 FOR T.A. INSELECT
          33915    76      339     17   0  0              0        339                                             JUMP unconditional
    33830>                                                                                                         
  Source image: P1000331.JPG
    33825>33916            545      9   0  0              0        545     BIT 19                                  SELECT
    33915>33917    17      66       4   1  0             32                LENGTH X 2 AND SHIFT Q                  MULTIPLY LITERAL and ADD
          33918    1       66       8   1  0              0                UNCORR CHAP NO                          ADD
          33919    5       70       0   0  1              0                SECT DETS                               TRANSFER
          33920    92      66       8   0  2              0                UNCORR CHAP                             SET MODIFIER AT VARIABLE
          33921    0       61      54   0  2              0                SPACE CTR                               SELECT
          33922    124     66       2   0  0              0                SEC NO                                  modify address of next
          33923    5       94       0   0  0              0                SET REL START                           TRANSFER
          33924    0       66       4   0  0              0                                                        SELECT
          33925    1       66       4   0  0              0                LENGTH (LOCNS)                          ADD
          33926    4       61      54   0  2              0                                                        AUGMENT
          33927    76      337      6   0  0              0        337     >NEXT SECTION                           JUMP unconditional
                                                                                                                   
          34000    PROCR   340       340                                                                           
          34002    81      340      2   0  0              0        340                                             START OF SUBROUTINE
          34003    55      8        0   1  0             52                                                        BULK COPY
          34004    C       7        0   1  0              0                                                        
          34005    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          34006    37      7        2   0  0              0                                                        REPLACE SELECTED BITS
          34007    80      511      2   0  0              0        511     PRINT                                   ENTER SUBROUTINE
          34008    82      340      2   0  0              0        340                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34100    TABLE   341       341     1                                                                     
          34101     NOTES                                                                                          
          34102    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          34104    66     2     0     0  2  0   5   0  11   0  0  0  0     PROGM/ENTRY                             
          34106    66     4     0     0  1  0   5   5   1   2  0  0  0     SUITE/PROCR                             
          34108    66     6     0     0  2  0   5   0   2   0  0  0  0     JOB/PRIORITY                            
          34110    66     8     0     0  2  0   5   0   1   0  0  0  1     SERIAL/CODER                            
          34112   343    12     0     0  2  0   5   0   0   0  0  0  0     ALIGN MARKS                             
          34114   343    10     0     0  2  0   5   0   0   0  0  0  0     'INDEX'                                 
          34116   543    20     0     0  0  0   5   0   0   0  0  0  0                                             
          34118   343    15     0     0  0  0   1   3   4   0  0  0  0     '4'                                     
          34120    66     4     0     0  1  0   3   7   0   0  0  0  0     PROG SUITE                              
          34122    66     6     0     0  2  0   2   3   0   0  0  0  0     PROG ID                                 
          34124    66     8     0     0  2  0   5   0   0   0  0  0  0     PROG SERIAL                             
          34126   544     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          34128    92     5     0     0  0  0   5   0   0   4  0  0  0     FP IND                                  
          34130    92     4     0     0  0  0   5   0   0   4  0  0  0     MG                                      
          34132    66     6     0     0  2  0   5   0   0   0  0  0  0     PRIORITY                                
          34134    92     0     0     0  0  0   5   0   0   4  0  0  0     CHAPS+1                                 
          34136    92    29     0     0  0  0   5   0   0   4  0  0  0     CHAPS INITIALLY                         
          34138   544     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          34140    66    10     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          34142    66     0     0     0  2  0   5   0   5   0  0  0  0     SERIAL/CODER                            
          34144    66     2     0     0  1  0   5   5   4   4  0  0  0     SEC NO                                  
          34146    66     4     0     0  1  0   5   5   3   4  0  0  0     LENGTH                                  
          34148    66     6     0     0  1  0   5   5   0   4  0  0  0     TX AREA IND                             
          34150    66     8     0     0  1  0   5   5   3   4  0  0  1     CHAP                                    
          34152    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND == FILES                      
          34154    66     2     0     0  2  0   5   0  15   0  0  0  0     FILE ID                                 
          34156    66     4     0     0  1  0   5   5   1   4  0  0  0     ROUTE TYPE                              
          34158    66     6     0     0  1  0   5   5   2   4  0  0  0     RETN PERIOD                             
          34160    66     8     0     0  1  0   5   5   2   4  0  0  0     MBS                                     
          34162    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
          34164    66     2     0     0  2  0   5   0   0   0  0  0  0     FILE ID == FILES                        
          34166    66     4     0     0  1  0   5   5   0   4  0  0  0     ROUTE TYPE                              
          34168    66     6     0     0  1  0   5   5   0   4  0  0  0     RETN PERIOD                             
          34170    66     8     0     0  1  0   5   5   0   4  0  0  0     MBS                                     
          34172    61     0     0     0  0  0   5   0   0   4  0  0  0     START LOCN                              
  Source image: P1000332.JPG
          34174    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
                                                                                                                   
          34200    TABLE   342       342     1                                                                     
          34202    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          34204    66     2     0     0  2  0   5   0   1   0  0  0  0     'CHAPS'                                 
          34206    66     4     0     0  0  0   5   0   0   4  0  0  0     NUMBER OF CHAPS                         
          34208    66     6     0     0  0  0   5   0   1   4  0  0  0     1                                       
          34210    66     7     0     0  0  0   5   0   1   5  0  0  0     2                                       
          34212    66     8     0     0  0  0   5   0   1   5  0  0  0     3                                       
          34214    66     9     0     0  0  0   5   0   1   5  0  0  0     4                                       
          34216    66    10     0     0  0  0   5   0   1   5  0  0  0     5                                       
          34218    66    11     0     0  0  0   5   0   1   5  0  0  0     6                                       
          34220    66    12     0     0  0  0   5   0   1   5  0  0  0     7                                       
          34222    66    13     0     0  0  0   5   0   1   5  0  0  0     8                                       
          34224    66    14     0     0  0  0   5   0   1   5  0  0  0     9                                       
          34226    66    15     0     0  0  0   5   0   1   5  0  0  0     10                                      
          34228    66    16     0     0  0  0   5   0   1   5  0  0  0     11                                      
          34230    66    17     0     0  0  0   5   0   1   5  0  0  0     12                                      
          34232    66    18     0     0  0  0   5   0   1   5  0  0  0     13                                      
          34234    66    19     0     0  0  0   5   0   1   5  0  0  1     14-TH START                             
          34236   343    10     0     0  2  0   5   0   6   0  0  0  0     'INDEX'                                 
          34238    92    29     0     0  0  0   1   4   4   0  0  0  0     CHAPS INITIALLY                         
          34240    92    10     0     0  0  0   1   4   5   1  0  0  0     CORRECTED CHAPTER NUMBERS               
          34242    92    11     0     0  0  0   1   4   5   1  0  0  0                                             
          34244    92    12     0     0  0  0   1   4   5   1  0  0  0                                             
          34246    92    13     0     0  0  0   1   4   5   1  0  0  0                                             
          34248    92    14     0     0  0  0   1   4   5   1  0  0  0                                             
          34250    92    15     0     0  0  0   1   4   5   1  0  0  0                                             
          34252    92    16     0     0  0  0   1   4   5   1  0  0  0                                             
          34254    92    17     0     0  0  0   1   4   5   1  0  0  0                                             
          34256    92    18     0     0  0  0   1   4   5   1  0  0  0                                             
          34258    92    19     0     0  0  0   1   4   5   1  0  0  0                                             
          34260    92    20     0     0  0  0   1   4   5   1  0  0  0                                             
          34262    92    21     0     0  0  0   1   4   5   1  0  0  0                                             
          34264    92    22     0     0  0  0   1   4   5   1  0  0  0                                             
          34266    92    23     0     0  0  0   1   4   5   1  0  0  1     LAST ENTRY                              
                                                                                                                   
          34300    CONST   343       343     1    FOR PASS 2 PREP STAGE                                            
          34302          (R)91:6;                                                                                  
          34304          (A)PROGM;                                                                                 
          34306          ENTRY;                                                                                    
          34308          CHAPS;                                                                                    
          34310          INDEX;                                                                                    
          34312          (D)6£6£6£6£6£;                                                                            
          34314          0514908000;                                       08000 FILE A9                           
          34316          (A);                                                                                      
                                                                                                                   
          34400    PROCR   344       344     DUMMIES FOR SEC 61 DESCRIPTION                                        
          34401     NOTES  344                                                                                     SELECT
          34402            61       0   0  0              0                ACTION WL/ENTRY POINT                   SELECT
          34403            61       1   0  0              0                NON-ARITH IND                           SELECT
                                                                                                                   
          34500    PROCR   345       345                                                                           
          34502    81      345      2   0  0              0        345                                             START OF SUBROUTINE
          34503    0       345      2   0  0              0        345                                             SELECT
          34504    5       509      2   0  0              0        509                                             TRANSFER
          34505    76      509      8   0  0              0        509                                             JUMP unconditional
                                                                                                                   
          34600    PROCR   346       346     FORM PARA CTR ETC                                                     
          34601     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33715>                                                                                                         
    33712>                                                                                                         
  Source image: P1000333.JPG
    33709>34602    80      345      2   0  0              0        345                                             ENTER SUBROUTINE
          34603    80      363      2   0  0              0        363     >EDIT FIRST DIRECTIVE                   ENTER SUBROUTINE
          34604    10               0   0  0              0                                                        SELECT LITERAL
          34605    5       545     99   0  0              0        545                                             TRANSFER
          34606            61      39   0  0              0                                                        SELECT
          34607    11               0   0  0              1                FORM                                    ADD LITERAL
          34608    3       61      41   0  0              0                MOD GROUP PARAMETER                     COPY
          34609    11               0   0  0              4                                                        ADD LITERAL
          34610    5       61      39   0  0              0                TOTAL NO OF PARAMETORS                  TRANSFER
          34611    0       92       8   0  0              0                LIST END                                SELECT
          34612    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          34613    1       544     17   0  0              0        544     ABS ADDRESS 18:0                        ADD
          34614    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          34615            544     16   0  0              0        544     ABS ADDRESS 18:2499                     SELECT
          34616    5       61     118   0  0              0                LOCN CTR SC'S FWD                       TRANSFER
          34617            544      4   1  0              0        544     0:144                                   SELECT
          34618    5       61      44   1  0              0                O/P MOD CTR                             TRANSFER
          34619    10               0   0  0              1                                                        SELECT LITERAL
          34620    5       61     111   0  0              0                UNCORRECTED CHAP NO.                    TRANSFER
          34621    5       91       0   0  0              0                                                        TRANSFER
          34622    54      63       0   1  0            580                63+62+20                                BULK CLEAR
    36819>34623    10               0   0  0             41                                                        SELECT LITERAL
          34624    5       61      26   1  0              0                TYPE                                    TRANSFER
          34625    5       61      28   1  0              0                SECTION NO.                             TRANSFER
          34626    80      516      2   0  0              0        516     O/P TYPE S/R        THIS CLEARS S67 INITENTER SUBROUTINE
          34627    10               0   0  0              1                                                        SELECT LITERAL
          34628    5       61      42   1  0              0                                                        TRANSFER
          34629    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          34630    5       67       0   0  0              0                67/0 NOT CLEARED BY O/P TYPE S/R        TRANSFER
                                                                                                                   
          34700    PROCR   347       347     O/P PARAS                                                             
          34701     NOTES          RADIX     B    CHAP START ROUTINE                                               SELECT
          34702            61      39   0  0              0                PARA CTR                                SELECT
          34703    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          34704    5       61       0   1  0              0                                                        TRANSFER
          34705    91      61       0   1  3              0                M/R 3 AT W/L                            SET MODIFICATION REGISTER AT VARIABLE
    34709>34706    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
          34707    5       67       2   0  0              0                                                        TRANSFER
          34708    80      518      2   0  0              0        518                                             ENTER SUBROUTINE
          34709    94      347      6   0  3              1        347                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          34710    10               0   0  0              3                                                        SELECT LITERAL
          34711    4       61       5   0  0              0                LONG PROCR                              AUGMENT
          34712    4       61       6   0  0              0                SHORT PROCR                             AUGMENT
          34713    4       61       7   0  0              0                TSL PROCR                               AUGMENT
          34714    10               0   0  0              0                                                        SELECT LITERAL
          34715    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          34716    124     61     111   0  0              0                UNCORRECTED CHAP NO                     modify address of next
          34717    36      92       9   0  0              0                CORRECTED CHAP NUMBER                   COLLATE AND ADD
          34718    3       61      51   0  0              0                                                        COPY
          34719    1       61      51   0  0              0                                                        ADD
          34720    5       61       3   0  0              0                                                        TRANSFER
          34721            61       5   0  0              0                                                        SELECT
          34722    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          34723    1       61       3   0  0              0                                                        ADD
          34724    5       61       4   0  0              0                LN:2C                                   TRANSFER
          34725    10               0   0  0         .0000.                14:14                                   SELECT LITERAL
          34726    5       61      12   1  0              0                LN CTR                                  TRANSFER
          34727    5       61      14   1  0              0                SN CTR                                  TRANSFER
  Source image: P1000334.JPG
          34728            544     18   1  0              0        544     SE   Ю½      ‼         Ю Ю   ‼      ‼‼  SELECT
          34729    5       61      16   1  0              0                TSL CTR                                 TRANSFER
          34730    5       61      10   1  0              0                                                        TRANSFER
          34731    80      518      2   0  0              0        518     O/P ZERO COMPARTMENTFOR LINK            ENTER SUBROUTINE
          34732    80      453      2   0  0              0        453     O/P 25/1/1 4096+24/0/3 0                ENTER SUBROUTINE
          34733    10               0   0  0            700                7 IN Q3                                 SELECT LITERAL
          34734    5       67       1   0  0              0                SET'MR ENTRY' IND                       TRANSFER
          34735    0       545     60   0  0              0        545     23/0/2 0                                SELECT
          34736    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          34737    80      518      2   0  0              0        518     O/P TWO ZERO COMPARTMENTS               ENTER SUBROUTINE
          34738    80      518      2   0  0              0        518                                             ENTER SUBROUTINE
          34739            546     15   0  0              0        546     26/0/1/6-                               SELECT
          34740    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
                                                                                                                   
          34800    PROCR   348       348     SECTION START ROUTINE                                                 
          34801     NOTES          RADIX     B                                                                     SELECT
    36510>                                                                                                         
    36512>34802    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          34803                     6   1 12              0                                                        SELECT
          34804    2       542      8   1  0              0        542     PROCR                                   SUBTRACT
          34805    71      348      9   0  0              0        348                                             JUMP IF A != 0
          34806    10               0   0  0              1                                                        SELECT LITERAL
          34807    5       61      42   0  0              0                                                        TRANSFER
          34808    76      350      4   0  0              0        350                                             JUMP unconditional
    34805>34809    1       542      8   1  0              0        542                                             ADD
          34810    2       542      2   1  0              0        542      'VALUE'                                SUBTRACT
          34811    70      351     24   0  0              0        351     >YES                                    JUMP IF A == 0
          34812    80      353      2   0  0              0        353     ROUND UP SPACE CTR                      ENTER SUBROUTINE
          34813                    14   2 12              0                CONST OR TABLE TYPE                     SELECT
          34814    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          34815    5       61      47   0  0              0                                                        TRANSFER
          34816    10               0   0  0              2                                                        SELECT LITERAL
          34817    5       61      42   0  0              0                                                        TRANSFER
          34818                     6   1 12              0                                                        SELECT
          34819    2       542      4   1  0              0        542     TABLE                                   SUBTRACT
          34820    70      350      3   0  0              0        350                                             JUMP IF A == 0
                                                                                                                   
          34900    PROCR   349       349     SECTION START ROUTINE                                                 
          34901     NOTES          RADIX     B                                                                     SELECT
                                                                                                                   
          35000    PROCR   350       350     SECTION START ROUTINE                                                 
          35001     NOTES          RADIX     B                                                                     SELECT
          35002    10               0   0  0              1                 'CONST'                                SELECT LITERAL
    34820>35003    11               0   0  0              1                TABLE                                   ADD LITERAL
    34808>35004    11               0   0  0              1                PROCR                                   ADD LITERAL
          35005    3       61      26   2  0              0                                                        COPY
          35006    84      352      2   0  0              0        352                                             SET SWITCH(ES) AT VARIABLE VALUE
          35007            7       12   2  0              0                NEW PROCR NO                            SELECT
                                                                                                                   
          35100    PROCR   351       351                                                                           
          35101     NOTES          RADIX     B                                                                     SELECT
          35102    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
          35103    3       61      28   2  0              0                                                        COPY
          35104    3       61      10   0  0              0                CURRENT PROCR                           COPY
          35105    2       72       2   0  0              0                ENTRY PROCR                             SUBTRACT
          35106    71      351      9   0  0              0        351     >NO                                     JUMP IF A != 0
          35107            61      43   0  0              0                                                        SELECT
          35108    5       27       5   0  0              0                ENTRY LOCN                              TRANSFER
    35106>35109    0       61      43   0  0              0                                                        SELECT
          35110    5       61      11   0  0              0                STORE PROCR START ADDRESS               TRANSFER
  Source image: P1000335.JPG
          35111    80      354      2   0  0              0        354     >SET'PRINT PROCEDURE'IND                ENTER SUBROUTINE
    35132>35112    80      516      2   0  0              0        516     O/P TYPE                                ENTER SUBROUTINE
    35126>35113    10               0   0  0             80                TRACK 8                                 SELECT LITERAL
          35114    5       61      46   0  0              0                HEAD OF FORM                            TRANSFER
          35115            27       4   0  0              0                COMPILER?                               SELECT
          35116    70      351     20   0  0              0        351     >NO                                     JUMP IF A == 0
          35117    5       545     99   0  0              0        545     (ALWAYS PRINT DIRECTIVE BLOX)           TRANSFER
          35118            23      46   0  0              0                                                        SELECT
          35119    70      351     21   0  0              0        351     >PARTIAL. NO BLANK LINE                 JUMP IF A == 0
    35116>35120    80      530      2   0  0              0        530     >SECOND PRINT SR                        ENTER SUBROUTINE
    35119>35121    80      510      2   0  0              0        510     >PRINT                                  ENTER SUBROUTINE
          35122    80      360      2   0  0              0        360     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          35123    76      362      2   0  0              0        362                                             JUMP unconditional
    36218>                                                                                                         
    34811>35124    86      352      2   0  0              0        352                         'VALUE' DIRECTIVE   SELECT SWITCH R
          35125    12               0   0  0              7                                                        SUBTRACT LITERAL
          35126    70      351     13   0  0              0        351     >'VALUE' FOLLOWS 'VALUE'                JUMP IF A == 0
          35127    10               0   0  0              7                                                        SELECT LITERAL
          35128    3       61      26   2  0              0                                                        COPY
          35129    84      352      2   0  0              0        352                                             SET SWITCH(ES) AT VARIABLE VALUE
          35130    5       61      28   1  0              0                CLEAR 'PROCR NUMBER'                    TRANSFER
          35131    5       61      42   0  0              0                CLEAR SPACE CTR INCREMENT               TRANSFER
          35132    76      351     12   0  0              0        351                                             JUMP unconditional
                                                                                                                   
          35200    PROCR   352       352     SWITCH A                                                              
          35201     NOTES          RADIX     B                                                                     SELECT
    36205>                                                                                                         
    36228>35202    85      352      2   0  0              0        352                                             SWITCH R
          35203    C       370      2   0  0              0        370     INST                                    
          35204    C       475      2   0  0              0        475     TABLE                                   
          35205    C       454      2   0  0              0        454     CONST                                   
          35206    C       362      2   0  0              0        362     DUMMY                                   
          35207    C       362      2   0  0              0        362      ' '                                    
          35208    C       362      2   0  0              0        362      ' '                                    
          35209    C       480      2   0  0              0        480     VALUE                                   
                                                                                                                   
          35300    PROCR   353       353     SUBROUTINE 1                                                          
          35301     NOTES          RADIX     B    ROUND OFF TO MULT OF 2                                           SELECT
          35302    81      353      2   0  0              0        353                                             START OF SUBROUTINE
          35303    10               0   0  0              0                                                        SELECT LITERAL
          35304    34      544      6   0  0              0        544                                             SET (N) IN B
          35305    36      61      43   0  0              0                SPACE CTR                               COLLATE AND ADD
          35306    70      353     11   0  0              0        353                                             JUMP IF A == 0
          35307    5       61      42   0  0              0                                                        TRANSFER
          35308    5       67       0   1  0              0                                                        TRANSFER
          35309    5       67       2   1  0              0                                                        TRANSFER
          35310    80      518      2   0  0              0        518     >O/P ZERO LOCATION                      ENTER SUBROUTINE
    35306>35311    82      353      2   0  0              0        353                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35400    PROCR   354       354     EXTRACT 'PRINT' PROCEDURE'IND FROM ARRAY IN SEC 23                    
          35402    81      354      2   0  0              0        354                                             START OF SUBROUTINE
          35403    19      61      10   0  0             14                PROCR/20                                DIVIDE LITERAL
          35404    5       355      2   0  0              0        355                                             TRANSFER
          35405    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          35406    5       356      2   0  0              0        356     REMAINDER                               TRANSFER
          35407    34      543     22   0  0              0        543     L  ‼ 35406 Ю  35411 Ю  ‼        Ю       SET (N) IN B
          35408    124     356      2   0  1              0        356                                             modify address of next
          35409    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          35410    124     355      2   0  1              0        355                                             modify address of next
          35411    36      23       5-  0  0              0                                                        COLLATE AND ADD
  Source image: P1000336.JPG
          35412    5       23      47   0  0              0                NON-ZERO TO PRINT WHOLE PROCR           TRANSFER
          35413    82      354      2   0  0              0        354                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35500    PROCR   355       355     O/P WITH ZERO REF: PARA=2C                                            
          35501     NOTES  355                                                                                     SELECT
          35502    81      355      2   0  0              0        355     (A)=INSTRUCTION                         START OF SUBROUTINE
          35503    5       67       3   0  0              0                                                        TRANSFER
          35504            61       3   0  0              0                2C                                      SELECT
          35505    5       67       2   0  0              0                                                        TRANSFER
          35506    80      518      2   0  0              0        518                                             ENTER SUBROUTINE
          35507    82      355      2   0  0              0        355                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35600    PROCR   356       356     O/P NON-ARITH INSTRUCTION                                             
          35601     NOTES  356                                                                                     SELECT
          35602    81      356      2   0  0              0        356                                             START OF SUBROUTINE
          35603    5       61       0   0  0              0                                                        TRANSFER
          35604    10               0   0  0              1                                                        SELECT LITERAL
          35605    5       61       1   0  0              0                                                        TRANSFER
          35606    80      536      2   0  0              0        536     >COMPLEX O/P                            ENTER SUBROUTINE
          35607    82      356      2   0  0              0        356                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35700    PROCR   357       357     TEST SHORT/LONG NUMBER                                                
          35701     NOTES  357                                                                                     SELECT
          35702    81      357      2   0  0              0        357                                             START OF SUBROUTINE
          35703    5       61       0   0  0              0                STORE ACTION                            TRANSFER
          35704            61      53   0  0              0                                                        SELECT
          35705    70      357      8   0  0              0        357     >SHORT NO                               JUMP IF A == 0
          35706    80      481      2   0  0              0        481     >LONG NO S/R                            ENTER SUBROUTINE
          35707    82      357      2   0  0              0        357                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    35705>35708    80      483      2   0  0              0        483     >SHORT NO S/R                           ENTER SUBROUTINE
          35709    82      357      2   0  0              0        357                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35800    PROCR   358       358     O/P ARITH INSTRUCTION                                                 
          35801     NOTES  358                                                                                     SELECT
          35802    81      358      2   0  0              0        358                                             START OF SUBROUTINE
          35803    5       61       0   0  0              0                                                        TRANSFER
          35804    5       61       1   0  0              0                                                        TRANSFER
          35805    80      536      2   0  0              0        536     >COMPLEX O/P                            ENTER SUBROUTINE
          35806    82      358      2   0  0              0        358                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35900    PROCR   359       359     O/P WITH ZERO REF/PARA                                                
          35901     NOTES  359                                                                                     SELECT
          35902    81      359      2   0  0              0        359                                             START OF SUBROUTINE
          35903    5       67       3   0  0              0                                                        TRANSFER
          35904    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          35905    82      359      2   0  0              0        359                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36000    PROCR   360       360                                                                           
          36002    81      360      2   0  0              0        360                                             START OF SUBROUTINE
          36003    54      7        2   1  0             48                BULK CLEAR SECTION 7                    BULK CLEAR
          36004    82      360      2   0  0              0        360                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36100    PROCR   361       361     LN:2C SUBROUTINE                                                      
          36101     NOTES  361                                                                                     SELECT
          36102    81      361      2   0  0              0        361     (A)=INSTRUCTION                         START OF SUBROUTINE
          36103    5       67       3   0  0              0                                                        TRANSFER
          36104    0       61       4   0  0              0                LN:2C FOR FIRST LN PROCR                SELECT
          36105    5       67       2   0  0              0                IN CHAP                                 TRANSFER
          36106    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          36107    82      361      2   0  0              0        361                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    37623>                                                                                                         
    37927>                                                                                                         
    38609>                                                                                                         
    41326>                                                                                                         
    43228>                                                                                                         
    44526>                                                                                                         
  Source image: P1000337.JPG
    44534>36108    80      361      2   0  0              0        361     (THEN GET NEXT BLOCK)                   ENTER SUBROUTINE
                                                                                                                   
          36200    PROCR   362       362     GET NEXT BLOCK                                                        
          36201     NOTES          RADIX     B                                                                     SELECT
    36231>                                                                                                         
    37010>                                                                                                         
    37011>                                                                                                         
    37013>                                                                                                         
    37313>                                                                                                         
    37413>                                                                                                         
    37513>                                                                                                         
    37805>                                                                                                         
    37911>                                                                                                         
    37912>                                                                                                         
    37919>                                                                                                         
    38211>                                                                                                         
    38822>                                                                                                         
    39731>                                                                                                         
    39733>                                                                                                         
    40116>                                                                                                         
    40125>                                                                                                         
    40129>                                                                                                         
    40313>                                                                                                         
    40822>                                                                                                         
    40913>                                                                                                         
    41020>                                                                                                         
    41515>                                                                                                         
    42405>                                                                                                         
    43022>                                                                                                         
    43127>                                                                                                         
    43132>                                                                                                         
    43213>                                                                                                         
    43312>                                                                                                         
    43421>                                                                                                         
    43609>                                                                                                         
    43709>                                                                                                         
    44113>                                                                                                         
    44508>                                                                                                         
    44522>                                                                                                         
    44836>                                                                                                         
    44917>                                                                                                         
    45113>                                                                                                         
    45232>                                                                                                         
    46118>                                                                                                         
    48044>                                                                                                         
    52809>                                                                                                         
    35208>                                                                                                         
    35207>                                                                                                         
    35206>                                                                                                         
    35123>36202    80      509      2   0  0              0        509     >READ                                   ENTER SUBROUTINE
    39726>                                                                                                         
    39730>                                                                                                         
    42335>                                                                                                         
    42372>                                                                                                         
    42515>                                                                                                         
    43610>                                                                                                         
    45204>                                                                                                         
    45225>                                                                                                         
  Source image: P1000338.JPG
    52209>36203                     6   1 12              0                                                        SELECT
          36204    2       542      6   1  0              0        542     'CONST'                                 SUBTRACT
          36205    73      352      2   0  0              0        352     >NOT A DIRECTIVE                        JUMP IF A < 0
          36206    80      363      2   0  0              0        363     EDIT DIRECTIVES                         ENTER SUBROUTINE
          36207                     6   1 12              0                                                        SELECT
          36208    2       542      6   1  0              0        542     'CONST'                                 SUBTRACT
          36209    70      365      2   0  0              0        365                                             JUMP IF A == 0
          36210    1       542      6   1  0              0        542                                             ADD
          36211    2       542      4   1  0              0        542     TABLE                                   SUBTRACT
          36212    70      365      2   0  0              0        365                                             JUMP IF A == 0
          36213    1       542      4   1  0              0        542                                             ADD
          36214    2       542      8   1  0              0        542     'PROCR'                                 SUBTRACT
          36215    70      365      2   0  0              0        365                                             JUMP IF A == 0
          36216    1       542      8   1  0              0        542                                             ADD
          36217    2       542      2   1  0              0        542     'VALUE'                                 SUBTRACT
          36218    70      351     24   0  0              0        351     >YES                                    JUMP IF A == 0
          36219    1       542      2   1  0              0        542                                             ADD
          36220    2       542     12   1  0              0        542     END(SPACE) (SPACE)                      SUBTRACT
          36221    71      362     26   0  0              0        362                                             JUMP IF A != 0
          36222    10               0   0  0              1                                                        SELECT LITERAL
          36223    5       61      48   0  0              0                                                        TRANSFER
          36224    80      364      2   0  0              0        364     >TEST PREVIOUS DIRECTIVE WAS 'VALUE'    ENTER SUBROUTINE
          36225    76      365     14   0  0              0        365                                             JUMP unconditional
    36221>36226    1       542     12   1  0              0        542                                             ADD
          36227    2       542     10   1  0              0        542     'NOTES'                                 SUBTRACT
          36228    71      352      2   0  0              0        352                                             JUMP IF A != 0
          36229    80      510      2   0  0              0        510     >PRINT 'NOTES' LINE                     ENTER SUBROUTINE
          36230    80      360      2   0  0              0        360     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          36231    76      362      2   0  0              0        362                                             JUMP unconditional
                                                                                                                   
          36300    PROCR   363       363     EDIT DIRECTIVES                                                       
          36302    81      363      2   0  0              0        363                                             START OF SUBROUTINE
          36303    80      360      2   0  0              0        360     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          36304            77       2   1  0              0                AMEND IND                               SELECT
          36305    5       7        2   1  0              0                                                        TRANSFER
          36306            77       4   1  0              0                LINE SERIAL                             SELECT
          36307    5       7        6   1  0              0                                                        TRANSFER
          36308            77       6   1  0              0                'PROCR/TABLE/CONST/NOTES/VALUE/END'     SELECT
          36309    5       7       10   1  0              0                                                        TRANSFER
          36310            77       8   1  0              0                PROCR NO                                SELECT
          36311    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          36312    5       7       12   1  0              0                                                        TRANSFER
          36313            77      10   1  0              0                OLD PROCR NO                            SELECT
          36314    5       7       16   1  0              0                                                        TRANSFER
          36315            77       6   1  0              0                                                        SELECT
          36316    2       542     10   1  0              0        542     'NOTES'                                 SUBTRACT
          36317    71      363     21   0  0              0        363     >NO                                     JUMP IF A != 0
          36318            77      12   1  0              0                'RADIX'                                 SELECT
          36319    5       7       16   1  0              0                                                        TRANSFER
          36320    76      363     23   0  0              0        363                                             JUMP unconditional
    36317>36321            77      12   1  0              0                PASS 1 REPORTS                          SELECT
          36322    5       7       48   1  0              0                                                        TRANSFER
    36320>36323            77       6   1  0              0                                                        SELECT
          36324    2       542      8   1  0              0        542     'PROCR'                                 SUBTRACT
          36325    70      363     29   0  0              0        363     >YES                                    JUMP IF A == 0
          36326            77      14   1  0              0                TABLE/CONST TYPE/RADIX LETTER           SELECT
  Source image: P1000339.JPG
          36327    5       7       20   1  0              0                                                        TRANSFER
          36328    76      363     31   0  0              0        363                                             JUMP unconditional
    36325>36329            77      14   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          36330    5       7       20   1  0              0                                                        TRANSFER
    36328>36331    55      77      16   1  0             26                COPY ANNOTATION                         BULK COPY
          36332    C       7       22   1  0              0                                                        
          36333    82      363      2   0  0              0        363                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36400    PROCR   364       364     DEAL WITH 'VALUE' DIRECTIVE                                           
          36401     NOTES  364                                                                                     SELECT
          36402    81      364      2   0  0              0        364                                             START OF SUBROUTINE
          36403    86      352      2   0  0              0        352     SWITCH LAST TIME THRU                   SELECT SWITCH R
          36404    12               0   0  0              7                                                        SUBTRACT LITERAL
          36405    71      364     15   0  0              0        364     >NOT 'VALUE'                            JUMP IF A != 0
          36406            542     10   1  0              0        542      'NOTES'                                SELECT
          36407    5       61      26   1  0              0                                                        TRANSFER
          36408    5       67       2   0  0              0                REF=0               ITEM=SPACE CTR      TRANSFER
          36409            61      43   0  0              0                                                        SELECT
          36410    5       67       3   0  0              0                                                        TRANSFER
          36411    80      517      2   0  0              0        517     >O/P TERMINAL 'REF' UNIT                ENTER SUBROUTINE
          36412    10               0   0  0              6                                                        SELECT LITERAL
          36413    5       61      26   2  0              0                                                        TRANSFER
          36414    80      516      2   0  0              0        516     >O/P'TYPE6'                             ENTER SUBROUTINE
    36405>36415    82      364      2   0  0              0        364                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36500    PROCR   365       365     TEST NEW CHAP                                                         
          36501     NOTES          RADIX     B                                                                     SELECT
    36215>                                                                                                         
    36212>                                                                                                         
    36209>36502    80      364      2   0  0              0        364     >TEST LAST DIRECTIVE WAS 'VALUE'        ENTER SUBROUTINE
          36503            7       12   2  0              0                NEW PROCR                               SELECT
          36504    5       61      35   0  0              0                                                        TRANSFER
          36505    124     61     111   0  0              0                THIS CHAP UNCORR                        modify address of next
          36506            92       9   0  0              0                LAST PROCR THIS CHAP                    SELECT
          36507    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          36508    80      538      2   0  0              0        538     >CONVERT TO DEC                         ENTER SUBROUTINE
          36509    2       61      35   0  0              0                                                        SUBTRACT
          36510    72      348      2   0  0              0        348     NOT NEW CHAP                            JUMP IF A >= 0
          36511    11               0   0  0              1                TEST THIS PROCEDURE SAFETY              ADD LITERAL
          36512    71      348      2   0  0              0        348     ONE GREATER THAN PREDEVICE              JUMP IF A != 0
          36513    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    36225>36514    80      353      2   0  0              0        353     >ROUND UP SPACE CTR                     ENTER SUBROUTINE
          36515    80      366      2   0  0              0        366     >ROUND UP FORMED SECTIONS               ENTER SUBROUTINE
          36516    80      367      2   0  0              0        367     >O/P FORMED SECTIONS                    ENTER SUBROUTINE
          36517    76      368      2   0  0              0        368                                             JUMP unconditional
                                                                                                                   
          36600    PROCR   366       366     ROUND UP SECTION CTRS                                                 
          36601     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          36602    81      366      2   0  0              0        366                                             START OF SUBROUTINE
          36603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          36604    C                0   0  0              6                                                        
    36611>36605    0       61      13   0  2              0                END VALUE                               SELECT
          36606    31               0   0  0              2                                                        SHIFT (A) BY BITS
          36607    32               0   0  0              1-               (DIVIDE BY 4)                           SHIFT (AB) BY QUARTETS
          36608    38               0   0  0              4                ROUND UP TO MULTIPLE OF 4               ROUND OFF
          36609    31               0   0  0              2                                                        SHIFT (A) BY BITS
          36610    5       61      13   0  2              0                                                        TRANSFER
          36611    94      366      5   0  2              2        366                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          36612    82      366      2   0  0              0        366                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000340.JPG
          36700    PROCR   367       367     O/P FORMED SECTIONS                                                   
          36701     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          36702    81      367      2   0  0              0        367                                             START OF SUBROUTINE
          36703    10               0   0  0         600000                                                        SELECT LITERAL
          36704    5       61       0   1  0              0                                                        TRANSFER
          36705    5       61      12   0  0              0                                                        TRANSFER
          36706    5       61       2   0  0              0                                                        TRANSFER
    36734>36707    91      61       2   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          36708            544      7   0  3              0        544     TYPE NO                                 SELECT
          36709    5       61      26   1  0              0                                                        TRANSFER
          36710            61       5   0  3              0                                                        SELECT
          36711    5       61      28   2  0              0                PROCR NUMBER                            TRANSFER
          36712    80      516      2   0  0              0        516     O/P TYPE                                ENTER SUBROUTINE
          36713            544     10   0  3              0        544                                             SELECT
          36714    5       61      42   0  0              0                NO OF LOCNS TO STEP ON LON CTR ON O/P   TRANSFER
          36715    124     61       0   0  0              0                                                        modify address of next
          36716            61      12   1  0              0                SECT COUNTER                            SELECT
          36717    5       61      30   1  0              0                                                        TRANSFER
          36718    0       61      30   0  0              0                                                        SELECT
          36719    2       61      31   0  0              0                                                        SUBTRACT
          36720    70      367     30   0  0              0        367     >NOTHING TO OUTPUT                      JUMP IF A == 0
    36729>36721            544     10   0  0              0        544     4                                       SELECT
          36722    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          36723    1       544     13   0  3              0        544     SECT NO OF TRANS SECT                   ADD
          36724    1       61      30   0  0              0                                                        ADD
          36725    128     67       0   0  0              0                                                        bulk copy short numeric
          36726    80      518      2   0  0              0        518     O/P                                     ENTER SUBROUTINE
          36727    123              4   0  0              0                                                        step on and test
          36728    C       61      30   0  0              0                                                        
          36729    76      367     21   0  0              0        367                                             JUMP unconditional
    36720>36730    10               0   0  0              1                                                        SELECT LITERAL
          36731    4       61       2   0  0              0                                                        AUGMENT
          36732    123              2   0  0              0                                                        step on and test
          36733    C       61       0   0  0              0                                                        
          36734    76      367      7   0  0              0        367                                             JUMP unconditional
          36735    82      367      2   0  0              0        367                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36800    PROCR   368       368     DEAL WITH TRANS VACANT SECTIONS                                       
          36801     NOTES          RADIX     B    CHAP END ROUTINE                                                 SELECT
    36517>36802    10               0   0  0              1                TYPE 1                                  SELECT LITERAL
          36803    5       61      26   2  0              0                                                        TRANSFER
          36804    101           1001   1  3              0                CALC SWITCH PROCR                       select literal address
          36805    1       61     111   0  0              0                THIS CHAP UNCORRECTED                   ADD
          36806    5       61      28   2  0              0                61/43= CHAP LENGTH                      TRANSFER
          36807    80      516      2   0  0              0        516     >O/P 'TYPE'                             ENTER SUBROUTINE
          36808            61      43   0  0              0                CHAP LENGTH                             SELECT
          36809    124     61     111   0  1              0                UNCORR CHAP                             modify address of next
          36810    5       72      17   0  0              0                STORE 72/18-36                          TRANSFER
          36811            542     24   1  0              0        542      'TYPE.'                                SELECT
          36812    5       61      26   1  0              0                                                        TRANSFER
          36813    5       61      28   1  0              0                                                        TRANSFER
          36814    80      517      2   0  0              0        517     ALPHA O/P SR                            ENTER SUBROUTINE
          36815    10               0   0  0              1                                                        SELECT LITERAL
          36816    1       61     111   0  0              0                                                        ADD
          36817    3       61     111   0  0              0                                                        COPY
          36818            61      48   0  0              0                                                        SELECT
          36819    70      346     23   0  0              0        346                                             JUMP IF A == 0
          36820    76      369      3   0  0              0        369                                             JUMP unconditional
                                                                                                                   
          36900    PROCR   369       369     PROG END ROUTINE                                                      
  Source image: P1000341.JPG
          36901     NOTES          RADIX     B                                                                     SELECT
          36902    76      369      9   0  0              0        369     THIS AN ORDER CONTANT                   JUMP unconditional
    36820>36903    80      520      2   0  0              0        520     -O/P REMAINING DETS S/R                 ENTER SUBROUTINE
          36904    0       545      6   0  0              0        545     ALL THE £'S                             SELECT
          36905    5       66       2   1  0              0                SET AS BLOCK SERIAL                     TRANSFER
          36906            369      2   0  0              0        369                                             SELECT
          36907    5       526      2   0  0              0        526     PLANT AN EXIT ORDER                     TRANSFER
          36908    76      522     23   0  0              0        522     >I/P C-LINE SR                          JUMP unconditional
    36902>36909    10               0   0  0              1                                                        SELECT LITERAL
          36910    5       23      47   0  0              0                ALWAYS PRINT END SIGN                   TRANSFER
          36911    80      530      2   0  0              0        530     >BLANK LINE                             ENTER SUBROUTINE
          36912    80      511      2   0  0              0        511     >PRINT END SIGN                         ENTER SUBROUTINE
          36913            72       2   0  0              0                ENTRY POINT                             SELECT
          36914    5       61      35   0  0              0                                                        TRANSFER
          36915    80      486      2   0  0              0        486                                             ENTER SUBROUTINE
          36916    5       92       8   0  0              0                CHAP OF ENTRY                           TRANSFER
          36917            27       5   0  0              0                ENTRY LOCN                              SELECT
          36918    5       92       6   0  0              0                                                        TRANSFER
          36919    0       542     30   1  0              0        542     'TYPE£'                                 SELECT
          36920    5       9        4   1  0              0                                                        TRANSFER
          36921            544      2   1  0              0        544                                             SELECT
          36922    5       9        6   1  0              0                BEW                                     TRANSFER
          36923    80      514      2   0  0              0        514     -O/P REMAINING DETS S/R                 ENTER SUBROUTINE
    36931>36924    80      539      2   0  0              0        539     >READ A2                                ENTER SUBROUTINE
          36925            8        4   1  0              0                                                        SELECT
          36926    12               0   0  0     5659655972                'FINIS'                                 SUBTRACT LITERAL
          36927    70      369     32   0  0              0        369     >END                                    JUMP IF A == 0
          36928    55      8        4   1  0             50                                                        BULK COPY
          36929    C       9        4   1  0              0                                                        
          36930    80      514      2   0  0              0        514     >WRITE A6                               ENTER SUBROUTINE
          36931    76      369     24   0  0              0        369                                             JUMP unconditional
    36927>36932    55      70       0   1  0            100                COPY DETAILS FOR PASS 3                 BULK COPY
          36933    C       9        0   1  0              0                                                        
          36934            27       4   0  0              0                COMPILER?                               SELECT
          36935    71      327      2   0  0              0        327     >YES, CALL PASS 3                       JUMP IF A != 0
          36936    45      A6       0   0  0              0                REWIND O/P FILE                         REWIND
          36937    76      327      2   0  0              0        327     >CALL PASS 3                            JUMP unconditional
                                                                                                                   
          37000    PROCR   370       370     INST ROUTINE                                                          
          37001     NOTES          RADIX     B    NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE             SELECT
    35203>37002    10               0   0  0              1                                                        SELECT LITERAL
          37003    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          37004    80      522      2   0  0              0        522     -I/P C-LINE S/R                         ENTER SUBROUTINE
          37005            66       2   1  0              0                LINE SERIAL                             SELECT
          37006    5       67       0   1  0              0                                                        TRANSFER
          37007    5       61       2   0  0              0                CLEAR MOD DIGITS                        TRANSFER
          37008    5       61      25   0  0              0                SET BINARY INDICATOR                    TRANSFER
          37009    0       61     110   0  0              0                GROUP+1                                 SELECT
          37010    70      362      2   0  0              0        362     G.N.B.                                  JUMP IF A == 0
          37011    73      362      2   0  0              0        362     G.N.B.                                  JUMP IF A < 0
          37012    12               0   0  0             11                                                        SUBTRACT LITERAL
          37013    72      362      2   0  0              0        362     G.N.B.                                  JUMP IF A >= 0
          37014    84      372      2   0  0              0        372     SWITCH B (GROUP)                        SET SWITCH(ES) AT VARIABLE VALUE
          37015    C       61     110   0  0              0                                                        
          37016    84      381      2   0  0              0        381     VARIANT SWITCH                          SET SWITCH(ES) AT VARIABLE VALUE
          37017    C       61      50   0  0              0                VARIANT+1                               
          37018    0       61      13   0  0              0                LONG                                    SELECT
          37019    101            148   1  2              0                TEST 32 REMAIN                          subtract literal address
          37020    72      371      2   0  0              0        371     >DUMP                                   JUMP IF A >= 0
          37021    0       61      15   0  0              0                SHORT                                   SELECT
  Source image: P1000342.JPG
          37022    101             56   1  2              0                TEST 3 REMAIN                           subtract literal address
          37023    72      371      2   0  0              0        371     >DUMP                                   JUMP IF A >= 0
          37024    0       61      17   0  0              0                TSL                                     SELECT
          37025    101            218   1  2              0                TEST 1 REMAINS                          subtract literal address
          37026    73      372      2   0  0              0        372     >OK                                     JUMP IF A < 0
                                                                                                                   
          37100    PROCR   371       371                                                                           
          37101     NOTES  371                                                                                     SELECT
    37023>                                                                                                         
    37020>37102    80      366      2   0  0              0        366     >ROUND UP CTRS                          ENTER SUBROUTINE
          37103    0       61      17   0  0              0                                                        SELECT
          37104    2       61      16   0  0              0                TWICE TSL'S                             SUBTRACT
          37105    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          37106    1       61      15   0  0              0                SHORT                                   ADD
          37107    1       61      13   0  0              0                LONG                                    ADD
          37108    5       366      2   0  0              0        366     INCREMENT TO SPACE CTR                  TRANSFER
          37109    34      544      6   0  0              0        544     BIT 1                                   SET (N) IN B
          37110    36      61      43   0  0              0                SPACE CTR                               COLLATE AND ADD
          37111    12               0   0  0              2                                                        SUBTRACT LITERAL
          37112    2       366      2   0  0              0        366     LENTH OF FORMED CONSTANTS               SUBTRACT
          37113    1       545     46   0  0              0        545     24/1/0 TO NEXT ORDER                    ADD
          37114    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          37115    80      353      2   0  0              0        353     >ROUND UP SPACE CTR                     ENTER SUBROUTINE
          37116    80      367      2   0  0              0        367     >O/P FORMD SECTIONS                     ENTER SUBROUTINE
          37117    10               0   0  0              1                                                        SELECT LITERAL
          37118    5       61      42   0  0              0                SPACE CTR INCR                          TRANSFER
          37119    5       61       2   0  0              0                CLEAR                                   TRANSFER
          37120    54      63       0   1  0            280                CLEAR 63+62                             BULK CLEAR
          37121    0       542      6   1  0              0        542     'CONST'                                 SELECT
          37122    5       5        2   1  0              0                                                        TRANSFER
          37123    5       61      12   1  0              0                                                        TRANSFER
          37124    5       61      14   1  0              0                                                        TRANSFER
          37125    80      530      2   0  0              0        530     >PRINT                                  ENTER SUBROUTINE
          37126    0       544     18   1  0              0        544     180:180                                 SELECT
          37127    5       61      16   1  0              0                TSL CTR                                 TRANSFER
          37128    10               0   0  0              3                                                        SELECT LITERAL
          37129    4       61       5   0  0              0                AUG PROCR NUMBERS                       AUGMENT
          37130    4       61       6   0  0              0                                                        AUGMENT
          37131    4       61       7   0  0              0                                                        AUGMENT
          37132    10               0   0  0              6                                                        SELECT LITERAL
          37133    5       61      26   2  0              0                                                        TRANSFER
          37134    80      516      2   0  0              0        516     >O/P 'TYPE 6'                           ENTER SUBROUTINE
                                                                                                                   
          37200    PROCR   372       372     SWITCH B                                                              
          37201     NOTES          RADIX     B                                                                     SELECT
    37026>37202    10               0   0  0              0                                                        SELECT LITERAL
          37203    85      372      2   0  0              0        372                                             SWITCH R
          37204    C       373      2   0  0              0        373     GRP 0                                   
          37205    C       374      2   0  0              0        374     1                                       
          37206    C       379      2   0  0              0        379     2                                       
          37207    C       381      2   0  0              0        381     3                                       
          37208    C       387      2   0  0              0        387     4                                       
          37209    C       400      2   0  0              0        400     5                                       
          37210    C       411      2   0  0              0        411     6                                       
          37211    C       417      2   0  0              0        417     7                                       
          37212    C       422      2   0  0              0        422     8                                       
          37213    C       430      2   0  0              0        430     9                                       
          37214    C       440      5   0  0              0        440     10                                      
          37215    C       440      4   0  0              0        440     11                                      
          37216    C       440      3   0  0              0        440     12                                      
  Source image: P1000343.JPG
          37217    C       440      2   0  0              0        440     13                                      
          37218    C       445      2   0  0              0        445     14                                      
          37219    C       447      2   0  0              0        447     15                                      
                                                                                                                   
          37300    PROCR   373       373     GROUP 0 ACTIONS                                                       
          37301     NOTES          RADIX     B                                                                     SELECT
    37204>37302            61      50   0  0              0                                                        SELECT
          37303    12               0   0  0              8                                                        SUBTRACT LITERAL
          37304    73      373     10   0  0              0        373     >ACTIONS 0-6                            JUMP IF A < 0
          37305    12               0   0  0              2                                                        SUBTRACT LITERAL
          37306    72      373     14   0  0              0        373     >ACTION 9                               JUMP IF A >= 0
          37307            545     27   0  0              0        545     0/0/2                                   SELECT
          37308    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          37309    80      521      2   0  0              0        521     >I/P INSTRUCTION                        ENTER SUBROUTINE
    37316>                                                                                                         
    37304>37310    124     61      50   0  1              0                VARIANT+1                               modify address of next
          37311            545      7   0  0              0        545                                             SELECT
    37626>                                                                                                         
    37916>                                                                                                         
    38404>                                                                                                         
    41403>                                                                                                         
    44519>37312    80      358      2   0  0              0        358     >COMPLES O/P ARITH                      ENTER SUBROUTINE
          37313    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
    37306>37314            545     18   0  0              0        545     18/1/1 1                                SELECT
          37315    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          37316    76      373     10   0  0              0        373                                             JUMP unconditional
                                                                                                                   
          37400    PROCR   374       374     GROUP 1 ACTIONS                                                       
          37401     NOTES          RADIX                                                                           SELECT
    37205>37402            66      14   1  0              0                LITERAL                                 SELECT
          37403    5       61      52   1  0              0                                                        TRANSFER
          37404            61      50   0  0              0                VARIANT+1                               SELECT
          37405    12               0   0  0              4                                                        SUBTRACT LITERAL
          37406    72      376      2   0  0              0        376     >NOT ACTIONS 10-12                      JUMP IF A >= 0
          37407            66      15   0  0              0                                                        SELECT
          37408    70      374     14   0  0              0        374     >SHORT LITERAL                          JUMP IF A == 0
          37409    124     61      50   0  0              0                                                        modify address of next
          37410            545      7   0  0              0        545                                             SELECT
          37411    5       61       0   1  0              0                                                        TRANSFER
          37412    80      481      2   0  0              0        481     LONG NO S/R                             ENTER SUBROUTINE
          37413    76      362      2   0  0              0        362     G.N.B                                   JUMP unconditional
    37408>37414            61      50   0  0              0                VARIANT +1                              SELECT
          37415    12               0   0  0              2                TEST VARIANT >0                         SUBTRACT LITERAL
          37416    72      375      2   0  0              0        375     >NOT ACTION 10                          JUMP IF A >= 0
          37417            66      14   1  0              0                                                        SELECT
          37418    73      375      9   0  0              0        375     -                                       JUMP IF A < 0
                                                                                                                   
          37500    PROCR   375       375     GROUP 1 ACTIONS 0-2                                                   
          37501     NOTES          RADIX     B                                                                     SELECT
    37416>37502            544     22   0  0              0        544     1                                       SELECT
          37503    2       66      14   0  0              0                LITERAL (MODULUS)                       SUBTRACT
          37504    73      375      9   0  0              0        375     >NOT LITERAL                            JUMP IF A < 0
          37505    124     61      50   0  0              0                                                        modify address of next
          37506            545     21   0  0              0        545                                             SELECT
          37507    1       66      14   0  0              0                                                        ADD
          37508    76      382      9   0  0              0        382     -                                       JUMP unconditional
    37504>                                                                                                         
    37418>37509    124     61      50   0  0              0                                                        modify address of next
          37510            545      7   0  0              0        545                                             SELECT
    41109>37511    5       61       0   0  0              0                                                        TRANSFER
  Source image: P1000344.JPG
    40907>37512    80      483      2   0  0              0        483     SHORT NO S/R                            ENTER SUBROUTINE
          37513    76      362      2   0  0              0        362     -G.N.B.                                 JUMP unconditional
                                                                                                                   
          37600    PROCR   376       376     ACTION 16                                                             
          37601     NOTES          RADIX     B                                                                     SELECT
    37406>37602    80      534      2   0  0              0        534     -SUSPEND S/R                            ENTER SUBROUTINE
          37603    54      66       6   0  0              8                                                        BULK CLEAR
          37604            61      50   0  0              0                VARIANT +1                              SELECT
          37605    12               0   0  0              8                TEST VARIANT >6                         SUBTRACT LITERAL
          37606    72      377      2   0  0              0        377     >ACTIONS 17 OR 19                       JUMP IF A >= 0
          37607            61      26   1  0              0                SUSPENDED REF                           SELECT
          37608    34      61      28   1  0              0                ITEM                                    SET (N) IN B
          37609    75      376     12   0  0              0        376     >ON(N)                                  JUMP IF AB != 0
          37610            61      32   1  0              0                SUSPENDED MOD                           SELECT
          37611    70      376     15   0  0              0        376     >ON(A)                                  JUMP IF A == 0
    37609>37612            545     22   0  0              0        545     1/1/30                                  SELECT
          37613    80      359      2   0  0              0        359     ZERO REF/PARA                           ENTER SUBROUTINE
          37614    76      376     17   0  0              0        376                                             JUMP unconditional
    37611>37615            546      4   0  0              0        546     2/1/0/6                                 SELECT
    37707>37616    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
    37705>                                                                                                         
    37614>37617            545     27   0  0              0        545     0/0/2                                   SELECT
          37618    80      357      2   0  0              0        357     >TEST LONG/SHORT NO S/R                 ENTER SUBROUTINE
          37619    0       61      26   1  0              0                SUSPENDED REF                           SELECT
          37620    34      61      28   1  0              0                SUSPENDED ITEM                          SET (N) IN B
          37621    75      376     24   0  0              0        376                                             JUMP IF AB != 0
          37622    0       545      3   0  0              0        545     10/1/0 6                                SELECT
          37623    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
    37621>37624    80      535      2   0  0              0        535     >RESTORE                                ENTER SUBROUTINE
          37625    0       545     15   0  0              0        545     10/1/0 0                                SELECT
          37626    76      373     12   0  0              0        373     >O/P+GNB                                JUMP unconditional
                                                                                                                   
          37700    PROCR   377       377     ACTIONS 17 AND 19                                                     
          37701     NOTES          RADIX     B                                                                     SELECT
    37606>37702    71      377      8   0  0              0        377     -IE VARIANT 9                           JUMP IF A != 0
          37703            61      26   1  0              0                SUSPENDED REF                           SELECT
          37704    34      61      28   1  0              0                ITEM                                    SET (N) IN B
          37705    75      376     17   0  0              0        376     >ACTS ON(N)                             JUMP IF AB != 0
          37706            546      5   0  0              0        546     3/1/0/6                                 SELECT
          37707    76      376     16   0  0              0        376                                             JUMP unconditional
    37702>37708            545     36   0  0              0        545     1/0/1 0                                 SELECT
          37709    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          37710    0       61      26   1  0              0                REF                                     SELECT
          37711    34      61      28   1  0              0                ITEM                                    SET (N) IN B
          37712    74      377     16   0  0              0        377                                             JUMP IF AB == 0        // 27, 1, 0
          37713    80      535      2   0  0              0        535     -RESTORE S/R                            ENTER SUBROUTINE
          37714            545      8   0  0              0        545     6/0/0                                   SELECT
          37715    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
    37712>37716            545     64   0  0              0        545     18/1/1/0/4119                           SELECT
          37717    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          37800    PROCR   378       378     ACTION 19                                                             
          37801     NOTES          RADIX     B                                                                     SELECT
          37802    54      66       6   0  0              8                CLEAR REF, I,D,M                        BULK CLEAR
          37803            545     17   0  0              0        545     13/0/0                                  SELECT
    44823>37804    80      357      2   0  0              0        357     >TEST SHORT/LONG NO SR                  ENTER SUBROUTINE
          37805    76      362      2   0  0              0        362     GNB                                     JUMP unconditional
                                                                                                                   
          37900    PROCR   379       379     GROUP2                                                                
          37901     NOTES          RADIX     B                                                                     SELECT
  Source image: P1000345.JPG
    37206>37902    5       66      10   1  0              0                CLEAR DISC                              TRANSFER
          37903    85      381      2   0  0              0        381                                             SWITCH R
          37904    C       379     17   0  0              0        379     20                                      
          37905    C       379     14   0  0              0        379     21                                      
          37906    C       379     14   0  0              0        379     22                                      
          37907    C       379     14   0  0              0        379     23                                      
          37908    C       379     20   0  0              0        379     24                                      
          37909    C       379     14   0  0              0        379     25                                      
          37910    C       379     14   0  0              0        379     26=MULTIPLY                             
          37911    C       362      2   0  0              0        362     27 GNB                                  
          37912    C       362      2   0  0              0        362     28 GNB                                  
          37913    C       379     14   0  0              0        379     29=DIVIDE                               
    37913>                                                                                                         
    37910>                                                                                                         
    37909>                                                                                                         
    37907>                                                                                                         
    37906>                                                                                                         
    37905>37914    124     61      50   0  0              0                VARIANT+1                               modify address of next
          37915    0       545     80   0  0              0        545     F.P. ACTION                             SELECT
          37916    76      373     12   0  0              0        373     >COMPLEX O/P+GNB                        JUMP unconditional
    37904>37917    0       545     86   0  0              0        545     21/0/0 DRAIN A*                         SELECT
          37918    80      380      2   0  0              0        380     F.P.S/R                                 ENTER SUBROUTINE
          37919    76      362      2   0  0              0        362     G.N.B.                                  JUMP unconditional
    37908>37920    80      534      2   0  0              0        534     >SUSPEND                                ENTER SUBROUTINE
          37921            545     84   0  0              0        545     21/1/0                                  SELECT
          37922    80      380      2   0  0              0        380     F.P.S/R                                 ENTER SUBROUTINE
          37923    80      535      2   0  0              0        535     >RESTORE                                ENTER SUBROUTINE
          37924    0       545     86   0  0              0        545     21/0/0                                  SELECT
          37925    80      358      2   0  0              0        358     >COMPLEX O/P                            ENTER SUBROUTINE
          37926    0       545     85   0  0              0        545     20/0/0 8                                SELECT
          37927    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
                                                                                                                   
          38000    PROCR   380       380     GROUP 2 S/R                                                           
          38001     NOTES          RADIX     B                                                                     SELECT
          38002    81      380      2   0  0              0        380                                             START OF SUBROUTINE
          38003    12               0   0  0              8                                                        SUBTRACT LITERAL
          38004    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          38005            545     82   0  0              0        545     20/0/0                                  SELECT
          38006    80      358      2   0  0              0        358     >COMPLEX O/P                            ENTER SUBROUTINE
          38007    82      380      2   0  0              0        380                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38100    PROCR   381       381     GROUP 3 SWITCH                                                        
          38101     NOTES          RADIX     B                                                                     SELECT
    37207>38102    85      381      2   0  0              0        381                                             SWITCH R
          38103    C       382      2   0  0              0        382     30 QTT SHIFT A                          
          38104    C       382     14   0  0              0        382     31 BIT SHIFT A                          
          38105    C       382      2   0  0              0        382     32 QTT SHFT AB                          
          38106    C       382     14   0  0              0        382     33 BIT SHIFT AB                         
          38107    C       382     12   0  0              0        382     34 SELECT TO B                          
          38108    C       383      2   0  0              0        383     35 SET QTTS OF B                        
          38109    C       384      2   0  0              0        384     36 COLLATE                              
          38110    C       384      2   0  0              0        384     37 REPLACE BITS                         
          38111    C       385      2   0  0              0        385     38 ROUND OFF VBLE                       
          38112    C       386      2   0  0              0        386     39 ROUND UP                             
                                                                                                                   
          38200    PROCR   382       382     GROUP 3 30-33 AND 34                                                  
          38201     NOTES          RADIX     B                                                                     SELECT
    38105>                                                                                                         
    38103>38202            66      14   1  0              0                                                        SELECT
          38203    72      382      6   0  0              0        382                                             JUMP IF A >= 0
  Source image: P1000346.JPG
          38204    10               0   0  0           1020                SET NEGATIVE LITERAL                    SELECT LITERAL
          38205    4       66      14   1  0              0                POSITIVE                                AUGMENT
    38215>                                                                                                         
    38233>                                                                                                         
    38203>38206    124     61      50   0  0              0                                                        modify address of next
          38207            545     31   0  0              0        545     18 ACTION                               SELECT
          38208    2       66      14   0  0              0                                                        SUBTRACT
    38313>                                                                                                         
    38504>                                                                                                         
    41518>                                                                                                         
    42304>                                                                                                         
    44516>                                                                                                         
    37508>38209    5       67       3   0  0              0                                                        TRANSFER
    44105>                                                                                                         
    47917>                                                                                                         
    47920>38210    80      518      2   0  0              0        518     -O/P                                    ENTER SUBROUTINE
          38211    76      362      2   0  0              0        362     -GNB                                    JUMP unconditional
    38107>38212    0       545     27   0  0              0        545     0/0/2                                   SELECT
          38213    76      403     12   0  0              0        403     >COMPLEX O/P+GNB                        JUMP unconditional
    38106>                                                                                                         
    38104>38214    0       66      14   1  0              0                LITERAL                                 SELECT
          38215    72      382      6   0  0              0        382     >TREAT AS ACTIONS 30, 32                JUMP IF A >= 0
          38216    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          38217    10               0   0  0              0                COMPLEMENT IN B                         SELECT LITERAL
          38218    36      544     20   0  0              0        544     BITS 1 2                                COLLATE AND ADD
          38219    5       518      2   0  0              0        518     > BIT SHIFTS LEFT REQUIRED              TRANSFER
          38220    36      545     91   0  0              0        545     BITS 3-8+15                             COLLATE AND ADD
          38221    36      545     91   0  0              0        545     =(4096+32-N)X4                          COLLATE AND ADD
          38222    36      545     91   0  0              0        545                                             COLLATE AND ADD
          38223    36      545     91   0  0              0        545                                             COLLATE AND ADD
          38224    30               0   0  0              1-               DIVIDE COMPLEMENT BY 4                  SHIFT (A) BY QUARTETS
          38225    5       66      14   1  0              0                SET AS ADDRESS FOR QTT RIGHT SHIFT      TRANSFER
          38226    2       518      2   0  0              0        518                                             SUBTRACT
          38227    70      382     31   0  0              0        382     >NO BITS LEFT                           JUMP IF A == 0
          38228    124     61      50   0  0              0                VARIANT +1                              modify address of next
          38229    1       545     31   0  0              0        545     18/D/3                                  ADD
          38230    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    38227>38231    12               0   0  0              1                                                        SUBTRACT LITERAL
          38232    4       61      50   0  0              0                REDUCE VARIANT                          AUGMENT
          38233    76      382      6   0  0              0        382     >O/P QTT SHIFT RIGHT                    JUMP unconditional
                                                                                                                   
          38300    PROCR   383       383     ACTION 35                                                             
          38301     NOTES          RADIX                                                                           SELECT
    38108>38302    0       66      14   1  0              0                                                        SELECT
          38303    80      538      2   0  0              0        538     >CONVERT TO DEC                         ENTER SUBROUTINE
          38304    5       66      14   1  0              0                                                        TRANSFER
          38305    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          38306    124     542     32   0  2              0        542                                             select literal and division
          38307    112     66      14   1  0              0                CONVERT TO BASE 2                       convert
          38308    72      383     12   0  0              0        383     -                                       JUMP IF A >= 0
          38309    5       66      14   1  0              0                                                        TRANSFER
          38310    2       66      14   1  0              0                                                        SUBTRACT
          38311    11               0   0  0            400                                                        ADD LITERAL
    38308>38312    1       545     36   0  0              0        545     1/0/1 ACTION                            ADD
          38313    76      382      9   0  0              0        382                                             JUMP unconditional
                                                                                                                   
          38400    PROCR   384       384     ACTIONS 36 AND 37                                                     
          38401     NOTES          RADIX     B                                                                     SELECT
    38110>                                                                                                         
    38109>38402    124     61      50   0  0              0                VARIANT +1                              modify address of next
  Source image: P1000347.JPG
          38403            545     30   0  0              0        545     15 OR 14                                SELECT
          38404    76      373     12   0  0              0        373                                             JUMP unconditional
                                                                                                                   
          38500    PROCR   385       385     ACTION 38                                                             
          38501     NOTES          RADIX                                                                           SELECT
    38111>38502            545     39   0  0              0        545     1/0/2                                   SELECT
          38503    1       66      14   1  0              0                LITERAL                                 ADD
          38504    76      382      9   0  0              0        382     O/P & GNB                               JUMP unconditional
                                                                                                                   
          38600    PROCR   386       386     ACTION 39                                                             
          38601     NOTES          RADIX                                                                           SELECT
    38112>38602            545     30   0  0              0        545     2/1/0                                   SELECT
          38603    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          38604            546      6   0  0              0        546     27/1/0/2                                SELECT
          38605    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          38606            545     53   0  0              0        545     1/1/3/0/1                               SELECT
          38607    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          38608    0       545     54   0  0              0        545     4/1/0 0                                 SELECT
          38609    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
                                                                                                                   
          38700    PROCR   387       387     GROUP 4 ACTIONS                                                       
          38701     NOTES          RADIX                                                                           SELECT
    37208>38702            61      50   0  0              0                VARIANT + 1                             SELECT
          38703    12               0   0  0              4                                                        SUBTRACT LITERAL
          38704    70      387      6   0  0              0        387     >43                                     JUMP IF A == 0
    44303>38705    80      508      2   0  0              0        508     0/1/0 0/0/3 S/R                         ENTER SUBROUTINE
    39655>                                                                                                         
    38704>38706    0       66       6   0  0              0                FILE ID                                 SELECT
          38707    5       61      54   0  0              0                                                        TRANSFER
          38708    80      499      2   0  0              0        499     >CALC ROUTE PARA                        ENTER SUBROUTINE
          38709    5       61     114   0  0              0                                                        TRANSFER
          38710    33               0   0  0              6                ROUTE TYPE                              SHIFT (AB) BY BITS
          38711    3       61      54   0  0              0                                                        COPY
          38712    12               0   0  0              7                                                        SUBTRACT LITERAL
          38713    70      387     32   0  0              0        387     >RT7                                    JUMP IF A == 0
          38714    12               0   0  0              4                                                        SUBTRACT LITERAL
          38715    70      387     32   0  0              0        387     >RT11                                   JUMP IF A == 0
          38716    12               0   0  0              4                                                        SUBTRACT LITERAL
          38717    70      392     19   0  0              0        392     >RT15                                   JUMP IF A == 0
          38718    12               0   0  0              5                                                        SUBTRACT LITERAL
          38719    71      387     34   0  0              0        387     >NOT 20                                 JUMP IF A != 0
          38720            61      50   0  0              0                VARIANT+1                               SELECT
          38721    12               0   0  0              1                                                        SUBTRACT LITERAL
          38722    71      387     34   0  0              0        387     >NOT 40                                 JUMP IF A != 0
          38723            66       8   0  0              0                CONVERT TO BINARY                       SELECT
          38724    80      537      2   0  0              0        537                                             ENTER SUBROUTINE
          38725    5       66       6   0  0              0                CLEAR                                   TRANSFER
          38726    5       66       8   0  0              0                                                        TRANSFER
          38727            545     66   0  0              0        545                                             SELECT
          38728    80      356      2   0  0              0        356     >COMPLEX O/P                            ENTER SUBROUTINE
          38729            545     72   0  0              0        545     18/1/1/ 5-                              SELECT
          38730    80      359      2   0  0              0        359                                             ENTER SUBROUTINE
          38731    76      387     34   0  0              0        387     >EVERYTHING ELSE                        JUMP unconditional
    38715>                                                                                                         
    38713>38732    11               0   0  0              8                IF 7 OR 11 SET=8                        ADD LITERAL
          38733    5       61      54   0  0              0                ROUTE TYPE                              TRANSFER
    38731>                                                                                                         
    38722>                                                                                                         
    38719>38734            91       4   0  3              0                                                        SELECT
          38735    30               0   0  0              4-               GP CTR OR ZERO                          SHIFT (A) BY QUARTETS
  Source image: P1000348.JPG
          38736    1       91       1   0  0              0                2R                                      ADD
          38737    5       61     115   0  0              0                                                        TRANSFER
          38738    124     61     115   0  1              0                                                        modify address of next
          38739            91       5   0  0              0                GP TX AREA PARA                         SELECT
          38740    5       61     115   0  0              0                                                        TRANSFER
          38741            61      50   0  0              0                VARIANT+1                               SELECT
          38742    31               0   0  0              5                                                        SHIFT (A) BY BITS
          38743    1       61      54   0  0              0                ROUTE TYPE                              ADD
          38744    31               0   0  0              3                                                        SHIFT (A) BY BITS
          38745    34      545      5   0  0              0        545     BITS 1-3                                SET (N) IN B
          38746    36      66      14   0  0              0                LITERAL                                 COLLATE AND ADD
          38747    30               0   0  0              2                TO Q3,4,5                               SHIFT (A) BY QUARTETS
          38748    101     398      2   0  0              0        398     TABLE LOOKUP                            table look up
          38749    100     61      56   1  0              0                                                        copy registers
          38750    10               0   0  0              0                                                        SELECT LITERAL
          38751    35               0   0  0             11                Q1,2                                    PREPARE FOR DIGIT COLLATION
          38752    124     61      58   0  3              0                                                        modify address of next
          38753    115              0   0  0              0                COLLATE MASTER ROUTE TYPE               collate and add
          38754    33               0   0  0              7-               B8+B1                                   SHIFT (AB) BY BITS
          38755    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          38756    33               0   0  0              6                B8+B19, B2-7+B1-6                       SHIFT (AB) BY BITS
          38757    5       61      61   0  0              0                                                        TRANSFER
          38758    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          38759    5       61      60   0  0              0                SET SPECIAL IND FOR 'READ RT 10'        TRANSFER
          38760    86      372      2   0  0              0        372                                             SELECT SWITCH R
          38761    12               0   0  0              .                                                        SUBTRACT LITERAL
          38762    70      443      4   0  0              0        443     >CHEQUE-SORTER                          JUMP IF A == 0
          38763            61      50   0  0              0                VARIANT+1                               SELECT
          38764    12               0   0  0              4                                                        SUBTRACT LITERAL
          38765    71      392      8   0  0              0        392                                             JUMP IF A != 0
          38766    80      522      2   0  0              0        522     >NOT ACTION 43                          ENTER SUBROUTINE
          38767    80      508      2   0  0              0        508     >I/P C-LINE                             ENTER SUBROUTINE
          38768    0       66       6   2  0              0                0/1/0 0/0/3 S/R                         SELECT
          38769    80      537      2   0  0              0        537     >TO BIN                                 ENTER SUBROUTINE
          38770    5       66       6   1  0              0                                                        TRANSFER
          38771    0       61      54   0  0              0                ROUTE TYPE                              SELECT
          38772    12               0   0  0              3                                                        SUBTRACT LITERAL
          38773    70      388     26   0  0              0        388     >CARD                                   JUMP IF A == 0
          38774    12               0   0  0              1                                                        SUBTRACT LITERAL
          38775    70      388     23   0  0              0        388     >GP PRINT                               JUMP IF A == 0
          38776    12               0   0  0              9                                                        SUBTRACT LITERAL
          38777    70      391      2   0  0              0        391     >RT 13                                  JUMP IF A == 0
          38778    12               0   0  0              5                                                        SUBTRACT LITERAL
          38779    70      391      2   0  0              0        391     >RT 18                                  JUMP IF A == 0
          38780    12               0   0  0              1                                                        SUBTRACT LITERAL
          38781    71      393      6   0  0              0        393     >NOT ROUTE 19                           JUMP IF A != 0
          38782    0       545      8   0  0              0        545     6/0/0                                   SELECT
          38783    1       61     114   0  0              0                RTE PARA                                ADD
          38784    80      355      2   0  0              0        355     O/P                                     ENTER SUBROUTINE
          38785    80      390      2   0  0              0        390                                             ENTER SUBROUTINE
          38786    70      387     92   0  0              0        387     >NO FN WORD BITS SET                    JUMP IF A == 0
          38787    0       545     13   0  0              0        545     2/0/0                                   SELECT
          38788    101              8   1  1              0                                                        add literal address
          38789    80      498      2   0  0              0        498     O/P                                     ENTER SUBROUTINE
          38790    80      389      2   0  0              0        389                                             ENTER SUBROUTINE
          38791    76      387     95   0  0              0        387                                             JUMP unconditional
    38786>38792    0       545     13   0  0              0        545     2/0/0                                   SELECT
          38793    101              4   1  1              0                                                        add literal address
          38794    80      498      2   0  0              0        498     O/P                                     ENTER SUBROUTINE
    38791>38795            92      29   0  0              0                NUMBER OD CHAPS                         SELECT
  Source image: P1000349.JPG
          38796    80      504      2   0  0              0        504     >O/P 24/0/3 BY SPECIAL CHAP START       ENTER SUBROUTINE
          38797    101           1001   1  3              0                                                        select literal address
          38798    30               0   0  0              2                REF=1001, PARA=0                        SHIFT (A) BY QUARTETS
          38799    5       67       2   0  0              0                                                        TRANSFER
                                                                                                                   
          38800    PROCR   388       388     43 DEAL WITH G.P. O/P                                                 
          38801     NOTES          RADIX     B    SET UP A FOR EDIT                                                SELECT
          38802    0       545     47   0  0              0        545     26/0/0                                  SELECT
          38803    80      359      2   0  0              0        359     > O/P 'ENTER PRINT SR'                  ENTER SUBROUTINE
          38804            546     26   0  0              0        546     24/1/0 5                                SELECT
          38805    80      498      2   0  0              0        498     > O/P INT SEQ CHANGE                    ENTER SUBROUTINE
          38806            61     114   0  0              0                                                        SELECT
          38807    5       67       2   0  0              0                                                        TRANSFER
          38808    80      359      2   0  0              0        359     >O/P ROUTE PARA AS A LITERAL            ENTER SUBROUTINE
          38809    80      488      2   0  0              0        488     SELECT SECTION TX AREA PARA             ENTER SUBROUTINE
          38810    11               0   0  0              1                                                        ADD LITERAL
          38811    5       67       2   0  0              0                                                        TRANSFER
          38812    80      359      2   0  0              0        359     >O/P ROUTE PARA AS LITYERAL             ENTER SUBROUTINE
          38813            61     115   0  0              0                GP TX AREA PARA                         SELECT
          38814    11               0   0  0              1                                                        ADD LITERAL
          38815    5       67       2   0  0              0                                                        TRANSFER
          38816    80      359      2   0  0              0        359     >O/P AS LITERAL                         ENTER SUBROUTINE
          38817            61       8   0  0              0                TX AREA LENGTH (OVERFLOW FROM TX ABOVE PSELECT
          38818    118              7   0  3              0                X64                                     shift binary
          38819    1       545     13   0  0              0        545     BIT 18                                  ADD
          38820    80      359      2   0  0              0        359     *****O/P TOP OF BULK CLEAR CONST        ENTER SUBROUTINE
          38821    80      399      2   0  0              0        399     >RESTORE ABC                            ENTER SUBROUTINE
          38822    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
    38775>38823    80      390      2   0  0              0        390                                             ENTER SUBROUTINE
          38824    70      388     26   0  0              0        388     > NO FN WORD BITS SET                   JUMP IF A == 0
          38825    80      389      2   0  0              0        389                                             ENTER SUBROUTINE
    38824>                                                                                                         
    38773>38826    5       66      10   1  0              0                                                        TRANSFER
          38827            545     66   0  0              0        545     24/0/2                                  SELECT
          38828    80      356      2   0  0              0        356     COMPLEX O/P NON-ARITH                   ENTER SUBROUTINE
          38829    0       545     19   0  0              0        545     24/1/2                                  SELECT
          38830    2       61     115   0  0              0                GP TX AREA PARA                         SUBTRACT
          38831    12               0   0  0              1                                                        SUBTRACT LITERAL
          38832    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          38833            61      54   0  0              0                FILE TYPE                               SELECT
          38834    12               0   0  0              4                                                        SUBTRACT LITERAL
          38835    70      388     37   0  0              0        388     >ANELEX                                 JUMP IF A == 0
          38836    0       545     26   0  0              0        545     BIT 14                                  SELECT
    38835>38837    1       545     67   0  0              0        545     29/0/1                                  ADD
          38838    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          38839    0       61     115   0  0              0                GP TX AREA PARA                         SELECT
          38840    76      393      7   0  0              0        393                                             JUMP unconditional
                                                                                                                   
          38900    PROCR   389       389     S/R TO SET BITS FOR PRINTING                                          
          38902    81      389      2   0  0              0        389                                             START OF SUBROUTINE
          38903            545     27   0  0              0        545     0/0/2                                   SELECT
          38904    80      357      2   0  0              0        357     >LONG O/P                               ENTER SUBROUTINE
          38905            545      8   0  0              0        545     6/0/0                                   SELECT
          38906    80      357      2   0  0              0        357     >LONGOP                                 ENTER SUBROUTINE
          38907    80      535      2   0  0              0        535     >RESTORE                                ENTER SUBROUTINE
          38908    10               0   0  0              1                                                        SELECT LITERAL
          38909    5       66      10   1  0              0                                                        TRANSFER
          38910            545     38   0  0              0        545                                             SELECT
          38911    80      358      2   0  0              0        358     COMPLEX OP ARITH                        ENTER SUBROUTINE
          38912            61      26   1  0              0                SUSPENDED REF                           SELECT
  Source image: P1000350.JPG
          38913    5       66       6   1  0              0                                                        TRANSFER
          38914    82      389      2   0  0              0        389                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39000    PROCR   390       390     SET BITS FOR FN WORD                                                  
          39002    81      390      2   0  0              0        390                                             START OF SUBROUTINE
          39003    80      534      2   0  0              0        534     SUSPEND                                 ENTER SUBROUTINE
          39004    12               0   0  0              1                                                        SUBTRACT LITERAL
          39005    124     61       8   0  1              0                SET BITS OF 64 WORDS (1-4)              modify address of next
          39006    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          39007    11               0   0  0             10                                                        ADD LITERAL
          39008    30               0   0  0              9                TO Q10                                  SHIFT (A) BY QUARTETS
          39009    3       61      52   1  0              0                BITS FOR FN WORD                        COPY
          39010    82      390      2   0  0              0        390                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39100    PROCR   391       391     DEAL WITH 43 FOR 'UPTIME' CARD READER                                 
    38779>                                                                                                         
    38777>39102            545     27   0  0              0        545     0/0/2 0                                 SELECT
          39103    80      361      2   0  0              0        361     >LN:2C (ORIG(A)>B)                      ENTER SUBROUTINE
          39104    76      396      2   0  0              0        396                                             JUMP unconditional
                                                                                                                   
          39200    PROCR   392       392     GROUP 4 SWITCH                                                        
          39201     NOTES          RADIX                                                                           SELECT
          39202    81      392      8   0  0              0        392                                             START OF SUBROUTINE
          39203            61      39   0  0              0                LAST PARA NUMBER                        SELECT
          39204    5       67       2   0  0              0                                                        TRANSFER
          39205            545     22   0  0              0        545     1/1/3 0                                 SELECT
          39206    80      359      2   0  0              0        359     >OUTPUT(SELECT PARA VALUE)              ENTER SUBROUTINE
          39207    82      392      8   0  0              0        392                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    38765>39208    85      381      2   0  0              0        381                                             SWITCH R
          39209    C       394      2   0  0              0        394     40                                      
          39210    C       396      2   0  0              0        396     >41                                     
          39211    C       393      2   0  0              0        393     42                                      
          39212    C       393      2   0  0              0        393     43                                      
          39213    C       393     19   0  0              0        393     44                                      
          39214    C       396      3   0  0              0        396     45                                      
          39215    C       394     59   0  0              0        394     46                                      
          39216    C       394     59   0  0              0        394     47                                      
          39217    C       394     59   0  0              0        394     >48                                     
          39218    C       394     59   0  0              0        394     49                                      
    38717>39219            61      50   0  0              0                V+1                                     SELECT
          39220    12               0   0  0              2                                                        SUBTRACT LITERAL
          39221    70      392     31   0  0              0        392     >CLOSE                                  JUMP IF A == 0
          39222    72      393      2   0  0              0        393     >READ                                   JUMP IF A >= 0
          39223    80      392      8   0  0              0        392     >O/P 1/1/3 P                            ENTER SUBROUTINE
          39224            546     23   0  0              0        546     3/0/0 2                                 SELECT
          39225    80      361      2   0  0              0        361     >LN:2C                                  ENTER SUBROUTINE
          39226            546     22   0  0              0        546     1/1/1 10                                SELECT
          39227    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          39228            546      8   0  0              0        546     18/0/0 5                                SELECT
          39229    80      359      2   0  0              0        359                                             ENTER SUBROUTINE
          39230    76      394      2   0  0              0        394                                             JUMP unconditional
    39221>39231    80      392      8   0  0              0        392                                             ENTER SUBROUTINE
          39232            546     24   0  0              0        546     1/1/ 20                                 SELECT
          39233    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          39234            546      8   0  0              0        546     18/0/0 5                                SELECT
          39235    80      359      2   0  0              0        359                                             ENTER SUBROUTINE
          39236    76      396      2   0  0              0        396                                             JUMP unconditional
                                                                                                                   
          39300    PROCR   393       393     GROUP 4                                                               
          39301     NOTES          RADIX          VARIANTS 2 & 3                                                   SELECT
    39222>                                                                                                         
    39212>                                                                                                         
  Source image: P1000351.JPG
    39211>39302    80      522      2   0  0              0        522     I/P C-LINE                              ENTER SUBROUTINE
          39303            66       6   2  0              0                                                        SELECT
          39304    80      537      2   0  0              0        537     CONVERT TO BIN                          ENTER SUBROUTINE
          39305    5       66       6   0  0              0                                                        TRANSFER
    38781>39306    80      488      2   0  0              0        488     >SELECT TX AREA PARA                    ENTER SUBROUTINE
    38840>39307    1       545     27   0  0              0        545     0/0/2                                   ADD
          39308    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          39309            61      54   0  0              0                ROUTE TYPE                              SELECT
          39310    12               0   0  0             18                                                        SUBTRACT LITERAL
          39311    71      396      2   0  0              0        396     >NOT RT 24                              JUMP IF A != 0
          39312            545     55   0  0              0        545     18/1/1 5                                SELECT
          39313    80      359      2   0  0              0        359     >O/P ZERO REF/PARA                      ENTER SUBROUTINE
          39314            546     30   0  0              0        546     1/1/3 1                                 SELECT
          39315    80      359      2   0  0              0        359     >O/P S/R                                ENTER SUBROUTINE
          39316            545     72   0  0              0        545     18/1/1 5-                               SELECT
          39317    80      359      2   0  0              0        359     >O/P S/R                                ENTER SUBROUTINE
          39318    76      396      2   0  0              0        396                                             JUMP unconditional
    39213>39319    0       545     27   0  0              0        545     0/0/2                                   SELECT
          39320    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          39321    101              1   1  3              0                (A) NON ZERO                            select literal address
          39322    76      396      3   0  0              0        396                                             JUMP unconditional
                                                                                                                   
          39400    PROCR   394       394     GROUP 4                                                               
          39401     NOTES          RADIX     B                                                                     SELECT
    39230>                                                                                                         
    39209>39402            61      54   0  0              0                                                        SELECT
          39403    12               0   0  0              +                                                        SUBTRACT LITERAL
          39404    71      394     34   0  0              0        394     >NOT AUTOLECTOR                         JUMP IF A != 0
          39405            61      61   0  0              0                                                        SELECT
          39406    5       543     43   0  0              0        543                                             TRANSFER
          39407    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          39408    36      91       4   0  3              0                ANNEX HALF-LENGTH                       COLLATE AND ADD
          39409    36      91       4   0  3              0                                                        COLLATE AND ADD
          39410    12               0   0  0              2                                                        SUBTRACT LITERAL
          39411    1       545     13   0  0              0        545     BIT 18                                  ADD
          39412    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          39413    5       61      60   1  0              0                                                        TRANSFER
          39414    12               0   0  0             40                64-                                     SUBTRACT LITERAL
          39415    5       61      52   1  0              0                                                        TRANSFER
          39416            545      8   0  0              0        545     6/0/0                                   SELECT
          39417    80      357      2   0  0              0        357     >SHORT O/P                              ENTER SUBROUTINE
          39418            61     114   0  0              0                ROUTE PARA                              SELECT
          39419    1       545     10   0  0              0        545     5/0/0                                   ADD
          39420    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          39421            546     16   0  0              0        546     2/0/0 6                                 SELECT
          39422    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          39423            61      60   1  0              0                                                        SELECT
          39424    5       61      52   1  0              0                                                        TRANSFER
          39425            545      8   0  0              0        545     6/0/0                                   SELECT
          39426    80      357      2   0  0              0        357     >LONG O/P                               ENTER SUBROUTINE
          39427            546     21   0  0              0        546     24/1/2 6                                SELECT
          39428    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          39429    10               0   0  0          +4000-               28/1/1 0                                SELECT LITERAL
          39430    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          39431            543     43   0  0              0        543                                             SELECT
          39432    5       61      61   0  0              0                                                        TRANSFER
          39433    76      396      2   0  0              0        396                                             JUMP unconditional
    39404>39434    12               0   0  0              8                                                        SUBTRACT LITERAL
  Source image: P1000352.JPG
          39435    70      396      2   0  0              0        396                                             JUMP IF A == 0
          39436            66       6   1  0              0                FILE IDENTITY R-ALIGNED                 SELECT
          39437    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          39438    1       61     112   0  0              0                PROG ID                                 ADD
          39439    5       61      52   1  0              0                                                        TRANSFER
          39440    80      397      2   0  0              0        397     >TEST C-LINE FOLLOWS                    ENTER SUBROUTINE
          39441    3       397      2   0  0              0        397                                             COPY
          39442    71      394     54   0  0              0        394     >NO                                     JUMP IF A != 0
          39443    80      534      2   0  0              0        534     >SUSPEND                                ENTER SUBROUTINE
          39444            66      10   0  0              0                C-LINE DISC                             SELECT
          39445    70      394     54   0  0              0        394     >ANOTHER 40 ACTION                      JUMP IF A == 0
          39446            66       6   2  0              0                REF                                     SELECT
          39447    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          39448    5       66       6   1  0              0                                                        TRANSFER
          39449    10               0   0  0              1                                                        SELECT LITERAL
          39450    5       66      10   1  0              0                                                        TRANSFER
          39451            545     27   0  0              0        545     0/0/2                                   SELECT
          39452    80      356      2   0  0              0        356     >COMPLEX O/P NON-ARITH                  ENTER SUBROUTINE
          39453    76      396      2   0  0              0        396     >GET NEXT LINE                          JUMP unconditional
    39445>                                                                                                         
    39442>39454            545     27   0  0              0        545     0/0/2                                   SELECT
          39455    80      357      2   0  0              0        357     >LONG NUMBER O/P                        ENTER SUBROUTINE
          39456            397      2   0  0              0        397     INDICATOR                               SELECT
          39457    71      396     20   0  0              0        396                                             JUMP IF A != 0
          39458    76      396      6   0  0              0        396                                             JUMP unconditional
    39218>                                                                                                         
    39217>                                                                                                         
    39216>                                                                                                         
    39215>39459    80      522      2   0  0              0        522     IP C-LINE                               ENTER SUBROUTINE
          39460            66       6   2  0              0                                                        SELECT
          39461    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          39462    3       66       6   1  0              0                                                        COPY
          39463    71      395      2   0  0              0        395                                             JUMP IF A != 0
          39464    0       61      28   1  0              0                SUSPENDED ITEM                          SELECT
          39465    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          39466    1       66      14   1  0              0                                                        ADD
          39467    5       61      52   1  0              0                                                        TRANSFER
          39468            545     27   0  0              0        545     0/0/2                                   SELECT
          39469    80      357      2   0  0              0        357     >LONG NO O/P                            ENTER SUBROUTINE
          39470    76      396      2   0  0              0        396     -SET UP A                               JUMP unconditional
                                                                                                                   
          39500    PROCR   395       395     GROUP 4                                                               
          39501     NOTES          RADIX          VARIANTS 6,7,8,9                                                 SELECT
    39463>39502            61      50   0  0              0                                                        SELECT
          39503    12               0   0  0              9                                                        SUBTRACT LITERAL
          39504    73      395      8   0  0              0        395                                             JUMP IF A < 0
          39505            545     27   0  0              0        545     0/0/2                                   SELECT
          39506    80      356      2   0  0              0        356     >COMPLEX O/P NON-ARITH                  ENTER SUBROUTINE
          39507    76      396      2   0  0              0        396                                             JUMP unconditional
    39504>39508            545      8   0  0              0        545     6/0/0                                   SELECT
          39509    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          39510            61      28   1  0              0                SUSPENDED ITEM                          SELECT
          39511    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          39512    5       61      52   1  0              0                                                        TRANSFER
          39513            545      9   0  0              0        545     4/0/0                                   SELECT
          39514    80      357      2   0  0              0        357     >LONG NO O/P                            ENTER SUBROUTINE
          39515            545     62   0  0              0        545     18/1/1/0/10                             SELECT
          39516    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          39600    PROCR   396       396     SET UP A                                                              
  Source image: P1000353.JPG
          39601     NOTES          RADIX          B                                                                SELECT
    39507>                                                                                                         
    39470>                                                                                                         
    39453>                                                                                                         
    39435>                                                                                                         
    39433>                                                                                                         
    39318>                                                                                                         
    39311>                                                                                                         
    39236>                                                                                                         
    39210>                                                                                                         
    39104>39602    80      397      2   0  0              0        397     > TEST C-LINE FOLLOWS SR                ENTER SUBROUTINE
    39322>                                                                                                         
    39214>39603    3       397      2   0  0              0        397     STORE IND                               COPY
          39604    71      396     20   0  0              0        396     > NO C-LINE                             JUMP IF A != 0
          39605    80      534      2   0  0              0        534     > SUSPEND C-LINE                        ENTER SUBROUTINE
    39458>39606    0       61      50   0  0              0                V + 1                                   SELECT
          39607    12               0   0  0              3                                                        SUBTRACT LITERAL
          39608    73      396     20   0  0              0        396     > ACTIONS 40, 41 NOT 42, 43             JUMP IF A < 0
          39609    0       545     55   0  0              0        545     18//1/1/5                               SELECT
          39610    80      359      2   0  0              0        359     > O/P                                   ENTER SUBROUTINE
          39611    0       66       6   2  0              0                REP (UNCONVERTED FOR GROUP 4)           SELECT
          39612    80      537      2   0  0              0        537     > CONVERT                               ENTER SUBROUTINE
          39613    5       66       6   1  0              0                                                        TRANSFER
          39614    5       66       8   1  0              0                CLEAR ITEM                              TRANSFER
          39615    0       545     66   0  0              0        545     24/0/2                                  SELECT
          39616    80      356      2   0  0              0        356     > COMPLEX O/P NON-A                     ENTER SUBROUTINE
          39617            545     72   0  0              0        545     18/1/1  5-                              SELECT
          39618    80      359      2   0  0              0        359     > O/P                                   ENTER SUBROUTINE
          39619    80      397      2   0  0              0        397     > I/P, SET 380/2  NONZERO               ENTER SUBROUTINE
    39608>                                                                                                         
    39604>                                                                                                         
    39457>39620            61      54   0  0              0                ROUTE TYPE                              SELECT
          39621    12               0   0  0                                                                       SUBTRACT LITERAL
          39622    71      396     30   0  0              0        396     > OTHER THAN RT 15                      JUMP IF A != 0
          39623            61      50   0  0              0                V + 1                                   SELECT
          39624    12               0   0  0              3                                                        SUBTRACT LITERAL
          39625    71      396     44   0  0              0        396     > NOT 42 ACTION                         JUMP IF A != 0
          39626    80      392      2   0  0              0        392     > O/P 1/1/3  R                          ENTER SUBROUTINE
          39627    0       546      8   0  0              0        546     18/0/0  5                               SELECT
          39628    80      359      2   0  0              0        359     > O/P                                   ENTER SUBROUTINE
          39629    76      396     44   0  0              0        396                                             JUMP unconditional
    39622>39630            61      54   0  0              0                ROUTE TYPE                              SELECT
          39631    12               0   0  0              2                                                        SUBTRACT LITERAL
          39632    70      396     35   0  0              0        396                                             JUMP IF A == 0
          39633    12               0   0  0              1                                                        SUBTRACT LITERAL
          39634    71      396     40   0  0              0        396     > NOT RT 2 OR 3                         JUMP IF A != 0
    39632>39635            61      50   0  0              0                V + 1                                   SELECT
          39636    12               0   0  0              2                ACTION 41                               SUBTRACT LITERAL
          39637    71      396     40   0  0              0        396     > NO                                    JUMP IF A != 0
          39638            545     27   0  0              0        545     0/0/2                                   SELECT
          39639    80      355      2   0  0              0        355     > ZERO REF          PARA=2CNO           ENTER SUBROUTINE
    44320>                                                                                                         
    39637>                                                                                                         
    39634>39640            61      60   1  0              0                                                        SELECT
          39641    5       61      52   1  0              0                (61/52 IS CLEARED)                      TRANSFER
          39642            545      8   0  0              0        545     6/0/0                                   SELECT
          39643    80      357      2   0  0              0        357     > LONG NO O/P                           ENTER SUBROUTINE
    39629>                                                                                                         
    39625>39644    0       61     114   0  0              0                ROUTE PARA                              SELECT
          39645    1       545      9   0  0              0        545     4/0/0                                   ADD
  Source image: P1000354.JPG
          39646    80      355      2   0  0              0        355     > O/P                                   ENTER SUBROUTINE
          39647    80      453      2   0  0              0        453     > O/P 25/1/1 4096  > 24/0/3  0          ENTER SUBROUTINE
          39648    10               0   0  0            100                                                        SELECT LITERAL
          39649    5       67       1   0  0              0                                                        TRANSFER
          39650            545     60   0  0              0        545     23/0/2                                  SELECT
          39651    80      359      2   0  0              0        359     > O/P                                   ENTER SUBROUTINE
          39652    0       397      2   0  0              0        397     C LINE FOLLOWS ?                        SELECT
          39653    71      397     12   0  0              0        397     > NO                                    JUMP IF A != 0
          39654    80      535      2   0  0              0        535     > RESTORE C LINE                        ENTER SUBROUTINE
          39655    76      387      6   0  0              0        387     > ASSUME 40/41/44 ACTION. TRANSLATE C-LIJUMP unconditional
                                                                                                                   
          39700    PROCR   397       397     TEST CONTINUATION LINE                                                
          39701     NOTES          RADIX                                                                           SELECT
          39702    81      397      2   0  0              0        397                                             START OF SUBROUTINE
          39703    80      509      2   0  0              0        509                                             ENTER SUBROUTINE
          39704                     7   0 12              0                TOP OF L-ALIGNED ACTION                 SELECT
          39705    2       542     27   0  0              0        542                                             SUBTRACT
          39706    71      397     11   0  0              0        397     > EXIT WITH A NONZERO IF NOT C-LINE     JUMP IF A != 0
          39707    10               0   0  0              1                                                        SELECT LITERAL
          39708    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          39709    80      522      2   0  0              0        522     C-LINE S/R                              ENTER SUBROUTINE
          39710    10               0   0  0              0                EXIT WITH A ZERO IF C-LINE              SELECT LITERAL
    39706>39711    82      397      2   0  0              0        397                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    39653>39712    0       61      50   0  0              0                V + 1                                   SELECT
          39713    12               0   0  0              1                                                        SUBTRACT LITERAL
          39714    71      397     21   0  0              0        397     > NOT ACTION 40                         JUMP IF A != 0
          39715            61      54   0  0              0                                                        SELECT
          39716    12               0   0  0                                                                       SUBTRACT LITERAL
          39717    71      397     27   0  0              0        397     > 40 BUT NOT RT 15                      JUMP IF A != 0
          39718            546     25   0  0              0        546     0/0/2  2                                SELECT
          39719    80      361      2   0  0              0        361     > LN : 2C                               ENTER SUBROUTINE
          39720    76      397     27   0  0              0        397                                             JUMP unconditional
    39714>39721    12               0   0  0              4                                                        SUBTRACT LITERAL
          39722    70      397     27   0  0              0        397     > ACTION 44                             JUMP IF A == 0
          39723    12               0   0  0              1                                                        SUBTRACT LITERAL
          39724    70      397     32   0  0              0        397     > 45                                    JUMP IF A == 0
          39725    80      399      2   0  0              0        399     > RESTORE ABC                           ENTER SUBROUTINE
          39726    76      362      3   0  0              0        362     > GNB (NON-INPUT)                       JUMP unconditional
    39722>                                                                                                         
    39720>                                                                                                         
    39717>39727    80      405      2   0  0              0        405     > RESTORE C                             ENTER SUBROUTINE
          39728            61      50   0  0              0                VARIANT +1                              SELECT
          39729    12               0   0  0              1                                                        SUBTRACT LITERAL
          39730    70      362      3   0  0              0        362     > 40 ACTION                             JUMP IF A == 0
          39731    76      362      2   0  0              0        362     READ NEXT BLOCK                         JUMP unconditional
    39724>39732    80      399      2   0  0              0        399     RESTORE ABC                             ENTER SUBROUTINE
          39733    76      362      2   0  0              0        362                                             JUMP unconditional
                                                                                                                   
          39800    CONST   398       398     0                                                                     
          39802          (B4)1(B5)1(B3)7(B7)11(B1)0;                       B17-20=VARIANT+1                        
          39803          1,3,7,13,0;                                       B12-16=INTERCODE R,TYPE                 
          39804          1,4,7,14,0;                                       B9-11=LITERAL                           
          39805          1,5,7,15,0;                                       B2-8=MASTER R,TYPE                      
          39806          1,6,7,16,0;                                       B1 =NON-STD CARD I/P                    
          39807          1,8,0,18,0;                                       B8=IND FOR Q5 MASTER RT                 
          39808          1,8,7,17,0;                                                                               
          39809          1,9,7,19,0;                                                                               
          39810          1,10,7,16,0;                                                                              
          39811          1,12,7,20,0;                                                                              
          39812          1,13,7,16,0;                                                                              
  Source image: P1000355.JPG
          39813          1,16,7,75,0;                                      OPEN RT 16                              
          39814          1,18,7,16,0;                                                                              
          39815          1,19,7,19,0;                                      OPEN RT 19                              
          39816          1,20,7,53,0;                                      DT                                      
          39817          1,22,7,59,0;                                      DATA LINK                               
          39818          1,25,7,55,0;                                                                              
          39819          2,1,7,21,0;                                                                               
          39820          2,3,7,23,0;                                                                               
          39821          2,4,7,24,0;                                                                               
          39822          2,5,7,25,0;                                                                               
          39823          2,6,7,26,0;                                                                               
          39824          2,8,0,28,0;                                                                               
          39825          2,8,1,27,0;                                                                               
          39826          2,8,2,45,0;                                                                               
          39827          2,8,7,46,0;                                                                               
          39828          2,9,7,29,0;                                                                               
          39829          2,10,7,26,0;                                                                              
          39830          2,12,7,30,0;                                                                              
          39831          2,13,7,26,0;                                                                              
          39832          2,16,7,85,0;                                      CLOSE RT 16                             
          39833          2,18,7,26,0;                                                                              
          39834          2,19,7,29,0;                                      CLOSE RT 19                             
          39835          2,25,7,56,0;                                                                              
          39836          3,5,7,5,0;                                                                                
          39837          3,6,7,6,0;                                                                                
          39838          3,8,7,7,0;                                                                                
          39839          3,10,7,6,1;                                                                               
          39840          3,12,7,10,0;                                                                              
          39841          3,13,7,6,0;                                                                               
          39842          3,17,7,52,0;                                      ACTION 132                              
          39843          3,18,7,6,1;                                                                               
          39844          3,20,7,54,0;                                      DT                                      
          39845          3,24,7,5,0;                                       8 HOLE PT                               
          39846          4,1,7,1,0;                                                                                
          39847          4,3,7,3,0;                                                                                
          39848          4,4,7,4,0;                                                                                
          39849          4,8,7,8,0;                                                                                
          39850          4,9,7,9,0;                                                                                
          39851          4,13,7,49,0;                                                                              
          39852          4,16,7,65,0;                                      WRITE RT 16                             
          39853          4,17,7,50,0;                                      ACTION 133                              
          39854          4,18,7,49,0;                                                                              
          39855          4,22,7,58,0;                                                                              
          39856          5,5,7,48,0;                                                                               
          39857          5,8,2,47,0;                                                                               
          39858          5,8,7,48,0;                                                                               
          39859          5,17,7,51,0;                                      ACTION 134                              
          39860          5,25,7,57,0;                                                                              
          39861          6,8,0,33,0;                                                                               
          39862          6,8,7,34,0;                                                                               
          39863          7,8,0,35,0;                                                                               
          39864          7,8,7,36,0;                                                                               
          39865          8,8,7,37,0;                                                                               
          39866          9,8,0,39,0;                                                                               
          39867          9,8,1,40,0;                                                                               
          39868          9,8,2,43,0;                                                                               
          39869          9,8,7,44,0;                                                                               
          39870          10,8,0,41,0;                                                                              
          39871          10,8,7,42,0;                                                                              
                                                                                                                   
  Source image: P1000356.JPG
          39900    PROCR   399       399     0/1/1 S/R                                                             
          39901     NOTES          RADIX     B                                                                     SELECT
          39902    81      399      2   0  0              0        399                                             START OF SUBROUTINE
          39903            61      25   0  0              0                SET BINARY INDICATOR                    SELECT
          39904    12               0   0  0              1                                                        SUBTRACT LITERAL
          39905    3       61      25   0  0              0                                                        COPY
          39906    70      399      8   0  0              0        399                                             JUMP IF A == 0
          39907    10               0   0  0              8                                                        SELECT LITERAL
    39906>39908    1       545     21   0  0              0        545     0/1/1                                   ADD
          39909    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          39910    82      399      2   0  0              0        399                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40000    PROCR   400       400     GROUP 5 SWITCH                                                        
          40001     NOTES          RADIX     B                                                                     SELECT
    37209>40002    85      381      2   0  0              0        381                                             SWITCH R
          40003    C       401      4   0  0              0        401     50                                      
          40004    C       401      2   0  0              0        401     51                                      
          40005    C       401      4   0  0              0        401     52                                      
          40006    C       401      3   0  0              0        401     53                                      
          40007    C       402      2   0  0              0        402     54                                      
          40008    C       404      2   0  0              0        404     55                                      
          40009    C       408      2   0  0              0        408     56                                      
          40010    C       409      2   0  0              0        409     57                                      
          40011    C       409     11   0  0              0        409     58=MERGE VARIABLE                       
          40012    C       410      2   0  0              0        410     59                                      
                                                                                                                   
          40100    PROCR   401       401     ACTIONS 50-53                                                         
          40101     NOTES          RADIX     B                                                                     SELECT
    40004>40102    10               0   0  0              1                                                        SELECT LITERAL
    40006>40103    11               0   0  0              1                                                        ADD LITERAL
    40005>                                                                                                         
    40003>40104    5       61      84   0  0              0                -INDIC                                  TRANSFER
          40105    5       66      10   1  0              0                CLEAR FIRST LINE DISC                   TRANSFER
          40106    80      522      2   0  0              0        522     - I/P C-LINE                            ENTER SUBROUTINE
          40107    10               0   0  0              0                                                        SELECT LITERAL
          40108    5       66      10   1  0              0                                                        TRANSFER
          40109            545     66   0  0              0        545     24/0/2                                  SELECT
          40110    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          40111    80      535      2   0  0              0        535     -REPLACE                                ENTER SUBROUTINE
          40112    124     61      50   0  0              0                VARIANT+1                               modify address of next
          40113            545     67   0  0              0        545                                             SELECT
          40114    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          40115            61      84   0  0              0                                                        SELECT
          40116    70      362      2   0  0              0        362     -GNB                                    JUMP IF A == 0
          40117    12               0   0  0              1                                                        SUBTRACT LITERAL
          40118    70      401     23   0  0              0        401     >ACTION 53                              JUMP IF A == 0
    44846>40119    80      508      2   0  0              0        508                                             ENTER SUBROUTINE
          40120            546      7   0  0              0        546     1/1/1/2                                 SELECT
          40121    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          40122    80      405      2   0  0              0        405     RESTORE C                               ENTER SUBROUTINE
    40118>40123    0       61      26   0  0              0                SUSPENDED REF                           SELECT
          40124    12               0   0  0             64                100                                     SUBTRACT LITERAL
          40125    72      362      2   0  0              0        362     >GNB (NO +CTR)                          JUMP IF A >= 0
          40126    80      535      2   0  0              0        535     RESTORE S/R                             ENTER SUBROUTINE
          40127    0       545     11   0  0              0        545     3/0/0                                   SELECT
          40128    80      502      2   0  0              0        502     >'ITEM+' SR                             ENTER SUBROUTINE
          40129    76      362      2   0  0              0        362     >GNB (NO +CTR)                          JUMP unconditional
                                                                                                                   
          40200    PROCR   402       402     BULK CLEAR                                                            
          40201     NOTES          RADIX     B    ACTION 54                                                        SELECT
  Source image: P1000357.JPG
    40007>40202    80      534      2   0  0              0        534     > SUSPEND FIRST LINEO/P                 ENTER SUBROUTINE
          40203            66      14   1  0              0                LITERAL                                 SELECT
          40204    70      402      8   0  0              0        402     > LITERAL ZERO                          JUMP IF A == 0
          40205    1       545     13   0  0              0        545     BIT 18                                  ADD
          40206    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          40207    76      402     12   0  0              0        402                                             JUMP unconditional
    40204>40208    80      521      2   0  0              0        521      - I/P INST                             ENTER SUBROUTINE
          40209    80      508      2   0  0              0        508     0/1/0  0/0/3  S/R                       ENTER SUBROUTINE
          40210    80      406      2   0  0              0        406      - SECOND SUSPEND S/R                   ENTER SUBROUTINE
          40211            545     13   0  0              0        545     BIT 18                                  SELECT
    40207>40212    5       61      52   1  0              0                                                        TRANSFER
          40213            545      8   0  0              0        545     6/0/0                                   SELECT
          40214    80      357      2   0  0              0        357     > SHORT NO O/P                          ENTER SUBROUTINE
          40215            66      14   1  0              0                LITERAL                                 SELECT
          40216    71      403      4   0  0              0        403     > NO CONT LINE                          JUMP IF A != 0
          40217    80      407      2   0  0              0        407     > SECOND RESTORE S/R                    ENTER SUBROUTINE
          40218            545      9   0  0              0        545                                             SELECT
          40219    80      358      2   0  0              0        358     > COMPLEX O/P ARITH                     ENTER SUBROUTINE
          40220    80      405      2   0  0              0        405     RESTORE C S/R                           ENTER SUBROUTINE
                                                                                                                   
          40300    PROCR   403       403     BULK CLEAR                                                            
          40301     NOTES          RADIX                                                                           SELECT
          40302            546      8   0  0              0        546     18/0/1/5                                SELECT
          40303    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    40216>40304    80      535      2   0  0              0        535      - RESTORE S/R                          ENTER SUBROUTINE
          40305            66      10   0  0              0                FIRST LINE DISC                         SELECT
          40306    70      403     11   0  0              0        403                                             JUMP IF A == 0
          40307    10               0   0  0              0                                                        SELECT LITERAL
          40308    5       66      10   1  0              0                CLEAR DISC                              TRANSFER
          40309            546     29   0  0              0        546      28/1/1                                 SELECT
          40310    76      403     12   0  0              0        403                                             JUMP unconditional
    40306>40311            545     65   0  0              0        545      28/0/0                                 SELECT
    40443>                                                                                                         
    40910>                                                                                                         
    44852>                                                                                                         
    40310>                                                                                                         
    38213>40312    80      356      2   0  0              0        356     > COMPLEX O/P NON-A                     ENTER SUBROUTINE
          40313    76      362      2   0  0              0        362     > GNB                                   JUMP unconditional
                                                                                                                   
          40400    PROCR   404       404     BULK COPY                                                             
          40401     NOTES          RADIX                                                                           SELECT
    40008>40402            66      14   1  0              0                LITERAL                                 SELECT
          40403    5       61     113   0  0              0                W/L                                     TRANSFER
          40404    80      522      2   0  0              0        522     I/P C-LINE                              ENTER SUBROUTINE
          40405    80      406      2   0  0              0        406     SECOND SUSPEND C/R                      ENTER SUBROUTINE
          40406    0       61      62   0  0              0                                                        SELECT
          40407    70      404     10   0  0              0        404     > SHORT BEST                            JUMP IF A == 0
          40408    10               0   0  0              1                READ NEXT BLOCK                         SELECT LITERAL
          40409    5       61      62   0  0              0                                                        TRANSFER
    40407>40410            61      30   0  0              0                DISC. FIRST LINE                        SELECT
          40411    70      404     16   0  0              0        404     > SHORT SOURCE                          JUMP IF A == 0
          40412    10               0   0  0              1                                                        SELECT LITERAL
          40413    3       61      30   0  0              0                                                        COPY
          40414    2       61      62   0  0              0                                                        SUBTRACT
          40415    4       61      28   1  0              0                AUG BY 0 OR 1                           AUGMENT
    40411>40416    80      535      2   0  0              0        535     RESTORE FIRST LINE                      ENTER SUBROUTINE
          40417    5       66      10   1  0              0                DISC                                    TRANSFER
          40418            545     66   0  0              0        545     24/0/2                                  SELECT
          40419    80      356      2   0  0              0        356     > COMPLEX O/P NON-A                     ENTER SUBROUTINE
          40420            545     72   0  0              0        545     18/1/15-                                SELECT
  Source image: P1000358.JPG
          40421    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          40422            61     113   0  0              0                FIRST LINE LITERAL                      SELECT
          40423    71      404     28   0  0              0        404                                             JUMP IF A != 0
          40424    80      521      2   0  0              0        521     I/P INSTRUCTION                         ENTER SUBROUTINE
          40425            545      8   0  0              0        545     6/0/0                                   SELECT
          40426    80      358      2   0  0              0        358     > COMPLEX O/P ARITH                     ENTER SUBROUTINE
          40427    76      404     30   0  0              0        404                                             JUMP unconditional
    40423>40428    1       545     22   0  0              0        545      1/1/3                                  ADD
          40429    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    40427>40430            545     55   0  0              0        545     18/1/1/0/5                              SELECT
          40431    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          40432    80      407      2   0  0              0        407      SECOND RESTORE S/R                     ENTER SUBROUTINE
          40433            61      30   0  0              0                1ST LINE DISC                           SELECT
          40434    3       66      10   0  0              0                                                        COPY
          40435    71      404     40   0  0              0        404                                             JUMP IF A != 0
          40436    0       61      62   0  0              0                DISC (2ND LINE)                         SELECT
          40437    70      404     40   0  0              0        404                                             JUMP IF A == 0
          40438    10               0   0  0              1                                                        SELECT LITERAL
          40439    4       66       8   1  0              0                ITEM                                    AUGMENT
    40437>                                                                                                         
    40435>40440            545     65   0  0              0        545     28/0/0                                  SELECT
          40441    124     61      62   0  0              0                C-LINE DISC                             modify address of next
          40442    2       545     25   0  0              0        545                                             SUBTRACT
          40443    76      403     12   0  0              0        403     > COMPLEX O/P > GNB                     JUMP unconditional
                                                                                                                   
          40500    PROCR   405       405     RESTORE C S/R                                                         
          40501     NOTES          RADIX     B                                                                     SELECT
          40502    81      405      2   0  0              0        405                                             START OF SUBROUTINE
          40503            61      25   0  0              0                BINARY INDICATOR                        SELECT
          40504    12               0   0  0              1                                                        SUBTRACT LITERAL
          40505    3       61      25   0  0              0                                                        COPY
          40506    71      405      9   0  0              0        405                                             JUMP IF A != 0
          40507            546      9   0  0              0        546     0/0/3/4                                 SELECT
          40508    80      361      2   0  0              0        361     > LN:2C  SR                             ENTER SUBROUTINE
    40506>40509    82      405      2   0  0              0        405                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40600    PROCR   406       406     SECOND SUSPEND S/R                                                    
          40601     NOTES          RADIX     B                                                                     SELECT
          40602    81      406      2   0  0              0        406                                             START OF SUBROUTINE
          40603            66       6   1  0              0                REF                                     SELECT
          40604    5       61      60   0  0              0                                                        TRANSFER
          40605            66       8   1  0              0                ITEM                                    SELECT
          40606    5       61      61   0  0              0                                                        TRANSFER
          40607            66      10   1  0              0                DISC                                    SELECT
          40608    5       61      62   0  0              0                                                        TRANSFER
          40609            66      12   1  0              0                MOD                                     SELECT
          40610    5       61      63   0  0              0                                                        TRANSFER
          40611            66      14   1  0              0                LIT                                     SELECT
          40612    5       61      64   0  0              0                                                        TRANSFER
          40613            66      16   0  0              0                ITEM + IND                              SELECT
          40614    5       66      18   0  0              0                ITEM + IND (2ND STORE)                  TRANSFER
          40615    82      406      2   0  0              0        406                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40700    PROCR   407       407     SECOND RESTORE S/R                                                    
          40701     NOTES          RADIX     B                                                                     SELECT
          40702    81      407      2   0  0              0        407                                             START OF SUBROUTINE
          40703            61      60   0  0              0                                                        SELECT
          40704    5       66       6   1  0              0                REF                                     TRANSFER
          40705            61      61   0  0              0                                                        SELECT
          40706    5       66       8   1  0              0                ITEM                                    TRANSFER
  Source image: P1000359.JPG
          40707            61      62   0  0              0                                                        SELECT
          40708    5       66      10   1  0              0                DISC                                    TRANSFER
          40709            61      63   0  0              0                                                        SELECT
          40710    5       66      12   1  0              0                MOD                                     TRANSFER
          40711            61      64   0  0              0                                                        SELECT
          40712    5       66      14   1  0              0                LIT                                     TRANSFER
          40713            66      18   0  0              0                ITEM + IND (2ND STORE)                  SELECT
          40714    5       66      16   0  0              0                ITEM + IND                              TRANSFER
          40715    82      407      2   0  0              0        407                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40800    PROCR   408       408     TABLE LOOK UP                                                         
          40801     NOTES          RADIX     B                                                                     SELECT
    40009>40802    80      508      2   0  0              0        508     0/1/0 0/0/3 S/R                         ENTER SUBROUTINE
          40803    80      534      2   0  0              0        534     >SUSPEND                                ENTER SUBROUTINE
          40804            545     49   0  0              0        545     1/0/0                                   SELECT
          40805    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          40806            545     50   0  0              0        545     18/1/1 10                               SELECT
          40807    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          40808    0       61      32   0  0              0                SUSPENDED MOD DIGITS                    SELECT
          40809    70      408     19   0  0              0        408     >UNMODIFIED                             JUMP IF A == 0
          40810            545     10   0  0              0        545     5/0/0                                   SELECT
          40811    80      439      2   0  0              0        439     MR S/R                                  ENTER SUBROUTINE
          40812            61      26   0  0              0                REF                                     SELECT
          40813    71      408     19   0  0              0        408     >                                       JUMP IF A != 0
          40814            61      28   0  0              0                ITEM                                    SELECT
          40815    70      408     21   0  0              0        408     >DON'T BOTHER                           JUMP IF A == 0
          40816    1       545     24   0  0              0        545     1/1/2                                   ADD
          40817    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          40818    76      408     21   0  0              0        408                                             JUMP unconditional
    40813>                                                                                                         
    40809>40819            545     10   0  0              0        545     5/0/0                                   SELECT
          40820    80      484      2   0  0              0        484     T.S.L'S                                 ENTER SUBROUTINE
    40818>                                                                                                         
    40815>40821    80      405      2   0  0              0        405     RESTORE C                               ENTER SUBROUTINE
          40822    76      362      2   0  0              0        362     GNB                                     JUMP unconditional
                                                                                                                   
          40900    PROCR   409       409     MERGE FIXED FIELD                                                     
          40901     NOTES          RADIX     B                                                                     SELECT
    40010>40902            545     51   0  0              0        545     8/0/0                                   SELECT
          40903    5       61       0   0  0              0                                                        TRANSFER
          40904            66      14   1  0              0                                                        SELECT
          40905    70      409      8   0  0              0        409                                             JUMP IF A == 0
          40906    5       61      52   1  0              0                                                        TRANSFER
          40907    76      375     12   0  0              0        375     >SHORT NO SR, GNB                       JUMP unconditional
    40905>40908    5       66      12   1  0              0                CLEAR MOD DIGITS                        TRANSFER
          40909            545     51   0  0              0        545     8/0/0                                   SELECT
          40910    76      403     12   0  0              0        403     >COMPLEX O/P + GNB                      JUMP unconditional
    40011>40911            545     52   0  0              0        545     8/1/0                                   SELECT
          40912    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          40913    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          41000    PROCR   410       410     ACTION 59                                                             
          41001     NOTES          RADIX     B                                                                     SELECT
    40012>41002    80      508      2   0  0              0        508     0/1/0 0/0/3 SR                          ENTER SUBROUTINE
          41003            66      12   1  0              0                                                        SELECT
          41004    5       61      38   0  0              0                W/L                                     TRANSFER
          41005    5       66      12   1  0              0                                                        TRANSFER
          41006            545     66   0  0              0        545     24/0/2                                  SELECT
          41007    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          41008    0       61      38   0  0              0                                                        SELECT
  Source image: P1000360.JPG
          41009    5       61      32   0  0              0                TX MOD DIGITS                           TRANSFER
          41010    0       545     11   0  0              0        545     3/0/0                                   SELECT
          41011    80      439      2   0  0              0        439     >MOD REGISTER SR                        ENTER SUBROUTINE
          41012    80      522      2   0  0              0        522     I/P C-LINE                              ENTER SUBROUTINE
          41013            545      9   0  0              0        545     4/0/0                                   SELECT
          41014    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          41015            61      38   0  0              0                                                        SELECT
          41016    5       61      32   0  0              0                T. MOD DIGITS                           TRANSFER
          41017            546     10   0  0              0        546     2/0/0/1                                 SELECT
          41018    80      439      2   0  0              0        439     >MOD REGISTER S/R                       ENTER SUBROUTINE
          41019    80      399      2   0  0              0        399     >0/0/1                                  ENTER SUBROUTINE
          41020    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          41100    PROCR   411       411     GROUP 6 ACTIONS                                                       
          41101     NOTES          RADIX     B    VARIANT 0-2                                                      SELECT
    37210>41102            61      50   0  0              0                VARIANT+1                               SELECT
          41103    12               0   0  0              3                                                        SUBTRACT LITERAL
          41104    72      411     10   0  0              0        411                                             JUMP IF A >= 0
          41105    124     61      50   0  0              0                                                        modify address of next
          41106            544     22   0  0              0        544     DEC OR ST RADIX                         SELECT
    41112>41107    5       61      52   1  0              0                W/L                                     TRANSFER
          41108            545     28   0  0              0        545     0/0/3                                   SELECT
          41109    76      375     11   0  0              0        375                                             JUMP unconditional
    41104>41110    71      412      2   0  0              0        412                                             JUMP IF A != 0
          41111            66      14   1  0              0                LITERAL                                 SELECT
          41112    76      411      7   0  0              0        411                                             JUMP unconditional
                                                                                                                   
          41200    PROCR   412       412     VARIANTS 3-5                                                          
          41201     NOTES          RADIX     B    STORE NO TO BE CONVERTED IF ACTION WORKS ON (A)                  SELECT
    41110>41202    12               0   0  0              4                                                        SUBTRACT LITERAL
          41203    72      415      2   0  0              0        415     >ACTION 66-69                           JUMP IF A >= 0
          41204            66      12   0  0              0                MOD                                     SELECT
          41205    71      413      2   0  0              0        413     >ACTING ON (N)                          JUMP IF A != 0
          41206    0       66       6   0  0              0                REFERENCE                               SELECT
          41207    34      66       8   0  0              0                                                        SET (N) IN B
          41208    75      413      2   0  0              0        413                                             JUMP IF AB != 0
          41209    10               0   0  0              6                                                        SELECT LITERAL
          41210    1       545     30   0  0              0        545     2/1/0                                   ADD
          41211    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
                                                                                                                   
          41300    PROCR   413       413     VARIANTS 3-5                                                          
          41301     NOTES          RADIX     B                                                                     SELECT
    41208>                                                                                                         
    41205>41302            61      50   0  0              0                TEST                                    SELECT
          41303    12               0   0  0              6                VARIANT 5                               SUBTRACT LITERAL
          41304    70      414      4   0  0              0        414     -                                       JUMP IF A == 0
          41305    80      534      2   0  0              0        534     - SUSPEND                               ENTER SUBROUTINE
          41306    124     61      50   0  0              0                                                        modify address of next
          41307    0       544     20   0  0              0        544     NEW RADIX                               SELECT
    41409>41308    3       61      76   0  0              0                FORM TABLE W/L                          COPY
          41309    5       61      52   1  0              0                W/L FOR S.N. S/R                        TRANSFER
          41310            545     28   0  0              0        545     0/0/3                                   SELECT
          41311    80      357      2   0  0              0        357     >CONSTS O/P                             ENTER SUBROUTINE
          41312            61      50   0  0              0                                                        SELECT
          41313    12               0   0  0              6                                                        SUBTRACT LITERAL
          41314    70      414     10   0  0              0        414                                             JUMP IF A == 0
          41315    124     61      50   0  0              0                                                        modify address of next
          41316    0       544     19   0  0              0        544     OLD RADIX                               SELECT
    41411>41317    5       61      77   0  0              0                                                        TRANSFER
          41318    80      416      2   0  0              0        416     CONVERT S/R                             ENTER SUBROUTINE
  Source image: P1000361.JPG
          41319    80      535      2   0  0              0        535     >RESTORE SR                             ENTER SUBROUTINE
          41320            66      12   0  0              0                MOD                                     SELECT
          41321    71      414      2   0  0              0        414     >ACTING ON (N)                          JUMP IF A != 0
          41322    0       66       6   0  0              0                                                        SELECT
          41323    34      66       8   0  0              0                                                        SET (N) IN B
          41324    75      414      2   0  0              0        414     >ACTS ON (N)                            JUMP IF AB != 0
          41325    0       545      4   0  0              0        545     12/1/0 6                                SELECT
          41326    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
                                                                                                                   
          41400    PROCR   414       414     ACTIONS 63-65                                                         
          41401     NOTES          RADIX     B                                                                     SELECT
    41324>                                                                                                         
    41321>41402            545     58   0  0              0        545     12 TO B17                               SELECT
          41403    76      373     12   0  0              0        373     >COMPLEX O/P+GNB                        JUMP unconditional
    41304>41404            66      14   0  0              0                                                        SELECT
          41405    5       61      38   0  0              0                GEN W/L                                 TRANSFER
          41406    80      522      2   0  0              0        522     - C-LINE S/R                            ENTER SUBROUTINE
          41407    54      66       6   0  0              8                                                        BULK CLEAR
          41408            66      14   0  0              0                                                        SELECT
          41409    76      413      8   0  0              0        413                                             JUMP unconditional
    41314>41410            61      38   0  0              0                                                        SELECT
          41411    76      413     17   0  0              0        413                                             JUMP unconditional
                                                                                                                   
          41500    PROCR   415       415     ACTIONS 66 AND 667                                                    
          41501     NOTES          RADIX     B    SET FP SIGDIG/NORMAL MODE                                        SELECT
    41203>41502    70      415      5   0  0              0        415     >66, SIGDIG                             JUMP IF A == 0
          41503    10               0   0  0     8000000025                =(B40+37)                               SELECT LITERAL
          41504    76      415      6   0  0              0        415                         SELECT FP CONST     JUMP unconditional
    41502>41505    12               0   0  0     8000000025                TO PUT INTO 132'                        SUBTRACT LITERAL
    41504>41506    5       61      52   1  0              0                                                        TRANSFER
          41507    0       545      8   0  0              0        545     6/0/0                                   SELECT
          41508    80      357      2   0  0              0        357     >LONG NO O/P                            ENTER SUBROUTINE
          41509    10               0   0  0              0                                                        SELECT LITERAL
          41510    80      504      2   0  0              0        504     >O/P 24/1/2 2C      COPY FP CONST       ENTER SUBROUTINE
          41511    10               0   0  0          38084                3/1/0 132           LONG TO 132'        SELECT LITERAL
          41512    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          41513    0       61      50   0  0              0                VARIANT+1                               SELECT
          41514    12               0   0  0              7                TEST ACTION 67                          SUBTRACT LITERAL
          41515    71      362      2   0  0              0        362     >YES, GNB                               JUMP IF A != 0
          41516    80      504      2   0  0              0        504     >O/P 24/1/2 2C      COPY SHORT TO 132 TOENTER SUBROUTINE
          41517    10               0   0  0          20084                2/0/0 132           SET SIGN BIT THERE  SELECT LITERAL
          41518    76      382      9   0  0              0        382     O/P AND GET NEXT BLOCK                  JUMP unconditional
                                                                                                                   
          41600    PROCR   416       416     CONVERSION TABLE S/R                                                  
          41601     NOTES          RADIX     B                                                                     SELECT
          41602    81      416      2   0  0              0        416                                             START OF SUBROUTINE
          41603            92       7   0  0              0                                                        SELECT
          41604    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          41605    91               0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          41606    70      416     11   0  0              0        416     >NONE STORED                            JUMP IF A == 0
    41610>41607            61      76   1  0              0                                                        SELECT
          41608    2       99       0   1  2              0                                                        SUBTRACT
          41609    70      416     13   0  0              0        416     >MATCH                                  JUMP IF A == 0
          41610    94      416      7   0  2              2        416                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41606>41611    10               0   0  0             53                =C                                      SELECT LITERAL
          41612    80      501      2   0  0              0        501     >MISMATCH SR                            ENTER SUBROUTINE
    41609>41613    10               0   0  0            3.8                PROCR 1000                              SELECT LITERAL
          41614    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          41615    1       92      29   0  0              0                FORM 2C FOR EXTRA CHAP                  ADD
          41616    1       92      29   0  0              0                                                        ADD
  Source image: P1000362.JPG
          41617    12               0   0  0              1                REF: 2C-1                               SUBTRACT LITERAL
          41618    5       61      52   0  0              0                                                        TRANSFER
          41619    96               0   0  2              0                                                        SELECT MODIFIER
          41620    16               0   0  0             10                                                        MULTIPLY LITERAL
          41621    5       61      53   0  0              0                CTR WITHIN PROCR                        TRANSFER
          41622            545      8   0  0              0        545     6 TO B17                                SELECT
          41623    5       61       0   0  0              0                                                        TRANSFER
          41624    80      485      2   0  0              0        485     TSL S/R                                 ENTER SUBROUTINE
          41625    82      416      2   0  0              0        416     EXIT                                    END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41700    PROCR   417       417     GROUP 7 ACTIONS                                                       
          41701     NOTES          RADIX     B                                                                     SELECT
    43615>                                                                                                         
    37211>41702    0       61      50   0  0              0                VARIANT+1                               SELECT
          41703    12               0   0  0              8                                    TEST ACTIONS 77-79  SUBTRACT LITERAL
          41704    73      417     37   0  0              0        417     >ACTIONS 70-76                          JUMP IF A < 0
          41705    80      534      2   0  0              0        534     SUSPEND LINE                            ENTER SUBROUTINE
          41706    80      504      2   0  0              0        504     24/1/2 2C                               ENTER SUBROUTINE
          41707    0       61      50   0  0              0                V+1                                     SELECT
          41708    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          41709    70      417     11   0  0              0        417     >ACTION 79                              JUMP IF A == 0
          41710    10               0   0  0              2-                                                       SELECT LITERAL
    41709>41711    12               0   0  0          10080                17/0/0 128                              SUBTRACT LITERAL
          41712    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          41713    0       61      50   0  0              0                V+1                                     SELECT
          41714    12               0   0  0              Ю                                    SELECT A*           SUBTRACT LITERAL
          41715    70      417     34   0  0              0        417     >ACTION 79          EXPT OR MANT        JUMP IF A == 0
          41716    0       545     10   0  0              0        545     5/0/0               TO A                SELECT
          41717    5       61       0   1  0              0                                                        TRANSFER
          41718    0       66      14   1  0              0                LITERAL                                 SELECT
          41719    71      417     27   0  0              0        417     >NO C-LINE                              JUMP IF A != 0
          41720    80      522      2   0  0              0        522     >I/P C-LINE         SUBTRACT NC1        ENTER SUBROUTINE
          41721    80      536      2   0  0              0        536     >O/P INSTRUCTION    OR LITERAL          ENTER SUBROUTINE
          41722    60               0   0  0              0                                                        SET DECIMAL RADIX
          41723    12               0   0  0              1                                                        SUBTRACT LITERAL
          41724    4       66       2   1  0              0                                                        AUGMENT
          41725    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          41726    76      417     30   0  0              0        417                                             JUMP unconditional
    41719>41727    5       61      52   1  0              0                LONG CONST W/L                          TRANSFER
          41728            545     10   0  0              0        545     5/0/0                                   SELECT
          41729    80      357      2   0  0              0        357     >LONG/SHORT NO S/R                      ENTER SUBROUTINE
    41726>41730    80      535      2   0  0              0        535     RESTORE FORST LINE                      ENTER SUBROUTINE
          41731    0       61      50   0  0              0                V+1                                     SELECT
          41732    12               0   0  0              8                79,78 AS 72                             SUBTRACT LITERAL
          41733    70      417     35   0  0              0        417     >ACTION 77          77 AS 73            JUMP IF A == 0
    41715>41734    10               0   0  0              1-                                                       SELECT LITERAL
    41733>41735    11               0   0  0              4                                                        ADD LITERAL
          41736    3       61      50   0  0              0                SET TRICK VARIANT                       COPY
    41704>41737    5       61       1   0  0              0                SET NON-ARITH IND                       TRANSFER
          41738    80      489      2   0  0              0        489     >M&P                                    ENTER SUBROUTINE
          41739    80      418      2   0  0              0        418     S. CHANGE S.R.                          ENTER SUBROUTINE
          41740    124     61      50   0  0              0                                                        modify address of next
          41741            545     39   0  0              0        545     27 ACTION                               SELECT
          41742    5       61       0   0  0              0                                                        TRANSFER
          41743    76      441      4   0  0              0        441     - STACK O/P GNB                         JUMP unconditional
                                                                                                                   
          41800    PROCR   418       418     S.C. S/R                                                              
          41801     NOTES          RADIX     B                                                                     SELECT
          41802    81      418      2   0  0              0        418                                             START OF SUBROUTINE
          41803    0       66       6   1  0              0                REF                                     SELECT
  Source image: P1000363.JPG
          41804    70      420      9   0  0              0        420                                             JUMP IF A == 0
          41805    12               0   0  0            3.7                999                                     SUBTRACT LITERAL
          41806    72      420      9   0  0              0        420     > SKIP                                  JUMP IF A >= 0
          41807            66       8   1  0              0                ITEM                                    SELECT
          41808    71      418     13   0  0              0        418     > NOT TO PROCR START                    JUMP IF A != 0
          41809            61      10   0  0              0                THIS PROCR                              SELECT
          41810    2       66       6   0  0              0                REF                                     SUBTRACT
          41811    72      419     30   0  0              0        419     > SC BACK TO PROCR STARTNOT TO PROCR STAJUMP IF A >= 0
          41812    76      418     23   0  0              0        418     >SC FORWARD                             JUMP unconditional
    41808>41813    95               0   0  1              0                CURRENT HEAD OF 'SC BACK' LIST          SELECT MODIFICATION REGISTER
          41814    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          41815    1       544     17   0  0              0        544     ABS ADDRESS 18/0                        ADD
          41816    91               0   0  2              0                R2* (A)                                 SET MODIFICATION REGISTER AT VARIABLE
          41817    94      418     19   0  2              0        418     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          41818    76      418     23   0  0              0        418     NO DESTS REPLACED YET                   JUMP unconditional
    41822>                                                                                                         
    41817>41819            66       2   0  0              0                THIS ORDER                              SELECT
          41820    2                1   0  2              0                INTERCODE DEST                          SUBTRACT
          41821    70      420      2   0  0              0        420     > MATCH FOUND                           JUMP IF A == 0
          41822    94      418     19   0  2              2        418     > TRY NEXT                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41818>                                                                                                         
    41812>41823    0       66       6   1  0              0                                    ASSUME SEQ CH FWD   SELECT
          41824    80      538      2   0  0              0        538     >REF TO DEC                             ENTER SUBROUTINE
          41825    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          41826    5       61      18   0  0              0                                                        TRANSFER
          41827    0       66       8   1  0              0                                                        SELECT
          41828    80      538      2   0  0              0        538     > ITEM TO DEC                           ENTER SUBROUTINE
          41829    11               0   0  0              2                ADD 2 TO ITEM                           ADD LITERAL
          41830    4       61      18   0  0              0                                                        AUGMENT
          41831    62               0   0  0              0                SET BINARY                              SET EXCESS CONSTANTS
          41832    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          41833    91               0   0  2              0                ZERO END VALUE                          SET MODIFICATION REGISTER AT VARIABLE
          41834    70      419      9   0  0              0        419     > EMPTY                                 JUMP IF A == 0
          41835    12               0   0  0            12+                300                                     SUBTRACT LITERAL
          41836    73      418     40   0  0              0        418     > OK                                    JUMP IF A < 0
          41837    10               0   0  0             78                 'Y'                                    SELECT LITERAL
          41838    80      501      2   0  0              0        501     > REPORT                                ENTER SUBROUTINE
          41839    82      418      2   0  0              0        418     > EXIT, DON'T SET S'C IND               END OF SUBROUTINE / LEAVE SUBROUTINE
    41908>                                                                                                         
    41836>41840    0       20       3-  0  2              0                NEXT DEST (LAST IN LIST FIRST)          SELECT
          41841    2       61      18   0  0              0                                                        SUBTRACT
          41842    73      419      9   0  0              0        419     > FITS NOW                              JUMP IF A < 0
                                                                                                                   
          41900    PROCR   419       419     S.C. S/R                                                              
          41901     NOTES          RADIX                                                                           SELECT
          41902    0       20       3-  0  2              0                MOVE  LIST DOWN 1 ITEM                  SELECT
          41903    5       20       0   0  2              0                                                        TRANSFER
          41904    0       20       2-  0  2              0                                                        SELECT
          41905    5       20       1   0  2              0                                                        TRANSFER
          41906    0       20       1-  0  2              0                                                        SELECT
          41907    5       20       2   0  2              0                                                        TRANSFER
          41908    94      418     40   0  2              3-       418     > NEXT                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41842>                                                                                                         
    41834>41909    0       61      18   0  0              0                DEST OF NEWCOMER                        SELECT
          41910    5       20       0   0  2              0                                                        TRANSFER
          41911            66       2   1  0              0                SOURCE                                  SELECT
          41912    5       20       1   0  2              0                                                        TRANSFER
          41913            66       8   1  0              0                                                        SELECT
          41914    3       20       2   0  2              0                                                        COPY
          41915    70      419     28   0  0              0        419     > DEST IS A PROCR START                 JUMP IF A == 0
  Source image: P1000364.JPG
          41916    10               0   0  0              1                                                        SELECT LITERAL
          41917    5       67       1   0  0              0                SET 'SEQ' CH' IND                       TRANSFER
          41918    0       546     19   0  0              0        546     FLIPFLOP 0/10                           SELECT
          41919    30               0   0  0              4                TO Q5                                   SHIFT (A) BY QUARTETS
          41920    1       61     118   0  0              0                ABS LOCN IN SEC 18 918:2499 INITIALLY)  ADD
          41921    5       20       2   0  2              0                                                        TRANSFER
          41922    10               0   0  0              Ю                                                        SELECT LITERAL
          41923    2       546     19   0  0              0        546                                             SUBTRACT
          41924    3       546     19   0  0              0        546     REVERSE                                 COPY
          41925    71      419     28   0  0              0        419     > NEXT TIME IS TOP 10 BITS OF SAME LOCN JUMP IF A != 0
          41926    12               0   0  0              1                                                        SUBTRACT LITERAL
          41927    4       61     118   0  0              0                REDUCE ABS ADDRESS                      AUGMENT
    41925>                                                                                                         
    41915>41928    10               0   0  0              3                                                        SELECT LITERAL
          41929    4       61     117   0  0              0                STEP CTR OF ACTIVE SC'S                 AUGMENT
    41811>41930    82      418      2   0  0              0        418                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42000    PROCR   420       420     S.C.  S/R: MATCH FOUND IN SC BACK LIST                                
          42001     NOTES          RADIX     B                                                                     SELECT
    41821>42002    34               0   0  2              0                PROCR + ITEM                            SET (N) IN B
          42003    33               0   0  0             30                                                        SHIFT (AB) BY BITS
          42004    5       66       6   1  0              0                REF (BITS 11 - 20)                      TRANSFER
          42005    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          42006    5       66       8   1  0              0                ITEM (BITS 1 - 10)                      TRANSFER
          42007    96               0   0  2              0                                                        SELECT MODIFIER
          42008    80      421      2   0  0              0        421     > CONTRACT LIST                         ENTER SUBROUTINE
    41806>                                                                                                         
    41804>42009    82      418      2   0  0              0        418                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42100    PROCR   421       421     CONTRACT THE SC BACK LIST BY 1 WORD                                   
          42101     NOTES  421                                                                                     SELECT
          42102    81      421      2   0  0              0        421                                             START OF SUBROUTINE
          42103    5       61     114   0  0              0                WORD TO BE OVERWRITTEN                  TRANSFER
          42104    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          42105    5       61      18   1  0              0                START/END OF LIST (ABS)                 TRANSFER
          42106            61      19   0  0              0                                                        SELECT
          42107    2       61     114   0  0              0                                                        SUBTRACT
          42108    70      421     18   0  0              0        421     > NONE TO BE MOVED                      JUMP IF A == 0
          42109    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          42110    1       61     114   0  0              0                                                        ADD
          42111    11               0   0  0              2                FORM SOURCE IN A                        ADD LITERAL
          42112    124     61     114   0  3              0                                                        modify address of next
          42113    128              0   1  1              0                COPY UP BY 1 WORD                       bulk copy long numeric
          42114    12               0   0  0              2                                                        SUBTRACT LITERAL
          42115    4       61      18   0  0              0                                                        AUGMENT
          42116    4       61      19   0  0              0                ADJUST R1 FOR NEW LIST  POSITION        AUGMENT
          42117    91      61      18   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    42108>42118    82      421      2   0  0              0        421                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42200    PROCR   422       422     GROUP 8 SWITCH                                                        
          42201     NOTES          RADIX     B                                                                     SELECT
    37212>42202    85      381      2   0  0              0        381                                             SWITCH R
          42203    C       423      5   0  0              0        423     > 80                                    
          42204    C       423      2   0  0              0        423     > 81                                    
          42205    C       424      2   0  0              0        424     82                                      
          42206    C       425      2   0  0              0        425     83                                      
          42207    C       426      2   0  0              0        426     84                                      
          42208    C       427      2   0  0              0        427     85                                      
          42209    C       424      6   0  0              0        424     86 ACTION           SELECT SWITCH SETTIN
          42210    C       422     11   0  0              0        422     87 (85 ON A COMPT)                      
  Source image: P1000365.JPG
    42210>42211    5       66      10   1  0              0                CLEAR DISC                              TRANSFER
          42212    0       546      3   0  0              0        546     24/0/1                                  SELECT
          42213    80      356      2   0  0              0        356     >O/P NON-A                              ENTER SUBROUTINE
          42214    76      427      7   0  0              0        427     >CONTINUE AS 85                         JUMP unconditional
                                                                                                                   
          42300    PROCR   423       423     ACTIONS 81 AND 80                                                     
          42301     NOTES          0         0                                                                     SELECT
    42204>42302    0       61      10   0  0              0                COPY CURRENT PROCR ACTION 81            SELECT
          42303    5       61       9   0  0              0                                                        TRANSFER
          42304    76      382      9   0  0              0        382     >O/P ZERO LOCN, GNB                     JUMP unconditional
    42203>42305    80      534      2   0  0              0        534     > SUSPEND ACTION 80                     ENTER SUBROUTINE
          42306    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          42307    C                0   0  0             40                (UP TO 20 C-LINES)                      
    42317>42308    80      397      2   0  0              0        397     > TEST C-LINE                           ENTER SUBROUTINE
          42309    71      423     19   0  0              0        423     > NO                                    JUMP IF A != 0
          42310    0       66       6   0  0              0                                                        SELECT
          42311    5       61      54   0  2              0                REF                                     TRANSFER
          42312            66      10   0  0              0                DISC                                    SELECT
          42313    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          42314    4       61      54   0  2              0                STORE WITH REF                          AUGMENT
          42315    0       66       8   1  0              0                                                        SELECT
          42316    5       61      55   0  2              0                ITEM(+-)                                TRANSFER
          42317    94      423      8   0  2              2        423                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          42318    80      509      2   0  0              0        509     PROMOTE READ NEXT BLOCK                 ENTER SUBROUTINE
    42309>42319    80      535      2   0  0              0        535     >RESTORE FIRST LINE                     ENTER SUBROUTINE
          42320    96               0   0  2              0                                                        SELECT MODIFIER
          42321    5       66      15   0  0              0                STORE MODIFIER OVER LITERAL             TRANSFER
          42322            66       6   0  0              0                BIN REF                                 SELECT
          42323    101           1000   1  2              0                                                        subtract literal address
          42324    73      423     27   0  0              0        423     >REF NOT 1000+                          JUMP IF A < 0
          42325    10               0   0  0              0                                                        SELECT LITERAL
          42326    76      423     29   0  0              0        423     >DON'T CLEAR ITEM                       JUMP unconditional
    42324>42327    10               0   0  0              0                                                        SELECT LITERAL
          42328    5       66       8   1  0              0                CLEAR I.D.M                             TRANSFER
    42326>42329    5       66      10   1  0              0                                                        TRANSFER
          42330    5       66      12   1  0              0                                                        TRANSFER
          42331    5       66      14   0  0              0                                                        TRANSFER
          42332    0       545     47   0  0              0        545     26/0/0                                  SELECT
          42333    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          42334            66      15   0  0              0                                                        SELECT
          42335    70      362      3   0  0              0        362     >NO C-LINES, GNB(NON-I/P)               JUMP IF A == 0
          42336    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          42337    5       61      18   0  0              0                WL                                      TRANSFER
          42338            546     11   0  0              0        546     24/1/0/1                                SELECT
          42339    2       61      18   0  0              0                SPACE OCCUPIED BY C-LINES               SUBTRACT
          42340    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          42341    91      66      14   0  4              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    42371>42342    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          42343    36      61      54   0  4              0                                                        COLLATE AND ADD
          42344    3       66       6   0  0              0                REF                                     COPY
          42345    5       61      35   0  0              0                                                        TRANSFER
          42346    80      486      2   0  0              0        486     >DETERMINE CHAPTER                      ENTER SUBROUTINE
          42347    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          42348    71      423     51   0  0              0        423     >TX AREA                                JUMP IF A != 0
          42349    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          42350    76      423     56   0  0              0        423                                             JUMP unconditional
    42348>42351    80      488      2   0  0              0        488     >PSEUDOROUTE SR                         ENTER SUBROUTINE
          42352    11               0   0  0              1                PARA                                    ADD LITERAL
          42353    5       61      34   0  0              0                                                        TRANSFER
          42354    5       66       6   1  0              0                CLEAR REF                               TRANSFER
  Source image: P1000366.JPG
          42355    76      423     66   0  0              0        423                                             JUMP unconditional
    42350>42356    3       61      34   0  0              0                                                        COPY
          42357    70      423     60   0  0              0        423     >ZERO PARA                              JUMP IF A == 0
          42358    12               0   0  0              1                                                        SUBTRACT LITERAL
          42359    4       61      34   0  0              0                                                        AUGMENT
    42357>42360            61      54   0  4              0                                                        SELECT
          42361    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          42362    70      423     65   0  0              0        423     >NO DISC IN C-LINE                      JUMP IF A == 0
          42363    10               0   0  0              2                                                        SELECT LITERAL
          42364    5       67       1   0  0              0                SEQ CH IND='ON'                         TRANSFER
    42362>42365    0       61      55   0  4              0                ITEM                                    SELECT
    42355>42366    5       66       8   1  0              0                                                        TRANSFER
          42367    5       61       0   0  0              0                CLEAR ACTION                            TRANSFER
          42368    80      531      2   0  0              0        531     >NEG NO                                 ENTER SUBROUTINE
          42369    80      532      2   0  0              0        532     >STACK                                  ENTER SUBROUTINE
          42370    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          42371    94      423     42   0  4              2        423                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          42372    76      362      3   0  0              0        362     >GNB(NON-I/P)                           JUMP unconditional
                                                                                                                   
          42400    PROCR   424       424     ACTIONS 82 AND 86                                                     
          42401     NOTES          RADIX     B                                                                     SELECT
    42205>42402    54      66       8   0  0              6                CLEAR I, D, M       ACTION 82           BULK CLEAR
          42403    0       545     48   0  0              0        545     26/0/1                                  SELECT
          42404    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          42405    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
    42209>42406    10               0   0  0              0                                    86 ACTION           SELECT LITERAL
          42407    5       61     113   0  0              0                INDICATOR WHETHER TO I/P OR NOT AT GNB. TRANSFER
          42408            545      8   0  0              0        545     6/0/0                                   SELECT
          42409    76      425      7   0  0              0        425                                             JUMP unconditional
                                                                                                                   
          42500    PROCR   425       425     ACTION 83                                                             
          42501     NOTES          RADIX     B                                                                     SELECT
    42206>42502            545     22   0  0              0        545     1/1/3                                   SELECT
          42503    1       66      14   0  0              0                                                        ADD
          42504    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          42505    5       61     113   0  0              0                INDICATOR                               TRANSFER
    42612>42506            545     13   0  0              0        545     2/0/0                                   SELECT
    42409>42507    5       61       0   0  0              0                ACTION W/L                              TRANSFER
          42508    80      429      2   0  0              0        429     SWITCH SR                               ENTER SUBROUTINE
          42509            61     113   0  0              0                                                        SELECT
          42510    70      441      4   0  0              0        441     - STACK O/P GNB                         JUMP IF A == 0
          42511    80      532      2   0  0              0        532     - STACK                                 ENTER SUBROUTINE
          42512    80      518      2   0  0              0        518     O/P                                     ENTER SUBROUTINE
          42513    0       397      2   0  0              0        397     RESTORE IND                             SELECT
          42514    5       545     99   0  0              0        545                                             TRANSFER
          42515    76      362      3   0  0              0        362     - GNB (NO I/P)                          JUMP unconditional
                                                                                                                   
          42600    PROCR   426       426     ACTION 84                                                             
          42601     NOTES          RADIX     B                                                                     SELECT
    42207>42602    80      534      2   0  0              0        534     - SUSPEND                               ENTER SUBROUTINE
          42603    80      397      2   0  0              0        397     >TEST C-LINE SR                         ENTER SUBROUTINE
          42604    3       61     113   0  0              0                NON-I/P IND                             COPY
          42605    70      426      9   0  0              0        426     >YES                                    JUMP IF A == 0
          42606    0       545     99   0  0              0        545     'PRINT ME' IND FOR LINE READ BY ACCIDENTSELECT
          42607    5       397      2   0  0              0        397     STORE IND                               TRANSFER
          42608    76      426     11   0  0              0        426                                             JUMP unconditional
    42605>42609            545      8   0  0              0        545     6/0/0                                   SELECT
          42610    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
    42608>42611    80      535      2   0  0              0        535     - RESTORE S/R                           ENTER SUBROUTINE
          42612    76      425      6   0  0              0        425                                             JUMP unconditional
                                                                                                                   
  Source image: P1000367.JPG
          42700    PROCR   427       427     ACTION 85                                                             
          42701     NOTES          RADIX     B                                                                     SELECT
    42208>42702    80      429      2   0  0              0        429     SWITCH SR                               ENTER SUBROUTINE
          42703    0       546      3   0  0              0        546     24/0/1                                  SELECT
          42704    5       61       0   0  0              0                                                        TRANSFER
          42705    80      532      2   0  0              0        532      - STACK  S/R                           ENTER SUBROUTINE
          42706    80      518      2   0  0              0        518     > = O/P S/R                             ENTER SUBROUTINE
    42214>42707            545     48   0  0              0        545     26/0/1                                  SELECT
          42708    80      498      2   0  0              0        498     > O/P  INT SC                           ENTER SUBROUTINE
    42812>42709    80      522      2   0  0              0        522     I/P C-LINE S/R                          ENTER SUBROUTINE
          42710    10               0   0  0              0                                                        SELECT LITERAL
          42711    5       61       0   0  0              0                CLEAR ACTION W/L                        TRANSFER
                                                                                                                   
          42800    PROCR   428       428     ACTION 85  (2)                                                        
          42801     NOTES          RADIX                                                                           SELECT
          42802            66       6   0  0              0                                                        SELECT
          42803    5       61      35   0  0              0                                                        TRANSFER
          42804    80      486      2   0  0              0        486                                             ENTER SUBROUTINE
          42805    3       61      34   0  0              0                                                        COPY
          42806    70      428      8   0  0              0        428     > DON'T MAKE A PARA 1-                  JUMP IF A == 0
          42807    12               0   0  0              1                                                        SUBTRACT LITERAL
    42806>42808    4       61      34   0  0              0                                                        AUGMENT
          42809    80      418      2   0  0              0        418     SEQUENCE CHANGE S/R                     ENTER SUBROUTINE
          42810    80      532      2   0  0              0        532     STACK                                   ENTER SUBROUTINE
          42811    80      518      2   0  0              0        518     > O/P                                   ENTER SUBROUTINE
          42812    76      427      9   0  0              0        427                                             JUMP unconditional
                                                                                                                   
          42900    PROCR   429       429     SWITCH S/R                                                            
          42901     NOTES          RADIX     B                                                                     SELECT
          42902    81      429      2   0  0              0        429                                             START OF SUBROUTINE
          42903    91      95       0   0  8              0                NO OF SWITCHES                          SET MODIFICATION REGISTER AT VARIABLE
          42904    34      544     26   0  0              0        544     BITS 1-10                               SET (N) IN B
    42910>42905    10               0   0  0              0                                                        SELECT LITERAL
          42906    36      95       2   0  8              0                                                        COLLATE AND ADD
          42907    70      429     11   0  0              0        429     > MISMATCH                              JUMP IF A == 0
          42908    2       66       6   1  0              0                                                        SUBTRACT
          42909    70      429     13   0  0              0        429     > OK                                    JUMP IF A == 0
          42910    94      429      5   0  8              1        429                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    42907>42911    10               0   0  0             72                ERRORS                                  SELECT LITERAL
          42912    80      501      2   0  0              0        501     > MISMATCH SR                           ENTER SUBROUTINE
    42909>42913            95       2   0  8              0                                                        SELECT
          42914    32               0   0  0              4-               CHAP TO Q1                              SHIFT (AB) BY QUARTETS
          42915    3       61      54   0  0              0                                                        COPY
          42916    101           1001   1  1              0                (1001+CHAP)= SWITCH PROCR               add literal address
          42917    5       66       6   0  0              0                PROCR TO SWITCH                         TRANSFER
          42918    33               0   0  0              6                                                        SHIFT (AB) BY BITS
          42919    5       66       8   0  0              0                POSITION IN PROCR                       TRANSFER
          42920            61      54   0  0              0                CHAP NO. SWITCH                         SELECT
          42921    2       61      51   0  0              0                THIS CHAP                               SUBTRACT
          42922    70      429     26   0  0              0        429     > YES                                   JUMP IF A == 0
          42923    1       61      51   0  0              0                                                        ADD
          42924    80      504      2   0  0              0        504     24/1/2/2C-1/2C S/R                      ENTER SUBROUTINE
          42925    76      429     27   0  0              0        429     > ZERO PARA                             JUMP unconditional
    42922>42926            61       3   0  0              0                                                        SELECT
    42925>42927    5       61      34   0  0              0                                                        TRANSFER
          42928    82      429      2   0  0              0        429                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43000    PROCR   430       430     GROUP 9 SWITCH                                                        
          43001     NOTES          RADIX                                                                           SELECT
  Source image: P1000368.JPG
    37213>43002    85      381      2   0  0              0        381                                             SWITCH R
          43003    C       431      2   0  0              0        431     90                                      
          43004    C       432      2   0  0              0        432     91                                      
          43005    C       433      2   0  0              0        433     92                                      
          43006    C       434      2   0  0              0        434     93                                      
          43007    C       435      2   0  0              0        435     94                                      
          43008    C       437      2   0  0              0        437     95                                      
          43009    C       437      3   0  0              0        437     96                                      
          43010    C       438      2   0  0              0        438     97                                      
          43011    C       430     13   0  0              0        430     98 ADD(MR)                              
          43012    C       430     14   0  0              0        430     99 SUBTRACT (MR)                        
    43011>43013    2       545     49   0  0              0        545     1/0/0  (A IS CLEAR)                     SUBTRACT
    43012>43014    1       545     10   0  0              0        545     5/0/0                                   ADD
          43015    5       537      2   0  0              0        537                                             TRANSFER
          43016    80      534      2   0  0              0        534     > SUSPEND                               ENTER SUBROUTINE
          43017    0       66      10   1  0              0                DISC                                    SELECT
          43018    70      430     20   0  0              0        430                                             JUMP IF A == 0
          43019    0       545     29   0  0              0        545     BIT 16                                  SELECT
    43018>43020    1       537      2   0  0              0        537     WL                                      ADD
          43021    80      439      2   0  0              0        439     > MR SR                                 ENTER SUBROUTINE
          43022    76      362      2   0  0              0        362     > GNB                                   JUMP unconditional
                                                                                                                   
          43100    PROCR   431       431     ACTION 90                                                             
          43101     NOTES          RADIX     B                                                                     SELECT
    43003>43102    80      534      2   0  0              0        534      - SUSPEND S/R                          ENTER SUBROUTINE
          43103            66      14   1  0              0                                                        SELECT
          43104    5       61      52   0  0              0                SUSPEND LITERAL                         TRANSFER
          43105    80      521      2   0  0              0        521     I/P INST S/R                            ENTER SUBROUTINE
          43106            66      14   1  0              0                                                        SELECT
          43107    5       61      53   0  0              0                                                        TRANSFER
          43108            61      52   0  0              0                                                        SELECT
          43109    73      431     12   0  0              0        431     > NEGATIVE MODIFIER                     JUMP IF A < 0
          43110    0       61      53   0  0              0                                                        SELECT
          43111    72      431     15   0  0              0        431     > POSITIVE MODIFIER > END VALUE         JUMP IF A >= 0
    43109>43112            545     49   0  0              0        545     BIT 17                                  SELECT
          43113    4       61      52   0  0              0                START VALUE                             AUGMENT
          43114    4       61      53   0  0              0                END VALUE                               AUGMENT
    43111>43115            61      32   1  0              0                MOD DIGITS                              SELECT
          43116    12               0   0  0              4                                                        SUBTRACT LITERAL
          43117    73      431     22   0  0              0        431     > MR 1 - 3                              JUMP IF A < 0
          43118    0       545      8   0  0              0        545     6/0/0               MR>3                SELECT
          43119    5       61       0   0  0              0                A CLEAR AT START                        TRANSFER
          43120    80      481      2   0  0              0        481     > LONG NUMBER                           ENTER SUBROUTINE
          43121    76      431     28   0  0              0        431                                             JUMP unconditional
    43117>43122            545     47   0  0              0        545     26/0/0                                  SELECT
          43123    124     61      32   0  0              0                                                        modify address of next
          43124    2       545     25   0  0              0        545                                             SUBTRACT
          43125    5       61       0   0  0              0                                                        TRANSFER
          43126    80      481      2   0  0              0        481     > LONG NO SR                            ENTER SUBROUTINE
          43127    76      362      2   0  0              0        362     > GNB                                   JUMP unconditional
    43218>                                                                                                         
    43222>                                                                                                         
    43121>43128    0       61      32   0  0              0                SUSPEND MOD DIGITS                      SELECT
          43129    5       61       2   0  0              0                                                        TRANSFER
          43130            545     30   0  0              0        545      2/1/0                                  SELECT
          43131    80      506      2   0  0              0        506     MR >3  SR                               ENTER SUBROUTINE
          43132    76      362      2   0  0              0        362                                             JUMP unconditional
                                                                                                                   
          43200    PROCR   432       432     ACTION 91                                                             
          43201     NOTES          RADIX     B                                                                     SELECT
  Source image: P1000369.JPG
    43004>43202    10               0   0  0              0                STORE ABC SET BIN RA                    SELECT LITERAL
          43203    5       66      10   1  0              0                CLEAR DISCRIMINANT                      TRANSFER
          43204            66       6   1  0              0                REF                                     SELECT
          43205    34      66       8   1  0              0                ITEM                                    SET (N) IN B
          43206    74      432     19   0  0              0        432     > REF AND ITEM ZERO                     JUMP IF AB == 0        // 27, 1, 0
          43207            66      12   0  0              0                MOD DIGITS                              SELECT
          43208    3       61      32   0  0              0                                                        COPY
          43209    12               0   0  0              4                                                        SUBTRACT LITERAL
          43210    72      432     14   0  0              0        432     >MR>3                                   JUMP IF A >= 0
          43211            545     56   0  0              0        545     26/1/0                                  SELECT
          43212    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          43213    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
    43210>43214    10               0   0  0              0                                                        SELECT LITERAL
          43215    5       66      12   1  0              0                                                        TRANSFER
          43216    0       545     57   0  0              0        545     6/1/0                                   SELECT
          43217    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          43218    76      431     28   0  0              0        431                                             JUMP unconditional
    43206>43219            66      12   0  0              0                MOD DIGITS                              SELECT
          43220    3       61      32   0  0              0                                                        COPY
          43221    12               0   0  0              4                                                        SUBTRACT LITERAL
          43222    72      431     28   0  0              0        431                                             JUMP IF A >= 0
          43223            545     31   0  0              0        545     3/1/0                                   SELECT
          43224    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          43225    0       545     56   0  0              0        545     26/1/0                                  SELECT
          43226    124     66      12   0  0              0                MOD DIGITS                              modify address of next
          43227    2       545     25   0  0              0        545                                             SUBTRACT
          43228    76      361      8   0  0              0        361     >LN:2C +GNB                             JUMP unconditional
                                                                                                                   
          43300    PROCR   433       433     ACTION 92                                                             
          43301     NOTES          RADIX     B                                                                     SELECT
    43005>43302    0       66      12   0  0              0                                                        SELECT
          43303    5       61      32   0  0              0                WL                                      TRANSFER
          43304    5       66      12   0  0              0                CLEAR MOD DIGITS                        TRANSFER
          43305    0       66       6   0  0              0                REF                                     SELECT
          43306    34      66       8   0  0              0                ITEM                                    SET (N) IN B
          43307    74      433     10   0  0              0        433     >ACTS ON (A)                            JUMP IF AB == 0        // 27, 1, 0
          43308            545      8   0  0              0        545     6 TO B17                                SELECT
          43309    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
    43307>43310    0       545     13   0  0              0        545     2/0/0                                   SELECT
          43311    80      439      2   0  0              0        439     >MOD REGISTER SR                        ENTER SUBROUTINE
          43312    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          43400    PROCR   434       434     ACTION 93 (1)                                                         
          43401     NOTES          RADIX     B                                                                     SELECT
    43006>43402    80      508      2   0  0              0        508     -0/1/0 0/0/3 S/R                        ENTER SUBROUTINE
          43403    80      534      2   0  0              0        534     SUSPEND                                 ENTER SUBROUTINE
          43404            544     23   0  0              0        544     DEC RADIX                               SELECT
          43405    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          43406    5       61      76   1  0              0                                                        TRANSFER
          43407    80      416      2   0  0              0        416     CONVERSION TABLE SR                     ENTER SUBROUTINE
          43408    80      535      2   0  0              0        535     REPLACE S/R                             ENTER SUBROUTINE
          43409    5       66      12   1  0              0                CLEAR                                   TRANSFER
          43410            545     58   0  0              0        545     12/0/0                                  SELECT
          43411    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          43412            546     12   0  0              0        546     27/0/2/2                                SELECT
          43413    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          43414            545     49   0  0              0        545     BIT 17                                  SELECT
          43415    5       61      52   1  0              0                                                        TRANSFER
          43416            545      9   0  0              0        545     4/0/0                                   SELECT
          43417    80      357      2   0  0              0        357     >SHORT NO O/P                           ENTER SUBROUTINE
  Source image: P1000370.JPG
          43418            545     13   0  0              0        545     2/0/0                                   SELECT
          43419    80      439      2   0  0              0        439     MOD REGISTER S/R                        ENTER SUBROUTINE
          43420    80      399      2   0  0              0        399     >RESTORE ABC                            ENTER SUBROUTINE
          43421    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          43500    PROCR   435       435     ACTION 94                                                             
          43501     NOTES          RADIX     B                                                                     SELECT
    43814>                                                                                                         
    43007>43502    0       66      14   1  0              0                LITERAL                                 SELECT
          43503    72      435      6   0  0              0        435                                             JUMP IF A >= 0
          43504    10               0   0  0           1000                4096                                    SELECT LITERAL
          43505    4       66      14   0  0              0                AUGMENT MODULAS                         AUGMENT
    43503>43506            66      12   0  0              0                                                        SELECT
          43507    3       61       2   0  0              0                STORE DIGITS                            COPY
          43508    12               0   0  0              4                                                        SUBTRACT LITERAL
          43509    72      436     16   0  0              0        436     >MR>3                                   JUMP IF A >= 0
          43510            545     59   0  0              0        545     25/0/0                                  SELECT
          43511    2       66      14   0  0              0                MOD L                                   SUBTRACT
          43512    124     66      12   0  0              0                                                        modify address of next
          43513    2       545     25   0  0              0        545     0/0/0   0/0/3                           SUBTRACT
          43514    80      359      2   0  0              0        359     >OUTPUT                                 ENTER SUBROUTINE
                                                                                                                   
          43600    PROCR   436       436     ACTION 94                                                             
          43601     NOTES          RADIX     B                                                                     SELECT
    43620>43602            66       6   1  0              0                REF                                     SELECT
          43603    34      66       8   1  0              0                ITEM                                    SET (N) IN B
          43604    75      436     11   0  0              0        436     REF & ITEM NON ZERO                     JUMP IF AB != 0
          43605            546     11   0  0              0        546     24/1/0/1                                SELECT
          43606    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          43607    0       61      50   0  0              0                VARIANT +1          TEST IF WE CAME IN  SELECT
          43608    12               0   0  0              8                                    WITH 97 ACTION      SUBTRACT LITERAL
          43609    71      362      2   0  0              0        362     >GNB                                    JUMP IF A != 0
          43610    76      362      3   0  0              0        362     >GNB (NO INPUT)                         JUMP unconditional
    43604>43611    10               0   0  0              7                SET VARIAMT AS                          SELECT LITERAL
          43612    5       61      50   0  0              0                THOUGH 76 ACTION                        TRANSFER
          43613    5       61       2   0  0              0                                                        TRANSFER
          43614    5       66      12   1  0              0                                                        TRANSFER
          43615    76      417      2   0  0              0        417     GROUP 7 ACTIONS                         JUMP unconditional
    43509>43616    0       545     61   0  0              0        545     23/0/0              MR>3                SELECT
          43617    2       66      14   0  0              0                MOD L                                   SUBTRACT
          43618    80      359      2   0  0              0        359     >O/P, CLEAR A                           ENTER SUBROUTINE
          43619    80      506      2   0  0              0        506     >MR>3 SR                                ENTER SUBROUTINE
          43620    76      436      2   0  0              0        436                                             JUMP unconditional
                                                                                                                   
          43700    PROCR   437       437     ACTIONS 95 AND 96                                                     
          43701     NOTES          RADIX     B                                                                     SELECT
    43008>43702    0       545     29   0  0              0        545     BIT 16=DISC                             SELECT
    43009>43703    1       545      8   0  0              0        545     6/0/0                                   ADD
          43704    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          43705    0       66      12   0  0              0                                                        SELECT
          43706    5       61      32   0  0              0                STORE MOD DIGITS                        TRANSFER
          43707    32               0   0  0             10                ACTION                                  SHIFT (AB) BY QUARTETS
          43708    80      439      2   0  0              0        439     >MOD REGISTER SR                        ENTER SUBROUTINE
          43709    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          43800    PROCR   438       438                                                                           
          43801     NOTES          RADIX     B    ACTION 97                                                        SELECT
    43010>43802    80      534      2   0  0              0        534                                             ENTER SUBROUTINE
          43803    5       66      12   1  0              0                                                        TRANSFER
          43804    5       66      10   1  0              0                CLEAR DISC.                             TRANSFER
  Source image: P1000371.JPG
          43805    0       546      3   0  0              0        546     24/0/1                                  SELECT
          43806    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          43807    80      397      2   0  0              0        397     >TEST C-LINE FOLLOWS                    ENTER SUBROUTINE
          43808    70      438     12   0  0              0        438     >YES                                    JUMP IF A == 0
          43809    10               0   0  0              0                                                        SELECT LITERAL
          43810    5       66       6   1  0              0                                                        TRANSFER
          43811    5       66       8   1  0              0                                                        TRANSFER
    43808>43812    0       61      32   1  0              0                STORED MOD DIGITS                       SELECT
          43813    5       66      12   1  0              0                                                        TRANSFER
          43814    76      435      2   0  0              0        435                                             JUMP unconditional
                                                                                                                   
          43900    PROCR   439       439     ARITHMETIC ON MOD REGISTERS=SEL/COPY/SUBTRACT/ADD                     
          43901     NOTES  439                                                                                     SELECT
          43902    81      439      2   0  0              0        439     61/32=MR,(A)=ACTION+DISC                START OF SUBROUTINE
          43903    5       537      2   0  0              0        537     CONVERT SR LINK                         TRANSFER
          43904    0       61      32   0  0              0                                                        SELECT
          43905    12               0   0  0              4                                                        SUBTRACT LITERAL
          43906    72      439     16   0  0              0        439     >MR>3                                   JUMP IF A >= 0
          43907    80      505      2   0  0              0        505     >24/0/3 2C                              ENTER SUBROUTINE
          43908    0       537      2   0  0              0        537     ACTION                                  SELECT
          43909    1       61      32   0  0              0                2M AS ADDRESS                           ADD
          43910    1       61      32   0  0              0                                                        ADD
          43911    5       67       3   0  0              0                                                        TRANSFER
          43912    0       61      41   0  0              0                MOD GROUP PARA                          SELECT
          43913    5       67       2   0  0              0                                                        TRANSFER
          43914    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          43915    82      439      2   0  0              0        439                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    43906>43916    0       61      32   0  0              0                                                        SELECT
          43917    5       61       2   0  0              0                TX MOD DIGITS                           TRANSFER
          43918    0       537      2   0  0              0        537     ACTION+DISC                             SELECT
          43919    80      506      2   0  0              0        506     MR>3 SR                                 ENTER SUBROUTINE
          43920    82      439      2   0  0              0        439                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          44000    PROCR   440       440     M/C ACTIONS                                                           
          44001     NOTES          RADIX     B    CALCULATE PARAMETERS, TEST 24/1/0 OR 27/D/M                      SELECT
    37217>44002    10               0   0  0              Ю                GROUP 13                                SELECT LITERAL
    37216>44003    11               0   0  0              Ю                12                                      ADD LITERAL
    37215>44004    11               0   0  0              Ю                11                                      ADD LITERAL
    37214>44005    12               0   0  0              1                10                                      SUBTRACT LITERAL
          44006    1       61      50   0  0              0                V+1                                     ADD
          44007    3       61       0   0  0              0                ACTION                                  COPY
          44008    12               0   0  0             17                23                                      SUBTRACT LITERAL
          44009    70      442      2   0  0              0        442     >ACTION 23                              JUMP IF A == 0
          44010    12               0   0  0              9                                                        SUBTRACT LITERAL
          44011    72      443      2   0  0              0        443     >32,33 OR 34                            JUMP IF A >= 0
    44204>44012            66       6   0  0              0                REF  PARA 0 OR 2C ROUTINE               SELECT
          44013    70      440     50   0  0              0        440                                             JUMP IF A == 0
          44014    3       61      35   0  0              0                                                        COPY
          44015    101            999   1  2              0                                                        subtract literal address
          44016    71      440     37   0  0              0        440     >NOT REF 999                            JUMP IF A != 0
          44017            543     44   1  0              0        543     CLEO'PARA WORD                          SELECT
          44018    70      440     37   0  0              0        440     >NOT APPLICABLE                         JUMP IF A == 0
          44019    32               0   0  0              6-                                                       SHIFT (AB) BY QUARTETS
          44020    70      440     24   0  0              0        440     >NOT FILE ID                            JUMP IF A == 0
          44021    5       61      54   0  0              0                                                        TRANSFER
          44022    80      499      2   0  0              0        499     >CALC PARA                              ENTER SUBROUTINE
          44023    76      440     34   0  0              0        440                                             JUMP unconditional
    44020>44024    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          44025    70      440     30   0  0              0        440     >NOT MR PARA,HENCE TX AREA              JUMP IF A == 0
          44026    5       543     44   1  0              0        543                                             TRANSFER
  Source image: P1000372.JPG
          44027    0       61      41   0  0              0                MOD GROUP PARA                          SELECT
          44028    1       543     44   2  0              0        543                                             ADD
          44029    76      440     34   0  0              0        440                                             JUMP unconditional
    44025>44030            543     44   2  0              0        543                                             SELECT
          44031    5       66       6   0  0              0                SECTION NUMBER                          TRANSFER
          44032    80      488      2   0  0              0        488                                             ENTER SUBROUTINE
          44033    11               0   0  0              1                                                        ADD LITERAL
    44029>                                                                                                         
    44023>44034    5       66       8   1  0              0                ITEM                                    TRANSFER
          44035    5       66       6   1  0              0                CLEAR REF                               TRANSFER
          44036    76      440     47   0  0              0        440     >PARA 2C                                JUMP unconditional
    44018>                                                                                                         
    44016>44037    0       61     112   0  0              0                PROG IDENTITY                           SELECT
          44038    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          44039    12               0   0  0             90                                                        SUBTRACT LITERAL
          44040    71      440     44   0  0              0        440     >NOT MASTER SUITE                       JUMP IF A != 0
          44041    80      486      2   0  0              0        486                                             ENTER SUBROUTINE
          44042    31               0   0  0              1                FORM 2C'                                SHIFT (A) BY BITS
          44043    76      440     51   0  0              0        440     >STORE PARA                             JUMP unconditional
    44040>44044    80      486      2   0  0              0        486     >DET CHAP                               ENTER SUBROUTINE
          44045    2       61      51   0  0              0                THIS CHAP                               SUBTRACT
          44046    71      440     50   0  0              0        440     -                                       JUMP IF A != 0
    44036>44047            61      51   0  0              0                                                        SELECT
          44048    1       61      51   0  0              0                                                        ADD
          44049    76      440     51   0  0              0        440     -                                       JUMP unconditional
    44046>                                                                                                         
    44013>44050    10               0   0  0              0                                                        SELECT LITERAL
    44049>                                                                                                         
    44043>44051    5       61      34   0  0              0                PARA W/L                                TRANSFER
          44052    0       66      10   0  0              0                DISC                                    SELECT
          44053    12               0   0  0              2                                                        SUBTRACT LITERAL
          44054    71      440     58   0  0              0        440     >TAKE YOUR CHANCE                       JUMP IF A != 0
          44055    10               0   0  0              1                                                        SELECT LITERAL
          44056    3       66      10   0  0              0                                                        COPY
          44057    4       66       8   1  0              0                ADJUST ITEM                             AUGMENT
    44054>44058            61       0   0  0              0                ACTION                                  SELECT
          44059    3       418      2   0  0              0        418                                             COPY
          44060    31               0   0  0              1                                                        SHIFT (A) BY BITS
          44061    34      543      2   0  0              0        543     BIT 1                                   SET (N) IN B
          44062    36      66      10   0  0              0                DISC                                    COLLATE AND ADD
          44063    31               0   0  0              2                                                        SHIFT (A) BY BITS
          44064    34      544     20   0  0              0        544     BITS 1+2                                SET (N) IN B
          44065    36      66      12   0  0              0                MOD DIGITS                              COLLATE AND ADD
          44066    31               0   0  0              1                                                        SHIFT (A) BY BITS
          44067    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          44068    3       61       0   0  0              0                COMBINED A/D/M                          COPY
          44069    30               0   0  0              5-                                                       SHIFT (A) BY QUARTETS
          44070    70      440     78   0  0              0        440     >POSITIVE ACTION                        JUMP IF A == 0
          44071            61       0   0  0              0                                                        SELECT
          44072    71      440     75   0  0              0        440     >NOT 'O-'                               JUMP IF A != 0
          44073    10               0   0  0              2                                                        SELECT LITERAL
          44074    5       67       1   0  0              0                SET IND                                 TRANSFER
    44072>44075    10               0   0  0              0                                                        SELECT LITERAL
          44076    2       61       0   0  0              0                                                        SUBTRACT
          44077    5       61       0   0  0              0                NEGATE ACTION                           TRANSFER
    44070>44078    5       66      10   1  0              0                                                        TRANSFER
          44079    5       66      12   1  0              0                                                        TRANSFER
          44080            61       0   0  0              0                                                        SELECT
          44081    2       545     46   0  0              0        545     24/1/0                                  SUBTRACT
          44082    70      441      2   0  0              0        441     >IS A SEQ CHANGE                        JUMP IF A == 0
  Source image: P1000373.JPG
          44083            418      2   0  0              0        418                                             SELECT
          44084    12               0   0  0             1‼                TEST FOR 27/D/M                         SUBTRACT LITERAL
          44085    71      441      6   0  0              0        441     >NO                                     JUMP IF A != 0
                                                                                                                   
          44100    PROCR   441       441     M/C ACTIONS                                                           
          44101     NOTES          RADIX     B                                                                     SELECT
    44082>44102    80      418      2   0  0              0        418     -S.C. S/R                               ENTER SUBROUTINE
    44107>                                                                                                         
    44221>44103    80      531      2   0  0              0        531     -NEG NO S/R                             ENTER SUBROUTINE
    42510>                                                                                                         
    41743>44104    80      532      2   0  0              0        532     - STACK                                 ENTER SUBROUTINE
          44105    76      382     10   0  0              0        382     - O/P GNB                               JUMP unconditional
    44085>44106            66      14   0  0              0                LITERAL                                 SELECT
          44107    70      441      3   0  0              0        441     >NO 'M&P'                               JUMP IF A == 0
          44108    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          44109    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          44110    5       66      12   0  0              0                SET EXTRA MOD DIGITS                    TRANSFER
          44111            61       0   0  0              0                                                        SELECT
          44112    80      356      2   0  0              0        356     >COMPLEX O/PNON-ARITH                   ENTER SUBROUTINE
          44113    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          44200    PROCR   442       442     ACTION 123/0/0                                                        
          44201     NOTES          RADIX     B                                                                     SELECT
    44009>44202            66      12   0  0              0                MOD                                     SELECT
          44203    34      66      10   0  0              0                DISC                                    SET (N) IN B
          44204    75      440     12   0  0              0        440                                             JUMP IF AB != 0
          44205    5       61      34   0  0              0                SET PARA ZERO                           TRANSFER
          44206    0       545     61   0  0              0        545     23/0/0                                  SELECT
          44207    5       61       0   0  0              0                                                        TRANSFER
          44208    80      532      2   0  0              0        532     -STACK                                  ENTER SUBROUTINE
          44209    80      518      2   0  0              0        518     -O/P                                    ENTER SUBROUTINE
          44210    80      521      2   0  0              0        521     I/P INSTRUCTION                         ENTER SUBROUTINE
          44211            66       6   0  0              0                                                        SELECT
          44212    70      442     19   0  0              0        442     -ABS ADD                                JUMP IF A == 0
          44213    5       61      35   0  0              0                                                        TRANSFER
          44214    80      486      2   0  0              0        486     -DET CHAP                               ENTER SUBROUTINE
          44215    3       61      34   0  0              0                                                        COPY
          44216    1       61      34   0  0              0                                                        ADD
          44217    70      442     19   0  0              0        442     >DON'T MAKE A PARA 1-                   JUMP IF A == 0
          44218    12               0   0  0              1                                                        SUBTRACT LITERAL
    44217>                                                                                                         
    44212>44219    5       61      34   0  0              0                                                        TRANSFER
          44220    5       61       0   0  0              0                                                        TRANSFER
          44221    76      441      3   0  0              0        441                                             JUMP unconditional
                                                                                                                   
          44300    PROCR   443       443     CHEQUE-SORTER ACTIONS 132-134                                         
    44011>44302    80      534      2   0  0              0        534     >SUSPEND S/R                            ENTER SUBROUTINE
          44303    76      387      5   0  0              0        387                                             JUMP unconditional
    38762>44304    80      535      2   0  0              0        535     >REPLACE S/R                            ENTER SUBROUTINE
          44305            66       8   0  0              0                                                        SELECT
          44306    5       66       6   1  0              0                >REF                                    TRANSFER
          44307    5       66       8   1  0              0                CLEAR ITEM                              TRANSFER
          44308    5       66      10   1  0              0                &DISC                                   TRANSFER
          44309    5       66      12   1  0              0                &MOD                                    TRANSFER
          44310    80      534      2   0  0              0        534     >RE-SUSPEND S/R                         ENTER SUBROUTINE
          44311            61      50   0  0              0                V+1                                     SELECT
          44312    12               0   0  0              3                                                        SUBTRACT LITERAL
          44313    71      443     21   0  0              0        443     >133 OR 134                             JUMP IF A != 0
    44427>44314            545     66   0  0              0        545     24/0/2                                  SELECT
          44315    80      356      2   0  0              0        356     >COMPLEX O/P                            ENTER SUBROUTINE
  Source image: P1000374.JPG
          44316            545     72   0  0              0        545     18/1/1 5-                               SELECT
          44317    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44318    5       61      50   0  0              0                CLEAR                                   TRANSFER
          44319    80      397      2   0  0              0        397     >'TEST CONTINUATION LINE'               ENTER SUBROUTINE
          44320    76      396     40   0  0              0        396     >                                       JUMP unconditional
    44313>44321    12               0   0  0              1                                                        SUBTRACT LITERAL
          44322    71      444     20   0  0              0        444     >ACTION 134                             JUMP IF A != 0
                                                                                                                   
          44400    PROCR   444       444     CHEQUE-SORTER                                                         
          44402    34      544     21   0  0              0        544     BITS 5-19           ACTION 133          SET (N) IN B
          44403    124     66       6   0  1              0                REF(EX-ITEM)                            modify address of next
          44404    36      70       0   0  0              0                                                        COLLATE AND ADD
          44405    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          44406    12               0   0  0              2                                                        SUBTRACT LITERAL
          44407    1       545     13   0  0              0        545     BIT 18                                  ADD
          44408    5       61      53   0  0              0                                                        TRANSFER
          44409    5       61      52   0  0              0                CLEAR                                   TRANSFER
          44410            545      8   0  0              0        545     6/0/0                                   SELECT
          44411    80      357      2   0  0              0        357     >LONG NO O/P                            ENTER SUBROUTINE
          44412    80      535      2   0  0              0        535     >REPLACE S/R                            ENTER SUBROUTINE
          44413            545     65   0  0              0        545     28/0/0                                  SELECT
          44414    80      356      2   0  0              0        356     COMPLEX O/P NON-A                       ENTER SUBROUTINE
          44415            66      14   1  0              0                LITERAL                                 SELECT
          44416    1       545     22   0  0              0        545     1/1/3                                   ADD
          44417    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44418            545     72   0  0              0        545     18/1/1 5-                               SELECT
          44419    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    44322>44420    80      522      2   0  0              0        522     >I/P C-LINE S/R                         ENTER SUBROUTINE
          44421            66       6   2  0              0                C-LINE REF                              SELECT
          44422    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          44423    5       66       6   1  0              0                                                        TRANSFER
          44424    5       66       8   1  0              0                CLEAR ITEM, DISC, MOD DIGITS            TRANSFER
          44425    5       66      10   1  0              0                                                        TRANSFER
          44426    5       66      12   1  0              0                                                        TRANSFER
          44427    76      443     14   0  0              0        443                                             JUMP unconditional
                                                                                                                   
          44500    PROCR   445       445     GROUP 14                                                              
          44501     NOTES          RADIX                                                                           SELECT
    37218>44502    5       66      10   1  0              0                CLEAR DISC                              TRANSFER
          44503    85      381      2   0  0              0        381                                             SWITCH R
          44504    C       445     13   0  0              0        445     140                                     
          44505    C       445     17   0  0              0        445     141                                     
          44506    C       445     17   0  0              0        445     142                                     
          44507    C       445     17   0  0              0        445     143                                     
          44508    C       362      2   0  0              0        362     144                                     
          44509    C       445     17   0  0              0        445     145                                     
          44510    C       445     20   0  0              0        445     146                                     
          44511    C       445     23   0  0              0        445     147                                     
          44512    C       445     27   0  0              0        445     148                                     
    44504>44513    0       545     22   0  0              0        545     1/1/3/0             140 ACTION          SELECT
          44514    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44515    0       545     36   0  0              0        545     1/0/1/0.                                SELECT
          44516    76      382      9   0  0              0        382     O/P AND GNB                             JUMP unconditional
    44509>                                                                                                         
    44507>                                                                                                         
    44506>                                                                                                         
    44505>44517    124     61      50   0  0              0                VARIANT+1           141-3 +145 ACTIONS  modify address of next
          44518    0       545     74   0  0              0        545     APPROXIMATE 30 ACTION.                  SELECT
          44519    76      373     12   0  0              0        373     >COMPLEX O/P+GNB                        JUMP unconditional
    44510>44520    10               0   0  0              0                                    146 ACTION          SELECT LITERAL
  Source image: P1000375.JPG
          44521    80      446      2   0  0              0        446     GRP 14 SR                               ENTER SUBROUTINE
          44522    76      362      2   0  0              0        362     GNB                                     JUMP unconditional
    44511>44523    0       545     79   0  0              0        545     30/0/0/8            147 ACTION          SELECT
          44524    80      446      2   0  0              0        446     GRP 14 SR                               ENTER SUBROUTINE
          44525    0       545     81   0  0              0        545     31/0/0/8                                SELECT
          44526    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
    44512>44527    0       545     79   0  0              0        545     30/0/0/8            148 ACTION          SELECT
          44528    80      446      2   0  0              0        446     GRP 14 SR                               ENTER SUBROUTINE
          44529    0       545     88   0  0              0        545     30/0/0 4                                SELECT
          44530    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          44531    0       545     81   0  0              0        545     31/0/0 8                                SELECT
          44532    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          44533    0       545     89   0  0              0        545     31/0/0 4                                SELECT
          44534    76      361      8   0  0              0        361     >LN:2C+GNB                              JUMP unconditional
                                                                                                                   
          44600    PROCR   446       446     SR FOR GROUP 14 ACTIONS                                               
          44601     NOTES          RADIX     B                                                                     SELECT
          44602    81      446      2   0  0              0        446                                             START OF SUBROUTINE
          44603    70      446      5   0  0              0        446                                             JUMP IF A == 0
          44604    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
    44603>44605    10               0   0  0              1                                                        SELECT LITERAL
          44606    5       66      10   1  0              0                SET DISC                                TRANSFER
          44607            545      8   0  0              0        545     6/0/0                                   SELECT
          44608    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          44609    80      522      2   0  0              0        522     I/P CONT LINE SR                        ENTER SUBROUTINE
          44610    10               0   0  0              1                                                        SELECT LITERAL
          44611    5       66      10   1  0              0                SET DISC                                TRANSFER
          44612            545     14   0  0              0        545     9/0/0                                   SELECT
          44613    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          44614    82      446      2   0  0              0        446                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          44700    PROCR   447       447     GROUP 15 ACTIONS                                                      
          44701     NOTES          RADIX     B                                                                     SELECT
    37219>44702    85      381      2   0  0              0        381                                             SWITCH R
          44703    C       447     12   0  0              0        447     150=OPTIONS                             
          44704    C       451      2   0  0              0        451     151=UNLOAD                              
          44705    C       450      2   0  0              0        450     152=OVERLAY                             
          44706    C       449      2   0  0              0        449     153                                     
          44707    C       450     11   0  0              0        450     154=COMMENT IN LOG                      
          44708    C       448     20   0  0              0        448     155=SELECT PROG SERIAL>A                
          44709    C       448     24   0  0              0        448     156=RELEASE ROUTE                       
          44710    C       448     37   0  0              0        448     157=EXPAND                              
          44711    C       448     47   0  0              0        448     158=COMPARE                             
    44703>44712            66      14   1  0              0                                                        SELECT
          44713    5       61      52   1  0              0                LITERAL=OPT NUMBER                      TRANSFER
          44714    80      534      2   0  0              0        534     SUSPEND                                 ENTER SUBROUTINE
          44715    90               0   0  2              0                (TO STORE UP TO 10 LINES)               SET MODIFICATION REGISTER AT LITERAL
          44716    C                0   0  0             20                                                        
    44725>44717    80      397      2   0  0              0        397     TEST C-LINE FOLLOWS                     ENTER SUBROUTINE
          44718    71      448      2   0  0              0        448     >NO                                     JUMP IF A != 0
          44719            66       6   1  0              0                                                        SELECT
          44720    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          44721    1       66       8   1  0              0                ITEM                                    ADD
          44722    5       61      54   0  2              0                                                        TRANSFER
          44723    0       66       2   1  0              0                LINE SERIAL NUMBER                      SELECT
          44724    5       61      55   0  2              0                                                        TRANSFER
          44725    94      447     17   0  2              2        447                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          44800    PROCR   448       448     GROUP 15                                                              
          44801     NOTES          RADIX     B                                                                     SELECT
  Source image: P1000376.JPG
    44718>44802    96               0   0  2              0                                                        SELECT MODIFIER
          44803    3       66      22   1  0              0                W/L STORE MR2                           COPY
          44804    31               0   0  0              1-               FORM NUMBER OF C-LINES                  SHIFT (A) BY BITS
          44805    5       61      23   0  0              0                NUMBER OF C-LINES                       TRANSFER
    45010>44806            61      52   1  0              0                SUSPENDED LITERAL   TEST OPTION NO.     SELECT
          44807    71      448     12   0  0              0        448                         GIVEN IN A COMPARTMEJUMP IF A != 0
          44808    80      535      2   0  0              0        535     RESTORE FIRST LINE                      ENTER SUBROUTINE
          44809            545      8   0  0              0        545     6/0/0                                   SELECT
          44810    80      358      2   0  0              0        358     >COMPLEX O/P ARITH                      ENTER SUBROUTINE
          44811    76      448     15   0  0              0        448                                             JUMP unconditional
    44807>44812            545     22   0  0              0        545     1/1/3                                   SELECT
          44813    1       61      52   0  0              0                LITERAL                                 ADD
          44814    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    44811>44815    0       61      23   0  0              0                NO OF C-LINES                           SELECT
          44816    5       61      52   1  0              0                W/L FOR SN CONST S/R                    TRANSFER
          44817            545     27   0  0              0        545     0/0/2                                   SELECT
          44818    80      357      2   0  0              0        357     >SHORT NO O/P S/R                       ENTER SUBROUTINE
          44819    76      451      2   0  0              0        451                                             JUMP unconditional
    44708>44820            72       0   1  0              0                ALPHA SERIAL        ACTION 155          SELECT
          44821    5       61      52   1  0              0                                                        TRANSFER
          44822            545      8   0  0              0        545     6/0/0                                   SELECT
          44823    76      378      4   0  0              0        378     >O/P+GNB                                JUMP unconditional
    44709>44824    80      508      2   0  0              0        508     >0/1/0.0/0/3 SR     ACTION 156          ENTER SUBROUTINE
          44825            66       6   1  0              0                FILE ID                                 SELECT
          44826    5       61      54   0  0              0                                                        TRANSFER
          44827    80      499      2   0  0              0        499     EXIT WITH(A)=ROUTE PARA                 ENTER SUBROUTINE
          44828    1       545      8   0  0              0        545     6/0/0                                   ADD
          44829    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          44830    80      453      2   0  0              0        453     >O/P 25/1/1 4096,24/0/3                 ENTER SUBROUTINE
          44831    10               0   0  0            900                9 IN Q3                                 SELECT LITERAL
          44832    5       67       1   0  0              0                                                        TRANSFER
          44833            545     60   0  0              0        545     23/0/2                                  SELECT
          44834    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44835    80      399      2   0  0              0        399     0/1/1 O/P                               ENTER SUBROUTINE
          44836    76      362      2   0  0              0        362     >NEXT BLOCK                             JUMP unconditional
    44710>44837    5       66      10   1  0              0                CLEAR DISC          ACTION 157          TRANSFER
          44838    80      522      2   0  0              0        522     >SUSPEND, I/P C-LINE                    ENTER SUBROUTINE
          44839    10               0   0  0              0                                                        SELECT LITERAL
          44840    5       66      10   1  0              0                CLEAR C-LINE DISC                       TRANSFER
          44841    0       545     66   0  0              0        545     24/0/2                                  SELECT
          44842    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          44843    80      535      2   0  0              0        535     >RESTORE                                ENTER SUBROUTINE
          44844    0       546     27   0  0              0        546     29/0/3                                  SELECT
          44845    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
          44846    76      401     19   0  0              0        401     >JOIN UP WITH 51 ACTION                 JUMP unconditional
    44711>44847    5       66      10   1  0              0                CLEAR DISC          ACTION 158          TRANSFER
          44848    0       66      14   0  0              0                LITERAL                                 SELECT
          44849    70      448     51   0  0              0        448     >16/1/0 ORDER                           JUMP IF A == 0
          44850    10               0   0  0           2000-               (MAKE 16/1/1)                           SELECT LITERAL
    44849>44851    1       546     28   0  0              0        546     16/1/0                                  ADD
          44852    76      403     12   0  0              0        403     >COMPLEX O/P NON-A * GNB                JUMP unconditional
                                                                                                                   
          44900    PROCR   449       449     ACTION 153=SELECT DATE, TIME                                          
          44901     NOTES          0         0                                                                     SELECT
    44706>44902    0       545     73   0  0              0        545     25/1/1 4096                             SELECT
          44903    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44904            546     18   0  0              0        546     23/0/22                                 SELECT
          44905    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          44906            546     13   0  0              0        546     24/1/0/7                                SELECT
          44907    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
  Source image: P1000377.JPG
          44908    80      359      2   0  0              0        359     >O/P 0/0/0 (LINK)                       ENTER SUBROUTINE
          44909    80      504      2   0  0              0        504     >O/P 24/0/3 0                           ENTER SUBROUTINE
          44910    0       545     95   0  0              0        545     0/0/2 156                               SELECT
          44911    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44912    80      504      2   0  0              0        504     >O/P 24/0/3 0                           ENTER SUBROUTINE
          44913    0       545     93   0  0              0        545     6/1/0 138                               SELECT
          44914    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          44915            546     14   0  0              0        546     26/0/3/5-                               SELECT
          44916    80      498      2   0  0              0        498     >O/P INT SC                             ENTER SUBROUTINE
          44917    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
                                                                                                                   
          45000    PROCR   450       450     GROUP 15                                                              
          45001     NOTES          RADIX     B    ACTIONS 152 AND 154                                              SELECT
    44705>45002    80      522      2   0  0              0        522     -I/P C-LINE S/R                         ENTER SUBROUTINE
          45003            66       6   1  0              0                                                        SELECT
          45004    5       61      35   0  0              0                                                        TRANSFER
          45005    80      486      2   0  0              0        486        DETERMINE CHAPTER                    ENTER SUBROUTINE
          45006    5       61      23   0  0              0                CORRECTED CHAP                          TRANSFER
          45007    0       61      18   0  0              0                UNCORRECTED CHAPTER                     SELECT
          45008    5       61      52   1  0              0                                                        TRANSFER
          45009    80      508      2   0  0              0        508     -0/1/0 0/0/3 S/R                        ENTER SUBROUTINE
          45010    76      448      6   0  0              0        448     -                                       JUMP unconditional
    44707>45011    5       66      10   1  0              0                CLEAR DISC                              TRANSFER
          45012    5       66      12   1  0              0                HOD                                     TRANSFER
          45013    80      508      2   0  0              0        508     >0/1/0+0/0/3                            ENTER SUBROUTINE
          45014    0       545     66   0  0              0        545     24/0/2                                  SELECT
          45015    80      356      2   0  0              0        356     >COMPLEX O/P NON-A                      ENTER SUBROUTINE
                                                                                                                   
          45100    PROCR   451       451     GROUP 15                                                              
          45101     NOTES          RADIX     B                                                                     SELECT
    44819>                                                                                                         
    44704>45102    80      453      2   0  0              0        453     -NON INTERRUPT S/R                      ENTER SUBROUTINE
          45103            61      50   0  0              0                                                        SELECT
          45104    12               0   0  0              3                                                        SUBTRACT LITERAL
          45105    72      452     26   0  0              0        452     >ACTIONS 152,154                        JUMP IF A >= 0
          45106    124     61      50   0  1              0                                                        modify address of next
          45107    0       545     95   0  0              0        545                                             SELECT
          45108    5       67       1   0  0              0                 'SEQ CHANGE' IND                       TRANSFER
          45109    0       545     63   0  0              0        545     26/0/2                                  SELECT
          45110    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          45111            61      50   0  0              0                                                        SELECT
          45112    12               0   0  0              2                                                        SUBTRACT LITERAL
          45113    70      362      2   0  0              0        362     GNB                 IF 151 ACTION       JUMP IF A == 0
                                                                                                                   
          45200    PROCR   452       452     GROUP 15                                                              
          45201     NOTES          RADIX     B    ACTION 150                                                       SELECT
          45202            66      22   1  0              0                STORED VALUE OF MR2                     SELECT
          45203    30               0   0  0              5                SET E.V. AT MODIFIERAND MODIFIER ZERO   SHIFT (A) BY QUARTETS
          45204    70      362      3   0  0              0        362     >GNB(NO C-LINES)                        JUMP IF A == 0
          45205    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    45224>45206    34      61      54   0  3              0                DEST                                    SET (N) IN B
          45207    10               0   0  0              0                                                        SELECT LITERAL
          45208    32               0   0  0              8                                                        SHIFT (AB) BY QUARTETS
          45209    3       66       6   0  0              0                                                        COPY
          45210    5       61      35   0  0              0                                                        TRANSFER
          45211    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          45212    5       66       8   0  0              0                                                        TRANSFER
          45213    80      486      2   0  0              0        486     -DET CHAP                               ENTER SUBROUTINE
          45214    3       61      34   0  0              0                PARA                                    COPY
          45215    70      452     17   0  0              0        452     >DON'T MAKE PARA 1                      JUMP IF A == 0
  Source image: P1000378.JPG
          45216    12               0   0  0              1                                                        SUBTRACT LITERAL
    45215>45217    4       61      34   0  0              0                                                        AUGMENT
          45218    0       61      55   0  3              0                SOURCE                                  SELECT
          45219    5       66       2   1  0              0                                                        TRANSFER
          45220    5       61       0   0  0              0                CLEAR ACTION W/L                        TRANSFER
          45221    80      418      2   0  0              0        418     S.C. S/R                                ENTER SUBROUTINE
          45222    80      532      2   0  0              0        532     STACK                                   ENTER SUBROUTINE
          45223    80      518      2   0  0              0        518     O/P                                     ENTER SUBROUTINE
          45224    94      452      6   0  3              2        452     >NEXT C-LINE                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          45225    76      362      3   0  0              0        362                                             JUMP unconditional
    45105>45226    124     61      50   0  0              0                                                        modify address of next
          45227    0       545     89   0  0              0        545     SEQ CHANGE IND                          SELECT
          45228    5       67       1   0  0              0                                                        TRANSFER
          45229    0       545     60   0  0              0        545     23/0/2                                  SELECT
          45230    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          45231    80      399      2   0  0              0        399         RESTORES ABC                        ENTER SUBROUTINE
          45232    76      362      2   0  0              0        362     GNB                                     JUMP unconditional
                                                                                                                   
          45300    PROCR   453       453     SET NON-INTERRUPTIBLE S/R                                             
          45301     NOTES          RADIX     B    GROUPS 4 AND 15 BEFORE ENTER MASTER                              SELECT
          45302    81      453      2   0  0              0        453                                             START OF SUBROUTINE
          45303            545     73   0  0              0        545     25/1/1/4096                             SELECT
          45304    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          45305    80      504      2   0  0              0        504     >O/P 24/0/3 0                           ENTER SUBROUTINE
          45306    82      453      2   0  0              0        453                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          45400    PROCR   454       454     CONSTANTS                                                             
          45401     NOTES          RADIX     B                                                                     SELECT
    35205>45402    54      61      55   0  0             14                CLEAR W/LS                              BULK CLEAR
          45403    80      463      2   0  0              0        463     -PREP S/R                               ENTER SUBROUTINE
          45404    80      464      2   0  0              0        464     -GET NEXT CHAR S/R                      ENTER SUBROUTINE
    45818>45405    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          45500    PROCR   455       455     CONSTANTS                                                             
          45501     NOTES          RADIX     B                                                                     SELECT
    46132>45502    80      464      2   0  0              0        464     -GET NEXT CHAR                          ENTER SUBROUTINE
          45503    10               0   0  0              1                                                        SELECT LITERAL
          45504    5       61      30   0  0              0                DEFN LINE IND                           TRANSFER
          45505    5       61      98   1  0              0                                                        TRANSFER
          45506    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          45507            61      24   0  0              0                THIS CHARACTER                          SELECT
          45508    12               0   0  0             51                A                                       SUBTRACT LITERAL
          45509    70      456      6   0  0              0        456                                             JUMP IF A == 0
          45510    12               0   0  0              1                B                                       SUBTRACT LITERAL
          45511    70      456      3   0  0              0        456                                             JUMP IF A == 0
          45512    12               0   0  0              1                                                        SUBTRACT LITERAL
          45513    71      455     16   0  0              0        455     > NOT 'C'                               JUMP IF A != 0
          45514    10               0   0  0             10                16                                      SELECT LITERAL
          45515    76      455     21   0  0              0        455     >SET AS SUBFIELD LENGTH                 JUMP unconditional
    45513>45516    12               0   0  0              1                                                        SUBTRACT LITERAL
          45517    70      456      4   0  0              0        456                                             JUMP IF A == 0
          45518    12               0   0  0             13                P                                       SUBTRACT LITERAL
          45519    70      456      5   0  0              0        456                                             JUMP IF A == 0
          45520    10               0   0  0              £                HENCE 'R'                               SELECT LITERAL
    45515>45521    5       61      55   0  2              0                SUBFIELD LENGTH                         TRANSFER
                                                                                                                   
          45600    PROCR   456       456     CONSTANTS                                                             
          45601     NOTES          RADIX                                                                           SELECT
          45602    10               0   0  0              1                R,C=5                                   SELECT LITERAL
    45511>45603    11               0   0  0              1                B=4                                     ADD LITERAL
  Source image: P1000379.JPG
    45517>45604    11               0   0  0              1                                                        ADD LITERAL
    45519>45605    11               0   0  0              1                                                        ADD LITERAL
    45509>45606    11               0   0  0              1                                                        ADD LITERAL
          45607    3       61      62   0  2              0                SWITCH SETTING                          COPY
          45608    84      458      2   0  0              0        458                                             SET SWITCH(ES) AT VARIABLE VALUE
    45616>45609    80      464      2   0  0              0        464     GET NEXT CHAR                           ENTER SUBROUTINE
          45610    12               0   0  0             7‼                                                        SUBTRACT LITERAL
          45611    70      457      2   0  0              0        457                                             JUMP IF A == 0
          45612    0       61      98   1  0              0                COLLECT * IN'(B*)' DIRECTIVE            SELECT
          45613    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          45614    1       61      24   0  0              0                THIS CHAR                               ADD
          45615    5       61      98   1  0              0                                                        TRANSFER
          45616    76      456      9   0  0              0        456     LOOP UNTIL')'FOUND                      JUMP unconditional
                                                                                                                   
          45700    PROCR   457       457     CONSTANTS                                                             
          45701     NOTES          RADIX     B                                                                     SELECT
    45611>45702    32               0   0  0             10                PRESERVE B DURING CURRENT               SHIFT (AB) BY QUARTETS
          45703    5       61      96   1  0              0                                                        TRANSFER
          45704            61      98   2  0              0                                                        SELECT
          45705    80      537      2   0  0              0        537     CONVERT NO OF BITS FOR BIN CONSTANT     ENTER SUBROUTINE
          45706    73      457      8   0  0              0        457     >SAFETY DEVICE                          JUMP IF A < 0
          45707    4       61      55   0  2              0                AUG SHIFT CONTROL                       AUGMENT
    45706>45708    34      61      96   1  0              0                RESTORE B                               SET (N) IN B
    46814>                                                                                                         
    46816>                                                                                                         
    46819>45709    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          45800    PROCR   458       458     CONSTANTS MAIN LOOP                                                   
          45801     NOTES          RADIX     B                                                                     SELECT
    46711>                                                                                                         
    46909>                                                                                                         
    46918>                                                                                                         
    47008>45802    80      464      2   0  0              0        464     GET NEXT CHAR                           ENTER SUBROUTINE
    46008>                                                                                                         
    46128>                                                                                                         
    47206>45803    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          45804    70      458     15   0  0              0        458     >YES                                    JUMP IF A == 0
          45805    12               0   0  0              2                                                        SUBTRACT LITERAL
          45806    70      460      2   0  0              0        460                                             JUMP IF A == 0
          45807    12               0   0  0              1                                                        SUBTRACT LITERAL
          45808    70      461      2   0  0              0        461     >END OF CONSTANT                        JUMP IF A == 0
          45809    85      458      2   0  0              0        458                                             SWITCH R
          45810    C       467      2   0  0              0        467     ALPHA                                   
          45811    C       468      2   0  0              0        468                                             
          45812    C       469      2   0  0              0        469                                             
          45813    C       471      2   0  0              0        471                                             
          45814    C       473      2   0  0              0        473                                             
    45804>45815    10               0   0  0              1                                                        SELECT LITERAL
          45816    5       61      61   0  0              0                MIXED CONST IND                         TRANSFER
          45817    80      459      2   0  0              0        459     >SHIFT UP PREVIOUS SUBFIELD             ENTER SUBROUTINE
          45818    76      454      5   0  0              0        454     >GET NEXT CHAR                          JUMP unconditional
                                                                                                                   
          45900    PROCR   459       459     CONSTANT S/R                                                          
          45901     NOTES          RADIX     B    ADD THIS SUBFIELD TO PREVIOUS ONES                               SELECT
          45902    81      459      2   0  0              0        459                                             START OF SUBROUTINE
          45903    0       61      26   1  0              0                CONSTANT TO DATE                        SELECT
          45904    124     61      60   0  0              0                SUBFIELD CTR                            modify address of next
          45905    124     61      55   0  0              0                LENGTH OF SUBFIELD IN BITE              modify address of next
          45906    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          45907    1       61      28   1  0              0                VALUE OF CURRENT SUBCONST               ADD
  Source image: P1000380.JPG
          45908    5       61      26   1  0              0                                                        TRANSFER
          45909    5       61      28   1  0              0                                                        TRANSFER
          45910    10               0   0  0              1                                                        SELECT LITERAL
          45911    4       61      60   0  0              0                STEP SF CTR                             AUGMENT
          45912    82      459      2   0  0              0        459                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46000    PROCR   460       460                                                                           
          46001     NOTES          RADIX     B                                                                     SELECT
    45806>46002    80      464      2   0  0              0        464     >GET NEXT CHAR AFTER COMMA              ENTER SUBROUTINE
          46003    80      459      2   0  0              0        459     >ADD IN SUBCONST PRECEDING COMMA        ENTER SUBROUTINE
    46126>46004    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          46005    84      458      2   0  0              0        458                                             SET SWITCH(ES) AT VARIABLE VALUE
          46006    C       61      62   0  2              0                NET SUBFIELD TYPE                       
          46007            61      24   0  0              0                NEXT CHAR AFTER COMMA                   SELECT
          46008    76      458      3   0  0              0        458                                             JUMP unconditional
                                                                                                                   
          46100    PROCR   461       461                                                                           
          46101     NOTES          RADIX     B                                                                     SELECT
    45808>46102    80      459      2   0  0              0        459     >ADD IN FINAL SUBCONST                  ENTER SUBROUTINE
          46103            61      32   0  0              0                NEG IND                                 SELECT
          46104    70      461     13   0  0              0        461     >CONSTANT IS POSITIVE                   JUMP IF A == 0
          46105            61      47   0  0              0                CONST TYPE                              SELECT
          46106    70      461     11   0  0              0        461     SHORT CONST                             JUMP IF A == 0
          46107    10               0   0  0              0                                                        SELECT LITERAL
          46108    2       61      26   1  0              0                                                        SUBTRACT
          46109    5       61      26   1  0              0                                                        TRANSFER
          46110    76      461     13   0  0              0        461     COMPLEMENT CONST LONG OR SHORT          JUMP unconditional
    46106>46111    2       61      26   0  0              0                                                        SUBTRACT
          46112    5       61      26   0  0              0                                                        TRANSFER
    46319>                                                                                                         
    46110>                                                                                                         
    46104>46113                     6   2 12              0                                                        SELECT
          46114    5       61      31   0  0              0                SET END IND                             TRANSFER
          46115    80      511      2   0  0              0        511     >PRINT                                  ENTER SUBROUTINE
          46116    80      462      2   0  0              0        462     >CONST O/P SR                           ENTER SUBROUTINE
          46117            61      31   0  0              0                END IND                                 SELECT
          46118    71      362      2   0  0              0        362     >YES, GNB                               JUMP IF A != 0
          46119    80      509      2   0  0              0        509     -I/P                                    ENTER SUBROUTINE
          46120    80      463      2   0  0              0        463     -PREP S/R                               ENTER SUBROUTINE
          46121    10               0   0  0              0                CLEAR A FOR GET NEXT CHARACTER S/R      SELECT LITERAL
          46122    80      464      2   0  0              0        464     -GET NEXT CHAR                          ENTER SUBROUTINE
          46123    12               0   0  0             7Ю                122                                     SUBTRACT LITERAL
          46124    70      461     29   0  0              0        461     >THIS IS A DIRECTIVE LINE               JUMP IF A == 0
          46125            61      61   0  0              0                                                        SELECT
          46126    71      460      4   0  0              0        460     >THIS IS A MIXED CONSTANT               JUMP IF A != 0
          46127            61      24   0  0              0                NEXT CHARACTER                          SELECT
          46128    76      458      3   0  0              0        458     -                                       JUMP unconditional
    46124>46129    5       61      55   0  0              0                                                        TRANSFER
          46130    5       61      56   1  0              0                                                        TRANSFER
          46131    5       61      58   1  0              0                                                        TRANSFER
          46132    76      455      2   0  0              0        455     >GET DIRECTIVE LETTER                   JUMP unconditional
                                                                                                                   
          46200    PROCR   462       462                                                                           
          46201     NOTES          RADIX     B                                                                     SELECT
          46202    81      462      2   0  0              0        462                                             START OF SUBROUTINE
          46203            61      27   0  0              0                MOST SIG HALF LONG CONST                SELECT
          46204    5       67       3   0  0              0                                                        TRANSFER
          46205            61      26   0  0              0                LEAST SIG HALF                          SELECT
          46206    124     61      68   0  0              0                0 OR 2                                  modify address of next
          46207    5       67       1   0  0              0                                                        TRANSFER
  Source image: P1000381.JPG
          46208            61      47   0  0              0                CONST TYPE                              SELECT
          46209    71      462     16   0  0              0        462     -LONG NO CONST                          JUMP IF A != 0
          46210            61      31   0  0              0                NONZERO IF FINAL CONST IN SECTION       SELECT
          46211    71      462     16   0  0              0        462     -                                       JUMP IF A != 0
          46212    10               0   0  0              2                                                        SELECT LITERAL
          46213    2       61      68   0  0              0                                                        SUBTRACT
          46214    3       61      68   0  0              0                                                        COPY
          46215    71      462     23   0  0              0        462     >FIRST TIME THROUGH                     JUMP IF A != 0
    46211>                                                                                                         
    46209>46216            61      26   1  0              0                                                        SELECT
          46217    72      462     22   0  0              0        462                                             JUMP IF A >= 0
          46218            61      27   0  0              0                                                        SELECT
          46219    71      462     22   0  0              0        462     >MOST SIG HALF IS NOT MINUS ZERO        JUMP IF A != 0
          46220    10               0   0  0             80                B8                                      SELECT LITERAL
          46221    4       67       2   0  0              0                PARAMETER                               AUGMENT
    46219>                                                                                                         
    46217>46222    80      518      2   0  0              0        518     O/P                                     ENTER SUBROUTINE
    46215>46223    82      462      2   0  0              0        462     END                                     END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46300    PROCR   463       463                                                                           
          46301     NOTES          RADIX     B    CONSTANTS PREP S/R                                               SELECT
          46302    81      463      2   0  0              0        463                                             START OF SUBROUTINE
          46303    54      61      26   0  0              8                CLEAR W/L'S                             BULK CLEAR
          46304            77       2   1  0              0                AMEND IND                               SELECT
          46305    5       7        2   1  0              0                                                        TRANSFER
          46306            77       4   1  0              0                LINE SERIAL                             SELECT
          46307    5       7        6   1  0              0                                                        TRANSFER
          46308    55      77       8   1  0             18                COPY CONSTANTS                          BULK COPY
          46309    C       7       12   1  0              0                                                        
          46310            77      26   1  0              0                PASS 1 REPORTS                          SELECT
          46311    5       7       48   1  0              0                                                        TRANSFER
          46312    55      77      28   1  0             16                COPY ANNOTATION                         BULK COPY
          46313    C       7       32   1  0              0                                                        
          46314    0       61      68   0  0              0                O/P IND                                 SELECT
          46315    71      463     17   0  0              0        463     >SECOND HALF OF SHORT CONST             JUMP IF A != 0
          46316    5       67       0   0  0              0                CLEAR THIS                              TRANSFER
    46315>46317            7       46   1  0              0                                                        SELECT
          46318    2       542     28   1  0              0        542     IGNORE TRANSLATION IND                  SUBTRACT
          46319    70      461     13   0  0              0        461     >YES, GO TO PRINT                       JUMP IF A == 0
          46320    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          46321    C                0   0  0             10                                                        
          46322    34      77       8   1  0              0                FIRST WORD OF CONSTANT                  SET (N) IN B
          46323    10               0   0  0              2                                                        SELECT LITERAL
          46324    5       61      38   0  0              0                SET MOD CTR                             TRANSFER
          46325    5       61      60   0  0              0                S/F MOD                                 TRANSFER
          46326    82      463      2   0  0              0        463                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46400    PROCR   464       464     GET NEXT CHAR S/R                                                     
          46401     NOTES          RADIX     B                                                                     SELECT
          46402    81      464      2   0  0              0        464                                             START OF SUBROUTINE
          46403    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          46404    5       61      24   1  0              0                THIS CHAR W/L                           TRANSFER
          46405    94      464     12   0  3              2        464                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          46406    124     61      38   0  0              0                                                        modify address of next
          46407    34      77       8   1  0              0                NEXT WORD                               SET (N) IN B
          46408    10               0   0  0              2                                                        SELECT LITERAL
          46409    4       61      38   0  0              0                                                        AUGMENT
          46410    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          46411    C                0   0  0             10                                                        
    46405>46412            61      24   1  0              0                                                        SELECT
  Source image: P1000382.JPG
          46413    82      464      2   0  0              0        464                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46500    PROCR   465       465     TEST (,NE S/R                                                         
          46501     NOTES          RADIX     B    CONSTANTS                                                        SELECT
          46502    81      465      2   0  0              0        465                                             START OF SUBROUTINE
          46503    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          46504    70      465      8   0  0              0        465                                             JUMP IF A == 0
          46505    12               0   0  0              2                ,                                       SUBTRACT LITERAL
          46506    70      465      8   0  0              0        465                                             JUMP IF A == 0
          46507    12               0   0  0              1                NE                                      SUBTRACT LITERAL
    46506>                                                                                                         
    46504>46508    82      465      2   0  0              0        465                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46600    PROCR   466       466     PUT THIS CHAR INTO O/P WORD S/R                                       
          46601     NOTES          RADIX     B                                                                     SELECT
          46602    81      466      2   0  0              0        466                                             START OF SUBROUTINE
          46603            61      28   1  0              0                                                        SELECT
          46604    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          46605    1       61      24   2  0              0                NEXT CHAR(BASIC ONLY)                   ADD
          46606    5       61      28   1  0              0                                                        TRANSFER
          46607    82      466      2   0  0              0        466                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          46700    PROCR   467       467     ALPHA CONSTANTS                                                       
          46701     NOTES          RADIX     B                                                                     SELECT
    45810>46702            61      30   0  0              0                DEFN LINE IND                           SELECT
          46703    70      467      7   0  0              0        467     >NO                                     JUMP IF A == 0
          46704    10               0   0  0              8                                                        SELECT LITERAL
          46705    124     61      60   0  0              0                SF CTR                                  modify address of next
          46706    4       61      55   0  0              0                AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR  AUGMENT
    46703>46707            61      28   1  0              0                                                        SELECT
          46708    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          46709    1       61      24   0  0              0                                                        ADD
          46710    5       61      28   1  0              0                ADD IN THIS CHAR TO SUBCONST            TRANSFER
          46711    76      458      2   0  0              0        458                                             JUMP unconditional
                                                                                                                   
          46800    PROCR   468       468     BINARY PATTERNS                                                       
          46801     NOTES          RADIX     B                                                                     SELECT
    45811>46802    0       61      24   0  0              0                THIS CHARACTER                          SELECT
          46803    12               0   0  0             10                MINUS SIGN                              SUBTRACT LITERAL
          46804    70      468     15   0  0              0        468                                             JUMP IF A == 0
          46805    0       61      30   0  0              0                                                        SELECT
          46806    70      468     10   0  0              0        468     > NOT DEFINITION LINE                   JUMP IF A == 0
          46807    10               0   0  0              1                                                        SELECT LITERAL
          46808    124     61      60   0  0              0                SF MOD                                  modify address of next
          46809    4       61      55   0  0              0                AUG SF LENGTH BY 1 BIT PER CHAR         AUGMENT
    46806>46810            61      28   1  0              0                                                        SELECT
          46811    1       61      28   1  0              0                                                        ADD
          46812    1       61      24   2  0              0                                                        ADD
          46813    5       61      28   1  0              0                ADD THIS BIT INTO SUBCONST              TRANSFER
          46814    76      457      9   0  0              0        457                                             JUMP unconditional
    46804>46815    0       61      60   0  0              0                TEST FIRST SUBFIELD                     SELECT
          46816    71      457      9   0  0              0        457                                             JUMP IF A != 0
          46817    10               0   0  0              1                                                        SELECT LITERAL
          46818    5       61      32   0  0              0                NEG INDICATOR                           TRANSFER
          46819    76      457      9   0  0              0        457                                             JUMP unconditional
                                                                                                                   
          46900    PROCR   469       469     DECIMAL CONSTS (-VE)                                                  
          46901     NOTES          RADIX     B                                                                     SELECT
    45812>46902            61      24   0  0              0                                                        SELECT
          46903    12               0   0  0             10                NEG SIGN                                SUBTRACT LITERAL
  Source image: P1000383.JPG
          46904    71      470      2   0  0              0        470                                             JUMP IF A != 0
          46905            61      60   0  0              0                S/F MOD                                 SELECT
          46906    71      469     10   0  0              0        469     NOT FIRST MOD                           JUMP IF A != 0
          46907    10               0   0  0              1                                                        SELECT LITERAL
          46908    5       61      32   0  0              0                NEG IND                                 TRANSFER
          46909    76      458      2   0  0              0        458                                             JUMP unconditional
    46906>46910    10               0   0  0              1                BIT 1                                   SELECT LITERAL
          46911    124     61      60   0  0              0                SF MOD                                  modify address of next
          46912    124     61      55   0  0              0                SF LENGTH                               modify address of next
          46913    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          46914    60               0   0  0              0                                                        SET DECIMAL RADIX
          46915    2       61      28   1  0              0                FORM N BIT                              SUBTRACT
          46916    5       61      28   1  0              0                DEC COMPT                               TRANSFER
          46917    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          46918    76      458      2   0  0              0        458                                             JUMP unconditional
                                                                                                                   
          47000    PROCR   470       470     DECIMAL CONSTANTS (+VE)                                               
          47001     NOTES          RADIX     B                                                                     SELECT
    46904>47002            61      30   0  0              0                                                        SELECT
          47003    70      470      7   0  0              0        470     >NOT DIRECTIVE LINE                     JUMP IF A == 0
          47004    10               0   0  0              4                                                        SELECT LITERAL
          47005    124     61      60   0  0              0                SF MOD                                  modify address of next
          47006    4       61      55   0  0              0                AUG SF LENGTH BY 4 BITS PER CHAR        AUGMENT
    47003>47007    80      466      2   0  0              0        466     >ADD THIS CHAR TO O/P WORD              ENTER SUBROUTINE
          47008    76      458      2   0  0              0        458                                             JUMP unconditional
                                                                                                                   
          47100    PROCR   471       471                                                                           
          47101     NOTES          RADIX     B    BINARY NO CONSTANTS                                              SELECT
    47111>                                                                                                         
    45813>47102            61      24   0  0              0                                                        SELECT
          47103    12               0   0  0             10                -SIGN                                   SUBTRACT LITERAL
          47104    71      471      8   0  0              0        471                                             JUMP IF A != 0
          47105    10               0   0  0              1                                                        SELECT LITERAL
          47106    5       61      33   0  0              0                                                        TRANSFER
          47107    76      471      9   0  0              0        471                                             JUMP unconditional
    47104>47108    80      466      2   0  0              0        466     -THIS CHAR SET UP O/P                   ENTER SUBROUTINE
    47107>47109    80      464      2   0  0              0        464     -GET NEXT CHAR                          ENTER SUBROUTINE
          47110    80      465      2   0  0              0        465     -TEST S/R                               ENTER SUBROUTINE
          47111    71      471      2   0  0              0        471                                             JUMP IF A != 0
          47112    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          47113    5       61      34   1  0              0                PRESERVE B                              TRANSFER
          47114            61      28   1  0              0                DEC VALUE OF CONST                      SELECT
          47115    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          47116    5       61      28   1  0              0                                                        TRANSFER
          47117    34      61      34   1  0              0                RESTORE B                               SET (N) IN B
          47118            61      33   0  0              0                NEG IND FOR BIN CONSTS                  SELECT
          47119    70      472      5   0  0              0        472     >NOT NEGATIVE                           JUMP IF A == 0
          47120            61      60   0  0              0                S/F MOD                                 SELECT
          47121    70      472      2   0  0              0        472     >FIRST S/F                              JUMP IF A == 0
          47122    10               0   0  0              1                                                        SELECT LITERAL
          47123    124     61      60   0  0              0                S/F MOD                                 modify address of next
          47124    124     61      55   0  0              0                S/F LENGTH=N                            modify address of next
          47125    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          47126    2       61      28   1  0              0                FORM N-BIT COMPT                        SUBTRACT
          47127    5       61      28   1  0              0                                                        TRANSFER
          47128    76      472      4   0  0              0        472                                             JUMP unconditional
                                                                                                                   
          47200    PROCR   472       472     BINARY NO CONSTS                                                      
          47201     NOTES          RADIX                                                                           SELECT
    47121>47202    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1000384.JPG
          47203    5       61      32   0  0              0                NEG IND                                 TRANSFER
    47128>47204    5       61      33   0  0              0                BIN NO NEG IND                          TRANSFER
    47432>                                                                                                         
    47119>47205            61      24   0  0              0                                                        SELECT
          47206    76      458      3   0  0              0        458     -                                       JUMP unconditional
                                                                                                                   
          47300    PROCR   473       473                                                                           
          47301     NOTES          RADIX          RELATIVE ADDRESS CONSTS                                          SELECT
    47310>                                                                                                         
    45814>47302            61      24   0  0              0                                                        SELECT
          47303    12               0   0  0             4:                                                        SUBTRACT LITERAL
          47304    70      474      2   0  0              0        474     >COLON                                  JUMP IF A == 0
          47305    11               0   0  0             4:                                                        ADD LITERAL
          47306    80      465      2   0  0              0        465     -TEST S/R                               ENTER SUBROUTINE
          47307    70      474     24   0  0              0        474                                             JUMP IF A == 0
          47308    80      466      2   0  0              0        466     -THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          47309    80      464      2   0  0              0        464     -GET NEXT CHAR                          ENTER SUBROUTINE
          47310    76      473      2   0  0              0        473                                             JUMP unconditional
                                                                                                                   
          47400    PROCR   474       474     RELATIVE ADDRESS CONSTS                                               
          47401     NOTES          RADIX     B                                                                     SELECT
    47304>47402    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          47403    5       61      98   1  0              0                STORE REGISTER B                        TRANSFER
          47404            61      28   1  0              0                                                        SELECT
          47405    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          47406    5       61      35   0  0              0                                                        TRANSFER
          47407    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          47408    80      486      2   0  0              0        486     -DET CHAP S/R                           ENTER SUBROUTINE
          47409    3       67       0   0  2              0                PARA                                    COPY
          47410    70      474     13   0  0              0        474     ABS ADD                                 JUMP IF A == 0
          47411    12               0   0  0              1                =2C-1                                   SUBTRACT LITERAL
          47412    4       67       0   0  2              0                                                        AUGMENT
    47410>47413            61      35   0  0              0                REF                                     SELECT
          47414    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          47415    4       67       0   0  2              0                                                        AUGMENT
          47416    10               0   0  0              0                                                        SELECT LITERAL
          47417    5       61      28   1  0              0                CLEAR FOR ITEM                          TRANSFER
          47418    34      61      98   1  0              0                                                        SET (N) IN B
    47423>47419    80      464      2   0  0              0        464     >GET NEXT CHAR                          ENTER SUBROUTINE
          47420    80      465      2   0  0              0        465     >TEST S/R                               ENTER SUBROUTINE
          47421    70      474     26   0  0              0        474                                             JUMP IF A == 0
          47422    80      466      2   0  0              0        466     >THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          47423    76      474     19   0  0              0        474                                             JUMP unconditional
    47307>47424    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          47425    5       67       0   0  2              0                                                        TRANSFER
    47421>47426    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          47427    5       61      34   1  0              0                STORE 2                                 TRANSFER
          47428            61      28   1  0              0                                                        SELECT
          47429    80      537      2   0  0              0        537     CONVERT ITEM                            ENTER SUBROUTINE
          47430    5       61      28   1  0              0                                                        TRANSFER
          47431    34      61      34   1  0              0                REPLACE B                               SET (N) IN B
          47432    76      472      5   0  0              0        472                                             JUMP unconditional
                                                                                                                   
          47500    PROCR   475       475     TABLE ENTRIES                                                         
          47501     NOTES          RADIX     B                                                                     SELECT
    35204>47502    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          47503    C       549      2   0  0              0        549                                             
          47504    52      7        2   0  0              0                EDIT TABLES                             EDIT
          47505    C       549      2   0  0              0        549                                             
          47506            77      22   1  0              0                PASS 1 REPORTS                          SELECT
  Source image: P1000385.JPG
          47507    5       7       48   1  0              0                                                        TRANSFER
          47508    55      77      24   1  0             16                COPY ANNOTATION                         BULK COPY
          47509    C       7       32   1  0              0                                                        
          47510    80      511      2   0  0              0        511     PRINT                                   ENTER SUBROUTINE
                                                                                                                   
          47600    PROCR   476       476     TABLE ENTRIES                                                         
          47601     NOTES          RADIX     B                                                                     SELECT
          47602    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          47603    C                0   0  0             20                                                        
    47607>47604            66       3   0  2              0                                                        SELECT
          47605    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          47606    5       66       3   0  2              0                                                        TRANSFER
          47607    94      476      4   0  2              1        476                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          47608    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          47609    C                0   0  0              4                                                        
    47617>47610            66      16   0  2              0                                                        SELECT
          47611    101            100   1  2              0                                                        subtract literal address
          47612    73      476     17   0  0              0        476     >SECTION                                JUMP IF A < 0
          47613    101            899   1  2              0                                                        subtract literal address
          47614    72      476     17   0  0              0        476     >999                                    JUMP IF A >= 0
          47615    10               0   0  0              2-                                                       SELECT LITERAL
          47616    4       66      17   0  2              0                REDUCE ITEM FOR CALCS                   AUGMENT
    47614>                                                                                                         
    47612>47617    94      476     10   0  2              2        476                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          47618    10               0   0  0              0                                                        SELECT LITERAL
          47619    34      61      47   0  0              0                TYPE                                    SET (N) IN B
          47620    36      544      6   0  0              0        544     BIT 1                                   COLLATE AND ADD
          47621    71      476     28   0  0              0        476     NOT TYPES 2 OR 4                        JUMP IF A != 0
          47622    0       66      19   0  0              0                SECOND ITEM                             SELECT
          47623    71      476     27   0  0              0        476     >'LAST ITEM' GIVEN                      JUMP IF A != 0
          47624    0       66      17   0  0              0                FIRST ITEM                              SELECT
          47625    71      476     27   0  0              0        476                                             JUMP IF A != 0
          47626    0       545      8   0  0              0        545     SOMETHING INTO Q5                       SELECT
    47625>                                                                                                         
    47623>47627    5       67       2   0  0              0                                                        TRANSFER
    47621>47628    0       66      16   0  0              0                FIRST REF                               SELECT
          47629    5       61      35   0  0              0                REF                                     TRANSFER
          47630    80      486      2   0  0              0        486     DET CHAP                                ENTER SUBROUTINE
                                                                                                                   
          47700    PROCR   477       477     TABLE ENTRIES                                                         
          47701     NOTES          RADIX                                                                           SELECT
          47702    3       67       0   0  0              0                                                        COPY
          47703    70      477      6   0  0              0        477     ABS ADD                                 JUMP IF A == 0
          47704    12               0   0  0              1                                                        SUBTRACT LITERAL
          47705    4       67       0   0  0              0                                                        AUGMENT
    47703>47706            61      35   0  0              0                REF                                     SELECT
          47707    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          47708    4       67       0   0  0              0                                                        AUGMENT
          47709    0       66       3   0  0              0                SHORT/LONG/ALPHA                        SELECT
          47710    70      477     15   0  0              0        477                                             JUMP IF A == 0
          47711    12               0   0  0              1                                                        SUBTRACT LITERAL
          47712    70      477     14   0  0              0        477                                             JUMP IF A == 0
          47713            545     49   0  0              0        545     B17                                     SELECT
    47712>47714    1       545     13   0  0              0        545     B18                                     ADD
    47710>47715    5       67       3   0  0              0                                                        TRANSFER
          47716            66      13   0  0              0                SIGN                                    SELECT
          47717    70      478      2   0  0              0        478                                             JUMP IF A == 0
          47718    12               0   0  0              2                                                        SUBTRACT LITERAL
          47719    70      477     21   0  0              0        477                                             JUMP IF A == 0
          47720            545     51   0  0              0        545     B20                                     SELECT
  Source image: P1000386.JPG
    47719>47721    1       545      9   0  0              0        545     B19                                     ADD
          47722    4       67       3   0  0              0                                                        AUGMENT
                                                                                                                   
          47800    PROCR   478       478     TABLE ENTRIES                                                         
          47801     NOTES          RADIX     B                                                                     SELECT
    47717>47802    0       66       4   0  0              0                SINGLE/BE                               SELECT
          47803    70      478      6   0  0              0        478                                             JUMP IF A == 0
          47804            545     51   0  0              0        545     B20                                     SELECT
          47805    4       67       3   0  0              0                                                        AUGMENT
    47803>47806            66      12   0  0              0                ZEROS                                   SELECT
          47807    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          47808    1       66      10   0  0              0                DISC                                    ADD
          47809    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          47810    1       66      11   0  0              0                SPACES                                  ADD
          47811    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          47812    1       66       5   0  0              0                NO OF CHARS                             ADD
          47813    4       67       3   0  0              0                                                        AUGMENT
          47814            66      15   0  0              0                LTE                                     SELECT
          47815    70      479      4   0  0              0        479                                             JUMP IF A == 0
          47816    10               0   0  0              0                                                        SELECT LITERAL
          47817    2       67       3   0  0              0                                                        SUBTRACT
          47818    70      479      2   0  0              0        479                                             JUMP IF A == 0
          47819    5       67       3   0  0              0                                                        TRANSFER
          47820    76      479      4   0  0              0        479                                             JUMP unconditional
                                                                                                                   
          47900    PROCR   479       479     TABLE ENTRIES                                                         
          47901     NOTES          RADIX     B                                                                     SELECT
    47818>47902    10               0   0  0             80                B8                                      SELECT LITERAL
          47903    4       67       0   0  0              0                                                        AUGMENT
    47820>                                                                                                         
    47815>47904    0       66      17   0  0              0                FIRST ITEM                              SELECT
          47905    5       67       1   0  0              0                                                        TRANSFER
          47906            66      14   0  0              0                STERLING INDICATOR                      SELECT
          47907    70      479     16   0  0              0        479                                             JUMP IF A == 0
          47908    4       61     109   0  0              0                                                        AUGMENT
          47909    0       61     109   0  0              0                                                        SELECT
          47910    12               0   0  0              2                                                        SUBTRACT LITERAL
          47911    71      479     16   0  0              0        479                                             JUMP IF A != 0
          47912    12               0   0  0              1                                                        SUBTRACT LITERAL
          47913    5       61     109   0  0              0                SET CTR=1-                              TRANSFER
          47914            545     49   0  0              0        545     B17                                     SELECT
          47915    4       67       1   0  0              0                                                        AUGMENT
    47911>                                                                                                         
    47907>47916    0       66      15   0  0              0                LTE IND                                 SELECT
          47917    70      382     10   0  0              0        382     >NO,O/P+GNB                             JUMP IF A == 0
          47918    5       61     109   0  0              0                                                        TRANSFER
          47919    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          47920    76      382     10   0  0              0        382     >O/P+GNB                                JUMP unconditional
                                                                                                                   
          48000    PROCR   480       480     VALUES                                                                
          48001     NOTES          RADIX                                                                           SELECT
    35209>48002    80      360      2   0  0              0        360     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          48003                     8   2 12              0                                                        SELECT
          48004    80      537      2   0  0              0        537     >TO BIN                                 ENTER SUBROUTINE
          48005    5       66       8   1  0              0                                                        TRANSFER
          48006                     6   2 12              0                                                        SELECT
          48007    80      537      2   0  0              0        537     >TO BIN                                 ENTER SUBROUTINE
          48008    3       66       6   2  0              0                REF                                     COPY
          48009    34      66       8   0  0              0                                                        SET (N) IN B
          48010    74      480     28   0  0              0        480     >ZERO REF,ITEM                          JUMP IF AB == 0        // 27, 1, 0
  Source image: P1000387.JPG
          48011    101            100   1  2              0                                                        subtract literal address
          48012    73      480     15   0  0              0        480     >REF=SECTION                            JUMP IF A < 0
          48013    10               0   0  0              2-                                                       SELECT LITERAL
          48014    4       66       8   1  0              0                REDUCE FOR CALCS                        AUGMENT
    48012>48015            542     10   1  0              0        542      'NOTES'                                SELECT
          48016    3       61      26   1  0              0                                                        COPY
          48017    5       61      28   1  0              0                                                        TRANSFER
          48018    0       66       6   2  0              0                REF                                     SELECT
          48019    5       67       2   0  0              0                                                        TRANSFER
          48020    0       66       8   1  0              0                ITEM                                    SELECT
          48021    5       67       3   0  0              0                                                        TRANSFER
          48022    5       67       0   0  0              0                CLEAR                                   TRANSFER
          48023    80      517      2   0  0              0        517     O/P REF/ITEM UNIT(ALPHA O/P)            ENTER SUBROUTINE
          48024    0       77       6   1  0              0                                                        SELECT
          48025    5       7        8   1  0              0                REF                                     TRANSFER
          48026    0       77       8   1  0              0                                                        SELECT
          48027    5       7       10   1  0              0                ITEM                                    TRANSFER
    48010>48028    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          48029    C                0   0  0             32                                                        
    48038>48030            77      12   2  3              0                                                        SELECT
          48031    73      480     45   0  0              0        480     >NEG PARA=END OF LINE                   JUMP IF A < 0
          48032    5       67       2   0  0              0                                                        TRANSFER
          48033            77      10   2  3              0                                                        SELECT
          48034    5       67       3   0  0              0                                                        TRANSFER
          48035    52      7       12   0  3              0                                                        EDIT
          48036    C       550      2   0  0              0        550                                             
          48037    80      518      2   0  0              0        518     O/P VALUE UNIT                          ENTER SUBROUTINE
          48038    94      480     30   0  3              4        480                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          48039            77       6   0  0              0                REF                                     SELECT
          48040    5       7        8   0  0              0                                                        TRANSFER
          48041            77       8   0  0              0                ITEM                                    SELECT
          48042    5       7       10   0  0              0                                                        TRANSFER
    48048>48043    80      511      2   0  0              0        511     >PRINT                                  ENTER SUBROUTINE
          48044    76      362      2   0  0              0        362     GNB                                     JUMP unconditional
    48031>48045    10               0   0  0             55                 'E'                                    SELECT LITERAL
          48046    5       7       14   1  3              0                                                        TRANSFER
          48047    5       7       12   1  3              0                                                        TRANSFER
          48048    76      480     43   0  0              0        480                                             JUMP unconditional
                                                                                                                   
          48100    PROCR   481       481     LONG NO CONST S/R                                                     
          48101     NOTES          RADIX     B                                                                     SELECT
          48102    81      481      2   0  0              0        481                                             START OF SUBROUTINE
          48103    91      61      12   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          48104            61       5   0  0              0                LONG NO SECT NO                         SELECT
          48105    5       66       6   1  0              0                                                        TRANSFER
          48106    10               0   0  0              1                                                        SELECT LITERAL
          48107    5       66      10   1  0              0                DISC                                    TRANSFER
          48108    80      482      2   0  0              0        482     TSL AND LONG NO S/R                     ENTER SUBROUTINE
          48109    4       61      13   0  0              0                END VALUE                               AUGMENT
          48110    82      481      2   0  0              0        481                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48200    PROCR   482       482     LONG NO CONST & TSL S/R (1)                                           
          48201     NOTES          RADIX     B                                                                     SELECT
          48202    81      482      2   0  0              0        482                                             START OF SUBROUTINE
          48203    94      482      5   0  3              0        482     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          48204    76      482     12   0  0              0        482                                             JUMP unconditional
    48211>                                                                                                         
    48203>48205            61      53   0  0              0                                                        SELECT
          48206    2       62       1   0  3              0                COMPARE MOST SIG HALVES                 SUBTRACT
          48207    71      482     11   0  0              0        482     >NO CHANGE OF MATCH                     JUMP IF A != 0
  Source image: P1000388.JPG
          48208            62       0   1  3              0                                                        SELECT
          48209    2       61      52   1  0              0                                                        SUBTRACT
          48210    70      482     15   0  0              0        482     MATCH FOUND                             JUMP IF A == 0
    48207>48211    94      482      5   0  3              2        482     NO MATCH                                STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    48204>48212            61      52   1  0              0                                                        SELECT
          48213    5       62       0   1  3              0                                                        TRANSFER
          48214    10               0   0  0              2                                                        SELECT LITERAL
    48210>48215    5       537      2   0  0              0        537     WL=CONVERT SR LINK                      TRANSFER
          48216    96               0   0  3              0                MODIFIER                                SELECT MODIFIER
          48217    12               0   0  0             ‼4                180                                     SUBTRACT LITERAL
          48218    73      482     21   0  0              0        482     > NOT TSL                               JUMP IF A < 0
          48219    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          48220    76      482     22   0  0              0        482                                             JUMP unconditional
    48218>48221    11               0   0  0             ‼4                180                                     ADD LITERAL
    48220>48222    5       66       8   1  0              0                                                        TRANSFER
          48223    0       61       3   0  0              0                2C                                      SELECT
          48224    5       61      34   0  0              0                                                        TRANSFER
          48225    5       66      12   1  0              0                MOD                                     TRANSFER
          48226    80      532      2   0  0              0        532     STACK                                   ENTER SUBROUTINE
          48227    80      518      2   0  0              0        518     O/P                                     ENTER SUBROUTINE
          48228            537      2   0  0              0        537     WL                                      SELECT
          48229    82      482      2   0  0              0        482                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48300    PROCR   483       483     > GNB                                                                 
          48301     NOTES          RADIX     B                                                                     SELECT
          48302    81      483      2   0  0              0        483                                             START OF SUBROUTINE
          48303    91      61      14   0  3              0                CTR OF SHORT NUMBERS TO DATE            SET MODIFICATION REGISTER AT VARIABLE
          48304    0       61      15   0  0              0                CTR                                     SELECT
          48305    70      483     10   0  0              0        483     NONE STORED YET                         JUMP IF A == 0
    48309>48306            61      52   1  0              0                NUMBER TO BE OUTPUT                     SELECT
          48307    2       63       0   0  3              0                NEXT NUMBER ALREADY OUTPUT              SUBTRACT
          48308    70      483     17   0  0              0        483     > MATCH                                 JUMP IF A == 0
          48309    94      483      6   0  3              1        483     > TRY NEXT                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    48305>48310            61      52   1  0              0                STORE NEWCOMER                          SELECT
          48311    5       63       0   0  3              0                IN NEXT FREE POSITION                   TRANSFER
          48312            61      15   0  0              0                 = RELATIVE POSITION IN LIST            SELECT
          48313    5       66       8   1  0              0                SET AS ITEM                             TRANSFER
          48314    10               0   0  0              1                STEP ON FOR NEXT ITEM                   SELECT LITERAL
          48315    4       61      15   0  0              0                CTR OF NUMBERS IN LIST                  AUGMENT
          48316    76      483     19   0  0              0        483                                             JUMP unconditional
    48308>48317    96               0   0  3              0                MODIFIER                                SELECT MODIFIER
          48318    5       66       8   1  0              0                                                        TRANSFER
    48316>48319            61       6   0  0              0                SN SECT NO                              SELECT
          48320    5       66       6   1  0              0                REF                                     TRANSFER
          48321    5       66      10   1  0              0                DISC                                    TRANSFER
          48322    5       66      12   1  0              0                M                                       TRANSFER
          48323            61       3   0  0              0                2C                                      SELECT
          48324    5       61      34   0  0              0                PARA                                    TRANSFER
          48325    80      532      2   0  0              0        532      - STACK                                ENTER SUBROUTINE
          48326    80      518      2   0  0              0        518      - O/P                                  ENTER SUBROUTINE
          48327    82      483      2   0  0              0        483                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48400    PROCR   484       484     TSL S/R                                                               
          48401     NOTES          RADIX     B                                                                     SELECT
          48402    81      484      2   0  0              0        484                                             START OF SUBROUTINE
          48403    5       61       0   0  0              0                                                        TRANSFER
          48404            66       6   1  0              0                REF                                     SELECT
          48405    5       61      35   0  0              0                                                        TRANSFER
          48406    80      486      2   0  0              0        486                                             ENTER SUBROUTINE
          48407    3       61      52   0  0              0                CHAP                                    COPY
  Source image: P1000389.JPG
          48408    12               0   0  0              1                                                        SUBTRACT LITERAL
          48409    4       61      52   0  0              0                                                        AUGMENT
          48410    0       61      28   1  0              0                                                        SELECT
          48411    5       61      53   0  0              0                ITEM                                    TRANSFER
          48412    0       61      35   0  0              0                                                        SELECT
          48413    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          48414    4       61      52   0  0              0                REF12C-1                                AUGMENT
          48415    80      485      2   0  0              0        485                                             ENTER SUBROUTINE
          48416    82      484      2   0  0              0        484                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48500    PROCR   485       485                                                                           
          48501     NOTES          RADIX     B                                                                     SELECT
          48502    81      485      2   0  0              0        485                                             START OF SUBROUTINE
          48503    91      61      16   0  3              0                TSL COUNTER                             SET MODIFICATION REGISTER AT VARIABLE
          48504            61       7   0  0              0                                                        SELECT
          48505    5       66       6   1  0              0                                                        TRANSFER
          48506    5       66      10   1  0              0                DISC                                    TRANSFER
          48507    80      482      2   0  0              0        482     TSL 7 LONG NO S/R                       ENTER SUBROUTINE
          48508    4       61      17   0  0              0                END VALUE                               AUGMENT
          48509    82      485      2   0  0              0        485                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48600    PROCR   486       486                                                                           
          48601     NOTES          RADIX     B                                                                     SELECT
          48602    81      486      2   0  0              0        486                                             START OF SUBROUTINE
          48603            61      35   0  0              0                REF                                     SELECT
          48604    70      486     18   0  0              0        486     ABS ADD                                 JUMP IF A == 0
          48605    12               0   0  0             64                100                                     SUBTRACT LITERAL
          48606    72      487      2   0  0              0        487                                             JUMP IF A >= 0
          48607    35               0   0  0              1                Q1                                      PREPARE FOR DIGIT COLLATION
          48608    10               0   0  0              0                                                        SELECT LITERAL
          48609    124     61      35   0  0              0                                                        modify address of next
          48610    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
          48611    5       61      18   0  0              0                                                        TRANSFER
          48612    34      545     51   0  0              0        545     820                                     SET (N) IN B
          48613    124     61      35   0  0              0                                                        modify address of next
          48614    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
    48714>48615    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          48616    124     61      18   0  0              0                UNCORRECTED CHAP                        modify address of next
          48617    36      92       9   0  0              0                CORRECTED CHAP IN Q1                    COLLATE AND ADD
    48604>48618    82      486      2   0  0              0        486                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48700    PROCR   487       487                                                                           
          48701     NOTES          RADIX     B                                                                     SELECT
    48606>48702    12               0   0  0            383                899 REF 999                             SUBTRACT LITERAL
          48703    73      487      8   0  0              0        487                                             JUMP IF A < 0
          48704    71      487     10   0  0              0        487     > REF  >999, CHEAT                      JUMP IF A != 0
          48705    5       61      35   0  0              0                SET REF ZERO                            TRANSFER
          48706            61      51   0  0              0                THIS CHAP                               SELECT
          48707    82      486      2   0  0              0        486                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    48703>48708    11               0   0  0            3.7                999                                     ADD LITERAL
          48709    30               0   0  0              2                PROCR IN Q3-5                           SHIFT (A) BY QUARTETS
    48704>48710    101     92      10   0  0              0                BIN LAST PROCRS IN CHAP                 table look up
          48711    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          48712    2       545      2   0  0              0        545     ABS ADDRESS 92/9                        SUBTRACT
          48713    5       61      18   0  0              0                UNCORR C NO                             TRANSFER
          48714    76      486     15   0  0              0        486                                             JUMP unconditional
                                                                                                                   
          48800    PROCR   488       488                                                                           
          48801     NOTES          RADIX     B                                                                     SELECT
          48802    81      488      2   0  0              0        488                                             START OF SUBROUTINE
  Source image: P1000390.JPG
          48803    91      91       2   0  3              0                2(R+T):2R                               SET MODIFICATION REGISTER AT VARIABLE
          48804    35               0   0  0            111-               Q1-3 AND SIGN                           PREPARE FOR DIGIT COLLATION
    48809>48805    10               0   0  0              0                                                        SELECT LITERAL
          48806    36      91       4   0  3              0                TA DETAILS                              COLLATE AND ADD
          48807    2       66       6   0  0              0                REF                                     SUBTRACT
          48808    70      488     10   0  0              0        488                                             JUMP IF A == 0
          48809    94      488      5   0  3              2        488                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    48808>48810    0       91       4   0  3              0                TA DETAILS                              SELECT
          48811    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          48812    82      488      2   0  0              0        488                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          48900    PROCR   489       489     START OF MOD AND PARAMETER SR                                         
          48901     NOTES          0         0                                                                     SELECT
          48902    81      489      2   0  0              0        489                                             START OF SUBROUTINE
          48903    0       66      16   0  0              0                ITEM+' IND                              SELECT
          48904    71      493      2   0  0              0        493     >YES                                    JUMP IF A != 0
          48905    0       66       6   0  0              0                REF                                     SELECT
          48906    101           1000   1  2              0                                                        subtract literal address
          48907    72      495      2   0  0              0        495     >REF=1000+                              JUMP IF A >= 0
          48908    0       66       6   0  0              0                                                        SELECT
          48909    70      492      2   0  0              0        492     >ABS ADDRESS                            JUMP IF A == 0
          48910    5       61      35   0  0              0                                                        TRANSFER
          48911    80      486      2   0  0              0        486     >DETERMINE CHAPTER SR                   ENTER SUBROUTINE
          48912    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          48913    71      494      2   0  0              0        494     >TRANSIT AREA                           JUMP IF A != 0
          48914    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          48915    3       61      34   0  0              0                STORE CHAP OF REFERENCE                 COPY
          48916    2       61      51   0  0              0                THIS CHAP NUMBER                        SUBTRACT
          48917    71      491      2   0  0              0        491     >OTHER CHAP                             JUMP IF A != 0
                                                                                                                   
          49000    PROCR   490       490     DEAL WITH THIS CHAP-M&P                                               
          49001     NOTES          0         0                                                                     SELECT
          49002    0       61       2   0  0              0                MOD DIGITS                              SELECT
          49003    70      490     17   0  0              0        490     >NORMAL                                 JUMP IF A == 0
          49004    12               0   0  0              4                                                        SUBTRACT LITERAL
          49005    72      490     13   0  0              0        490     >MR>3                                   JUMP IF A >= 0
          49006    0       61       1   0  0              0                                                        SELECT
          49007    70      490     17   0  0              0        490                                             JUMP IF A == 0
          49008    0       545     20   0  0              0        545     MR1-3 NON-A 24/0/0                      SELECT
          49009    2       61      41   0  0              0                MOD GROUP PARA                          SUBTRACT
          49010    2       61       2   0  0              0                                                        SUBTRACT
          49011    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          49012    76      490     15   0  0              0        490                                             JUMP unconditional
    49005>49013    0       546      3   0  0              0        546     MR>3 24/0/1                             SELECT
          49014    80      506      2   0  0              0        506     MR>3 SR                                 ENTER SUBROUTINE
    49012>49015    10               0   0  0              0                                                        SELECT LITERAL
          49016    5       61       2   0  0              0                CLEAR MOD DIGITS                        TRANSFER
    49007>                                                                                                         
    49003>49017    0       61       3   0  0              0                                                        SELECT
    49109>49018    5       61      34   0  0              0                SET PARAMETER=2C                        TRANSFER
          49019    82      489      2   0  0              0        489     EXIT                                    END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49100    PROCR   491       491     M&P-DEAL WITH OTHER CHAPTER                                           
          49101     NOTES          0         0                                                                     SELECT
    48917>49102    80      497      2   0  0              0        497     TEST MODIFICATION                       ENTER SUBROUTINE
          49103    71      491     10   0  0              0        491     >YES                                    JUMP IF A != 0
          49104    0       546      2   0  0              0        546     SIMPLE CASE 24/0/3                      SELECT
          49105    2       61      34   0  0              0                OTHER CHAP NUMBER                       SUBTRACT
          49106    2       61      34   0  0              0                                                        SUBTRACT
          49107    11               0   0  0              1                                                        ADD LITERAL
  Source image: P1000391.JPG
          49108    80      355      2   0  0              0        355     >O/P, CLEAR A                           ENTER SUBROUTINE
          49109    76      490     18   0  0              0        490     >CLEAR PARA                             JUMP unconditional
    49103>49110    80      508      2   0  0              0        508     COMPLEX CASE ->O/P 0/1/0+0/0/3          ENTER SUBROUTINE
          49111    0       545      8   0  0              0        545     6/0/0                                   SELECT
          49112    1       61      34   0  0              0                OTHER CHAP NUMBER                       ADD
          49113    1       61      34   0  0              0                                                        ADD
          49114    12               0   0  0              1                                                        SUBTRACT LITERAL
          49115    80      355      2   0  0              0        355     SELECT START ADDRESS ->O/P              ENTER SUBROUTINE
          49116    76      496      2   0  0              0        496     >M&P COMPLEX END                        JUMP unconditional
                                                                                                                   
          49200    PROCR   492       492     M&P-DEAL WITH ABSOLUTE ADDRESS                                        
          49201     NOTES          0         0                                                                     SELECT
    48909>49202    0       61       2   0  0              0                MOD DIGITS                              SELECT
          49203    70      492     38   0  0              0        492     >UNMODIFIED                             JUMP IF A == 0
          49204    12               0   0  0              4                                                        SUBTRACT LITERAL
          49205    72      492     25   0  0              0        492     >MR>3                                   JUMP IF A >= 0
          49206    0       61       1   0  0              0                                                        SELECT
          49207    70      492     36   0  0              0        492     >MR 1-3 ARITH                           JUMP IF A == 0
          49208    0       66       8   1  0              0                ITEM                                    SELECT
          49209    73      492     15   0  0              0        492                                             JUMP IF A < 0
          49210    0       545     19   0  0              0        545     (1) POS ITEM 24/01/2002                 SELECT
          49211    2       61      41   0  0              0                MOD GROUP PARA                          SUBTRACT
          49212    2       61       2   0  0              0                                                        SUBTRACT
          49213    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          49214    76      492     29   0  0              0        492                                             JUMP unconditional
    49237>                                                                                                         
    49209>49215    80      508      2   0  0              0        508     >O/P 0/1/0+0/0/3                        ENTER SUBROUTINE
          49216    80      505      2   0  0              0        505     (2) NEG ITEM O/P 24/0/3 0               ENTER SUBROUTINE
          49217    0       545      8   0  0              0        545     6/0/0                                   SELECT
          49218    1       61       2   0  0              0                MOD DIGITS                              ADD
          49219    1       61       2   0  0              0                                                        ADD
          49220    5       67       3   0  0              0                                                        TRANSFER
          49221    0       61      41   0  0              0                MOD GROUP PARA                          SELECT
          49222    5       67       2   0  0              0                                                        TRANSFER
          49223    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          49224    76      492     34   0  0              0        492                                             JUMP unconditional
    49205>49225    0       66       8   1  0              0                MR>3 ITEM                               SELECT
          49226    73      492     31   0  0              0        492     (1) POSITIVE ITEM                       JUMP IF A < 0
          49227    0       546      2   0  0              0        546     24/0/3 0                                SELECT
          49228    80      506      2   0  0              0        506     >MR>3 SR                                ENTER SUBROUTINE
    49214>49229    5       61       2   0  0              0                CLEAR MOD DIGITS                        TRANSFER
          49230    76      496     29   0  0              0        496     >M&P END                                JUMP unconditional
    49226>49231    80      508      2   0  0              0        508     >O/P 0/1/0+0/0/3                        ENTER SUBROUTINE
          49232    0       545      8   0  0              0        545     (2) NEG ITEM 6/0/0                      SELECT
          49233    80      506      2   0  0              0        506     >MR>3 SR                                ENTER SUBROUTINE
    49224>49234    5       61       2   0  0              0                CLEAR MOD DIGITS                        TRANSFER
          49235    76      496      2   0  0              0        496     >M&P COMPLEX END                        JUMP unconditional
    49207>49236    0       66       8   1  0              0                SIMPLE CASE ITEM                        SELECT
          49237    73      492     15   0  0              0        492                                             JUMP IF A < 0
    49203>49238    80      505      2   0  0              0        505     O/P 24/0/3 0                            ENTER SUBROUTINE
          49239    76      496     29   0  0              0        496     > END                                   JUMP unconditional
                                                                                                                   
          49300    PROCR   493       493     M&P-DEAL WITH 'ITEM+'                                                 
          49301     NOTES          0         0                                                                     SELECT
    48904>49302    80      497      2   0  0              0        497     > TEST MODIFICATION                     ENTER SUBROUTINE
          49303    71      493      6   0  0              0        493     >YES                                    JUMP IF A != 0
          49304    0       66       8   1  0              0                ITEM                                    SELECT
          49305    72      493     10   0  0              0        493     >NORMAL                                 JUMP IF A >= 0
    49303>49306    80      508      2   0  0              0        508     COMPLEX CASE ->O/P 0/1/0+0/0/3          ENTER SUBROUTINE
          49307    0       545      8   0  0              0        545     6/0/0                                   SELECT
  Source image: P1000392.JPG
          49308    80      502      2   0  0              0        502     >'ITEM+' SR                             ENTER SUBROUTINE
          49309    76      496      2   0  0              0        496     > M&P COMPLEX END                       JUMP unconditional
    49305>49310    0       546      2   0  0              0        546     24/0/3              SIMPLE CASE         SELECT
          49311    80      502      2   0  0              0        502     >'ITEM +' SR                            ENTER SUBROUTINE
          49312    76      496     29   0  0              0        496     M&P END                                 JUMP unconditional
                                                                                                                   
          49400    PROCR   494       494     M&P   DEAL WITH TRANSIT AREA REFERENCE                                
          49401     NOTES  494                                                                                     SELECT
    48913>49402    80      497      2   0  0              0        497     >TEST MODIFICATION                      ENTER SUBROUTINE
          49403    71      494      6   0  0              0        494     >YES                                    JUMP IF A != 0
          49404    0       66       8   1  0              0                ITEM                                    SELECT
          49405    72      494     11   0  0              0        494     >NORMAL                                 JUMP IF A >= 0
    49403>49406    80      508      2   0  0              0        508     >O/P 0/1/0+0/0/3    COMPLEX CASE        ENTER SUBROUTINE
          49407    80      500      2   0  0              0        500     >O/P 24/1/2 BY-(64+P)                   ENTER SUBROUTINE
          49408    0       545     66   0  0              0        545     24/0/2 0                                SELECT
          49409    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          49410    76      496      2   0  0              0        496     >M&P COMPLEX END                        JUMP unconditional
    49405>49411    80      500      2   0  0              0        500     >O/P 24/1/2 BY -(64+P)  (SIMPLE CASE)   ENTER SUBROUTINE
          49412    76      496     29   0  0              0        496     >M&P END                                JUMP unconditional
                                                                                                                   
          49500    PROCR   495       495     M&P-DEAL WITH REFERENCE 1000+                                         
          49501     NOTES  495                                                                                     SELECT
    48907>49502    80      497      2   0  0              0        497     >TEST MODIFICATION                      ENTER SUBROUTINE
          49503    71      495      6   0  0              0        495     >YES                                    JUMP IF A != 0
          49504    0       66       8   1  0              0                ITEM                                    SELECT
          49505    72      495     16   0  0              0        495     >NORMAL                                 JUMP IF A >= 0
    49503>49506    80      508      2   0  0              0        508     >O/P 0/1/0 +0/0/3   COMPLEX CASE        ENTER SUBROUTINE
          49507    80      503      2   0  0              0        503     >TEST CHAP                              ENTER SUBROUTINE
          49508            545     19   0  0              0        545     24/1/2                                  SELECT
          49509    2       66       6   0  0              0                                                        SUBTRACT
          49510    101           1000   1  1              0                                                        add literal address
          49511    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          49512            545     66   0  0              0        545     24/0/2                                  SELECT
          49513    80      359      2   0  0              0        359     >O/P ZERO REF       ZERO PARA           ENTER SUBROUTINE
          49514    5       66       6   1  0              0                                                        TRANSFER
          49515    76      496      2   0  0              0        496     >M&P COMPLEX END                        JUMP unconditional
    49505>49516    80      503      2   0  0              0        503     >TEST CHAP                              ENTER SUBROUTINE
          49517            545     19   0  0              0        545     24/1/2                                  SELECT
          49518    2       66       6   0  0              0                                                        SUBTRACT
          49519    101           1000   1  1              0                                                        add literal address
          49520    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          49521    5       66       6   1  0              0                                                        TRANSFER
          49522    76      496     29   0  0              0        496     >M&P END                                JUMP unconditional
                                                                                                                   
          49600    PROCR   496       496     M&P-DEAL WITH ADDRESS CALCULATIONS+END ROUTINE                        
          49601     NOTES  496                                                                                     SELECT
    49515>                                                                                                         
    49410>                                                                                                         
    49309>                                                                                                         
    49235>                                                                                                         
    49116>49602    0       61       2   0  0              0                                                        SELECT
          49603    70      496     17   0  0              0        496     >UNMODIFIED                             JUMP IF A == 0
          49604    12               0   0  0              4                                                        SUBTRACT LITERAL
          49605    72      496     15   0  0              0        496     >MR>3                                   JUMP IF A >= 0
          49606    80      505      2   0  0              0        505     24/0/3 0                                ENTER SUBROUTINE
          49607    0       545      9   0  0              0        545     4/0/0                                   SELECT
          49608    1       61       2   0  0              0                                                        ADD
          49609    1       61       2   0  0              0                                                        ADD
          49610    5       67       3   0  0              0                                                        TRANSFER
          49611    0       61      41   0  0              0                MOD GROUP PARA                          SELECT
  Source image: P1000393.JPG
          49612    5       67       2   0  0              0                                                        TRANSFER
          49613    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          49614    76      496     17   0  0              0        496                                             JUMP unconditional
    49605>49615    0       545      9   0  0              0        545     4/0/0                                   SELECT
          49616    80      506      2   0  0              0        506     >MR>3 SR                                ENTER SUBROUTINE
    49614>                                                                                                         
    49603>49617    0       66       8   1  0              0                                                        SELECT
          49618    72      496     22   0  0              0        496     >NOT NEGATIVE ITEM                      JUMP IF A >= 0
          49619    0       66       8   0  0              0                MODULUS                                 SELECT
          49620    1       545     24   0  0              0        545     1/1/2 0                                 ADD
          49621    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
    49618>49622    5       66       8   1  0              0                CLEAR ITEM, MOD DIGITS                  TRANSFER
          49623    5       61       2   0  0              0                                                        TRANSFER
          49624            546     16   0  0              0        546     2/0/0/6                                 SELECT
          49625    80      361      2   0  0              0        361     >LN                 2C SR               ENTER SUBROUTINE
          49626    80      399      2   0  0              0        399     >0/1/1 SR                               ENTER SUBROUTINE
          49627            546     17   0  0              0        546     24/0/3/6                                SELECT
          49628    80      361      2   0  0              0        361     >LN                 2C SR               ENTER SUBROUTINE
    49522>                                                                                                         
    49412>                                                                                                         
    49312>                                                                                                         
    49239>                                                                                                         
    49230>49629    10               0   0  0              0                                                        SELECT LITERAL
          49630    5       61      34   0  0              0                CLEAR PARA, REF                         TRANSFER
          49631    82      489      2   0  0              0        489                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49700    PROCR   497       497     M&P-TEST INDIRECT MODIFICATION                                        
          49701     NOTES  497                                                                                     SELECT
          49702    81      497      2   0  0              0        497                                             START OF SUBROUTINE
          49703    0       61       2   0  0              0                MOD DIGITS                              SELECT
          49704    70      497      8   0  0              0        497     >NO                                     JUMP IF A == 0
          49705    12               0   0  0              4                                                        SUBTRACT LITERAL
          49706    72      497      9   0  0              0        497     >YES(MR>3)                              JUMP IF A >= 0
          49707    0       61       1   0  0              0                (NON-ZERO IF NON-ARITH)                 SELECT
    49704>49708    82      497      2   0  0              0        497                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    49706>49709    10               0   0  0              1                                                        SELECT LITERAL
          49710    82      497      2   0  0              0        497     (A)=0 IF 'DIRECT' MODIFICATION          END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49800    PROCR   498       498     SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS                      
          49801     NOTES  498                                                                                     SELECT
          49802    81      498      2   0  0              0        498                                             START OF SUBROUTINE
          49803    73      498      7   0  0              0        498     >NEGATIVE ACTIONS                       JUMP IF A < 0
          49804    1       61      43   0  0              0                                                        ADD
          49805    2       61      11   0  0              0                START OF CURRENT PROCR                  SUBTRACT
          49806    76      498      9   0  0              0        498                                             JUMP unconditional
    49803>49807    2       61      43   0  0              0                                                        SUBTRACT
          49808    1       61      11   0  0              0                                                        ADD
    49806>49809    5       67       3   0  0              0                                                        TRANSFER
          49810    0       61      10   0  0              0                CURRENT PROCR(IN THIS CHAPTER)          SELECT
          49811    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          49812    1       61       3   0  0              0                                                        ADD
          49813    5       67       2   0  0              0                PARA                                    TRANSFER
          49814    80      518      2   0  0              0        518     >O/P                                    ENTER SUBROUTINE
          49815    82      498      2   0  0              0        498                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          49900    PROCR   499       499     SET(A)=ROUTE PARA   Q10B=FILE TYPE                                    
          49901     NOTES  499                                                                                     SELECT
          49902    81      499      2   0  0              0        499                                             START OF SUBROUTINE
          49903    91      91       0   0  3              0                2R:0                                    SET MODIFICATION REGISTER AT VARIABLE
    49910>49904    0       91       5   0  3              0                                                        SELECT
  Source image: P1000394.JPG
          49905    70      499     11   0  0              0        499     >LIST EMPTY                             JUMP IF A == 0
          49906    33               0   0  0              6-               ROUTE TYPE                              SHIFT (AB) BY BITS
          49907    1       545     27   0  0              0        545     BIT 15 TO RESTORE TOP CONTROL           ADD
          49908    2       61      54   0  0              0                FILE ID                                 SUBTRACT
          49909    70      499     13   0  0              0        499     >MATCH                                  JUMP IF A == 0
          49910    94      499      4   0  3              2        499                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    49905>49911    10               0   0  0             5:                                                        SELECT LITERAL
          49912    80      501      2   0  0              0        501     >REPORT'?????'                          ENTER SUBROUTINE
    49909>49913    96               0   0  3              0                                                        SELECT MODIFIER
          49914    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          49915    1       92      29   0  0              0                NUMBER OF CHARS                         ADD
          49916    1       92      29   0  0              0                                                        ADD
          49917    11               0   0  0              1                                                        ADD LITERAL
          49918    82      499      2   0  0              0        499                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50000    PROCR   500       500     MODIFY BY ANNEX START SR                                              
          50001     NOTES          RADIX     B    T.A.S. MR LESS THAN 3                                            SELECT
          50002    81      500      2   0  0              0        500                                             START OF SUBROUTINE
          50003    80      488      2   0  0              0        488     FORM TA PARAM                           ENTER SUBROUTINE
          50004    11               0   0  0              1                TO GIVE T2                              ADD LITERAL
          50005    2       545     19   0  0              0        545     24/1/2                                  SUBTRACT
          50006    5       67       3   0  0              0                                                        TRANSFER
          50007    2       67       3   0  0              0                                                        SUBTRACT
          50008    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          50009    5       66       6   0  0              0                CLEAR REF                               TRANSFER
          50010    82      500      2   0  0              0        500                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50100    PROCR   501       501     MISMATCH SR FOR MR>3, SWITCHES, ITEM+                                 
          50101     NOTES  501                                                                                     SELECT
          50102    81      501      2   0  0              0        501     (A)=+,M,S OR C                          START OF SUBROUTINE
          50103    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          50104    1       542     28   1  0              0        542      '?????'                                ADD
          50105    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          50106    5       5       46   1  0              0                                                        TRANSFER
          50107    0       546     20   0  0              0        546                                             SELECT
          50108    71      501     12   0  0              0        501     >PREVIOUS RI/P RECORD WAS PRINTED       JUMP IF A != 0
          50109    10               0   0  0              1                                                        SELECT LITERAL
          50110    5       545     99   0  0              0        545                                             TRANSFER
          50111    80      511      2   0  0              0        511     >PRINT LINE WE'RE REPORTING             ENTER SUBROUTINE
    50108>50112    80      530      2   0  0              0        530     >SECOND PRINT SR                        ENTER SUBROUTINE
          50113    82      501      2   0  0              0        501                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50200    PROCR   502       502                                                                           
          50201     NOTES          RADIX     B    DEAL WITH ITEM + S.R.                                            SELECT
          50202    81      502      2   0  0              0        502                                             START OF SUBROUTINE
          50203    5       61      58   0  0              0                ACTION                                  TRANSFER
          50204    91      98       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          50205            98       1   0  0              0                CTR                                     SELECT
          50206    70      502     13   0  0              0        502     >WRONG                                  JUMP IF A == 0
          50207    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
    50212>50208    10               0   0  0              0                                                        SELECT LITERAL
          50209    36      98       2   0  3              0                                                        COLLATE AND ADD
          50210    2       66       6   1  0              0                                                        SUBTRACT
          50211    70      502     15   0  0              0        502     >OK                                     JUMP IF A == 0
          50212    94      502      8   0  3              1        502                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    50206>50213    10               0   0  0             4+                ERROR +                                 SELECT LITERAL
          50214    80      501      2   0  0              0        501     >MISMATCH SR                            ENTER SUBROUTINE
    50211>50215            98       2   0  3              0                                                        SELECT
          50216    80      507      2   0  0              0        507                                             ENTER SUBROUTINE
          50217    5       66      16   0  0              0                CLEAR ITEM+IND                          TRANSFER
  Source image: P1000395.JPG
          50218    5       66       6   1  0              0                CLEAR REFERENCE                         TRANSFER
          50219    82      502      2   0  0              0        502                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50300    PROCR   503       503     TEST IF IN OTHER CHAPTER-M&P REF 1000+                                
          50301     NOTES  503                                                                                     SELECT
          50302    81      503      2   0  0              0        503                                             START OF SUBROUTINE
          50303            61       9   0  0              0                PROCR OF LAST 81 ACTION                 SELECT
          50304    5       61      35   0  0              0                                                        TRANSFER
          50305    80      486      2   0  0              0        486     >DETERMINE CHAP SR                      ENTER SUBROUTINE
          50306    3       61      34   0  0              0                ADDRESSED CHAP                          COPY
          50307    2       61      51   0  0              0                THIS CHAP NO                            SUBTRACT
          50308    70      503     17   0  0              0        503     >THIS CHAP                              JUMP IF A == 0
          50309            61      34   0  0              0                                                        SELECT
          50310    80      504      2   0  0              0        504     >O/P 24/0/3                             ENTER SUBROUTINE
          50311            61       9   0  0              0                REF=PROCR                               SELECT
          50312    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
    50320>50313    5       67       2   0  0              0                PARA=0                                  TRANSFER
          50314            546      2   0  0              0        546     24/0/3                                  SELECT
          50315    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          50316    82      503      2   0  0              0        503                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    50308>50317            61       9   0  0              0                                                        SELECT
          50318    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          50319    1       61       3   0  0              0                2C                                      ADD
          50320    76      503     13   0  0              0        503                                             JUMP unconditional
                                                                                                                   
          50400    PROCR   504       504     OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START               
          50401     NOTES  504                                                                                     SELECT
          50402    81      504      2   0  0              0        504                                             START OF SUBROUTINE
          50403    70      504      8   0  0              0        504     >24/0/3 BY 0                            JUMP IF A == 0
          50404    5       67       3   0  0              0                                                        TRANSFER
          50405    10               0   0  0              1                                                        SELECT LITERAL
          50406    2       67       3   0  0              0                                                        SUBTRACT
          50407    2       67       3   0  0              0                                                        SUBTRACT
    50403>50408    1       546      2   0  0              0        546     24/0/3                                  ADD
          50409    80      355      2   0  0              0        355     >O/P                                    ENTER SUBROUTINE
          50410    82      504      2   0  0              0        504                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50500    PROCR   505       505     OUTPUT 24/0/3 BY 0                                                    
          50501     NOTES          RADIX     B                                                                     SELECT
          50502    81      505      2   0  0              0        505                                             START OF SUBROUTINE
          50503    10               0   0  0              0                                                        SELECT LITERAL
          50504    80      504      2   0  0              0        504                                             ENTER SUBROUTINE
          50505    82      505      2   0  0              0        505                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50600    PROCR   506       506     MR GREATER THAN 3 SR                                                  
          50601     NOTES          RADIX     B    M & P                                                            SELECT
          50602    81      506      2   0  0              0        506                                             START OF SUBROUTINE
          50603    5       61      58   0  0              0                ACTION WL                               TRANSFER
          50604    91      71       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          50605    94      506      7   0  3              0        506     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          50606    76      506     13   0  0              0        506     >MISMATCH                               JUMP unconditional
    50605>50607    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
    50612>50608    10               0   0  0              0                                                        SELECT LITERAL
          50609    36      71       2   0  3              0                                                        COLLATE AND ADD
          50610    2       61       2   0  0              0                MOD DIGITS                              SUBTRACT
          50611    70      506     15   0  0              0        506     >OK                                     JUMP IF A == 0
          50612    94      506      8   0  3              1        506                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    50606>50613    10               0   0  0             64                =M                                      SELECT LITERAL
          50614    80      501      2   0  0              0        501     >MISMATCH SR                            ENTER SUBROUTINE
    50611>50615    0       71       2   0  3              0                                                        SELECT
  Source image: P1000396.JPG
          50616    80      507      2   0  0              0        507                                             ENTER SUBROUTINE
          50617    82      506      2   0  0              0        506                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50700    PROCR   507       507     END ROUTINE FOR MR>3 AND ITEM+ SUBROUTINES                            
          50702    81      507      2   0  0              0        507                                             START OF SUBROUTINE
          50703    5       503      2   0  0              0        503     WL=SR LINK                              TRANSFER
          50704    0       61      58   0  0              0                                                        SELECT
          50705    70      507     15   0  0              0        507     >ZERO ACTION=15-BIT ADDRESS NEEDED      JUMP IF A == 0
          50706    0       503      2   0  0              0        503                                             SELECT
          50707    30               0   0  0              4-               ISOLATE CORRECTED CHAP                  SHIFT (A) BY QUARTETS
          50708    2       61      51   0  0              0                                                        SUBTRACT
          50709    70      507     13   0  0              0        507     >THIS CHAP                              JUMP IF A == 0
          50710    1       61      51   0  0              0                                                        ADD
          50711    80      504      2   0  0              0        504     >O/P 24/0/3 BY OTHER CHAP START         ENTER SUBROUTINE
          50712    76      507     20   0  0              0        507     >(PARA=0)                               JUMP unconditional
    50709>50713    0       61       3   0  0              0                2C                                      SELECT
          50714    76      507     20   0  0              0        507                                             JUMP unconditional
    50705>50715    0       503      2   0  0              0        503                                             SELECT
          50716    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          50717    3       67       2   0  0              0                FORM PARA 2C'-1                         COPY
          50718    1       67       2   0  0              0                                                        ADD
          50719    12               0   0  0              1                                                        SUBTRACT LITERAL
    50714>                                                                                                         
    50712>50720    5       67       2   0  0              0                                                        TRANSFER
          50721    0       503      2   0  0              0        503                                             SELECT
          50722    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          50723    101           1001   1  1              0                                                        add literal address
          50724    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          50725    4       67       2   0  0              0                REF=1000+CHAP                           AUGMENT
          50726    10               0   0  0              0                                                        SELECT LITERAL
          50727    32               0   0  0              2                CTR WAS IN Q3,4                         SHIFT (AB) BY QUARTETS
          50728    34      544     22   0  0              0        544     BITS 1-13                               SET (N) IN B
          50729    36      61      58   0  0              0                                                        COLLATE AND ADD
          50730    37      61      58   0  0              0                PACK WITH ACTION                        REPLACE SELECTED BITS
          50731    0       61      58   0  0              0                                                        SELECT
          50732    80      359      2   0  0              0        359     >O/P                                    ENTER SUBROUTINE
          50733    82      507      2   0  0              0        507                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50800    PROCR   508       508     0/1/0 AND 0/0/3 S/R                                                   
          50801     NOTES          RADIX     B    M&P                                                              SELECT
          50802    81      508      2   0  0              0        508                                             START OF SUBROUTINE
          50803            61      25   0  0              0                BIN INDICATOR                           SELECT
          50804    70      508      6   0  0              0        508                                             JUMP IF A == 0
          50805    10               0   0  0              8                                                        SELECT LITERAL
    50804>50806    1       545     29   0  0              0        545     0/1/0                                   ADD
          50807    80      361      2   0  0              0        361     >LN:2C SR                               ENTER SUBROUTINE
          50808            61      25   0  0              0                BIN IND                                 SELECT
          50809    71      508     12   0  0              0        508     WE ALREADY HAVE BINARY SET              JUMP IF A != 0
          50810            545     28   0  0              0        545     0/0/3                                   SELECT
          50811    80      355      2   0  0              0        355     O/P                                     ENTER SUBROUTINE
    50809>50812    10               0   0  0              1                                                        SELECT LITERAL
          50813    4       61      25   0  0              0                                                        AUGMENT
          50814    82      508      2   0  0              0        508                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          50900    PROCR   509       509     I/P SR                                                                
          50901     NOTES          RADIX                                                                           SELECT
          50902    81      509      2   0  0              0        509                                             START OF SUBROUTINE
          50903                     0   2 12              0                CURRENT RECORD LENGTH                   SELECT
          50904    5       537      2   0  0              0        537                                             TRANSFER
          50905    97      537      2   0 12              0        537                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
  Source image: P1000397.JPG
          50906    C       509      8   0  0              0        509                                             
          50907    80      539      2   0  0              0        539     >READ                                   ENTER SUBROUTINE
    50906>                                                                                                         
    34505>50908    10               0   0  0              0                                                        SELECT LITERAL
          50909    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          50910    36               2   1 12              0                AMENDED IMPLICITLY IND                  COLLATE AND ADD
          50911    5       545     99   0  0              0        545                                             TRANSFER
          50912    37               2   1 12              0                CLEAR 2 CHARS                           REPLACE SELECTED BITS
          50913    54      77       0   1  0             44                BULK CLEAR                              BULK CLEAR
          50914    55               0   1 12              0                                                        BULK COPY
          50915    C       77       0   1  0              0                                                        
          50916    C                0   2 12              0                                                        
          50917    82      509      2   0  0              0        509                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51000    PROCR   510       510     PRINT LINE AND RE-SITE AMEND IND                                      
          51001     NOTES  510                                                                                     SELECT
          51002    81      510      2   0  0              0        510                                             START OF SUBROUTINE
          51003            8        4   1  0              0                                                        SELECT
          51004    5       8        2   1  0              0                                                        TRANSFER
          51005    5       8        4   1  0              0                                                        TRANSFER
          51006    80      511      2   0  0              0        511     >PRINT                                  ENTER SUBROUTINE
          51007    82      510      2   0  0              0        510                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51100    PROCR   511       511     PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE              
          51101     NOTES          RADIX     B                                                                     SELECT
          51102    81      511      2   0  0              0        511                                             START OF SUBROUTINE
          51103    0       544      2   1  0              0        544     BEW                                     SELECT
          51104    5       7       50   1  0              0                                                        TRANSFER
          51105            7       46   1  0              0                                                        SELECT
          51106    80      515      2   0  0              0        515     >REPORT IF TOP 4 CHARS='?'              ENTER SUBROUTINE
          51107    70      511     12   0  0              0        511     >YES                                    JUMP IF A == 0
          51108            7       48   1  0              0                                                        SELECT
          51109    70      511     44   0  0              0        511     >NO ERRORS                              JUMP IF A == 0
          51110    80      515      2   0  0              0        515     >TEST FOR REPORT                        ENTER SUBROUTINE
          51111    71      511     23   0  0              0        511                                             JUMP IF A != 0
    51107>51112    94      511     14   0 20              0        511     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          51113    76      511     42   0  0              0        511     >NO MORE ROOM                           JUMP unconditional
    51112>51114            7        6   1  0              0                                                        SELECT
          51115    70      511     42   0  0              0        511     >FILE HANDLING ERRORNO SERIAL           JUMP IF A == 0
          51116    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          51117    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          51118    70      511     42   0  0              0        511     >SECTION DESCRIPTION                    JUMP IF A == 0
          51119            7        6   2  0              0                                                        SELECT
          51120    5       40       0   0 20              0                                                        TRANSFER
          51121    94      511     42   0 20              1        511                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          51122    76      511     42   0  0              0        511                                             JUMP unconditional
    51111>51123            7       32   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          51124    12               0   0  0     7171717171                '/////'                                 SUBTRACT LITERAL
          51125    71      511     29   0  0              0        511                                             JUMP IF A != 0
          51126    35               0   0  0         111111                Q1-6                                    PREPARE FOR DIGIT COLLATION
          51127    37      7       48   1  0              0                                                        REPLACE SELECTED BITS
          51128    76      511     44   0  0              0        511     >DON'T COUNT                            JUMP unconditional
    51125>51129    94      511     31   0 19              0        511     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          51130    76      511     39   0  0              0        511     >NO MORE ROOM                           JUMP unconditional
    51129>51131            7        6   1  0              0                                                        SELECT
          51132    70      511     39   0  0              0        511     >FILE HEADING ERROR NO SERIAL           JUMP IF A == 0
          51133    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          51134    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          51135    70      511     39   0  0              0        511     >SECTION DESCRIPTION ERROR              JUMP IF A == 0
          51136            7        6   2  0              0                                                        SELECT
  Source image: P1000398.JPG
          51137    5       40      10   0 19              0                                                        TRANSFER
          51138    94               0   0 19              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    51135>                                                                                                         
    51132>                                                                                                         
    51130>51139    86      514      2   0  0              0        514                                             SELECT SWITCH R
          51140    11               0   0  0              1                STEP CTR OF OTHER ERRORS                ADD LITERAL
          51141    84      514      2   0  0              0        514                                             SET SWITCH(ES) AT VARIABLE VALUE
    51122>                                                                                                         
    51121>                                                                                                         
    51118>                                                                                                         
    51115>                                                                                                         
    51113>51142    10               0   0  0              1                (PRINT REPORTED LINES)                  SELECT LITERAL
          51143    5       545     99   0  0              0        545                                             TRANSFER
    51128>                                                                                                         
    51109>51144    0       23      46   1  0              0                PRINT PROCR '+' PRINT ALL ' INDS        SELECT
          51145    71      511     51   0  0              0        511     > PRINT                                 JUMP IF A != 0
          51146    0       545     99   0  0              0        545     IMPLICITLY AMENDED'                     SELECT
          51147    70      511     56   0  0              0        511     > DONT PRINT                            JUMP IF A == 0
          51148    0       546     20   0  0              0        546     > LAST RECORD PRINTED ?                 SELECT
          51149    71      511     51   0  0              0        511     > YES                                   JUMP IF A != 0
          51150    80      512      2   0  0              0        512     > BLANK LINE                            ENTER SUBROUTINE
    51149>                                                                                                         
    51145>51151    0       61      46   0  0              0                HEAD OF FORM, OR ZERO                   SELECT
          51152    5       7        0   2  0              0                                                        TRANSFER
          51153    80      513      2   0  0              0        513     >PRINT LINE                             ENTER SUBROUTINE
          51154    10               0   0  0              1                                                        SELECT LITERAL
          51155    3       61      46   0  0              0                SET FOR NEXT TIME                       COPY
    51147>51156    5       546     20   0  0              0        546     SET/CLEAR IND                           TRANSFER
          51157    82      511      2   0  0              0        511                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51200    PROCR   512       512     PRINT BLANK LINE UNCONDITIIONALLY                                     
          51202    81      512      2   0  0              0        512                                             START OF SUBROUTINE
          51203            999     16   1  0              0                COPY SEC 7 PARAS                        SELECT
          51204    5       543     42   1  0              0        543                                             TRANSFER
          51205    0       999      8   0  0              0                PT ROUTE                                SELECT
          51206    5       999     16   0  0              0                                                        TRANSFER
          51207    2       999      8   0  0              0                                                        SUBTRACT
          51208    12               0   0  0             40                64                                      SUBTRACT LITERAL
          51209    5       999     17   0  0              0                CREATE R, - (64+R)                      TRANSFER
          51210    5       7        0   1  0              0                                                        TRANSFER
          51211            27       9   0  0              0                ON LINE ?                               SELECT
          51212    70      512     15   0  0              0        512     > YES                                   JUMP IF A == 0
          51213    54      7        0   1  0             50                                                        BULK CLEAR
          51214    76      512     17   0  0              0        512     > 'PRINT'                               JUMP unconditional
    51212>51215    0       544      2   1  0              0        544     DEW                                     SELECT
          51216    5       7        2   1  0              0                                                        TRANSFER
    51214>51217    80      513      2   0  0              0        513     >'PRINT EX SEC 7                        ENTER SUBROUTINE
          51218    0       543     42   1  0              0        543                                             SELECT
          51219    5       999     16   1  0              0                RESTORE SEC 7 PARAS                     TRANSFER
          51220    82      512      2   0  0              0        512                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51300    PROCR   513       513     PRINT SEC 7 (OR SEC 5, OR PT ANNEX)                                   
          51302    81      513      2   0  0              0        513                                             START OF SUBROUTINE
          51303            27       9   0  0              0                                                        SELECT
          51304    70      513      9   0  0              0        513     > PRINTER                               JUMP IF A == 0
          51305    55      7        0   1  0             50                                                        BULK COPY
          51306    C       10       4   1  6              0                                                        
          51307    80      540      2   0  0              0        540     > O/P>                                  ENTER SUBROUTINE
          51308    82      513      2   0  0              0        513                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    51304>51309            27       8   0  0              0                PRINTER TYPE                            SELECT
  Source image: P1000399.JPG
          51310    12               0   0  0              9                                                        SUBTRACT LITERAL
          51311    70      513     27   0  0              0        513     > SPECIAL                               JUMP IF A == 0
          51312            545     51   0  0              0        545     BIT 20                                  SELECT
          51313    5       7        1   0  0              0                                                        TRANSFER
          51314    124     999     17   1  2              0                SEC 7                                   modify address of next
          51315    124              0   0  2              0                                                        select literal and division
          51316    124     999     13   1  2              0                SEC 10                                  modify address of next
          51317    129              0   0  1              0                                                        edit for anelex output
          51318    10               0   0  0              4                                                        SELECT LITERAL
    51330>51319    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          51320    1       999      7   0  0              0                ROUTE                                   ADD
          51321    34      999     12   0  0              0                                                        SET (N) IN B
          51322    125           4096   1  1              0                                                        clear indicators
          51323    124     999      0   0  3              0                                                        modify address of next
          51324    123            160   0  2              0                                                        enter master routine
          51325    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          51326    82      513      2   0  0              0        513                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    51311>51327    55      7        0   1  0             54                                                        BULK COPY
          51328    C       10       0   1  0              0                                                        
          51329    10               0   0  0              9                                                        SELECT LITERAL
          51330    76      513     19   0  0              0        513                                             JUMP unconditional
                                                                                                                   
          51400    PROCR   514       514     OUTPUT 9 > A6                                                         
          51401     NOTES          RADIX                                                                           SELECT
          51402    81      514      2   0  0              0        514                                             START OF SUBROUTINE
          51403    43      A6       0   0  0              0                                                        OUTPUT
          51404    C       9        0   0  0              0                                                        
          51405    82      514      2   0  0              0        514                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51500    PROCR   515       515     TEST FOR DIASTROUS ERROR CONDITION IN PRINTER                         
          51501     NOTES  515                                                                                     SELECT
          51502    81      515      2   0  0              0        515                                             START OF SUBROUTINE
          51503    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          51504    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          51505    11               0   0  0             5:                                                        ADD LITERAL
          51506    2       542     28   1  0              0        542     ?????'                                  SUBTRACT
          51507    71      515     11   0  0              0        515     > NOT DISASTROUS                        JUMP IF A != 0
          51508    86      511      2   0  0              0        511     STEP DISASTER CTR                       SELECT SWITCH R
          51509    11               0   0  0              1                                                        ADD LITERAL
          51510    84      511      2   0  0              0        511     (CLEARS A)                              SET SWITCH(ES) AT VARIABLE VALUE
    51507>51511    82      515      2   0  0              0        515                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          51600    PROCR   516       516     O/P TYPE SR                                                           
          51601     NOTES          RADIX                                                                           SELECT
          51602    81      516      2   0  0              0        516                                             START OF SUBROUTINE
          51603    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          51604            61      26   1  0              0                TYPE NO ALPHA                           SELECT
          51605    1       542     18   1  0              0        542     TYPE (SPACE)                            ADD
          51606    05      9        4   1  2              0                                                        TRANSFER
          51607            61      28   1  0              0                                                        SELECT
          51608    05      9        6   1  2              0                                                        TRANSFER
          51609            61      43   0  0              0                SPACE CTR                               SELECT
          51610    05      9        8   2  2              0                                                        TRANSFER
          51611    5       9       10   1  2              0                CLEAR                                   TRANSFER
          51612    76      519      2   0  0              0        519                                             JUMP unconditional
                                                                                                                   
          51700    PROCR   517       517     ALPHA OUTPUT SR                                                       
          51701     NOTES          RADIX                                                                           SELECT
          51702    81      517      2   0  0              0        517                                             START OF SUBROUTINE
          51703    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1000400.JPG
          51704            61      26   1  0              0                                                        SELECT
          51705    5       9        4   1  2              0                                                        TRANSFER
          51706            61      28   1  0              0                                                        SELECT
          51707    5       9        6   1  2              0                                                        TRANSFER
          51708            67       2   0  0              0                                                        SELECT
          51709    5       9        8   2  2              0                                                        TRANSFER
          51710            67       3   0  0              0                                                        SELECT
          51711    5       9       10   2  2              0                                                        TRANSFER
          51712            517      2   0  0              0        517     O/P ALPHA S/R LINK                      SELECT
          51713    76      518     15   0  0              0        518                                             JUMP unconditional
                                                                                                                   
          51800    PROCR   518       518                                                                           
          51801     NOTES          RADIX     B    O/P S/R                                                          SELECT
          51802    81      518      2   0  0              0        518                                             START OF SUBROUTINE
          51803            61      42   0  0              0                                                        SELECT
          51804    4       61      43   0  0              0                AUGMENT LOCATION COUNTER                AUGMENT
          51805    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          51806            67       0   0  0              0                SERIAL NO FOR INSTUCTIONS               SELECT
          51807    5       9        4   2  2              0                                                        TRANSFER
          51808            67       1   0  0              0                SC INDICATOR FOR INSIONS                SELECT
          51809    5       9        6   2  2              0                                                        TRANSFER
          51810            67       2   0  0              0                PARAMETER                               SELECT
          51811    5       9        8   2  2              0                                                        TRANSFER
          51812            67       3   0  0              0                                                        SELECT
          51813    5       9       10   2  2              0                                                        TRANSFER
          51814            518      2   0  0              0        518     LINK                                    SELECT
    51713>51815    5       516      2   0  0              0        516     O/P TYPE S/R LINK                       TRANSFER
                                                                                                                   
          51900    PROCR   519       519     O/P S/R                                                               
          51901     NOTES          RADIX     B                                                                     SELECT
    51612>51902    94      519      8   0  2              8        519                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    52008>51903            544      2   1  0              0        544     BE WORD                                 SELECT
          51904    5       9        4   1  2              0                                                        TRANSFER
          51905    80      514      2   0  0              0        514     PREP STAGE OP                           ENTER SUBROUTINE
          51906    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          51907    C                0   0  0            144                                                        
    51902>51908    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          51909    5       61      44   1  0              0                                                        TRANSFER
          51910    5       67       1   0  0              0                CLEAR S67                               TRANSFER
          51911    5       67       2   1  0              0                                                        TRANSFER
          51912    82      516      2   0  0              0        516                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52000    PROCR   520       520     OP REMAINING DETAILS SR                                               
          52001     NOTES          RADIX     B                                                                     SELECT
          52002    81      520      2   0  0              0        520                                             START OF SUBROUTINE
          52003    0       61      44   0  0              0                                                        SELECT
          52004    70      520      9   0  0              0        520     NOTHING TO O/P                          JUMP IF A == 0
          52005    91      61      44   0  2              0                OP CTR                                  SET MODIFICATION REGISTER AT VARIABLE
          52006    0       520      2   0  0              0        520     LINK                                    SELECT
          52007    5       516      2   0  0              0        516     O/P TYPE S/R LINK                       TRANSFER
          52008    76      519      3   0  0              0        519                                             JUMP unconditional
    52004>52009    82      520      2   0  0              0        520                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52100    PROCR   521       521     I/P INSTRUCTION SR                                                    
          52101     NOTES          RADIX     B                                                                     SELECT
          52102    81      521      2   0  0              0        521                                             START OF SUBROUTINE
          52103    80      509      2   0  0              0        509     - I/P                                   ENTER SUBROUTINE
          52104    10               0   0  0              1                                                        SELECT LITERAL
          52105    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          52106    80      522      2   0  0              0        522     - I/P C-LINE S/R                        ENTER SUBROUTINE
  Source image: P1000401.JPG
          52107    82      521      2   0  0              0        521                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52200    PROCR   522       522     I/P C-LINE S/R                                                        
          52201     NOTES          RADIX     B                                                                     SELECT
          52202    81      522      2   0  0              0        522                                             START OF SUBROUTINE
          52203            61      99   0  0              0                NON I/P IND                             SELECT
          52204    71      522     10   0  0              0        522                                             JUMP IF A != 0
          52205    80      534      2   0  0              0        534     SUSPEND                                 ENTER SUBROUTINE
          52206    80      509      2   0  0              0        509     INPUT                                   ENTER SUBROUTINE
          52207                     6   1 12              0                                                        SELECT
          52208    2       542     26   1  0              0        542     C,-,-,-,-,                              SUBTRACT
          52209    71      362      3   0  0              0        362     -G.N.B.                                 JUMP IF A != 0
    52204>52210    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          52211    C       548      2   0  0              0        548                                             
          52212    52      7        2   0  0              0                EDIT INSTRUCTIONS                       EDIT
          52213    C       548      2   0  0              0        548                                             
          52214            77      20   1  0              0                PREVIOUS PROCR NO                       SELECT
          52215    5       7       28   1  0              0                                                        TRANSFER
          52216            77      22   1  0              0                PASS 1 REPORTS                          SELECT
          52217    5       7       48   1  0              0                                                        TRANSFER
          52218    55      77      24   1  0             16                COPY ANOTATION                          BULK COPY
          52219    C       7       32   1  0              0                                                        
          52220    0       66       4   1  0              0                ACTION ALPHA                            SELECT
          52221    2       542     26   1  0              0        542                                             SUBTRACT
          52222    70      526      2   0  0              0        526     >THIS IS A C-LINE                       JUMP IF A == 0
    52235>                                                                                                         
    36908>52223    10               0   0  0              0                                                        SELECT LITERAL
          52224    5       61      20   1  0              0                                                        TRANSFER
          52225    94      522     27   0  1              0        522     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          52226    76      525      2   0  0              0        525     >NO UNMATCHED SEQ CHS BACK              JUMP unconditional
    52225>52227                     1   0  1              0                (R1 ABS) SC BACK DEST                   SELECT
          52228    2       66       2   1  0              0                SERIAL THIS ORDER                       SUBTRACT
          52229    70      524      2   0  0              0        524     >THIS IS A DESTINATION                  JUMP IF A == 0
          52230    72      525      2   0  0              0        525     >NOW TRY SEQ CH FWD LIST                JUMP IF A >= 0
          52231            542     28   1  0              0        542     ?????                                   SELECT
          52232    5       61      20   1  0              0                                                        TRANSFER
          52233    80      523      2   0  0              0        523     >STORE 'ADDRESS'=CURRENT SPACE CTR      ENTER SUBROUTINE
    52542>52234    80      529      2   0  0              0        529     PRINT ENTRY POINT S/PRINT WRONG ENTRY POENTER SUBROUTINE
          52235    76      522     23   0  0              0        522                                             JUMP unconditional
                                                                                                                   
          52300    PROCR   523       523                                                                           
          52301     NOTES          0         0                                                                     SELECT
          52302    81      523      2   0  0              0        523                                             START OF SUBROUTINE
          52303                     0   0  1              0                SOURCE OF SC BACK                       SELECT
          52304    3       61       0   0  0              0                                                        COPY
          52305    5                1   0  1              0                OVERWRITE DEST                          TRANSFER
          52306    0       61      20   1  0              0                                                        SELECT
          52307    71      523     15   0  0              0        523     >IGNORED                                JUMP IF A != 0
          52308    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          52309    36      66       2   0  0              0                                                        COLLATE AND ADD
          52310    12               0   0  0              2                                                        SUBTRACT LITERAL
          52311    71      523     15   0  0              0        523     >NOT TO PROCR START                     JUMP IF A != 0
          52312    96               0   0  1              0                                                        SELECT MODIFIER
          52313    80      421      2   0  0              0        421     >CONTRACT SC BACK LIST                  ENTER SUBROUTINE
          52314    76      523     20   0  0              0        523     >STEP R1                                JUMP unconditional
    52311>                                                                                                         
    52307>52315    0       61      10   0  0              0                CURRENT PROCR                           SELECT
          52316    31               0   0  0             10                                                        SHIFT (A) BY BITS
          52317    1       61      43   0  0              0                SPACE CTR                               ADD
          52318    2       61      11   0  0              0                PROCR START                             SUBTRACT
  Source image: P1000402.JPG
          52319    5                0   0  1              0                STORE  PROCR+ADDRESS IN PROCR I Ю½    Ю½TRANSFER
    52314>52320    94      523     21   0  1              2        523     STEP                                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    52320>52321    82      523      2   0  0              0        523                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          52400    PROCR   524       524     I/P C-LINE S/R                                                        
          52401     NOTES          RADIX     B    STORE ABS DEST FOR MATCHED SC'S BACK                             SELECT
    52407>                                                                                                         
    52229>52402    80      523      2   0  0              0        523     > Ю  ‼     ‼                            ENTER SUBROUTINE
          52403    0       0        1   0  1              0                (R1 IS ABS) NEXT DEST                   SELECT
          52404    2       66       2   0  0              0                THIS SERIAL                             SUBTRACT
          52405    71      525     43   0  0              0        525     >TRY SC FWD                             JUMP IF A != 0
          52406    80      529      2   0  0              0        529                                             ENTER SUBROUTINE
          52407    76      524      2   0  0              0        524     >THERE MAY BE MORE                      JUMP unconditional
                                                                                                                   
          52500    PROCR   525       525     I/P C-LINE S/R                                                        
          52501     NOTES          RADIX     B    TRY MATCH WITH SEQ CHS FWD                                       SELECT
    52230>                                                                                                         
    52226>52502    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          52503    70      526      2   0  0              0        526     >EMPTY                                  JUMP IF A == 0
          52504    0       20       0   0  0              0                SMALLEST DEST OF SC FWD                 SELECT
          52505    70      526      2   0  0              0        526     >LIST EMPTY,SKIP TO END                 JUMP IF A == 0
          52506    2       66       2   1  0              0                THIS SERIAL                             SUBTRACT
          52507    70      525     11   0  0              0        525     >IS DEST OF SEQ CH FWD                  JUMP IF A == 0
          52508    72      526      2   0  0              0        526     >EARLIER THAN EARLIEST DEST             JUMP IF A >= 0
          52509    0       542     28   1  0              0        542                                             SELECT
          52510    5       61      20   1  0              0                                    SEQ CHS FORWARD     TRANSFER
    52554>                                                                                                         
    52556>                                                                                                         
    52507>52511            20       2   0  0              0                                                        SELECT
          52512    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          52513    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          52514    70      525     19   0  0              0        525     >SC TO PROCR START                      JUMP IF A == 0
          52515    99               0   1  1              0                                                        SUBTRACT MODIFICATION REGISTER FROM A
          52516    72      525     19   0  0              0        525     >OK                                     JUMP IF A >= 0
          52517    10               0   0  0             79                                                        SELECT LITERAL
          52518    80      501      2   0  0              0        501     >REPORT SR                              ENTER SUBROUTINE
    52516>                                                                                                         
    52514>52519    0       20       1   0  0              0                                                        SELECT
          52520    5       61       0   0  0              0                                                        TRANSFER
          52521    0       20       2   0  0              0                                                        SELECT
          52522    70      525     32   0  0              0        525     >SC TO PROCR START                      JUMP IF A == 0
          52523    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          52524    5       523      2   0  0              0        523     FLIPFLOP                                TRANSFER
          52525    0       61      43   0  0              0                SPACE CTR                               SELECT
          52526    2       61      11   0  0              0                CURRENT PROCR START                     SUBTRACT
          52527    34      544     26   0  0              0        544     BITS 1-10                               SET (N) IN B
          52528    124     523      2   0  1              0        523     0 OR 10                                 modify address of next
          52529    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          52530    124     20       2   0  3              0                ABS LOCN Q1-4                           modify address of next
          52531    114              0   0  0              0                PACK NEXT ENTRY->SEC 18                 replace selected bits
    52522>52532    0       61     117   0  0              0                                                        SELECT
          52533    12               0   0  0              3                                                        SUBTRACT LITERAL
          52534    3       61     117   0  0              0                REDUCE NO OF SC'S IN TRANSIT            COPY
          52535    71      525     38   0  0              0        525     >LIST NOT EMPTY                         JUMP IF A != 0
          52536    5       20       0   0  0              0                                                        TRANSFER
          52537    76      525     41   0  0              0        525     >TEST IF LAST SC WAS WRONG              JUMP unconditional
    52535>52538    124     20       3   0  2              0                                                        select literal and division
          52539    1       61     116   1  0              0                LENGTH IN 61/117                        ADD
          52540    128     20       0   0  0              0                UP 3 LOCNS                              bulk copy short numeric
    52537>52541            61      20   1  0              0                                                        SELECT
  Source image: P1000403.JPG
          52542    71      522     34   0  0              0        522     >WAS A WRONG ENTRY POINT                JUMP IF A != 0
    52405>52543            61     117   0  0              0                CTR OF SECN 20 LENGTH                   SELECT
          52544    70      525     57   0  0              0        525     >PRINT LINE                             JUMP IF A == 0
          52545            66       2   0  0              0                                                        SELECT
          52546    2       20       0   0  0              0                NEXT SCFWD                              SUBTRACT
          52547    70      525     55   0  0              0        525     >PRINT ENTRY POINT                      JUMP IF A == 0
          52548    73      525     57   0  0              0        525     >PRINT LINE                             JUMP IF A < 0
          52549            61       0   0  0              0                LIST                                    SELECT
          52550    70      525     52   0  0              0        525                                             JUMP IF A == 0
          52551    80      529      2   0  0              0        529     PRINT ENTRY POINT                       ENTER SUBROUTINE
    52550>52552            542     28   1  0              0        542     ?????                                   SELECT
          52553    5       61      20   1  0              0                                                        TRANSFER
          52554    76      525     11   0  0              0        525                                             JUMP unconditional
    52547>52555    80      529      2   0  0              0        529                                             ENTER SUBROUTINE
          52556    76      525     11   0  0              0        525     >MOVE LIST UP,TRY AGAIN                 JUMP unconditional
    52548>                                                                                                         
    52544>52557    52      7        2   0  0              0                EDIT ENTRY POINT                        EDIT
          52558    C       551      8   0  0              0        551                                             
                                                                                                                   
          52600    PROCR   526       526     I/P C LINE S/R                                                        
          52601     NOTES          RADIX     B                                                                     SELECT
    52508>                                                                                                         
    52505>                                                                                                         
    52503>                                                                                                         
    52222>52602    10               0   0  0              0                                                        SELECT LITERAL
          52603    34      66       6   1  0              0                                                        SET (N) IN B
          52604    80      533      2   0  0              0        533     RT ALIGN S/R                            ENTER SUBROUTINE
          52605    5       66       6   1  0              0                                                        TRANSFER
          52606    5       66      16   0  0              0                CLEAR INDICATOR                         TRANSFER
          52607    35               0   0  0              1                QUARTET ONE.                            PREPARE FOR DIGIT COLLATION
          52608    36      66       8   1  0              0                ITEM                                    COLLATE AND ADD
          52609    12               0   0  0              +                                                        SUBTRACT LITERAL
          52610    71      527      2   0  0              0        527     >NOT 'ITEM+'                            JUMP IF A != 0
          52611    10               0   0  0              1                                                        SELECT LITERAL
          52612    5       66      16   0  0              0                                    IF IT IS SET        TRANSFER
          52613            66       8   1  0              0                                    INDICATOR           SELECT
          52614    30               0   0  0              1-                                   AND REMOVE +        SHIFT (A) BY QUARTETS
          52615    72      526     17   0  0              0        526                                             JUMP IF A >= 0
          52616    11               0   0  0              1                TO MAKE COMPLEMENT CORRECT              ADD LITERAL
    52615>52617    5       66       8   1  0              0                                                        TRANSFER
                                                                                                                   
          52700    PROCR   527       527     I/P C-LINE S/R                                                        
          52701     NOTES          RADIX     B                                                                     SELECT
    52610>52702            77      38   1  0              0                IGNORE'IND                              SELECT
          52703    2       542     28   1  0              0        542                                             SUBTRACT
          52704    3       61      98   1  0              0                                                        COPY
          52705    70      527     31   0  0              0        527                                             JUMP IF A == 0
          52706            77      24   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          52707    12               0   0  0     7369515355                TRACE'                                  SUBTRACT LITERAL
          52708    71      527     31   0  0              0        527     >NO                                     JUMP IF A != 0
          52709            66       4   1  0              0                                                        SELECT
          52710    2       542     26   1  0              0        542                                             SUBTRACT
          52711    70      528     49   0  0              0        528     >A C-LINE                               JUMP IF A == 0
          52712            66       5   0  0              0                                                        SELECT
          52713    12               0   0  0          48300                                                        SUBTRACT LITERAL
          52714    70      528     49   0  0              0        528     >80 ACTION                              JUMP IF A == 0
          52715    12               0   0  0            150                                                        SUBTRACT LITERAL
          52716    70      528     49   0  0              0        528     >85                                     JUMP IF A == 0
          52717    12               0   0  0            ££0                                                        SUBTRACT LITERAL
          52718    70      528     49   0  0              0        528     >94                                     JUMP IF A == 0
  Source image: P1000404.JPG
          52719    12               0   0  0             30                                                        SUBTRACT LITERAL
          52720    70      528     49   0  0              0        528     >97                                     JUMP IF A == 0
          52721    0       25       0   0  0              0                                                        SELECT
          52722    101             40   1  2              0                                                        subtract literal address
          52723    72      528     49   0  0              0        528     >LIST FULL                              JUMP IF A >= 0
          52724            61      43   0  0              0                SPACESTR                                SELECT
          52725    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          52726    1       66       2   0  0              0                LINE SERIAL                             ADD
          52727    124     25       0   0  1              0                                                        modify address of next
          52728    5       25       2   1  0              0                                                        TRANSFER
          52729    10               0   0  0              2                                                        SELECT LITERAL
          52730    4       25       0   0  0              0                                                        AUGMENT
    52853>                                                                                                         
    52708>                                                                                                         
    52705>52731    80      511      2   0  0              0        511     PRINT                                   ENTER SUBROUTINE
          52732            66       6   2  0              0                DEC REF                                 SELECT
          52733    12               0   0  0            100                                                        SUBTRACT LITERAL
          52734    73      527     41   0  0              0        527     >SECTION                                JUMP IF A < 0
          52735    12               0   0  0            899                                                        SUBTRACT LITERAL
          52736    72      527     41   0  0              0        527     >999 OR 1000+                           JUMP IF A >= 0
          52737    60               0   0  0              0                                                        SET DECIMAL RADIX
          52738    10               0   0  0              2-                                                       SELECT LITERAL
          52739    4       66       8   1  0              0                REDUCE ITEM                             AUGMENT
          52740    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    52736>                                                                                                         
    52734>52741            66       4   1  0              0                                                        SELECT
          52742    2       542     26   1  0              0        542     C. . . . .                              SUBTRACT
          52743    70      528      6   0  0              0        528                                             JUMP IF A == 0
          52744    34      66       4   1  0              0                                                        SET (N) IN B
          52745    80      533      2   0  0              0        533     RT ALIGN S/R                            ENTER SUBROUTINE
          52746    5       66       4   1  0              0                                                        TRANSFER
          52747            66       4   2  0              0                ACTION                                  SELECT
          52748    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          52749    5       61     110   0  0              0                GROUP                                   TRANSFER
          52750    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          52751    11               0   0  0              1                                                        ADD LITERAL
          52752    5       61      50   0  0              0                VARIANT +1                              TRANSFER
                                                                                                                   
          52800    PROCR   528       528                                                                           
          52801     NOTES          RADIX     B                                                                     SELECT
          52802    0       61     110   0  0              0                                                        SELECT
          52803    80      537      2   0  0              0        537     CONVERT                                 ENTER SUBROUTINE
          52804    11               0   0  0              1                                                        ADD LITERAL
          52805    5       61     110   0  0              0                GROUP+1                                 TRANSFER
    52743>52806            61      98   1  0              0                W/L                                     SELECT
          52807    71      528     10   0  0              0        528                                             JUMP IF A != 0
          52808    5       61     110   0  0              0                CLEAR GROUP WHEN 'IGNORE' IND SET       TRANSFER
          52809    76      362      2   0  0              0        362     >GNB                                    JUMP unconditional
    52807>52810    124     543     22   0  2              0        543                                             select literal and division
          52811    112     66       8   1  0              0                                                        convert
          52812    5       66       8   1  0              0                ITEM TO BIN                             TRANSFER
          52813    124     543     22   0  2              0        543                                             select literal and division
          52814    112     66      12   1  0              0                                                        convert
          52815    5       66      12   1  0              0                MOD DIGITS TO BIN                       TRANSFER
          52816    0       61     110   0  0              0                                                        SELECT
          52817    12               0   0  0              2                                                        SUBTRACT LITERAL
          52818    70      528     44   0  0              0        528     >GROUP 1                                JUMP IF A == 0
          52819    12               0   0  0              3                                                        SUBTRACT LITERAL
          52820    70      528     47   0  0              0        528     >GROUP 4                                JUMP IF A == 0
          52821    12               0   0  0              2                                                        SUBTRACT LITERAL
  Source image: P1000405.JPG
          52822    70      528     44   0  0              0        528     >GROUP 6                                JUMP IF A == 0
          52823    12               0   0  0              1                                                        SUBTRACT LITERAL
          52824    70      528     44   0  0              0        528     >GROUP 7                                JUMP IF A == 0
          52825    12               0   0  0              3                                                        SUBTRACT LITERAL
          52826    73      528     41   0  0              0        528     >GROUPS,0,2,3,5,8,9                     JUMP IF A < 0
          52827    12               0   0  0              3                                                        SUBTRACT LITERAL
          52828    73      528     44   0  0              0        528     >GROUPS 10-12                           JUMP IF A < 0
          52829    70      528     36   0  0              0        528     >GROUP13                                JUMP IF A == 0
          52830    12               0   0  0              1                                                        SUBTRACT LITERAL
          52831    70      528     44   0  0              0        528     >GROUP 14                               JUMP IF A == 0
          52832            61      50   0  0              0                VARIANT+1                               SELECT
          52833    12               0   0  0              7                                                        SUBTRACT LITERAL
          52834    70      528     47   0  0              0        528     >156,DON'T CONVERT REFF                 JUMP IF A == 0
          52835    76      528     44   0  0              0        528                                             JUMP unconditional
    52829>52836            61      50   0  0              0                                                        SELECT
          52837    12               0   0  0              3                                                        SUBTRACT LITERAL
          52838    73      528     44   0  0              0        528     >ACTION 130 OR 131                      JUMP IF A < 0
          52839    10               0   0  0              0                                                        SELECT LITERAL
          52840    76      528     47   0  0              0        528     >ACTION 132-134, DON'T CONVERT REF      JUMP unconditional
    52826>52841    124     543     22   0  2              0        543                                             select literal and division
          52842    112     66      14   1  0              0                                                        convert
          52843    5       66      14   1  0              0                LITERAL TO BIN                          TRANSFER
    52838>                                                                                                         
    52835>                                                                                                         
    52831>                                                                                                         
    52828>                                                                                                         
    52824>                                                                                                         
    52822>                                                                                                         
    52818>52844    124     543     22   0  2              0        543                                             select literal and division
          52845    112     66       7   1  0              0                                                        convert
          52846    5       66       6   1  0              0                                                        TRANSFER
    52840>                                                                                                         
    52834>                                                                                                         
    52820>52847    5       61      99   0  0              0                                                        TRANSFER
          52848    82      522      2   0  0              0        522                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    52723>                                                                                                         
    52720>                                                                                                         
    52718>                                                                                                         
    52716>                                                                                                         
    52714>                                                                                                         
    52711>52849    10               0   0  0             65                N'  REPORT 'TRACE'                      SELECT LITERAL
          52850    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          52851    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          52852    37      7       49   0  0              0                                                        REPLACE SELECTED BITS
          52853    76      527     31   0  0              0        527                                             JUMP unconditional
                                                                                                                   
          52900    PROCR   529       529     PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE                         
          52901     NOTES          RADIX     B                                                                     SELECT
          52902    81      529      2   0  0              0        529                                             START OF SUBROUTINE
          52903    0       61      20   1  0              0                                                        SELECT
          52904    71      529      7   0  0              0        529     >PRINT REPORTED SC                      JUMP IF A != 0
          52905    0       23      46   1  0              0                 'PRINT UNCONDITIONALLY' INDS           SELECT
          52906    70      529     12   0  0              0        529     >DON'T PRINT SEPARATE SC                JUMP IF A == 0
    52904>52907    52      5        2   0  0              0                                                        EDIT
          52908    C       551      2   0  0              0        551                                             
          52909    0       61      20   1  0              0                 '?????'OR ZERO                         SELECT
          52910    5       5       46   1  0              0                                                        TRANSFER
          52911    80      530      2   0  0              0        530                                             ENTER SUBROUTINE
    52906>52912    10               0   0  0              0                                                        SELECT LITERAL
          52913    5       61       0   0  0              0                CLEAR LIST                              TRANSFER
  Source image: P1000406.JPG
          52914    82      529      2   0  0              0        529                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53000    PROCR   530       530     SECOND PRINT S/R                                                      
          53001     NOTES          RADIX     B                                                                     SELECT
          53002    81      530      2   0  0              0        530                                             START OF SUBROUTINE
          53003    0       544      2   1  0              0        544     BEW                                     SELECT
          53004    5       5       50   1  0              0                                                        TRANSFER
          53005    0       999     14   1  0              0                SEC 5 PARAS                             SELECT
          53006    5       999     16   1  0              0                CORRUPT SEC 7 PARAS                     TRANSFER
          53007    80      511      2   0  0              0        511     >PRINT SR(WHICH WILL USE SEC 5)         ENTER SUBROUTINE
          53008    0       999     30   1  0              0                                                        SELECT
          53009    5       999     16   1  0              0                RESTORE SEC 7 PARAS EX WL               TRANSFER
          53010    54      5        2   1  0             48                                                        BULK CLEAR
          53011    82      530      2   0  0              0        530                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53100    PROCR   531       531     NEG NO S/R                                                            
          53101     NOTES          RADIX     B                                                                     SELECT
          53102    81      531      2   0  0              0        531                                             START OF SUBROUTINE
          53103    10               0   0  0              0                                                        SELECT LITERAL
          53104    2       66       8   1  0              0                ITEM                                    SUBTRACT
          53105    70      531     17   0  0              0        531     DO NOT SET INDICATOR FOR ZERO ITEM      JUMP IF A == 0
          53106    73      531     17   0  0              0        531                                             JUMP IF A < 0
          53107    5       66       8   1  0              0                                                        TRANSFER
          53108    10               0   0  0             80                B8                                      SELECT LITERAL
          53109    4       61      34   0  0              0                PARA W/L                                AUGMENT
          53110            66      10   1  0              0                                                        SELECT
          53111    12               0   0  0              2                                                        SUBTRACT LITERAL
          53112    71      531     17   0  0              0        531                                             JUMP IF A != 0
          53113    12               0   0  0              1                                                        SUBTRACT LITERAL
          53114    4       66       8   1  0              0                                                        AUGMENT
          53115    10               0   0  0              1                                                        SELECT LITERAL
          53116    5       66      10   1  0              0                                                        TRANSFER
    53112>                                                                                                         
    53106>                                                                                                         
    53105>53117    82      531      2   0  0              0        531                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53200    PROCR   532       532     STACK S/R                                                             
          53201     NOTES          RADIX     B                                                                     SELECT
          53202    81      532      2   0  0              0        532                                             START OF SUBROUTINE
          53203    0       61       0   0  0              0                ACTION                                  SELECT
          53204    5       67       3   0  0              0                                                        TRANSFER
          53205            66       6   1  0              0                REF                                     SELECT
          53206    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          53207    1       61      34   0  0              0                PARAM                                   ADD
          53208    5       67       2   0  0              0                                                        TRANSFER
          53209            66      10   1  0              0                                                        SELECT
          53210    70      532     16   0  0              0        532     >DISC 0                                 JUMP IF A == 0
          53211    12               0   0  0              2                                                        SUBTRACT LITERAL
          53212    71      532     15   0  0              0        532     >NOT DISC 2                             JUMP IF A != 0
          53213    10               0   0  0              1                STEP ITEM                               SELECT LITERAL
          53214    4       66       8   1  0              0                                                        AUGMENT
    53212>53215            545     29   0  0              0        545     B16                                     SELECT
    53210>53216    124     66      12   0  1              0                MOD DIGITS                              modify address of next
          53217    1       545     25   0  0              0        545     BITS IN B14 POSITION                    ADD
          53218    1       66       8   0  0              0                ITEM                                    ADD
          53219    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          53220    36      67       3   0  0              0                                                        COLLATE AND ADD
          53221    37      67       3   0  0              0                PACK WITH ACTION                        REPLACE SELECTED BITS
          53222    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          53223    82      532      2   0  0              0        532                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000407.JPG
          53300    PROCR   533       533     RT ALIGN S/R                                                          
          53301     NOTES          RADIX     B                                                                     SELECT
          53302    81      533      2   0  0              0        533                                             START OF SUBROUTINE
          53303    10               0   0  0              0                                                        SELECT LITERAL
          53304    5       61      18   1  0              0                                                        TRANSFER
    53308>53305    0       61      18   1  0              0                                                        SELECT
          53306    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          53307    5       61      18   1  0              0                                                        TRANSFER
          53308    75      533      5   0  0              0        533                                             JUMP IF AB != 0
          53309    0       61      18   1  0              0                                                        SELECT
          53310    82      533      2   0  0              0        533                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53400    PROCR   534       534     SUSPEND S/R                                                           
          53401     NOTES          RADIX     B                                                                     SELECT
          53402    81      534      2   0  0              0        534                                             START OF SUBROUTINE
          53403    55      66       6   1  0              8                                                        BULK COPY
          53404    C       61      26   1  0              0                                                        
          53405            66      16   0  0              0                ITEM + IND                              SELECT
          53406    5       66      17   0  0              0                ITEM + IND (STORE)                      TRANSFER
          53407    82      534      2   0  0              0        534                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53500    PROCR   535       535     REPLACE S/R                                                           
          53501     NOTES          RADIX     B                                                                     SELECT
          53502    81      535      2   0  0              0        535                                             START OF SUBROUTINE
          53503    55      61      26   1  0              8                                                        BULK COPY
          53504    C       66       6   1  0              0                                                        
          53505            66      17   0  0              0                ITEM + IND (STORE)                      SELECT
          53506    5       66      16   0  0              0                ITEM + IND                              TRANSFER
          53507    82      535      2   0  0              0        535                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53600    PROCR   536       536     OP INST S/R                                                           
          53601     NOTES          RADIX     B                                                                     SELECT
          53602    81      536      2   0  0              0        536                                             START OF SUBROUTINE
          53603            66      12   1  0              0                MOD DIGITS                              SELECT
          53604    5       61       2   0  0              0                                                        TRANSFER
          53605    80      489      2   0  0              0        489     >MOD AND PARAMETER                      ENTER SUBROUTINE
          53606            61       2   0  0              0                                                        SELECT
          53607    5       66      12   1  0              0                                                        TRANSFER
          53608    0       66       8   1  0              0                                                        SELECT
          53609    72      536     11   0  0              0        536     >NOT NEGATIVE ITEM                      JUMP IF A >= 0
          53610    80      531      2   0  0              0        531     NEG NO                                  ENTER SUBROUTINE
    53609>53611    80      532      2   0  0              0        532     STACK                                   ENTER SUBROUTINE
          53612    80      518      2   0  0              0        518     OP                                      ENTER SUBROUTINE
          53613    82      536      2   0  0              0        536                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53700    PROCR   537       537     CONVERT (A) TO BINARY                                                 
          53701     NOTES          RADIX     B                                                                     SELECT
          53702    81      537      2   0  0              0        537                                             START OF SUBROUTINE
          53703    5       543     42   1  0              0        543                                             TRANSFER
          53704    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          53705    124     543     22   0  2              0        543                                             select literal and division
          53706    112     543     42   1  0              0        543                                             convert
          53707    82      537      2   0  0              0        537                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53800    PROCR   538       538     CONVERT (A) TO DECIMAL                                                
          53801     NOTES  538                                                                                     SELECT
          53802    81      538      2   0  0              0        538                                             START OF SUBROUTINE
          53803    5       543     42   1  0              0        543                                             TRANSFER
          53804    60               0   0  0              0                                                        SET DECIMAL RADIX
  Source image: P1000408.JPG
          53805    124     543      2   0  2              0        543                                             select literal and division
          53806    112     543     42   1  0              0        543                                             convert
          53807    82      538      2   0  0              0        538                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          53900    PROCR   539       539     A2>B                                                                  
          53902    81      539      2   0  0              0        539                                             START OF SUBROUTINE
          53903    42      A2       0   0  0              0                                                        INPUT
          53904    C       8        0   0  0              0                                                        
          53905    59      8        6   0 12              0                                                        SET MODIFICATION REGISTER FOR MERGE
          53906    C       8        4   2  0              0                                                        
          53907    82      539      2   0  0              0        539                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54000    PROCR   540       540     O/P>A9                                                                
          54002    81      540      2   0  0              0        540                                             START OF SUBROUTINE
          54003    94      540      9   0  6             50        540     FORM UP MULTIRECORD BLOCK               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          54004            544      2   1  0              0        544     BEW                                     SELECT
          54005    5       10     306   1  0              0                                                        TRANSFER
          54006    80      541      2   0  0              0        541                                             ENTER SUBROUTINE
          54007    90               0   0  6              0                SET UP MOD                              SET MODIFICATION REGISTER AT LITERAL
          54008    C                0   0  0            300                                                        
    54003>54009    82      540      2   0  0              0        540                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54100    PROCR   541       541     WRITE A9                                                              
          54102    81      541      2   0  0              0        541                                             START OF SUBROUTINE
          54103    10               0   0  0         800000                                                        SELECT LITERAL
          54104    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          54105    125           4096   1  1              0                                                        clear indicators
          54106    1       999      7   0  0              0                D1/A9                                   ADD
          54107    124     999      0   0  3              0                                                        modify address of next
          54108    123            160   0  2              0                                                        enter master routine
          54109    82      541      2   0  0              0        541                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          54200    CONST   542       542     1    ALPHA CONSTANTS                                                  
          54202          (A)VALUE;                                                                                 
          54204          TABLE;                                                                                    
          54206          CONST;                                                                                    
          54208          PROCR;                                                                                    
          54210          (A)NOTES;                                                                                 
          54212          END  ;                                            END                                     
          54214          DUMPS;                                                                                    
          54216          FILES;                                                                                    
          54218          TYPE ;                                                                                    
          54220          FIEND;                                                                                    
          54222          >    ;                                            (R >½Ю       - CK)                      
          54224          TYPE.;                                                                                    
          54226          C    ;                                                                                    
          54228          ?????;                                                                                    
          54230          TYPE£;                                                                                    
          54232          (B)1;                                             CONVERT LITERALS OF 35 ACTION           
          54234          2;                                                                                        
          54236          4;                                                                                        
          54238          8;                                                                                        
          54240          16;                                                                                       
          54242          32;                                                                                       
          54244          64;                                                                                       
          54246          128;                                                                                      
          54248          256;                                                                                      
          54250          512;                                                                                      
                                                                                                                   
          54300    CONST   543       543     1    CONVERT TABLES                                                   
  Source image: P1000409.JPG
          54302          (D)1;                                                                                     
          54304          16;                                                                                       
          54306          256;                                                                                      
          54308          4096;                                                                                     
          54310          65536;                                                                                    
          54312          1048576;                                                                                  
          54314          16777216;                                                                                 
          54316          268435456;                                                                                
          54318          4294967296;                                                                               
          54320          ££££££££££;                                                                               
          54322          1;                                                DEC->BIN                                
          54324          Ю;                                                                                        
          54326          64;                                                                                       
          54328          3.8;                                                                                      
          54330          2710;                                                                                     
          54332          186Ю0;                                                                                    
          54334          £4240;                                                                                    
          54336          989680;                                                                                   
          54338          5£5.100;                                                                                  
          54340          3‼9Ю+Ю00;                                                                                 
          54342          0;                                                (A)WL                                   
          54344          0;                                                CLEO'PARA WORD                          
                                                                                                                   
          54400    CONST   544       544     0    DECIMAL CONSTANTS                                                
          54402          (D)7.;                                            B.E.                                    
          54403          7.000;                                            WORD                                    
          54404          0;                                                0:48 MR SETTING                         
          54405          90;                                               MR NOW 0:144                            
          54406          1;                                                FUNCTIONS WORDS                         
          54407          45;                                               TYPES IN ALPHA                          
          54408          45;                                                                                       
          54409          44;                                                                                       
          54410          4;                                                                                        
          54411          4;                                                                                        
          54412          2;                                                                                        
          54413          (R)62:0;                                          LONG NO SECT                            
          54414          63:0;                                             SHORT NO SECT                           
          54415          62:0;                                             T.DS.L. SECT                            
          54416          18:2499;                                          FOR SEQUENCE CHANGES                    
          54417          18:0;                                                                                     
          54418          (B)180;                                           FOR TSL STORAGE                         
          54419          180;                                                                                      
          54420          (D)3;                                                                                     
          54421          7£££0;                                            B5-19                                   
          54422          1£££;                                             B1-13                                   
          54423          66666;                                            DEC RADIX                               
          54424          66.64;                                            ST RADIX                                
          54425          66666;                                            DEC RADIX                               
          54426          3££;                                              BITS 1-10                               
          54427          01000;                                            BIT 13                                  
          54428          3£;                                               BITS 1-6                                
                                                                                                                   
          54500    CONST   545       545     0    INSTRUCTIONS                                                     
          54502          (R)92:9;                                                                                  
          54503          (D)Ю8006;                                         10/1/0 6                                
          54504          +8006;                                            12/1/0 6                                
          54505          7;                                                                                        
          54506          £££££;                                            THIS ISN'T A DUMMY                      
          54507          £££££;                                                                                    
          54508          (D)60000;                                         6                                       
  Source image: P1000410.JPG
          54509          40000;                                            4 B19                                   
          54510          50000;                                            5                                       
          54511          30000;                                            3                                       
          54512          70000;                                            7                                       
          54513          20000;                                            2   B18                                 
          54514          90000;                                            9                                       
          54515          Ю0000;                                            10                                      
          54516          ‼0000;                                            11                                      
          54517          :0000;                                            13                                      
          54518          2Ю001-;                                           18/1/1/0/1                              
          54519          8+000-;                                           24/1/2                                  
          54520          80000-;                                           24/0/0                                  
          54521          0Ю000;                                            0/1/1                                   
          54522          1.000;                                            1/1/3                                   
          54523          1Ю000;                                            1/1/1                                   
          54524          1+000;                                            1/1/2                                   
          54525          0;                                                0/0/0                                   
          54526          02000;                                            0/0/1 B14                               
          54527          04000;                                            0/0/2 B15                               
          54528          06000;                                            0/0/3 B14-15                            
          54529          08000;                                            0/1/0 B16                               
          54530          28000;                                            2/1/0                                   
          54531          38000;                                            3/1/0                                   
          54532          22000-;                                           18/0/1                                  
          54533          26000-;                                           18/0/3                                  
          54534          2Ю000-;                                           18/1/1                                  
          54535          2.000-;                                           18/1/3                                  
          54536          12000;                                            1/0/1                                   
          54537          £0000;                                            15                                      
          54538          .0000;                                            14                                      
          54539          14000;                                            1/0/2                                   
          54540          ‼0000-;                                           27/0/0                                  
          54541          ‼2000-;                                           27/0/1                                  
          54542          ‼4000-;                                           27/0/2                                  
          54543          ‼6000-;                                           27/0/3                                  
          54544          ‼8000-;                                           27/1/0                                  
          54545          ‼Ю000-;                                           27/1/1                                  
          54546          88000-;                                           24/1/0                                  
          54547          Ю0000-;                                           26/0/0                                  
          54548          Ю2000-;                                           26/0/1                                  
          54549          10000;                                            1/0/0 B17                               
          54550          2Ю00Ю-;                                           18/1/1/0/10                             
          54551          80000;                                            8/0/0 B20                               
          54552          88000;                                            8/1/0                                   
          54553          1.001;                                            1/1/3/0/1                               
          54554          48000;                                            4/1/0                                   
          54555          2Ю005-;                                           18/1/1/0/5                              
          54556          Ю8000-;                                           26/1/0                                  
          54557          68000;                                            6/1/0                                   
          54558          +0000;                                            12                                      
          54559          90000-;                                           25/0/0                                  
          54560          74000-;                                           23/0/2                                  
          54561          70000-;                                           23/0/0                                  
          54562          2‼016-;                                           18/1/1/0/10 (18/1/1/4096+22)            
          54563          Ю4000-;                                           26/0/2                                  
          54564          2‼017-;                                           18/1/1/0/9- (18/1/1/4096+23)            
          54565          +0000-;                                           28/0/0                                  
          54566          84000-;                                           24/0/2                                  
          54567          :2000-;                                           29/0/1                                  
          54568          +4000-;                                           28/0/2                                  
  Source image: P1000411.JPG
          54569          +6000-;                                                                                   
          54570          ++000-;                                                                                   
          54571          +.000-;                                                                                   
          54572          2‼01‼-;                                                                                   
          54573          9‼000-;                                                                                   
          54574          (R)18:2496;                                                                               
          54575          (D)1;                                                                                     
          54576          £0000-;                                                                                   
          54577          £8000-;                                                                                   
          54578          .8000-;                                                                                   
          54579          .0008-;                                                                                   
          54580          .0000-;                                                                                   
          54581          £0008-;                                                                                   
          54582          40000-;                                                                                   
          54583          48000-;                                                                                   
          54584          58000-;                                                                                   
          54585          40008-;                                                                                   
          54586          50000-;                                                                                   
          54587          60000-;                                                                                   
          54588          .0004-;                                                                                   
          54589          £8004-;                                                                                   
          54590          68000-;                                                                                   
          54591          407+;                                                                                     
          54592          400;                                                                                      
          54593          6808Ю;                                                                                    
          54594          500;                                                                                      
          54595          0409+;                                                                                    
          54596          200;                                                                                      
          54597          300;                                                                                      
          54598          Ю6000-;                                                                                   
          54599          ;                                                                                         
                                                                                                                   
          54600    CONST   546       546     0                                                                     
          54602          (D)86000-;                                                                                
          54603          82000-;                                                                                   
          54604          28006;                                                                                    
          54605          38006;                                                                                    
          54606          ‼8002-;                                                                                   
          54607          1Ю002;                                                                                    
          54608          22005-;                                                                                   
          54609          06004;                                                                                    
          54610          20001;                                                                                    
          54611          88001-;                                                                                   
          54612          ‼4002-;                                                                                   
          54613          88007-;                                                                                   
          54614          Ю5££‼-;                                                                                   
          54615          Ю1££Ю-;                                                                                   
          54616          20006;                                                                                    
          54617          86006-;                                                                                   
          54618          74002-;                                                                                   
          54619          0;                                                                                        
          54620          0;                                                                                        
          54621          8+006-;                                                                                   
          54622          1Ю00Ю;                                                                                    
          54623          30002;                                                                                    
          54624          1Ю014;                                                                                    
          54625          04002;                                                                                    
          54626          88005-;                                                                                   
          54627          :6000-;                                                                                   
          54628          8000-;                                                                                    
  Source image: P1000412.JPG
          54629          +Ю000-;                                                                                   
          54630          1.001;                                            1/1/3 1                                 
                                                                                                                   
          54700    TABLE   547       547     1    TRIAL DATA HEADING BLOCK 'FILES'                                 
          54701     NOTES                                                                                          
                                                                                                                   
          54800    TABLE   548       548     1    INSTRUCTIONS                                                     
          54801     NOTES                                                                                          
          54802    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          54804    66     2     0     0  1  0   5   5   5   0  0  0  0     S. NO                                   
          54806    66     4     0     0  2  0   5   0   4   0  0  0  0     ACTION                                  
          54808    66     6     0     0  2  0   5   0   3   0  0  0  0     REF                                     
          54810    66     8     0     0  1  0   5   5   0   4  2  0  0     ITEM                                    
          54812    66    10     0     0  1  0   2   8   1   1  0  0  0     DISC                                    
          54814    66    12     0     0  1  0   3   7   0   2  0  0  0     MOD                                     
          54816    66    14     0     0  1  0  10   0   5   9  2  0  0     LITERAL                                 
          54818   543    44     0     0  2  0   5   0   0   0  0  0  1     CLEO' PARA WORD                         
                                                                                                                   
          54900    TABLE   549       549     1    TABLES                                                           
          54901     NOTES                                                                                          
          54902    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          54904    66     2     0     0  0  0   5   0   5   0  0  0  0     S NO                                    
          54906    66    16     0     0  0  0   5   0   1   4  0  0  0     FIRST REF                               
          54908    66    17     0     0  0  0   5   0   1   4  0  0  0     FIRST ITEM                              
          54910    66    18     0     0  0  0   5   0   1   4  0  0  0     SECOND REF                              
          54912    66    19     0     0  0  0   5   0   1   4  0  0  0     SECOND ITEM                             
          54914    66     3     0     0  0  0   2   3   1   1  0  0  0     S/L/ALPHA                               
          54916    66     4     0     0  0  0   3   2   0   2  0  0  0     SINGLE/BE                               
          54918    66     5     0     0  0  0   2   3   2   1  0  0  0     NO OF CHARS                             
          54920    66    10     0     0  0  0   3   2   1   2  0  0  0     DISC                                    
          54922    66    11     0     0  0  0   2   3   2   1  0  0  0     SPACES                                  
          54924    66    12     0     0  0  0   3   2   1   2  0  0  0     ZEROS                                   
          54926    66    13     0     0  0  0   1   4   2   0  0  0  0     SIGN                                    
          54928    66    14     0     0  0  0   2   3   1   1  0  0  0     STERLING                                
          54930    66    15     0     0  0  0   2   3   1   1  0  0  1     LTE                                     
                                                                                                                   
          55000    TABLE   550       550     1    VALUE                                                            
          55001     NOTES                                                                                          
          55002    67     3     0     0  0  0   5   0   1   4  1  0  0     VALUE                                   
          55004    67     2     0     0  0  0   4   1   0   3  0  0  1     PARA                                    
                                                                                                                   
          55100    TABLE   551       551     1    ENTRY PT ADJUSTMENT PM POINTS                                    
          55101     NOTES                                                                                          
          55102    61    20     0     0  2  0   3   2   0   0  0  0  0     ??? OR ZERO                             
          55104    61     0     0     0  0  0   5   0   1   0  0  0  0     ENTRY POINT                             
          55106   542    22     0     0  2  0   1   0   0   0  0  0  1     '+'                                     
          55108    66     0     0     0  2  0   3   0   0   0  0  0  0     AMEND IND                               
          55110    61     0     0     0  0  0   5   0   1   0  0  0  0     ENTRY PT                                
          55112   542    22     0     0  2  0   1   0   0   0  0  0  1     >                                       
                                                                                                                   
          55200    CONST   552       552     1    DUMMY FOR INSERTING M/C MODS                                     
                                                                                                                   
          55300    PROCR   553       553     START OF PASS 3                                                       
          55301     NOTES          RADIX          PREP STAGE                                                       SELECT
    56720>55302    152     152      4   0  0              0        152                                             OVERLAY
          55303    C       680      2   0  0              0        680                                             
          55304    55      9        0   1  0            100                                                        BULK COPY
          55305    C       15       0   1  0              0                                                        
          55306    55      91       0   0  0             36                                                        BULK COPY
          55307    C       24       0   0  0              0                                                        
  Source image: P1000413.JPG
          55308            27       4   0  0              0                COMPILER?                               SELECT
          55309    70      553     13   0  0              0        553     >NO                                     JUMP IF A == 0
          55310    46      A6      10   0  0              0                REALIGN TO 'INDEX'                      RUN BACK
          55311    C                0   0  0              4                                                        
          55312    76      553     14   0  0              0        553                                             JUMP unconditional
    55309>55313    40      A6       0   0  0              1                INPUT EX PASS 2                         OPEN FILE
    55312>55314    54      16       0   0  0             40                                                        BULK CLEAR
          55315    54      5        0   0  0             50                CLEAR PRINTER ANNEX                     BULK CLEAR
          55316    10               0   0  0              0                CLEAR DETAILS                           SELECT LITERAL
          55317    5       94       0   0  0              0                OF SECTION 0                            TRANSFER
          55318    55      72       3   0  0             14                                                        BULK COPY
          55319    C       16       5   0  0              0                                                        
          55320    54      72       3   0  0             14                                                        BULK CLEAR
          55321    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55322    C                0   0  0              0                /////                                   
          55323            92       0   0  0              0                CHAPTERS CODED +1                       SELECT
          55324    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          55325    11               0   0  0              1                                                        ADD LITERAL
          55326    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    55411>55327    10               0   0  0              0                                                        SELECT LITERAL
          55328    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          55329    36      92       9   0  1              0                                                        COLLATE AND ADD
          55330    5       16       2   0  0              0                CORRECTED CHAP                          TRANSFER
          55331    96               0   0  1              0                                                        SELECT MODIFIER
          55332    5       16       1   0  0              0                UNCORR CHAP                             TRANSFER
          55333    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          55334    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          55335    36      92       9   0  1              0                UNIQUENESS IND Q2                       COLLATE AND ADD
          55336    32               0   0  0              2-               (CLEAR A)                               SHIFT (AB) BY QUARTETS
          55337    75      553     40   0  0              0        553     >CHAP NOT UNIQUE                        JUMP IF AB != 0
          55338    124     16       2   0  1              0                CORR CHAP                               modify address of next
          55339            16       4   0  0              0                SW SEC LENGTH                           SELECT
    55337>55340    1       72      18   0  3              0                CHAP LENGTH (CODING ONLY)               ADD
          55341    5       16       3   0  0              0                START OF FIRST SEC IN UNCORR CHAP       TRANSFER
          55342    5       16       4   0  0              0                CLEAR FOR TOT LENGTHS ALL SECS IN CHAP  TRANSFER
                                                                                                                   
          55400    PROCR   554       554     UPDATE SEC INDEX, SWITCH PROCR STARTS                                 
          55401     NOTES  554                                                                                     SELECT
          55402    80      555      2   0  0              0        555     >DEAL WITH SECTIONS, ANNEXES            ENTER SUBROUTINE
          55403            16       3   0  0              0                UNCORR CHAP LENGTH                      SELECT
          55404    1       16       4   0  0              0                                                        ADD
          55405    124     16       2   0  1              0                CORR CHAP                               modify address of next
          55406    2       72       2   0  0              0                                                        SUBTRACT
          55407    73      554     10   0  0              0        554                                             JUMP IF A < 0
          55408    124     16       2   0  1              0                                                        modify address of next
          55409    4       72       2   0  0              0                FORM MAX CORR CHAP LENGTH               AUGMENT
    55407>55410    94      554     11   0  3              1        554                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    55410>55411    94      553     27   0  1              1        553     >NEXT UNCORR CHAP                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55412    91      92      28   0  1              0                COUNT CORR CHAPS                        SET MODIFICATION REGISTER AT VARIABLE
          55413    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55414    C                0   0  0              0                /////                                   
    55424>55415    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          55416    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          55417    36      92      10   0  1              0                                                        COLLATE AND ADD
          55418    70      554     23   0  0              0        554     >CHAP IS UNIQUE                         JUMP IF A == 0
          55419    0       72       3   0  1              0                                                        SELECT
          55420    5       72      18   0  2              0                SWITCH PROCR START-END OF SECTIONS      TRANSFER
          55421    0       16       5   0  1              0                                                        SELECT
          55422    4       72       3   0  1              0                UPDATE CHAPTER LENGTH                   AUGMENT
    55418>55423    94      554     24   0  2              1        554                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
  Source image: P1000414.JPG
    55423>55424    94      554     15   0  1              1        554     >NEXT CHAP                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55425    0       61     100   0  0              0                BASIC SPECIAL CHAP LENGTH               SELECT
          55426    5       16       3   0  0              0                                                        TRANSFER
          55427    5       16       1   0  0              0                ZERO UNCORR CHAP                        TRANSFER
          55428    0       92      29   0  0              0                                                        SELECT
          55429    5       16       2   0  0              0                CORR CHAP=SPEC CHAP                     TRANSFER
          55430    5       16       4   0  0              0                CLEAR SUBTOTAL                          TRANSFER
          55431    80      555      2   0  0              0        555     >DEAL WITH SPECIAL CHAP                 ENTER SUBROUTINE
          55432    0       16       3   0  0              0                                                        SELECT
          55433    1       16       4   0  0              0                FORM SPECIAL CHAP LENGTH                ADD
          55434    5       72       2   0  1              0                                                        TRANSFER
          55435    101            214   1  3              0                                                        select literal address
          55436    2       72       2   0  1              0                                                        SUBTRACT
          55437    73      554     39   0  0              0        554                                             JUMP IF A < 0
          55438    4       72       2   0  1              0                                                        AUGMENT
    55437>55439    101            220   1  3              0                FIRST CHAP MIN LENGTH=220               select literal address
          55440    2       72       3   0  0              0                                                        SUBTRACT
          55441    73      554     43   0  0              0        554     >OK                                     JUMP IF A < 0
          55442    4       72       3   0  0              0                                                        AUGMENT
    55441>55443    54      16       0   0  0             40                CLEAR W/L'S                             BULK CLEAR
          55444    0       92      29   0  0              0                                                        SELECT
          55445    12               0   0  0              7                                                        SUBTRACT LITERAL
          55446    73      554     48   0  0              0        554     >OK                                     JUMP IF A < 0
          55447    10               0   0  0              0                                                        SELECT LITERAL
    55446>55448    11               0   0  0              7                MAX VALUE=7                             ADD LITERAL
          55449    5       92      29   0  0              0                SPECIAL CHAP NUMBER                     TRANSFER
          55450    80      574      2   0  0              0        574     READ ALIGN BLOCK A6 NORMAL RUN, PREP STAENTER SUBROUTINE
          55451    80      574      2   0  0              0        574     READ SECOND INDEX BLOXK                 ENTER SUBROUTINE
          55452    80      574      2   0  0              0        574     READ PROG DETAILS BLOCK                 ENTER SUBROUTINE
          55453    0       9        4   2  0              0                PROG ID                                 SELECT
          55454    5       16       2   0  0              0                                                        TRANSFER
          55455    0       9        6   2  0              0                PROG SERIAL                             SELECT
          55456    5       16       3   0  0              0                                                        TRANSFER
          55457    54      13       0   0  0             14                                                        BULK CLEAR
          55458    46      A2      10   0  0              1                BACK TO ALIGN BLOCK                     RUN BACK
          55459    C                0   0  0              6                                                        
          55460    48      A2       0   0  0              0                (STEP SO AS TO OVERWRITE IT)            STEP BACK
          55461    C                0   0  0              1                                                        
          55462            583     60   1  0              0        583     ALIGN MARKS                             SELECT
          55463    5       8        4   1  0              0                                                        TRANSFER
          55464            584      4   1  0              0        584     'INDEX'                                 SELECT
          55465    5       8        6   1  0              0                                                        TRANSFER
          55466            583     60   2  0              0        583                                             SELECT
          55467    5       8        8   2  0              0                                                        TRANSFER
          55468    10               0   0  0              3                INDEX IDENTIFIER                        SELECT LITERAL
          55469    5       8       10   1  0              0                                                        TRANSFER
          55470    80      577      2   0  0              0        577     >WRITE                                  ENTER SUBROUTINE
          55471    80      556      2   0  0              0        556     >WRITE DETAILS                          ENTER SUBROUTINE
          55472    76      557      2   0  0              0        557                                             JUMP unconditional
                                                                                                                   
          55500    PROCR   555       555     PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR                  
          55502    81      555      2   0  0              0        555                                             START OF SUBROUTINE
          55503    90               0   0  2              1                                                        SET MODIFICATION REGISTER AT LITERAL
          55504    C                0   0  0            100                                                        
    55518>55505    0       15       0   0  2              0                                                        SELECT
          55506    70      555     18   0  0              0        555     >SECTION NOT USED                       JUMP IF A == 0
          55507    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          55508    30               0   0  0              9-               ISOLATE CHAP NUMBER Q1                  SHIFT (A) BY QUARTETS
          55509    2       16       1   0  0              0                                                        SUBTRACT
          55510    71      555     18   0  0              0        555     >NOT IN THIS UNCORR CHAP                JUMP IF A != 0
  Source image: P1000415.JPG
          55511    0       16       3   0  0              0                                                        SELECT
          55512    4       94       0   0  2              0                UPDATE SEC START                        AUGMENT
          55513    10               0   0  0              0                                                        SELECT LITERAL
          55514    34      15       0   0  2              0                                                        SET (N) IN B
          55515    36      587     10   0  0              0        587     BITS 5-18                               COLLATE AND ADD
          55516    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          55517    4       16       4   0  0              0                AUG SEC LENGTHS IN CHAP                 AUGMENT
    55510>                                                                                                         
    55506>55518    94      555      5   0  2              1        555     >NEXT SECTION                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55519    91      91       0   0  2              0                2R:0                                    SET MODIFICATION REGISTER AT VARIABLE
          55520    0       91       1   0  0              0                2R                                      SELECT
          55521    70      555     62   0  0              0        555     >NO FILES                               JUMP IF A == 0
    55561>55522    10               0   0  0              0                                                        SELECT LITERAL
          55523    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          55524    36      91       4   0  2              0                UNCORR CHAP                             COLLATE AND ADD
          55525    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          55526    2       16       1   0  0              0                CURRENT UNCORR CHAP                     SUBTRACT
          55527    71      555     61   0  0              0        555     >NOT IN IT                              JUMP IF A != 0
          55528    34      587      5   0  0              0        587     BITS 1-6                                SET (N) IN B
          55529    36      91       5   0  2              0                ROUTE TYPE                              COLLATE AND ADD
          55530    12               0   0  0              3                                                        SUBTRACT LITERAL
          55531    70      555     37   0  0              0        555     >GP                                     JUMP IF A == 0
          55532    12               0   0  0              1                                                        SUBTRACT LITERAL
          55533    70      555     37   0  0              0        555     >GP                                     JUMP IF A == 0
          55534    12               0   0  0                                                                       SUBTRACT LITERAL
          55535    71      555     52   0  0              0        555     >NOT ROUTE 19                           JUMP IF A != 0
          55536    76      555     61   0  0              0        555     (DON'T INCLUDE ANNEX LENGTHS)           JUMP unconditional
    55533>                                                                                                         
    55531>55537            91       4   0  2              0                                                        SELECT
          55538    30               0   0  0              4-               GR CTR                                  SHIFT (A) BY QUARTETS
          55539    1       91       1   0  0              0                2R                                      ADD
          55540    92               0   0  4              0                                                        SET MODIFIER AT VARIABLE
          55541    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          55542    36      91       4   0  2              0                LENGTH OF GP ANNEX Q7-10                COLLATE AND ADD
          55543    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          55544    1       16       2   0  0              0                CHAP NUMBER (CORRECTED) Q6              ADD
          55545    5       91       5   0  4              0                OVERWRITE DETAILS                       TRANSFER
          55546    36      91       4   0  2              0                ANNEX LENGTH                            COLLATE AND ADD
          55547    1       16       3   0  0              0                                                        ADD
          55548    1       16       4   0  0              0                                                        ADD
          55549    5       556      2   0  0              0        556     WL=SR LINK                              TRANSFER
          55550    2       556      2   0  0              0        556     STORE NEGATIVELY                        SUBTRACT
          55551    5       91       4   0  4              0                STORE GP TX AREA START Q1-3             TRANSFER
    55535>55552            16       2   0  0              0                CORRECTED CHAP                          SELECT
          55553    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          55554    1       16       3   0  0              0                UNCORR CHAP LENGTH                      ADD
          55555    1       16       4   0  0              0                ALL SECTIONS+ANNEXES TO DATE            ADD
          55556    5       91       5   0  2              0                                                        TRANSFER
          55557    35               0   0  0            111                HALF-LENGTH Q1-3                        PREPARE FOR DIGIT COLLATION
          55558    36      91       4   0  2              0                                                        COLLATE AND ADD
          55559    31               0   0  0              1                FORM FULL ANNEX LENGTH                  SHIFT (A) BY BITS
          55560    4       16       4   0  0              0                                                        AUGMENT
    55536>                                                                                                         
    55527>55561    94      555     22   0  2              2        555                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    55521>55562    82      555      2   0  0              0        555                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55600    PROCR   556       556     SR TO WRITE 'INDEX' DATA                                              
          55601     NOTES  556                                                                                     SELECT
          55602    81      556      2   0  0              0        556                                             START OF SUBROUTINE
          55603            16       2   0  0              0                PROG ID                                 SELECT
  Source image: P1000416.JPG
          55604    3       8        4   2  0              0                                                        COPY
          55605    5       8       12   2  0              0                                                        TRANSFER
          55606    0       16       3   0  0              0                PROG SERIAL                             SELECT
          55607    3       8        6   2  0              0                                                        COPY
          55608    5       8       14   2  0              0                                                        TRANSFER
          55609    10               0   0  0              2                                                        SELECT LITERAL
          55610    5       8       10   2  0              0                PASS 1 IDENTIFIER                       TRANSFER
          55611    10               0   0  0              3                                                        SELECT LITERAL
          55612    3       8       18   2  0              0                IDENTIFIER                              COPY
          55613    10               0   0  0              2                                                        SELECT LITERAL
          55614    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          55615    5       8       16   2  0              0                PASS IND                                TRANSFER
          55616            583     60   2  0              0        583                                             SELECT
          55617    5       8       20   2  0              0                                                        TRANSFER
          55618    80      577      2   0  0              0        577     >WRITE TO TAPE                          ENTER SUBROUTINE
          55619    82      556      2   0  0              0        556                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          55700    PROCR   557       557     HEADING BLOCK                                                         
          55701     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    55472>55702    54      5        0   1  0             50                                                        BULK CLEAR
          55703    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55704    C                0   0  0             10                                                        
    55706>55705    80      576      2   0  0              0        576     >PRINT SPACERS                          ENTER SUBROUTINE
          55706    94      557      5   0  1              1        557                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55707            91       3   0  0              0                2(R+T)                                  SELECT
          55708    2       91       2   0  0              0                                                        SUBTRACT
          55709    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          55710    5       576      2   0  0              0        576     NO OF TX AREAS                          TRANSFER
          55711            91       2   0  0              0                                                        SELECT
          55712    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          55713    5       577      2   0  0              0        577     NO OF FILES                             TRANSFER
          55714    10               0   0  0             80                HEAD OF FORM                            SELECT LITERAL
          55715    5       587      9   0  0              0        587                                             TRANSFER
          55716    52      5        0   0  0              0                EDIT FIRST LINE                         EDIT
          55717    C       593      2   0  0              0        593                                             
          55718            27      12   0  0              0                                                        SELECT
          55719    70      557     22   0  0              0        557     >NO PTS                                 JUMP IF A == 0
          55720    55      584     12   1  0              6        584     'PTS INCLUDED'                          BULK COPY
          55721    C       5       40   1  0              0                                                        
    55719>55722    80      576      2   0  0              0        576     >PRINT SPACERS                          ENTER SUBROUTINE
          55723    80      576      2   0  0              0        576     >SPACER                                 ENTER SUBROUTINE
          55724    0       583     60   2  0              0        583                                             SELECT
          55725    5       8        4   2  0              0                                                        TRANSFER
          55726    10               0   0  0             55                                                        SELECT LITERAL
          55727    5       8        6   2  0              0                                                        TRANSFER
          55728            16       2   0  0              0                PROG ID                                 SELECT
          55729    5       8        8   2  0              0                                                        TRANSFER
          55730            16       3   0  0              0                PROG SERIAL                             SELECT
          55731    5       8       10   2  0              0                                                        TRANSFER
          55732    0       583     70   1  0              0        583     'PASS 3'                                SELECT
          55733    5       8       12   1  0              0                                                        TRANSFER
          55734    80      577      2   0  0              0        577     >WRITE                                  ENTER SUBROUTINE
          55735    124     673      2   0  2              0        673                                             select literal and division
          55736    91               0   0  3              0                FOR PARAMETERS                          SET MODIFICATION REGISTER AT VARIABLE
          55737    124     604      2   0  2              0        604                                             select literal and division
          55738    91               0   0  2              0                FOR ORDERS                              SET MODIFICATION REGISTER AT VARIABLE
          55739    124     679      2   0  2              0        679                                             select literal and division
          55740    91               0   0  1              0                SECOND LEVEL PARAS                      SET MODIFICATION REGISTER AT VARIABLE
          55741    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55742    C                0   0  0              6                                                        
  Source image: P1000417.JPG
          55743    90               0   0  8              0                SECOND LEVEL PARAS                      SET MODIFICATION REGISTER AT LITERAL
          55744    C                0   0  0              3                                                        
          55745            673      2   0  0              0        673                                             SELECT
          55746    31               0   0  0              2                                                        SHIFT (A) BY BITS
          55747    5       598     11   0  0              0        598                                             TRANSFER
          55748            679      2   0  0              0        679                                             SELECT
          55749    31               0   0  0              2                                                        SHIFT (A) BY BITS
          55750    5       598     17   0  0              0        598                                             TRANSFER
          55751    80      596      2   0  0              0        596     >WRITE 'UNLOADER'                       ENTER SUBROUTINE
          55752    80      596      2   0  0              0        596     >WRITE 'ALLOC STORE'                    ENTER SUBROUTINE
          55753    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          55754    5       593      2   1  0              0        593                                             TRANSFER
          55755    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          55756    5       593      4   1  0              0        593                                             TRANSFER
          55757    80      574      2   0  0              0        574     >READ                                   ENTER SUBROUTINE
          55758    55      9        4   1  0             10                                                        BULK COPY
          55759    C       11       0   1  0              0                                                        
          55760            91       3   0  0              0                2(R+T)                                  SELECT
          55761    2       91       2   0  0              0                2R                                      SUBTRACT
          55762    31               0   0  0              1-               FORM T                                  SHIFT (A) BY BITS
          55763    5       11      12   2  0              0                NO OF TX AREAS FOR ALLOCATOR            TRANSFER
          55764    0       91       2   0  0              0                2R                                      SELECT
          55765    31               0   0  0              1-               R                                       SHIFT (A) BY BITS
          55766    5       11      10   2  0              0                NO OF ROUTES                            TRANSFER
          55767    10               0   0  0              0                                                        SELECT LITERAL
          55768    3       11      14   2  0              0                NO OF DISCFILES                         COPY
          55769    4       11      10   2  0              0                                                        AUGMENT
                                                                                                                   
          55800    PROCR   558       558     OUTPUT SECOND HEADING BLOCK                                           
          55801     NOTES          RADIX          PREP STAGE                                                       SELECT
          55802    55      11       0   1  0             16                                                        BULK COPY
          55803    C       8        4   1  0              0                                                        
          55804    5       92      28   0  0              0                CLEAR                                   TRANSFER
          55805            92       6   0  0              0                2ND HEADING BLOCK                       SELECT
          55806    5       8       20   2  0              0                                                        TRANSFER
          55807            92       8   0  0              0                CHAPTER                                 SELECT
          55808    5       8       22   2  0              0                                                        TRANSFER
          55809    91      92      28   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          55810    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55811    C                0   0  0             14                                                        
    55825>55812    0       72       3   0  2              0                CHAP LENGTH                             SELECT
          55813    71      558     16   0  0              0        558                                             JUMP IF A != 0
          55814            583     92   1  0              0        583     100,000 IN BIN                          SELECT
          55815    3       72       3   0  2              0                SET RIDICULOUS LENGTH                   COPY
    55813>55816    5       8       24   2  1              0                                                        TRANSFER
          55817    10               0   0  0             20                BIT 6                                   SELECT LITERAL
          55818    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          55819    36      92      10   0  2              0                                                        COLLATE AND ADD
          55820    70      558     24   0  0              0        558     >NORMAL                                 JUMP IF A == 0
          55821    10               0   0  0              0                                                        SELECT LITERAL
          55822    2       8       24   2  1              0                                                        SUBTRACT
          55823    5       8       24   2  1              0                SET IND THAT IN ANOTHER STORE           TRANSFER
    55820>55824    94               0   0  1              2                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55825    94      558     12   0  2              1        558                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55826    0       16       2   0  0              0                                                        SELECT
          55827    5       8       38   2  0              0                PROG ID                                 TRANSFER
          55828    0       16       3   0  0              0                                                        SELECT
          55829    5       8       40   2  0              0                PROG SERIAL                             TRANSFER
          55830    10               0   0  0     5163636653                'ALLOC'                                 SELECT LITERAL
          55831    5       8       42   1  0              0                                                        TRANSFER
  Source image: P1000418.JPG
          55832            24       0   1  0              0                                                        SELECT
          55833    70      558     89   0  0              0        558     >NO FILES                               JUMP IF A == 0
          55834    91      24       0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          55835    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          55836    C                0   0  0              8                                                        
    55888>55837    10               0   0  0              0                                                        SELECT LITERAL
          55838    34      587      5   0  0              0        587     BITS 1-6                                SET (N) IN B
          55839    36      24       5   0  1              0                ROUTE TYPE                              COLLATE AND ADD
          55840    101             19   1  2              0                                                        subtract literal address
          55841    71      558     88   0  0              0        558     >NOT 19                                 JUMP IF A != 0
          55842            24       4   0  1              0                OP TX AREA CTR                          SELECT
          55843    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          55844    1       24       1   0  0              0                2R                                      ADD
          55845    5       577      2   0  0              0        577     WL                                      TRANSFER
          55846    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          55847    124     577      2   0  1              0        577                                             modify address of next
          55848    36      24       4   0  0              0                CHAPTER NUMBER                          COLLATE AND ADD
          55849    70      558     57   0  0              0        558     >NO CHOICE                              JUMP IF A == 0
          55850    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          55851    2       92      29   0  0              0                CHAPS IN PROGM                          SUBTRACT
          55852    70      558     56   0  0              0        558     >OK                                     JUMP IF A == 0
          55853    73      558     56   0  0              0        558     >OK                                     JUMP IF A < 0
          55854    10               0   0  0              0                                                        SELECT LITERAL
          55855    76      558     57   0  0              0        558     >EX RANGE=NO CHOICE                     JUMP unconditional
    55853>                                                                                                         
    55852>55856    1       92      29   0  0              0                                                        ADD
    55855>                                                                                                         
    55849>55857    5       576      2   0  0              0        576     TX AREA CHAPTER                         TRANSFER
          55858    36      24       4   0  1              0                                                        COLLATE AND ADD
          55859    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          55860    70      558     67   0  0              0        558     >NO CHOICE                              JUMP IF A == 0
          55861    2       92      29   0  0              0                                                        SUBTRACT
          55862    70      558     66   0  0              0        558     >OK                                     JUMP IF A == 0
          55863    73      558     66   0  0              0        558     >OK                                     JUMP IF A < 0
          55864    10               0   0  0              0                                                        SELECT LITERAL
          55865    76      558     67   0  0              0        558     >EX RANGE=NO CHOICE                     JUMP unconditional
    55863>                                                                                                         
    55862>55866    1       92      29   0  0              0                                                        ADD
    55865>                                                                                                         
    55860>55867    5       596      2   0  0              0        596     ANNEX CHAPTER                           TRANSFER
          55868    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          55869    36      24       4   0  1              0                GP HALF-LENGTH                          COLLATE AND ADD
          55870    32               0   0  0              3-                                                       SHIFT (AB) BY QUARTETS
          55871    0       596      2   0  0              0        596                                             SELECT
          55872    31               0   0  0              3                                                        SHIFT (A) BY BITS
          55873    1       576      2   0  0              0        576                                             ADD
          55874    33               0   0  0             13                                                        SHIFT (AB) BY BITS
          55875    5       8       44   2  2              0                                                        TRANSFER
          55876    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          55877    124     577      2   0  1              0        577                                             modify address of next
          55878    36      24       4   0  0              0                SPECIAL HALF-LENGTH                     COLLATE AND ADD
          55879    11               0   0  0              2                (FOR GUARD WORD)                        ADD LITERAL
          55880    32               0   0  0              3-                                                       SHIFT (AB) BY QUARTETS
          55881    0       596      2   0  0              0        596                                             SELECT
          55882    31               0   0  0              3                                                        SHIFT (A) BY BITS
          55883    1       576      2   0  0              0        576                                             ADD
          55884    33               0   0  0             13                                                        SHIFT (AB) BY BITS
          55885    5       8       46   2  2              0                                                        TRANSFER
          55886    94      558     88   0  2              4        558                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55887    76      558     89   0  0              0        558     >END AFTER 2 FILES                      JUMP unconditional
    55886>                                                                                                         
  Source image: P1000419.JPG
    55841>55888    94      558     37   0  1              2        558                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    55887>                                                                                                         
    55833>55889    80      577      2   0  0              0        577     >WRITE                                  ENTER SUBROUTINE
                                                                                                                   
          55900    PROCR   559       559     SECOND HEADING LINE                                                   
          55901     NOTES          RADIX     B                                                                     SELECT
          55902    91      593      2   0  1              0        593                                             SET MODIFICATION REGISTER AT VARIABLE
          55903    91      593      4   0  2              0        593                                             SET MODIFICATION REGISTER AT VARIABLE
          55904    80      596      2   0  0              0        596     >WRITE 'ALLOC ROUTES'                   ENTER SUBROUTINE
          55905    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          55906    5       593      2   1  0              0        593                                             TRANSFER
          55907    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          55908    5       593      4   1  0              0        593                                             TRANSFER
          55909    90               0   0  2              0                SET MOD REGISTERS                       SET MODIFICATION REGISTER AT LITERAL
          55910    C                0   0  0              4                                                        
    55917>55911            11       0   2  2              0                SELECT DETAIL                           SELECT
          55912    70      559     15   0  0              0        559     OUT IF ZERO                             JUMP IF A == 0
          55913            583      4   1  0              0        583     ELSE SELECT                             SELECT
          55914    76      559     16   0  0              0        559     YES                                     JUMP unconditional
    55912>55915            583      6   1  0              0        583     SELECT NO                               SELECT
    55914>55916    5       13       0   1  2              0                STORE YES OR NO                         TRANSFER
          55917    94      559     11   0  2              2        559     REPEAT                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          55918    0       92       6   0  0              0                                                        SELECT
          55919    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          55920    5       92       6   0  0              0                                                        TRANSFER
          55921    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          55922    52      5        2   0  0              0                                                        EDIT
          55923    C       592      2   0  0              0        592     EDIT AND OUTPUT                         
          55924    80      576      2   0  0              0        576     >PRINT FP, MOD GP, ENTRY ETC            ENTER SUBROUTINE
          55925    80      576      2   0  0              0        576     >SPACER                                 ENTER SUBROUTINE
          55926            11       8   2  0              0                >SPACER                                 SELECT
          55927    5       13       2   1  0              0                                                        TRANSFER
                                                                                                                   
          56000    PROCR   560       560     THIRD HEADING LINE                                                    
          56001     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          56002            11      10   2  0              0                STORE                                   SELECT
          56003    5       16       8   0  0              0                NO. OF FILES                            TRANSFER
          56004    0       11       8   2  0              0                NUMBER OF CHAPTERS INITIALLY            SELECT
          56005    5       16       9   0  0              0                NO. OF CHAPTERS                         TRANSFER
          56006    54      13       0   0  0             14                CLEAR WL'S                              BULK CLEAR
          56007    91      92      28   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    56024>56008    10               0   0  0             20                BIT 6                                   SELECT LITERAL
          56009    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          56010    36      92      10   0  2              0                                                        COLLATE AND ADD
          56011    70      560     15   0  0              0        560     >FIRST STORE                            JUMP IF A == 0
          56012    10               0   0  0              0                                                        SELECT LITERAL
          56013    2       72       3   0  2              0                NEGATE FOR SECOND STORE                 SUBTRACT
          56014    76      560     16   0  0              0        560                                             JUMP unconditional
    56011>56015            72       3   0  2              0                                                        SELECT
    56014>56016    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56017    5       13       0   0  2              0                STORE CHAPTER LENGTHS                   TRANSFER
          56018    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          56019            72       3   0  2              0                                                        SELECT
          56020    12               0   0  0           2001                8193 INBIN                              SUBTRACT LITERAL
          56021    73      560     24   0  0              0        560     >OK                                     JUMP IF A < 0
          56022    10               0   0  0              1                                                        SELECT LITERAL
          56023    3       13      10   0  0              0                                                        COPY
    56021>56024    94      560      8   0  2              1        560                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56025    0       13       1-  0  2              0                LAST CHAP LENGTH(DEC)                   SELECT
  Source image: P1000420.JPG
          56026    5       585      4   1  0              0        585                                             TRANSFER
          56027    0       585      4   0  0              0        585     MODULUS                                 SELECT
          56028    12               0   0  0            506                                                        SUBTRACT LITERAL
          56029    72      560     34   0  0              0        560     >OK                                     JUMP IF A >= 0
          56030    10               0   0  0            506                                                        SELECT LITERAL
          56031    5       585      4   0  0              0        585                                             TRANSFER
          56032    0       585      4   1  0              0        585     (PRESERVES ORIGINAL SIGN)               SELECT
          56033    5       13       1-  0  2              0                PRINT SPECIAL CHAP AS MIN LENGTH 506    TRANSFER
    56029>56034            13      10   0  0              0                                                        SELECT
          56035    70      560     46   0  0              0        560     >OK                                     JUMP IF A == 0
          56036    86      511      2   0  0              0        511     CTR DISATROUS ERROR                     SELECT SWITCH R
          56037    11               0   0  0              1                                                        ADD LITERAL
          56038    84      511      2   0  0              0        511     AUGMENT                                 SET SWITCH(ES) AT VARIABLE VALUE
          56039    10               0   0  0     5:5:5:5:5:                 '?????'                                SELECT LITERAL
          56040    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56041    C                0   0  0             10                                                        
    56043>56042    3       5       40   1  2              0                25 QUESTION MARKS                       COPY
          56043    94      560     42   0  2              2        560                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56044    10               0   0  0              1                SET INDICATOR FOR *07                   SELECT LITERAL
          56045    76      560     47   0  0              0        560                                             JUMP unconditional
    56035>56046    10               0   0  0              0                OK-CLEAR INDICATOR                      SELECT LITERAL
    56045>56047    5       27       5   0  0              0                                                        TRANSFER
          56048    52      5        2   0  0              0                EDIT AND OUTPUT                         EDIT
          56049    C       591      2   0  0              0        591                                             
          56050    80      576      2   0  0              0        576     PRINT                                   ENTER SUBROUTINE
          56051    80      576      2   0  0              0        576     SPACER                                  ENTER SUBROUTINE
          56052    52      5        2   0  0              0                                                        EDIT
          56053    C       590      2   0  0              0        590     EDIT FILE DETAILS HEADING               
          56054    80      576      2   0  0              0        576     PRINT                                   ENTER SUBROUTINE
          56055    54      13       0   0  0             31                                                        BULK CLEAR
                                                                                                                   
          56100    PROCR   561       561     FILE DETAILS                                                          
          56101     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          56102    0       91       0   1  0              0                                                        SELECT
          56103    70      562     20   0  0              0        562     >NO FILES                               JUMP IF A == 0
          56104    91               0   0  4              0                2R:0                                    SET MODIFICATION REGISTER AT VARIABLE
    56218>56105    90               0   0  1              0                SET MOD REGISTER A                      SET MODIFICATION REGISTER AT LITERAL
          56106    C                0   0  0             48                                                        
          56107    80      574      2   0  0              0        574     READ FILE DETAILS ON A6                 ENTER SUBROUTINE
    56216>56108    55      9        4   1  1             12                FILE DETAIL                             BULK COPY
          56109    C       11       0   1  0              0                                                        
          56110    0       11       2   2  0              0                ROUTE TYPE 02                           SELECT
          56111    3       583      2   0  0              0        583     WL                                      COPY
          56112    12               0   0  0             20                                                        SUBTRACT LITERAL
          56113    70      561     54   0  0              0        561     >BIN CARD O/P                           JUMP IF A == 0
          56114    12               0   0  0             80                                                        SUBTRACT LITERAL
          56115    70      561     53   0  0              0        561     >BIN CARD I/P                           JUMP IF A == 0
          56116    12               0   0  0             60                                                        SUBTRACT LITERAL
          56117    70      561     51   0  0              0        561     >NON-STD PT O/P(16)                     JUMP IF A == 0
          56118    12               0   0  0             10                                                        SUBTRACT LITERAL
          56119    70      561     40   0  0              0        561     >RT 17                                  JUMP IF A == 0
          56120    12               0   0  0             10                                                        SUBTRACT LITERAL
          56121    70      561     42   0  0              0        561     >RT 18                                  JUMP IF A == 0
          56122    12               0   0  0             10                                                        SUBTRACT LITERAL
          56123    70      561     44   0  0              0        561                                             JUMP IF A == 0
          56124    12               0   0  0             10                                                        SUBTRACT LITERAL
          56125    70      561     38   0  0              0        561                                             JUMP IF A == 0
          56126    12               0   0  0             20                                                        SUBTRACT LITERAL
          56127    71      561     30   0  0              0        561     >NOT RT 22                              JUMP IF A != 0
          56128    10               0   0  0             +0                                                        SELECT LITERAL
  Source image: P1000421.JPG
          56129    76      561     55   0  0              0        561     >RT 22                                  JUMP unconditional
    56127>56130    12               0   0  0             20                                                        SUBTRACT LITERAL
          56131    71      561     34   0  0              0        561     >NOT RT 24                              JUMP IF A != 0
          56132    10               0   0  0             50                                                        SELECT LITERAL
          56133    76      561     55   0  0              0        561                                             JUMP unconditional
    56131>56134    12               0   0  0             10                                                        SUBTRACT LITERAL
          56135    71      561     56   0  0              0        561     >NOT RT 25                              JUMP IF A != 0
          56136    10               0   0  0             .0                                                        SELECT LITERAL
          56137    76      561     55   0  0              0        561                                             JUMP unconditional
    56125>56138    10               0   0  0             20                DT                                      SELECT LITERAL
          56139    76      561     55   0  0              0        561     >RT 2                                   JUMP unconditional
    56119>56140    10               0   0  0             ‼0                                                        SELECT LITERAL
          56141    76      561     55   0  0              0        561                                             JUMP unconditional
    56121>56142    10               0   0  0             :0                                                        SELECT LITERAL
          56143    76      561     55   0  0              0        561     SET=13                                  JUMP unconditional
    56123>56144    10               0   0  0             80                                                        SELECT LITERAL
          56145    5       11      10   2  0              0                ALT ROUTE IND                           TRANSFER
          56146    5       11       6   1  0              0                ZERO START                              TRANSFER
          56147    5       11       8   1  0              0                                                        TRANSFER
          56148    12               0   0  0              1                                                        SUBTRACT LITERAL
          56149    5       11       4   2  0              0                                                        TRANSFER
          56150    76      561     70   0  0              0        561     >SET ZERO START                         JUMP unconditional
    56117>56151    10               0   0  0             10                                                        SELECT LITERAL
          56152    76      561     55   0  0              0        561                                             JUMP unconditional
    56115>56153    10               0   0  0             30                                                        SELECT LITERAL
    56113>56154    11               0   0  0             30                                                        ADD LITERAL
    56152>                                                                                                         
    56143>                                                                                                         
    56141>                                                                                                         
    56139>                                                                                                         
    56137>                                                                                                         
    56133>                                                                                                         
    56129>56155    5       11       2   2  0              0                FIB TO M/R                              TRANSFER
    56135>56156            11      10   2  0              0                TEST ALTERNATE                          SELECT
          56157    70      561     61   0  0              0        561     ROUTE IF 0,SET                          JUMP IF A == 0
          56158    10               0   0  0              0                =80: IF 1.SET=0                         SELECT LITERAL
          56159    5       11      10   2  0              0                                                        TRANSFER
          56160    76      561     63   0  0              0        561                                             JUMP unconditional
    56157>56161    10               0   0  0             80                                                        SELECT LITERAL
          56162    5       11      10   2  0              0                                                        TRANSFER
    56160>56163    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          56164    36      91       5   0  4              0                                                        COLLATE AND ADD
          56165    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          56166    31               0   0  0              1                DOUBLE CORR CHAP NO                     SHIFT (A) BY BITS
          56167    5       11       4   2  0              0                                                        TRANSFER
          56168    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          56169    36      91       5   0  4              0                                                        COLLATE AND ADD
    56150>56170    5       11       8   2  0              0                START LOCATION                          TRANSFER
          56171    52      8        4   0  1              0                EDIT IN                                 EDIT
          56172    C       597     16   0  0              0        597                                             
          56173    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56174    C                0   0  0             10                CONVERT FILE DETAILS                    
    56178>56175    0       11       2   2  2              0                                                        SELECT
          56176    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56177    5       13       0   0  2              0                                                        TRANSFER
          56178    94      561     75   0  2              2        561                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56179            583      2   0  0              0        583                                             SELECT
          56180    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          56181    80      578      2   0  0              0        578     CONVERT ROUTE TYPE TO DEC               ENTER SUBROUTINE
          56182    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
  Source image: P1000422.JPG
          56183    5       583      2   0  0              0        583                                             TRANSFER
          56184    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
                                                                                                                   
          56200    PROCR   562       562     FILE DETAILS FOR PRINTOUT - BIT 20                                    
          56201     NOTES          RADIX     B                                                                     SELECT
          56202            13       8   0  0              0                                                        SELECT
          56203    70      562      6   0  0              0        562                                             JUMP IF A == 0
          56204            583      6   1  0              0        583                                             SELECT
          56205    76      562      7   0  0              0        562                                             JUMP unconditional
    56203>56206            583      4   1  0              0        583                                             SELECT
    56205>56207    5       13       8   1  0              0                                                        TRANSFER
          56208    0       11       4   2  0              0                                                        SELECT
          56209    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          56210    5       13       2   0  0              0                                                        TRANSFER
          56211    52      5        2   0  0              0                                                        EDIT
          56212    C       594      2   0  0              0        594                                             
          56213    80      576      2   0  0              0        576     > PRINT                                 ENTER SUBROUTINE
          56214    94      562     16   0  4              2        562                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56215    76      562     19   0  0              0        562     > ALL FILES PROCESSED                   JUMP unconditional
    56214>56216    94      561      8   0  1             12        561     > NEXT FILE THIS BLOCK                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56217    80      577      2   0  0              0        577     > WRITE                                 ENTER SUBROUTINE
          56218    76      561      5   0  0              0        561     > READ NEW BLOCK                        JUMP unconditional
    56215>56219    80      577      2   0  0              0        577     > WRITE FINAL FILES BLOCK               ENTER SUBROUTINE
    56103>56220    52      5        2   0  0              0                EDIT HEADING & OUTPUT                   EDIT
          56221    C       594     14   0  0              0        594     HEADING BLOCK                           
          56222    80      576      2   0  0              0        576     PRINT TX AREA HEADING                   ENTER SUBROUTINE
                                                                                                                   
          56300    PROCR   563       563     TRANSIT AREA                                                          
          56301     NOTES          RADIX     B                                                                     SELECT
          56302    91      91       2   0  2              0                2 (R+T) :2R                             SET MODIFICATION REGISTER AT VARIABLE
          56303    94      563      5   0  2              0        563     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56304    76      565      2   0  0              0        565     > ND TX AREAS                           JUMP unconditional
    56426>                                                                                                         
    56303>56305    90               0   0  1              0                SET O/P MR                              SET MODIFICATION REGISTER AT LITERAL
          56306    C                0   0  0             48                                                        
    56424>56307    91      91       0   0  4              0                2R:0                                    SET MODIFICATION REGISTER AT VARIABLE
          56308    34      587      5   0  0              0        587     BITS 1 - 6                              SET (N) IN B
    56324>56309    10               0   0  0              0                                                        SELECT LITERAL
          56310    36      24       5   0  4              0                ROUTE TYPE                              COLLATE AND ADD
          56311    12               0   0  0             13                                                        SUBTRACT LITERAL
          56312    71      563     24   0  0              0        563     > NOT 19                                JUMP IF A != 0
          56313            24       4   0  4              0                GP T, AREA CTR                          SELECT
          56314    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          56315    1       24       1   0  0              0                2R                                      ADD
          56316    99               0   0  2              0                -R2 MODIFIER                            SUBTRACT MODIFICATION REGISTER FROM A
          56317    71      563     24   0  0              0        563     >WE ARE NOT DEALING WITH RT 19 TX AREA  JUMP IF A != 0
          56318    12               0   0  0              1                                                        SUBTRACT LITERAL
          56319    5       13       2   2  0              0                NEG CHAP NUMBER                         TRANSFER
          56320    5       13       4   2  0              0                ZERO LENGTH                             TRANSFER
          56321    5       596      2   0  0              0        596     CLEAR FOR PRINT                         TRANSFER
          56322    5       13       0   0  0              0                ZERO START                              TRANSFER
          56323    76      564      2   0  0              0        564                                             JUMP unconditional
    56317>                                                                                                         
    56312>56324    94      563      9   0  4              2        563     > TRY AGAIN                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56325    0       91       4   0  2              0                                                        SELECT
          56326    72      563     29   0  0              0        563     > NOT GP TX AREA                        JUMP IF A >= 0
          56327    0       91       4   1  2              0                (LOSES SIGN)                            SELECT
          56328    76      563     35   0  0              0        563                                             JUMP unconditional
    56326>56329    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          56330    30               0   0  0              8-               CLEAR  Q3 - 10                          SHIFT (A) BY QUARTETS
  Source image: P1000423.JPG
          56331    3       13       0   0  0              0                                                        COPY
          56332    5       583      2   0  0              0        583     SEC NUMBER FOR PRINT                    TRANSFER
          56333    124     13       0   0  1              0                                                        modify address of next
          56334    0       94       0   0  0              0                SELECT SECTION START                    SELECT
    56328>56335    5       13       0   0  0              0                                                        TRANSFER
          56336    0       91       5   0  2              0                                                        SELECT
          56337    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          56338    5       13       4   2  0              0                TX AREA LENGTH                          TRANSFER
          56339    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          56340    3       596      2   0  0              0        596     CHAP                                    COPY
          56341    31               0   0  0              1                                                        SHIFT (A) BY BITS
          56342    5       13       2   2  0              0                TWICE CHAP FOR MT                       TRANSFER
                                                                                                                   
          56400    PROCR   564       564     OUTPUT TRANSIT AREA DETAILS                                           
          56401     NOTES          RADIX     B                                                                     SELECT
    56323>56402    52      8        4   0  1              0                EDIT                                    EDIT
          56403    C       591     24   0  0              0        591     TRANSIT AREA DTLS                       
          56404    0       13       0   0  0              0                                                        SELECT
          56405    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56406    5       13       0   0  0              0                TO BINARY                               TRANSFER
          56407    0       13       4   2  0              0                                                        SELECT
          56408    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56409    5       13       4   0  0              0                                                        TRANSFER
          56410    0       583      2   0  0              0        583                                             SELECT
          56411    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56412    5       583      2   0  0              0        583     SEC NUMBER                              TRANSFER
          56413    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          56414    52      5        2   0  0              0                EDIT FOR PRINT                          EDIT
          56415    C       594     26   0  0              0        594                                             
          56416    0       91       4   0  2              0                                                        SELECT
          56417    72      564     20   0  0              0        564     > NOT GP TX AREA                        JUMP IF A >= 0
          56418    10               0   0  0           5767                 'GP'                                   SELECT LITERAL
          56419    5       5        4   1  0              0                                                        TRANSFER
    56417>56420    80      576      2   0  0              0        576     > PRINT                                 ENTER SUBROUTINE
          56421    94      564     24   0  2              2        564     > MORE DETAILS YET                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56422    80      577      2   0  0              0        577     WRITE TX BLOCK                          ENTER SUBROUTINE
          56423    76      565      2   0  0              0        565                                             JUMP unconditional
    56421>56424    94      563      7   0  1              6        563                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56425    80      577      2   0  0              0        577     WRITE TX BLOCK                          ENTER SUBROUTINE
          56426    76      563      5   0  0              0        563     > RESET MR1 & START NEXT BLOCK          JUMP unconditional
                                                                                                                   
          56500    PROCR   565       565     O/P LAST TWO CHUNKS AND WRITE COMPATIBILTY DATA                       
          56501     NOTES  565                                                                                     SELECT
    56423>                                                                                                         
    56304>56502    91      593      2   0  1              0        593                                             SET MODIFICATION REGISTER AT VARIABLE
          56503    91      593      4   0  2              0        593                                             SET MODIFICATION REGISTER AT VARIABLE
          56504    80      596      2   0  0              0        596     > O/P 'ALLOC FP/TAG'                    ENTER SUBROUTINE
          56505    80      596      2   0  0              0        596     > O/P 'SET UP PQ'                       ENTER SUBROUTINE
          56506    80      596      2   0  0              0        596     > O/P 'LOAD PROGRAM'                    ENTER SUBROUTINE
          56507    76      566      2   0  0              0        566                                             JUMP unconditional
                                                                                                                   
          56600    PROCR   566       566     PRINT SECTION START POINTS                                            
          56601     NOTES          RADIX                                                                           SELECT
    56507>56602            583     62   1  0              0        583      'SEC'                                  SELECT
          56603     05     5        2   1  0              0                                                        SELECT
          56604            583     64   1  0              0        583      'TION'                                 SELECT
          56605     05     5        4   1  0              0                                                        SELECT
          56606    0       583     84   1  0              0        583                                             SELECT
          56607     05     5        6   1  0              0                                                        SELECT
          56608    90               0   0  1              1                SELECT 94/1 - 94/99                     SET MODIFICATION REGISTER AT LITERAL
  Source image: P1000424.JPG
          56609    C                0   0  0            100                                                        
          56610    80      576      2   0  0              0        576     >PRINT                                  ENTER SUBROUTINE
          56611    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56612    C                0   0  0             48                                                        
    56627>56613            94       0   0  1              0                                                        SELECT
          56614    70      566     27   0  0              0        566     >SEC NOT USED                           JUMP IF A == 0
          56615    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56616    5       583      3   0  0              0        583     SEC START                               TRANSFER
          56617    96               0   0  1              0                                                        SELECT MODIFIER
          56618    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          56619    5       583      2   0  0              0        583     SEC NUMBER                              TRANSFER
          56620    52      5        2   0  2              0                                                        EDIT
          56621    C       595      2   0  0              0        595                                             
          56622    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          56623    94      566     27   0  2              4        566                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56624    80      576      2   0  0              0        576     PRINT                                   ENTER SUBROUTINE
          56625    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56626    C                0   0  0             48                                                        
    56623>                                                                                                         
    56614>56627    94      566     13   0  1              1        566     >NEXT SECTION                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56628    80      576      2   0  0              0        576     PRINT LAST LINE                         ENTER SUBROUTINE
          56629    76      569      2   0  0              0        569     >PRINT SWITCHES                         JUMP unconditional
                                                                                                                   
          56700    PROCR   567       567     PRINT LOCNS OF MOD REGISTERS 4-20                                     
          56701     NOTES  567                                                                                     SELECT
    56806>                                                                                                         
    56817>56702    52      5        2   0  0              0                                                        EDIT
          56703    C       595      8   0  0              0        595                                             
          56704    80      576      2   0  0              0        576     >PRINT HEADING                          ENTER SUBROUTINE
          56705    90               0   0  1              0                PRINT CONTROL                           SET MODIFICATION REGISTER AT LITERAL
          56706    C                0   0  0             48                                                        
          56707    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56708    C                0   0  0             17                SEARCH SEC 71                           
    56713>56709    34      71       2   0  2              0                                                        SET (N) IN B
          56710    74      567     13   0  0              0        567     >NOT USED                               JUMP IF AB == 0        // 27, 1, 0
          56711    80      570      2   0  0              0        570     >DECODE                                 ENTER SUBROUTINE
          56712    80      571      2   0  0              0        571     >EDIT+PRINT                             ENTER SUBROUTINE
    56710>56713    94      567      9   0  2              1        567     >NEXT MR                                STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56714    80      576      2   0  0              0        576     >PRINT LAST LINE                        ENTER SUBROUTINE
          56715    90               0   0 12           2499                                                        SET MODIFICATION REGISTER AT LITERAL
          56716    C                0   0  0              0                                                        
          56717    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56718    C                0   0  0             40                                                        
          56719    91               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT VARIABLE
          56720    76      553      2   0  0              0        553     CALL PASS 4                             JUMP unconditional
                                                                                                                   
          56800    PROCR   568       568     PRINT LOCATIONS OF ITEM+ COUNTERS                                     
          56801     NOTES  568                                                                                     SELECT
    56909>                                                                                                         
    56925>56802    52      5        2   0  0              0                                                        EDIT
          56803    C       595     12   0  0              0        595                                             
          56804    80      576      2   0  0              0        576     >PRINT HEADING                          ENTER SUBROUTINE
          56805    34      98       1   0  0              0                                                        SET (N) IN B
          56806    74      567      2   0  0              0        567     >NONE                                   JUMP IF AB == 0        // 27, 1, 0
          56807    90               0   0  1              0                PRINT CONTROL                           SET MODIFICATION REGISTER AT LITERAL
          56808    C                0   0  0             48                                                        
          56809    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56810    C                0   0  0             10                TO SEARCH SEC 98                        
    56815>56811    34      98       2   0  2              0                                                        SET (N) IN B
          56812    74      568     15   0  0              0        568     >NOT USED?                              JUMP IF AB == 0        // 27, 1, 0
  Source image: P1000425.JPG
          56813    80      570      2   0  0              0        570     >DECODE                                 ENTER SUBROUTINE
          56814    80      571      2   0  0              0        571     >EDIT AND PRINT                         ENTER SUBROUTINE
    56812>56815    94      568     11   0  2              1        568                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56816    80      576      2   0  0              0        576     >PRINT LAST LINE                        ENTER SUBROUTINE
          56817    76      567      2   0  0              0        567     >PRINT MOD REGISTERS                    JUMP unconditional
                                                                                                                   
          56900    PROCR   569       569     PRINT LOCATION OF SWITCHES                                            
          56901     NOTES  569                                                                                     SELECT
    56629>56902    52      5        2   0  0              0                                                        EDIT
          56903    C       595     16   0  0              0        595                                             
          56904    80      576      2   0  0              0        576     >PRINT HEADING                          ENTER SUBROUTINE
          56905    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          56906    C                0   0  0             48                                                        
          56907    91      95       0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          56908    94      569     10   0  2              0        569     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56909    76      568      2   0  0              0        568     >PRINT ITEM+                            JUMP unconditional
    56908>56910    10               0   0  0              0                                                        SELECT LITERAL
    56923>56911    34      584      8   0  0              0        584     BITS 1-10                               SET (N) IN B
          56912    36      95       2   0  2              0                                                        COLLATE AND ADD
          56913    70      569     23   0  0              0        569     >STEP R2                                JUMP IF A == 0
          56914    5       583      4   0  0              0        583                                             TRANSFER
          56915            95       2   0  2              0                                                        SELECT
          56916    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          56917    5       583      2   0  0              0        583     CHAP OF SWITCH                          TRANSFER
          56918    33               0   0  0              6                CTR IN PROCR                            SHIFT (AB) BY BITS
          56919    124     583      2   0  1              0        583                                             modify address of next
          56920    1       72      17   0  0              0                PROCR START                             ADD
          56921    5       583      3   0  0              0        583                                             TRANSFER
          56922    80      571      2   0  0              0        571     >EDIT AND PRINT                         ENTER SUBROUTINE
    56913>56923    94      569     11   0  2              1        569     >NEXT SWITCH                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          56924    80      576      2   0  0              0        576     >PRINT LAST LINE                        ENTER SUBROUTINE
          56925    76      568      2   0  0              0        568     >PRINT ITEM+                            JUMP unconditional
                                                                                                                   
          57000    PROCR   570       570     TO SORT OUT MR>3 AND ITEM+ COUNTERS                                   
          57001     NOTES  570                                                                                     SELECT
          57002    81      570      2   0  0              0        570                                             START OF SUBROUTINE
          57003    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
          57004    5       583      2   0  0              0        583     CHAP                                    TRANSFER
          57005    32               0   0  0              2                CTR IN PROCR                            SHIFT (AB) BY QUARTETS
          57006    124     583      2   0  1              0        583                                             modify address of next
          57007    1       72      17   0  0              0                PROCR START                             ADD
          57008    5       583      3   0  0              0        583                                             TRANSFER
          57009    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          57010    5       583      4   0  0              0        583     SEC NO/MOD REG WAS Q1.2                 TRANSFER
          57011    82      570      2   0  0              0        570                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57100    PROCR   571       571     EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS              
          57101     NOTES          RADIX                                                                           SELECT
          57102    81      571      2   0  0              0        571                                             START OF SUBROUTINE
          57103    0       583      2   0  0              0        583                                             SELECT
          57104    80      578      2   0  0              0        578     TO DEC                                  ENTER SUBROUTINE
          57105    5       583      2   0  0              0        583                                             TRANSFER
          57106    0       583      3   0  0              0        583                                             SELECT
          57107    80      578      2   0  0              0        578                                             ENTER SUBROUTINE
          57108    5       583      3   0  0              0        583                                             TRANSFER
          57109    0       583      4   0  0              0        583                                             SELECT
          57110    80      578      2   0  0              0        578                                             ENTER SUBROUTINE
          57111    5       583      4   0  0              0        583                                             TRANSFER
          57112    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          57113    52      5        2   0  1              0                                                        EDIT
  Source image: P1000426.JPG
          57114    C       595     20   0  0              0        595                                             
          57115    94      571     19   0  1              6        571     >LINE NOT FULL                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          57116    80      576      2   0  0              0        576     >PRINT                                  ENTER SUBROUTINE
          57117    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          57118    C                0   0  0             48                                                        
    57115>57119    82      571      2   0  0              0        571                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57200    PROCR   572       572     READ A2                                                               
          57201     NOTES  572                                                                                     SELECT
          57202    81      572      2   0  0              0        572                                             START OF SUBROUTINE
          57203    42      A2       0   0  0              0                                                        INPUT
          57204    C       8        0   0  0              0                                                        
          57205    82      572      2   0  0              0        572                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57300    PROCR   573       573     INPUT OFF PASS 2                                                      
          57301     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          57302    81      573      2   0  0              0        573                                             START OF SUBROUTINE
          57303    94      573      7   0  2              8        573     STANDARD INCREMENT                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          57304    80      574      2   0  0              0        574     READ A6->SEC 9                          ENTER SUBROUTINE
          57305    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          57306    C                0   0  0            144                                                        
    57303>57307    82      573      2   0  0              0        573                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57400    PROCR   574       574     INPUT                                                                 
          57401     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          57402    81      574      2   0  0              0        574                                             START OF SUBROUTINE
          57403    42      A6       0   0  0              0                                                        INPUT
          57404    C       9        0   0  0              0                                                        
          57405    82      574      2   0  0              0        574                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57500    PROCR   575       575     WRITE ON WORKING TAPE                                                 
          57501     NOTES  575                                                                                     SELECT
          57502    81      575      2   0  0              0        575                                             START OF SUBROUTINE
          57503    55      8        4   1  0             50                COPY ANNEXES                            BULK COPY
          57504    C       9        4   1  0              0                                                        
          57505    0       583     56   1  0              0        583     BEW                                     SELECT
          57506    5       9       52   1  0              0                                                        TRANSFER
          57507    43      A6       0   0  0              0                                                        OUTPUT
          57508    C       9        0   0  0              0                                                        
          57509    54      9        0   0  0             52                                                        BULK CLEAR
          57510    82      575      2   0  0              0        575                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57600    PROCR   576       576     PRINT                                                                 
          57601     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          57602    81      576      2   0  0              0        576                                             START OF SUBROUTINE
          57603    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          57604            583     56   1  0              0        583                                             SELECT
          57605    5       5       52   1  0              0                BEW                                     TRANSFER
          57606            587      9   0  0              0        587     HEAD OF FORM OR TRAC1                   SELECT
          57607    5       5        0   1  0              0                FUNCTION WORD                           TRANSFER
          57608    10               0   0  0              1                                                        SELECT LITERAL
          57609    5       587      9   0  0              0        587                                             TRANSFER
          57610            27       9   0  0              0                                                        SELECT
          57611    70      576     16   0  0              0        576     >PRINTER                                JUMP IF A == 0
          57612    55      5        0   1  0             50                                                        BULK COPY
          57613    C       10       4   1  6              0                                                        
          57614    80      580      2   0  0              0        580     >WRITE ON A9                            ENTER SUBROUTINE
          57615    76      576     38   0  0              0        576                                             JUMP unconditional
    57611>57616            27       8   0  0              0                PRINTER TYPE                            SELECT
          57617    12               0   0  0              9                                                        SUBTRACT LITERAL
  Source image: P1000427.JPG
          57618    70      576     34   0  0              0        576     >SPECIAL                                JUMP IF A == 0
          57619    10               0   0  0          80000                                                        SELECT LITERAL
          57620    5       5        1   0  0              0                BIT 40                                  TRANSFER
          57621    124     999     15   1  2              0                SEC 5                                   modify address of next
          57622    124              0   0  2              0                                                        select literal and division
          57623    124     999     13   1  2              0                SEC 10                                  modify address of next
          57624    129              0   0  1              0                                                        edit for anelex output
          57625    10               0   0  0              4                                                        SELECT LITERAL
    57637>57626    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          57627    1       999      7   0  0              0                ROUTE                                   ADD
          57628    34      999     12   0  0              0                                                        SET (N) IN B
          57629    125           4096   1  1              0                                                        clear indicators
          57630    124     999      0   0  3              0                                                        modify address of next
          57631    123            160   0  2              0                                                        enter master routine
          57632    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          57633    76      576     38   0  0              0        576                                             JUMP unconditional
    57618>57634    55      5        0   1  0             54                                                        BULK COPY
          57635    C       10       0   1  0              0                                                        
          57636    10               0   0  0              9                                                        SELECT LITERAL
          57637    76      576     26   0  0              0        576                                             JUMP unconditional
    57633>                                                                                                         
    57615>57638    54      5        0   0  0             50                                                        BULK CLEAR
          57639    5       16       1   0  0              0                CLEAR INDICATOR                         TRANSFER
          57640    82      576      2   0  0              0        576                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57700    PROCR   577       577     OUTPUT ON A2                                                          
          57701     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          57702    81      577      2   0  0              0        577                                             START OF SUBROUTINE
          57703            583     56   1  0              0        583     BEW                                     SELECT
          57704    5       8       52   1  0              0                                                        TRANSFER
          57705    43      A2       0   0  0              0                OUTPUT                                  OUTPUT
          57706    C       8        0   0  0              0                                                        
          57707    54      8        0   0  0             52                CLEAR                                   BULK CLEAR
          57708    82      577      2   0  0              0        577                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57800    PROCR   578       578     CONVERT (A) TO DECIMAL                                                
          57801     NOTES  578                                                                                     SELECT
          57802    81      578      2   0  0              0        578                                             START OF SUBROUTINE
          57803    5       585      4   1  0              0        585                                             TRANSFER
          57804    60               0   0  0              0                                                        SET DECIMAL RADIX
          57805    124     586     22   0  2              0        586                                             select literal and division
          57806    112     585      4   1  0              0        585                                             convert
          57807    82      578      2   0  0              0        578                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          57900    PROCR   579       579     CONVERT (A) TO BIN                                                    
          57901     NOTES  579                                                                                     SELECT
          57902    81      579      2   0  0              0        579                                             START OF SUBROUTINE
          57903    5       585      4   1  0              0        585                                             TRANSFER
          57904    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          57905    124     586      2   0  2              0        586                                             select literal and division
          57906    112     585      4   1  0              0        585                                             convert
          57907    82      579      2   0  0              0        579                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          58000    PROCR   580       580     O/P>A9                                                                
          58002    81      580      2   0  0              0        580                                             START OF SUBROUTINE
          58003    94      580      9   0  6             50        580                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          58004            583     56   1  0              0        583     BEW                                     SELECT
          58005    5       10     306   1  0              0                                                        TRANSFER
          58006    80      581      2   0  0              0        581                                             ENTER SUBROUTINE
          58007    90               0   0  6              0                                                        SET MODIFICATION REGISTER AT LITERAL
  Source image: P1000428.JPG
          58008    C                0   0  0            300                                                        
    58003>58009    82      580      2   0  0              0        580                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          58100    PROCR   581       581     WRITE A9                                                              
          58102    81      581      2   0  0              0        581                                             START OF SUBROUTINE
          58103    10               0   0  0         800000                                                        SELECT LITERAL
          58104    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          58105    125           4096   1  1              0                                                        clear indicators
          58106    1       999      7   0  0              0                D1/A9                                   ADD
          58107    124     999      0   0  3              0                                                        modify address of next
          58108    123            160   0  2              0                                                        enter master routine
          58109    82      581      2   0  0              0        581                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          58200    CONST   582       582     1    PASS 3 BLISTER SPACE                                             
          58202          (D)0;                                                                                     
          58204          0;                                                                                        
          58206          0;                                                                                        
          58208          0;                                                                                        
          58210          0;                                                                                        
          58212          0;                                                                                        
          58214          0;                                                                                        
          58216          0;                                                                                        
          58218          0;                                                                                        
          58220          0;                                                                                        
          58222          0;                                                                                        
          58224          0;                                                                                        
          58226          0;                                                                                        
          58228          0;                                                                                        
          58230          0;                                                                                        
          58232          0;                                                                                        
          58234          0;                                                                                        
          58236          0;                                                                                        
          58238          0;                                                                                        
          58240          0;                                                                                        
          58242          0;                                                                                        
          58244          0;                                                                                        
          58246          0;                                                                                        
          58248          0;                                                                                        
          58250          0;                                                                                        
          58252          0;                                                                                        
          58254          0;                                                                                        
          58256          0;                                                                                        
          58258          0;                                                                                        
          58260          0;                                                                                        
          58262          0;                                                                                        
          58264          0;                                                                                        
          58266          0;                                                                                        
          58268          0;                                                                                        
          58270          0;                                                                                        
          58272          0;                                                                                        
          58274          0;                                                                                        
          58276          0;                                                                                        
          58278          0;                                                                                        
          58280          0;                                                                                        
          58282          0;                                                                                        
          58284          0;                                                                                        
          58286          0;                                                                                        
          58288          0;                                                                                        
          58290          0;                                                                                        
          58292          0;                                                                                        
  Source image: P1000429.JPG
          58294          0;                                                                                        
          58296          0;                                                                                        
          58298          0;                                                                                        
                                                                                                                   
          58300    CONST   583       583     1                                                                     
          58302          (A)F.PT.;                                                                                 
          58304          YES;                                                                                      
          58306          NO;                                                                                       
          58308          MOD.;                                                                                     
          58310          GP.;                                                                                      
          58312          PRIOR;                                                                                    
          58314          ITY;                                                                                      
          58316          FIRST;                                                                                    
          58318          LOCN.;                                                                                    
          58320          CHAPT;                                                                                    
          58322          TYPE£;                                                                                    
          58324          FILES;                                                                                    
          58326          TRAN.;                                                                                    
          58328          AREAS;                                                                                    
          58330          ALT.R;                                                                                    
          58332          OUTES;                                                                                    
          58334          PROGR;                                                                                    
          58336          AMME;                                                                                     
          58338          SERIA;                                                                                    
          58340          ID.;                                                                                      
          58342          RTE.;                                                                                     
          58344          TYPE;                                                                                     
          58346          ST.OF;                                                                                    
          58348          BLOCK;                                                                                    
          58350          SIZE;                                                                                     
          58352          SIT;                                                                                      
          58354          PREND;                                                                                    
          58356          (D)7.0000007.;                                                                            
          58358          (A)= CH/;                                                                                 
          58360          (D)6£6£6£6£6£;                                                                            
          58362          (A)SEC;                                                                                   
          58364          TION.;                                                                                    
          58366          PROC;                                                                                     
          58368          EDURE;                                                                                    
          58370          PASS3;                                                                                    
          58372          (A)MR'S ;                                                                                 
          58374          4-20 ;                                                                                    
          58376          ITEM+;                                                                                    
          58378           CTRS;                                                                                    
          58380          SWITC;                                                                                    
          58382          HES  ;                                                                                    
          58384          (A)START;                                                                                 
          58386          NOTES;                                                                                    
          58388          SPOOL;                                                                                    
          58390          ENTRY;                                                                                    
          58392          (B)100000;                                        100,000                                 
                                                                                                                   
          58400    CONST   584       584     1                                                                     
          58402          (D)5.5.;                                                                                  
          58404          (A)INDEX;                                                                                 
          58406          CHAIN;                                                                                    
          58408          (D)7£££0003££;                                    BITS 5-19+1-10                          
          58410          (A)08000;                                                                                 
          58412          PTS I;                                                                                    
          58414          NCLUD;                                                                                    
  Source image: P1000430.JPG
          58416          ED   ;                                                                                    
                                                                                                                   
          58500    CONST   585       585     1    CONVERT TABLE                                                    
          58502          (D)1;                                             BIN>DEC                                 
          58504          0;                                                (A) WL                                  
                                                                                                                   
          58600    CONST   586       586     1    COMPLIER'S CONVERT TABLES                                        
          58602          (D)1;                                             DEC>BIN                                 
          58604          Ю;                                                                                        
          58606          64;                                                                                       
          58608          3.8;                                                                                      
          58610          2710;                                                                                     
          58612          186Ю0;                                                                                    
          58614          £4240;                                                                                    
          58616          989680;                                                                                   
          58618          5£5.100;                                                                                  
          58620          3‼9Ю+Ю00;                                                                                 
          58622          1;                                                BIN>DEC                                 
          58624          16;                                                                                       
          58626          256;                                                                                      
          58628          4096;                                                                                     
          58630          65536;                                                                                    
          58632          1048576;                                                                                  
          58634          16777216;                                                                                 
          58636          268435456;                                                                                
          58638          4294967296;                                                                               
          58640          ££££££££££;                                                                               
                                                                                                                   
          58700    CONST   587       587     0                                                                     
          58702          (D)7;                                                                                     
          58703          80000;                                                                                    
          58704          0;                                                THIS IS A 0/1 FLIPFLOP FOR SC'S FWD     
          58705          3£;                                               BITS 1-6                                
          58706          £0000;                                            £ IN Q5                                 
          58707          7£;                                                                                       
          58708          80;                                               HEAD OF FORM                            
          58709          0;                                                IND FOR HEAD OF FORM                    
          58710          3£££0;                                            BITS 5-18                               
                                                                                                                   
          58800    TABLE   588       588     1    TRIAL DATA HEADING+T/W COMMENT                                   
          58801     NOTES                                                                                          
                                                                                                                   
          58900    TABLE   589       589     1    PRINT HEADING DATA                                               
          58901     NOTES                                                                                          
          58902   583    20     0     0  2  0   4   0   1   0  0  0  0                                             
          58904   583    38     0     0  2  0   1   0   0   0  0  0  0                                             
          58906    11     8     0     0  2  0   1   4   2   0  0  0  0                                             
          58908   583    24     0     0  2  0   5   0   3   0  0  0  0                                             
          58910    11    10     0     0  0  0   2   3   2   1  0  0  0                                             
          58912   583    26     0     0  2  0   5   0   7   0  0  0  0                                             
          58914   583    28     0     0  2  0   5   0   2   0  0  0  0                                             
          58916    11    12     0     0  0  0   2   3   2   1  0  0  0                                             
          58918   583    56     0     0  2  0   5   0   6   0  0  0  1                                             
          58920    13     4     0     0  0  0   5   0   0   0  0  0  0                                             
          58922    13     3     0     0  0  0   5   0   0   0  0  0  0                                             
          58924    13     0     0     0  0  0   5   0   0   0  0  0  0                                             
          58926    13     2     0     0  0  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          59000    TABLE   590       590     1    PRINT                                                            
          59001     NOTES                         G LINE                                                           
  Source image: P1000431.JPG
          59002   583    24     0     0  2  0   4   0   1   0  0  0  0                                             
          59004   583    40     0     0  2  0   3   2   2   0  0  0  0     FILE 10.                                
          59006   583    42     0     0  2  0   4   1   6   0  0  0  0                                             
          59008   583    44     0     0  2  0   4   1   2   0  0  0  0     RTE. TYPE                               
          59010   583    84     0     0  2  0   5   0   6   0  0  0  0                                             
          59012   583    18     0     0  2  0   5   0   2   0  0  0  0     START LOCN.                             
          59014   583    30     0     0  2  0   5   0   6   0  0  0  0                                             
          59016   583    32     0     0  2  0   5   0   0   0  0  0  0     ALT. ROUTES                             
          59018   583    48     0     0  2  0   5   0   4   0  0  0  0                                             
          59020   583    50     0     0  2  0   5   0   1   0  0  0  0     'BLOCK SIZE'                            
          59022   583    20     0     0  2  0   5   0  10   0  0  0  1     CHAPT                                   
                                                                                                                   
          59100    TABLE   591       591     1                                                                     
          59101     NOTES                                                                                          
          59102   583    50     0     0  2  0   5   0   3   0  0  0  0     LGTH.OF CHAPS                           
          59104   583    46     0     0  2  0   2   3   2   0  0  0  0                                             
          59106   583    20     0     0  2  0   4   0   2   0  0  0  0                                             
          59108   583    38     0     0  2  0   1   0   0   0  0  0  0                                             
          59110    13     0     0     0  0  0   5   0   2   4  2  0  0                                             
          59112    13     1     0     0  0  0   5   0   2   4  2  0  0                                             
          59114    13     2     0     0  0  0   5   0   2   4  2  0  0                                             
          59116    13     3     0     0  0  0   5   0   2   4  2  0  0                                             
          59118    13     4     0     0  0  0   5   0   2   4  2  0  0                                             
          59120    13     5     0     0  0  0   5   0   2   4  2  0  0                                             
          59122    13     6     0     0  0  0   5   0   2   4  2  0  1                                             
          59124    13     0     0     0  0  0   5   0   0   0  0  0  0     TX AREA DETAILS MT                      
          59126    13     2     0     0  2  0   5   0   0   0  0  0  0                                             
          59128    13     4     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          59200    TABLE   592       592     1                                                                     
          59201     NOTES                                                                                          
          59202   583     2     0     0  2  0   5   0   4   0  0  0  0     F.PT.                                   
          59204    13     0     0     0  2  0   3   2   2   0  0  0  0     XXX                                     
          59206   583     8     0     0  2  0   4   1   7   0  0  0  0                                             
          59208   583    10     0     0  2  0   3   2   2   0  0  0  0     MOD. GP.                                
          59210    13     2     0     0  2  0   3   2   2   0  0  0  0     XXX                                     
          59212   583    12     0     0  2  0   5   0   7   0  0  0  0                                             
          59214   583    14     0     0  2  0   3   2   0   0  0  0  0     PRIORITY                                
          59216    11     4     0     0  2  0   1   4   2   0  0  0  0     XXX                                     
          59218   583    90     0     0  2  0   5   0   7   0  0  0  0     'ENTRY'                                 
          59220   583    58     0     0  2  0   4   0   0   0  0  0  0     '= CH'                                  
          59222    92     8     0     0  0  0   1   4   0   0  0  0  0     CHAP NUMBER                             
          59224   583    58     0     0  2  0   1   4   0   0  0  0  0     '/'                                     
          59226    92     6     0     0  0  0   4   1   0   3  0  0  1     LOCN IN CHAP                            
                                                                                                                   
          59300    TABLE   593       593     1                                                                     
          59301     NOTES                                                                                          
          59302   587     8     0     0  0  0   5   0   0   4  0  0  0     CALL HEAD OF FORM                       
          59304   583    34     0     0  2  0   5   0   1   0  0  0  0                                             
          59306   583    36     0     0  2  0   4   1   0   0  0  0  0                                             
          59308    16     2     0     0  0  0   5   0   3   0  0  0  0     PROG IDENTITY                           
          59310   583    38     0     0  2  0   5   0   3   0  0  0  0     'SERIA-                                 
          59312   583    18     0     0  2  0   1   0   0   0  0  0  0     '-L'                                    
          59314    16     3     0     0  0  0   5   0   3   4  0  0  0     PROG SERIAL                             
          59316   583    20     0     0  2  0   4   0  15   0  0  0  0     'CHAP-'                                 
          59318   583    38     0     0  2  0   1   0   0   0  0  0  0     -S'                                     
          59320    92    29     0     0  0  0   1   4   2   0  0  0  0     NUMBER OF CHAPS                         
          59322   583    24     0     0  2  0   5   0   3   0  0  0  0     'FILES'                                 
          59324   577     2     0     0  0  0   1   4   2   0  0  0  0     NUMBER OF FILES                         
          59326   583    26     0     0  2  0   5   0   6   0  0  0  0     'TRAN'                                  
  Source image: P1000432.JPG
          59328   583    28     0     0  2  0   5   0   2   0  0  0  0     AREAS'                                  
          59330   576     2     0     0  0  0   1   4   2   0  0  0  1     NUMBER OF TX AREAS                      
                                                                                                                   
          59400    TABLE   594       594     1                                                                     
          59402    11     0     0     0  2  0   5   0   6   0  0  0  0     FILE ID                                 
          59404   583     2     0     0  0  0   4   0  12   3  0  0  0     ROUTE TYPE                              
          59406    13     6     0     0  0  0   4   1  13   3  0  0  0     START LOCATION                          
          59408    13     8     0     0  2  0   3   2  11   0  0  0  0     ALT ROUTE                               
          59410    13     4     0     0  0  0   4   1  12   3  0  0  0     LENGTH                                  
          59412    13     2     0     0  0  0   4   1  12   3  0  0  1     CHAPT'                                  
          59414   583    26     0     0  2  0   5   0   1   0  0  0  0                                             
          59416   583    28     0     0  2  0   5   0   2   0  0  0  0                                             
          59418   583    84     0     0  2  0   5   0   2   0  0  0  0                                             
          59420   583    18     0     0  2  0   5   0   2   0  0  0  0                                             
          59422   583    20     0     0  2  0   5   0   7   0  0  0  0                                             
          59424   583    50     0     0  2  0   5   0   6   0  0  0  1     LGTH                                    
          59426   583     2     0     0  0  0   5   0   5   5  0  0  0     SEC NO                                  
          59428    13     0     0     0  0  0   4   1  11   3  0  0  0     START                                   
          59430   596     2     0     0  0  0   1   4  13   0  0  0  0     CHAPTER                                 
          59432    13     4     0     0  0  0   4   1   7   3  0  0  1     LENGTH                                  
          59434    11     0     0     0  2  0   5   0   0   0  0  0  0     SENTINEL MARK                           
          59436    11     2     0     0  2  0   5   0   0   0  0  0  0     SENTINEL TYPE                           
          59438    11     4     0     0  2  0   5   0   0   0  0  0  0     PROG ID NO                              
          59440    11     6     0     0  2  0   5   0   0   0  0  0  1     SERIAL NO                               
                                                                                                                   
          59500    TABLE   595       595     1                                                                     
          59502   583     2     0     0  0  0   2   3   3   1  0  0  0     SEQ NO                                  
          59504   583    58     0     0  2  0   1   0   0   0  0  0  0     ='                                      
          59506   583     3     0     0  0  0   4   1   0   3  0  0  1     SECTION START                           
          59508   583    72     0     0  2  0   5   0   0   0  0  0  0     MR'S 4-20                               
          59510   583    74     0     0  2  0   5   0   0   0  0  0  1                                             
          59512   583    76     0     0  2  0   5   0   0   0  0  0  0     ITEM+COUNTERS                           
          59514   583    78     0     0  2  0   5   0   0   0  0  0  1                                             
          59516   583    80     0     0  2  0   5   0   0   0  0  0  0     SWITCHES                                
          59518   583    82     0     0  2  0   5   0   0   0  0  0  1                                             
          59520   583     4     0     0  0  0   5   0   0   4  0  0  0     SW/MR/SEC                               
          59522   583    58     0     0  2  0   4   0   0   0  0  0  0     =CH'                                    
          59524   583     2     0     0  0  0   1   4   0   0  0  0  0     CHAP NO                                 
          59526   583    58     0     0  2  0   1   4   0   0  0  0  0     /'                                      
          59528   583     3     0     0  0  0   4   1   0   3  0  0  1     POSITION                                
                                                                                                                   
          59600    PROCR   596       596     COPY CHUNK FROM STORE S/R                                             
          59602    81      596      2   0  0              0        596                                             START OF SUBROUTINE
          59603    96               0   0  2              0                STORE CHUNK START FOR PARAS 1 AND 5     SELECT MODIFIER
          59604    5       598      2   0  0              0        598                                             TRANSFER
          59605    124     598      2   0  1              0        598                                             modify address of next
          59606    101              0   1  3              0                                                        select literal address
          59607    5       598      6   0  0              0        598     CHUNK START                             TRANSFER
    59673>59608    124     999     19   1  2              0                SEC 8                                   modify address of next
          59609    124              0   0  2              0                                                        select literal and division
          59610    3       577      2   0  0              0        577     WL                                      COPY
          59611    11               0   0  0             30                48                                      ADD LITERAL
          59612    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          59613    1       577      2   0  0              0        577                                             ADD
          59614    91               0   0  4              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    59671>59615    124     598      4   0  3              0        598     STORE WORD                              modify address of next
          59616    106              0   0  2              0                                                        select (N)
          59617    5       598      7   0  0              0        598     STORE WORD                              TRANSFER
  Source image: P1000433.JPG
    59631>59618    34      598     10   1  0              0        598     FIRST LEVEL PARA WORD                   SET (N) IN B
          59619    33               0   0  0              3                NEXT ONE TO A                           SHIFT (AB) BY BITS
          59620    100     598      8   1  0              0        598     STORE (A) (B) (C)                       copy registers
          59621    94      596     29   0  5              1        596     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          59622    90               0   0  5              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          59623    C                0   0  0              6                NEXT PARA WORD                          
          59624    124     598      4   0  3              0        598     STORE PARA WORD                         modify address of next
          59625    106              1   0  3              0                STORE PARA WORD                         select (N)
          59626    33               0   0  0              2                RIGHT ALIGN WORD                        SHIFT (AB) BY BITS
          59627    5       598     11   0  0              0        598                                             TRANSFER
          59628    94      596     29   0  3              1        596     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    59628>                                                                                                         
    59621>59629            598      8   0  0              0        598     TEST DUMMY PARA                         SELECT
          59630    12               0   0  0              6                                                        SUBTRACT LITERAL
          59631    70      596     18   0  0              0        596     >YES                                    JUMP IF A == 0
          59632    12               0   0  0              1                TEST SECOND LEVEL REQD                  SUBTRACT LITERAL
          59633    71      596     57   0  0              0        596     >NO                                     JUMP IF A != 0
    59647>59634    34      598     16   1  0              0        598     SECOND LEVEL PARA WORD                  SET (N) IN B
          59635    33               0   0  0              6                NEXT ONE TO A                           SHIFT (AB) BY BITS
          59636    100     598     14   1  0              0        598     STORE (A) (B) (C)                       copy registers
          59637    94      596     45   0  8              1        596     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          59638    90               0   0  8              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          59639    C                0   0  0              3                NEXT PARA WORD                          
          59640    124     598      4   0  3              0        598     STORE PARA WORD                         modify address of next
          59641    106              1   0  1              0                                                        select (N)
          59642    33               0   0  0              2                RIGHT ALIGN WORD                        SHIFT (AB) BY BITS
          59643    5       598     17   0  0              0        598                                             TRANSFER
          59644    94      596     45   0  1              1        596     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    59644>                                                                                                         
    59637>59645            598     14   0  0              0        598     TEST SECOND LEVEL                       SELECT
          59646    101             63   1  2              0                PARA=63(DUMMY)                          subtract literal address
          59647    70      596     34   0  0              0        596     >YES                                    JUMP IF A == 0
          59648    101              1   1  1              0                TEST END SIGN(62)                       add literal address
          59649    71      596     55   0  0              0        596     >NO                                     JUMP IF A != 0
          59650            598      4   1  0              0        598     STORE END SIGN                          SELECT
          59651    5                4   1  4              0                END SIGN                                TRANSFER
          59652    5                6   1  4              0                                                        TRANSFER
          59653    80      577      2   0  0              0        577     >WRITE LAST BLOCK                       ENTER SUBROUTINE
          59654    82      596      2   0  0              0        596     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    59649>59655            598     14   1  0              0        598     STORE ACTUAL PARA                       SELECT
          59656    5       598      8   1  0              0        598     VALUE                                   TRANSFER
    59633>59657            598      8   0  0              0        598     TEST PARA=1                             SELECT
          59658    12               0   0  0              1                                                        SUBTRACT LITERAL
          59659    70      596     62   0  0              0        596     >YES                                    JUMP IF A == 0
          59660    12               0   0  0              4                                                        SUBTRACT LITERAL
          59661    71      596     66   0  0              0        596     >NO                                     JUMP IF A != 0
    59659>59662    35               0   0  0           1111                ADJUST ORDER BY                         PREPARE FOR DIGIT COLLATION
          59663    36      598      7   0  0              0        598     CHUNK START                             COLLATE AND ADD
          59664    2       598      6   0  0              0        598                                             SUBTRACT
          59665    37      598      7   0  0              0        598                                             REPLACE SELECTED BITS
    59661>59666            598      7   0  0              0        598                                             SELECT
          59667    5                6   2  4              0                                                        TRANSFER
          59668            598      8   0  0              0        598                                             SELECT
          59669    5                4   2  4              0                                                        TRANSFER
          59670    94      596     71   0  2              1        596     WORD MR                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    59670>59671    94      596     15   0  4              4        596     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          59672    80      577      2   0  0              0        577     >WRITE                                  ENTER SUBROUTINE
          59673    76      596      8   0  0              0        596     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          59700    TABLE   597       597     3                                                                     
  Source image: P1000434.JPG
          59702    16    16     0     0  0  0   5   0   0   0  0  0  0                                             
          59704   587     2     0     0  0  0   5   0   0   0  0  0  0                                             
          59706    16     2     0     0  0  0   5   0   0   0  0  0  0                                             
          59708    16     3     0     0  0  0   5   0   0   0  0  0  0     SERIAL                                  
          59710   583    20     0     0  2  0   5   0   0   0  0  0  1      'CHAPT'                                
          59712   583    28     0     0  2  0   5   0   0   0  0  0  0                                             
          59714    16    16     0     0  0  0   5   0   3   4  0  0  1                                             
          59716    11     0     0     0  2  0   5   0   0   0  0  0  0     FILE IDENTITY                           
          59718    11     2     0     0  2  0   4   0   1   0  0  0  0     ROUTE TYPE                              
          59720    11     8     0     0  2  0   5   0   0   0  0  0  0     START LOCATION                          
          59722    11     4     0     0  2  0   5   0   0   0  0  0  0     TWICE CHAP                              
          59724    11     6     0     0  2  0   5   0   0   0  0  0  0     MAX BLOCK LENGTH                        
          59726    11    10     0     0  2  0   5   0   0   0  0  0  1     ALT ROUTE                               
                                                                                                                   
          59800    CONST   598       598     1    CONSTANTS                                                        
          59802          (D)0;                                                                                     
          59804          (A)£    ;                                                                                 
          59806          0;                                                CHUNK START/ORDER                       
          59808          0;                                                                                        
          59810          0;                                                                                        
          59812          0;                                                                                        
          59814          0;                                                                                        
          59816          0;                                                                                        
          59818          0;                                                                                        
                                                                                                                   
          59900    PROCR   599       599     DUMMY                                                                 
                                                                                                                   
          60000    PROCR   600       600                                                                           
                                                                                                                   
          60100    PROCR   601       601                                                                           
                                                                                                                   
          60200    PROCR   602       602                                                                           
                                                                                                                   
          60300    PROCR   603       603                                                                           
                                                                                                                   
          60400    PROCR   604       604     PREPARATORY STAGE                                                     
          60401     NOTES          RADIX                                                                           SELECT
          60402    10               0   0  0              0                (29)TEST UNSUITABLE MASTER              SELECT LITERAL
          60403    127     604     51   0  0              0        604     >YES(REJECT G)                          jump A = Z
          60404    124     611      6   0  2              0        611     SET UP IND MODS                         select literal and division
          60405    5       604     28   0  0              0        604     AT 15 BIT                               TRANSFER
          60406    124     611      8   0  2              0        611     ADDRESS                                 select literal and division
          60407    5       604     31   0  0              0        604                                             TRANSFER
          60408    124     611     12   0  2              0        611                                             select literal and division
          60409    5       604     47   0  0              0        604                                             TRANSFER
          60410    12               0   0  0              4                                                        SUBTRACT LITERAL
          60411    4       611      5   0  0              0        611     TO ALLOW ROOM                           AUGMENT
          60412    4       611     13   0  0              0        611     FOR 'A' AND 'B'                         AUGMENT
          60413    10               0   0  0              0                (31)TEST 2 STORES                       SELECT LITERAL
          60414    70      604     16   0  0              0        604     >NO                                     JUMP IF A == 0
          60415    76      604     18   0  0              0        604                                             JUMP unconditional
    60414>60416            611      5   0  0              0        611     SET UP MR FOR                           SELECT
          60417    5       611      3   0  0              0        611     ONE STORE AREA                          TRANSFER
    60429>                                                                                                         
    60415>60418    124     611      6   0  3              0        611                                             modify address of next
          60419    106              0   0  0              0                NEXT PROG IDENTITY                      select (N)
          60420    70      605      2   0  0              0        605     >UNLOAD THIS PROGRAM                    JUMP IF A == 0
          60421    10               0   0  0              2                STEP CTR                                SELECT LITERAL
          60422    4       611      8   0  0              0        611                                             AUGMENT
  Source image: P1000435.JPG
          60423    124     611      6   0  3              0        611     MOVE DETAIL DOWN                        modify address of next
          60424    106              0   1  0              0                                                        select (N)
          60425    124     611      8   0  3              0        611                                             modify address of next
          60426    102              0   1  0              0                                                        transfer (A) to N
    61036>60427    123              2   0  0              0                (REENTRY AFTER UNLOAD)                  step on and test
          60428    100     611      6   0  0              0        611                                             Halt
          60429    76      604     18   0  0              0        604                                             JUMP unconditional
    60437>60430    123              2   0  0              0                >NEXT ENTRY                             step on and test
          60431    100     611      8   0  0              0        611                                             Halt
          60432    76      604     34   0  0              0        604                                             JUMP unconditional
          60433    76      604     38   0  0              0        604     >LAST ENTRY                             JUMP unconditional
    60432>60434            611     10   1  0              0        611     SET 10X£ IN REMAINING                   SELECT
          60435    124     611      8   0  3              0        611     PQ LOCNS                                modify address of next
          60436    102              0   1  0              0                                                        transfer (A) to N
          60437    76      604     30   0  0              0        604                                             JUMP unconditional
    60448>                                                                                                         
    60433>60438    124     611     12   0  3              0        611     FIND SUFFICIENT STORE                   modify address of next
          60439    106              1   0  0              0                AREA FOR NEXT CHAP(500 LOCNS)           select (N)
          60440    2       611     10   0  0              0        611                                             SUBTRACT
          60441    70      604     46   0  0              0        604     >SKIP END SIGNS, TRUST MR               JUMP IF A == 0
          60442    1       611     10   0  0              0        611                                             ADD
          60443    118              0   0  0              0                DUMMY                                   shift logical
          60444    101            516   1  2              0                                                        subtract literal address
          60445    72      604     54   0  0              0        604                                             JUMP IF A >= 0
    60441>60446    123              2   0  0              0                                                        step on and test
          60447    100     611     12   0  0              0        611                                             Halt
          60448    76      604     38   0  0              0        604                                             JUMP unconditional
          60449    10               0   0  0              0                                                        SELECT LITERAL
          60450    12               0   0  0              4                C COMMENT                               SUBTRACT LITERAL
    60403>60451    11               0   0  0             57                G COMMENT                               ADD LITERAL
          60452    124     611     14   0  3              0        611                                             modify address of next
          60453    124              0   1  0              0                (14)->REJECT                            unconditional jump
    60445>60454    124     611     12   0  3              0        611                                             modify address of next
          60455    106              0   0  0              0                15-BIT START                            select (N)
          60456    124     611     14   0  3              0        611                                             modify address of next
          60457    103             28   0  0              0                R2 MODIFIER                             copy (A) to N
          60458    124     611     14   0  3              0        611                                             modify address of next
          60459    103              0   0  0              0                PLANT S/R LINK                          copy (A) to N
          60460    34      611     19   0  0              0        611     BITS 1-13                               SET (N) IN B
          60461    114     611     19   0  0              0        611                                             replace selected bits
          60462            611     19   0  0              0        611     CHUNK START PARA                        SELECT
          60463    124     611     14   0  3              0        611                                             modify address of next
          60464    102              1   0  0              0                                                        transfer (A) to N
          60465    101              0   1  3              0                                                        select literal address
          60466    124     611     14   0  3              0        611     SECOND ORDER                            modify address of next
          60467    124              1   1  0              0                >LOAD CHAP S/R                          unconditional jump
                                                                                                                   
          60500    PROCR   605       605     UPDATE PREVIOUS SWITCH,UNLOAD FP/MG/TAG                               
          60501     NOTES          RADIX                                                                           SELECT
    60420>60502    35               0   0  0           1111                Q1-4B,A CLEAR                           PREPARE FOR DIGIT COLLATION
          60503    124     611      6   0  3              0        611                                             modify address of next
          60504    115              1   0  0              0                START OF SWITCH                         collate and add
          60505    5       604      2   1  0              0        604                                             TRANSFER
          60506    124     604      2   0  3              0        604                                             modify address of next
          60507    106             37   0  0              0                SI+37                                   select (N)
          60508    5       611     18   0  0              0        611     SPECIAL CHAPTER START                   TRANSFER
          60509    124     611      8   0  3              0        611                                             modify address of next
          60510    106              1   0  0              0                SWITCH START OF PROC ABOVE THIS         select (N)
          60511    124     611     14   0  3              0        611                                             modify address of next
          60512    102             30   1  0              0                SET R3                                  transfer (A) to N
  Source image: P1000436.JPG
          60513    126     604      2   1  2              0        604     THIS SWITCH STARTS>R2                   set modification register
          60514    124     611     14   0  3              0        611                                             modify address of next
          60515    126              0   0  0              0                >'UPDATE SWITCH' S/R                    enter subroutine
          60516    124     611     18   0  3              0        611                                             modify address of next
          60517    106              0   0  0              0                FP USED                                 select (N)
          60518    70      605     28   0  0              0        605     >NO                                     JUMP IF A == 0
          60519    126     611     14   1  2              0        611     6/0                                     set modification register
    60527>60520    101             14   1  3              0                                                        select literal address
          60521    124     611     14   0  3              0        611                                             modify address of next
          60522    123            128   1  2              0                TAG 14                                  copy into tag
          60523    10               0   0  0              0                                                        SELECT LITERAL
          60524    124     611     14   0  3              0        611                                             modify address of next
          60525    102            128   1  2              0                CLEAR                                   transfer (A) to N
          60526    125              2   0  2              0                                                        step on and test
          60527    76      605     20   0  0              0        605                                             JUMP unconditional
    60518>60528    124     611     18   0  3              0        611                                             modify address of next
          60529    106              1   0  0              0                MOD GROUP                               select (N)
          60530    70      605     39   0  0              0        605     >NOT USED                               JUMP IF A == 0
          60531    31               0   0  0              3                                                        SHIFT (A) BY BITS
          60532    5       604      2   0  0              0        604     STORE 8M                                TRANSFER
          60533    126     611     14   1  2              0        611     6/0                                     set modification register
          60534    101             14   1  3              0                                                        select literal address
    60538>60535    124     604      2   0  3              0        604                                             modify address of next
          60536    123              2   1  2              0                TAG 14 INTO MOD GROUP                   copy into tag
          60537    125              2   0  2              0                                                        step on and test
          60538    76      605     35   0  0              0        605                                             JUMP unconditional
    60530>60539    124     611     18   0  3              0        611     SPECIAL CHAP START                      modify address of next
          60540    106             10   0  0              0                ALLOCATED TAG                           select (N)
          60541    3       604      2   0  0              0        604     W/L                                     COPY
          60542    32               0   0  0              1-               TAG TO Q10B                             SHIFT (AB) BY QUARTETS
          60543    124     604      2   0  3              0        604                                             modify address of next
          60544    118              0   1  0              0                SHIFT TAGX TO QXA                       shift logical
          60545    124     611     14   0  3              0        611     ZERO                                    modify address of next
          60546    107              0   1  0              0                AUG TAG AVAILABILITY LOCN               augment (N) by (A)
          60547    124     611     18   0  3              0        611     SPECIAL CHAP                            modify address of next
          60548    126             18   1  2              0                2X(R+T)                                 set modification register
          60549    126     611     14   1  3              0        611     6:0 FLIP FLOP                           set modification register
          60550    125              3   0  3              0                                                        step on and test
    60641>60551    125              3   0  3              0                                                        step on and test
          60552    76      606      4   0  0              0        606                                             JUMP unconditional
          60553    126     611     14   1  3              0        611     06:00                                   set modification register
          60554    124     611     18   0  3              0        611     NEXT ROUTE DETAIL                       modify address of next
          60555    106             34   1  2              0                                                        select (N)
          60556    72      606      4   0  0              0        606                                             JUMP IF A >= 0
          60557    125              3   0  3              0                >NOT DEALLOCATED BY PROGRAM             step on and test
                                                                                                                   
          60600    PROCR   606       606     UNLOAD ROUTES AND PSEUDO ROUTES                                       
          60601     NOTES          RADIX          103                                                              SELECT
          60602    125              1   0  2              0                                                        step on and test
          60603    76      606     40   0  0              0        606     >ALREADY DEALLOCATED                    JUMP unconditional
    60556>                                                                                                         
    60552>60604    124     611     18   0  3              0        611                                             modify address of next
          60605    106             34   0  2              0                NEXT DETAIL                             select (N)
          60606    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          60607    5       604     13   0  0              0        604     Q5=ROUTE TYPE                           TRANSFER
          60608    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          60609    10               0   0  0              0                                                        SELECT LITERAL
          60610    32               0   0  0              2                Q1,2=ROUTE                              SHIFT (AB) BY QUARTETS
          60611    70      606     40   0  0              0        606                                             JUMP IF A == 0
          60612    101            128   1  2              0                (32)TEST ALT ROUTE                      subtract literal address
  Source image: P1000437.JPG
          60613    70      606     40   0  0              0        606     >YES                                    JUMP IF A == 0
          60614    101            128   1  1              0                (32)                                    add literal address
          60615    3       604     14   0  0              0        604     ROUTE                                   COPY
          60616    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          60617    33               0   0  0              1                STORE 8XCHANNEL                         SHIFT (AB) BY BITS
          60618    118              3   0  3              0                                                        shift binary
          60619    5       604     15   0  0              0        604                                             TRANSFER
          60620    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          60621    5       604     16   0  0              0        604     STORE RTE NO MOD 8                      TRANSFER
          60622            604     13   0  0              0        604     ROUTE TYPE                              SELECT
          60623    71      606     25   0  0              0        606                                             JUMP IF A != 0
          60624            611     16   0  0              0        611     0                                       SELECT
    60623>60625    124     604     14   0  3              0        604                                             modify address of next
          60626    102             64   0  0              0                                                        transfer (A) to N
          60627    124     604     15   0  3              0        604     UPDATE ASSEMBLER TABLE                  modify address of next
          60628    106              0   0  0              0                (12)                                    select (N)
          60629    2       604     14   0  0              0        604                                             SUBTRACT
          60630    71      606     34   0  0              0        606     >NOT THIS ROUTE                         JUMP IF A != 0
          60631            611     10   0  0              0        611     SET                                     SELECT
          60632    124     604     15   0  3              0        604                                             modify address of next
          60633    102              0   1  0              0                (12)                                    transfer (A) to N
    60630>60634    101              1   0  1              0                                                        prepare for digit collation
          60635    101              0   1  3              0                                                        select literal address
          60636    124     604     16   0  3              0        604     ROUTE IN CHANNEL                        modify address of next
          60637    118              0   1  0              0                                                        shift logical
          60638    124     604     15   0  3              0        604                                             modify address of next
          60639    114              2   1  0              0                (12)                                    replace selected bits
    60613>                                                                                                         
    60611>                                                                                                         
    60603>60640    125              1   0  2              0                                                        step on and test
          60641    76      605     51   0  0              0        605     >ALT ROUTE OR NEXT ROUTE                JUMP unconditional
                                                                                                                   
          60700    PROCR   607       607     UNLOAD STORAGE, CLEAR/SET TAG 14                                      
          60701     NOTES          RADIX          104 PREP STAGE                                                   SELECT
          60702    124     611     18   0  3              0        611     SPECIAL CHAP START                      modify address of next
          60703    126             16   1  2              0                (2XCHAPS):0                             set modification register
    61035>60704    124     611     18   0  3              0        611                                             modify address of next
          60705    106             20   1  2              0                                                        select (N)
          60706    5       604      2   1  0              0        604     END/START NEXT CHAP                     TRANSFER
          60707    126     604      2   1  3              0        604                                             set modification register
          60708    101             14   1  3              0                                                        select literal address
    60712>60709    124     611     14   0  3              0        611                                             modify address of next
          60710    123              0   1  3              0                STACK TAG 14 EVERY WHERE                copy into tag
          60711    125              2   0  3              0                                                        step on and test
          60712    76      607      9   0  0              0        607                                             JUMP unconditional
          60713    126     604      2   1  3              0        604     START/END NEXT CHAP                     set modification register
          60714            604      2   0  0              0        604     START                                   SELECT
          60715    2       611     18   0  0              0        611     SPECIAL CHAP START                      SUBTRACT
          60716    71      607     20   0  0              0        607     >NOT SP CHAP                            JUMP IF A != 0
          60717    125            500   0  3              0                DON'T CLEAR FIRST 500                   step on and test
          60718    76      607     20   0  0              0        607                                             JUMP unconditional
          60719    76      608      2   0  0              0        608     >NONE TO CLEAR                          JUMP unconditional
    60718>                                                                                                         
    60716>60720    10               0   0  0              0                                                        SELECT LITERAL
    60724>60721    124     611     14   0  3              0        611                                             modify address of next
          60722    102              0   1  3              0                                                        transfer (A) to N
          60723    125              2   0  3              0                                                        step on and test
          60724    76      607     21   0  0              0        607                                             JUMP unconditional
                                                                                                                   
          60800    PROCR   608       608                                                                           
  Source image: P1000438.JPG
          60801     NOTES          RADIX          105                                                              SELECT
    60719>60802    10               0   0  0              0                (31) TEST 2 STORES                      SELECT LITERAL
          60803    70      608      9   0  0              0        608     >NO                                     JUMP IF A == 0
          60804    0       604      2   0  0              0        604     CHAP START                              SELECT
          60805    2       610     37   0  0              0        610     CONST=DIV 4/0                           SUBTRACT
          60806    73      608      9   0  0              0        608     >CHAP IN FIRST STORE                    JUMP IF A < 0
          60807    0       611     22   1  0              0        611     FOR SECOND                              SELECT
          60808    76      608     10   0  0              0        608                                             JUMP unconditional
    60806>                                                                                                         
    60803>60809    0       611     20   1  0              0        611     FOR FIRST                               SELECT
    60808>60810    5       604     16   1  0              0        604                                             TRANSFER
          60811    126     604     16   1  1              0        604     SET UP MRS                              set modification register
    60935>60812    126     604     16   1  3              0        604                                             set modification register
    60923>60813    124     611     14   0  3              0        611     NEXT STRIP                              modify address of next
          60814    106              0   1  3              0                                                        select (N)
                                                                                                                   
          60900    PROCR   609       609     UNLOAD NEXT CHAP-LOOK FOR JOINS                                       
          60901     NOTES          RADIX          106                                                              SELECT
          60902    05      604     12   1  0              0        604     W/L                                     TRANSFER
          60903    00      604     12   0  0              0        604     NEXT STRIP START                        SELECT
          60904    70      609     22   0  0              0        609     >DUMMY, STEP R3                         JUMP IF A == 0
          60905    2       611     10   0  0              0        611                                             SUBTRACT
          60906    70      609     36   0  0              0        609     >LIST END                               JUMP IF A == 0
          60907    00      604     12   0  0              0        604     STRIP START                             SELECT
          60908    01      604     13   0  0              0        604     STRIP LENGTH                            ADD
          60909    5       604     15   0  0              0        604     =STRIP END                              TRANSFER
          60910    34      611     19   0  0              0        611     BITS1-13                                SET (N) IN B
          60911    36      604     12   0  0              0        604     STRIP START                             COLLATE AND ADD
          60912    70      609     17   0  0              0        609     >START IS DIVISION BOUNDARY             JUMP IF A == 0
          60913    00      604     12   0  0              0        604     STRIP START                             SELECT
          60914    2       604      3   0  0              0        604     CHAP END                                SUBTRACT
          60915    70      609     24   0  0              0        609     >JOINS UP                               JUMP IF A == 0
          60916    10               0   0  0              0                                                        SELECT LITERAL
    60912>60917    36      604     15   0  0              0        604                                             COLLATE AND ADD
          60918    70      609     22   0  0              0        609     >STRIP END IS DIVISION BOUNDARY         JUMP IF A == 0
          60919            604     15   0  0              0        604     STRIP END                               SELECT
          60920    2       604      2   0  0              0        604     CHAP START                              SUBTRACT
          60921    70      609     28   0  0              0        609     >JOINS UP                               JUMP IF A == 0
    60918>                                                                                                         
    60904>60922    125              2   0  3              0                                                        step on and test
          60923    76      608     13   0  0              0        608     >NEXT STRIP                             JUMP unconditional
    60915>60924            604      2   0  0              0        604     CHAP START                              SELECT
          60925    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          60926    1       604     15   0  0              0        604     STRIP END                               ADD
          60927    76      609     31   0  0              0        609                                             JUMP unconditional
    60921>60928    00      604     12   0  0              0        604     STRIP START                             SELECT
          60929    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          60930    1       604      3   0  0              0        604     CHAP END                                ADD
    60927>60931    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          60932    5       604      2   1  0              0        604     STORE SUPERCHAP                         TRANSFER
          60933    124     611     14   0  3              0        611     CLEAR STRIP DETAIL                      modify address of next
          60934    102              0   1  3              0                                                        transfer (A) to N
          60935    76      608     12   0  0              0        608     >LOOP AGAIN                             JUMP unconditional
    60906>60936    2       604      2   0  0              0        604     START                                   SUBTRACT
          60937    4       604      3   0  0              0        604     CHANGE END OF LENGTH                    AUGMENT
                                                                                                                   
          61000    PROCR   610       610     SORT NEXT ITEM INTO STORAGE LIST                                      
          61001     NOTES          RADIX          107                                                              SELECT
    61027>61002    124     604     16   0  3              0        604     CTR                                     modify address of next
          61003    106              0   1  0              0                                                        select (N)
  Source image: P1000439.JPG
          61004    3       611     24   1  0              0        611     W/L                                     COPY
          61005    70      610     25   0  0              0        610     >DUMMY STEP CTR                         JUMP IF A == 0
          61006    2       611     10   1  0              0        611     £X10                                    SUBTRACT
          61007    70      610     28   0  0              0        610     >END ROUTINE                            JUMP IF A == 0
          61008            611     24   1  0              0        611                                             SELECT
          61009    2       604      2   1  0              0        604     DETAIL TO INSERT                        SUBTRACT
          61010    73      610     17   0  0              0        610     >NOT YET                                JUMP IF A < 0
          61011            604      2   1  0              0        604                                             SELECT
          61012    124     611     14   0  3              0        611                                             modify address of next
          61013    102              0   1  1              0                WRITE INTO LIST                         transfer (A) to N
          61014            611     24   1  0              0        611                                             SELECT
          61015    5       604      2   1  0              0        604     INSERT OVERWRITTEN ITEM NEXT TIME       TRANSFER
          61016    76      610     20   0  0              0        610                                             JUMP unconditional
    61010>61017            611     24   1  0              0        611     WRITE ITEM BACK                         SELECT
          61018    124     611     14   0  3              0        611                                             modify address of next
          61019    102              0   1  1              0                                                        transfer (A) to N
    61016>61020    125              2   0  1              0                STEP MR1                                step on and test
          61021    76      610     25   0  0              0        610                                             JUMP unconditional
          61022    10               0   0  0             51                TOO MANY STRIPS                         SELECT LITERAL
          61023    124     611     14   0  3              0        611     INTERNAL IMPOSSIBILITY                  modify address of next
          61024    124              0   1  0              0                (13)>XXXA                               unconditional jump
    61021>                                                                                                         
    61005>61025    10               0   0  0              2                STEP CTR                                SELECT LITERAL
          61026    4       604     16   0  0              0        604                                             AUGMENT
          61027    76      610      2   0  0              0        610     >NEXT STRIP                             JUMP unconditional
    61007>61028            604      2   1  0              0        604     INSERT FINAL DETAILS                    SELECT
          61029    124     611     14   0  3              0        611                                             modify address of next
          61030    102              0   1  1              0                                                        transfer (A) to N
          61031            611     10   1  0              0        611                                             SELECT
          61032    124     611     14   0  3              0        611                                             modify address of next
          61033    102              2   1  1              0                                                        transfer (A) to N
          61034    125              2   0  2              0                STEP MR2                                step on and test
          61035    76      607      4   0  0              0        607     >UNLOAD NEXT CHAP                       JUMP unconditional
          61036    76      604     27   0  0              0        604     >UNLOAD NEXT PROGR                      JUMP unconditional
          61037    100              0   1  0              0                CONSTANT=DIV 4/0                        copy registers
          61038            604      2   0  0              0        604                                             SELECT
          61039    10               0   0  0              0                DUMMY                                   SELECT LITERAL
                                                                                                                   
          61100    CONST   611       611     0    108                                                              
          61102          (D)0;                                             (30)START FIRST TABLE                   
          61103          0;                                                (31)START LAST TABLE                    
          61104          0;                                                (31)DO                                  
          61105          0;                                                (3)END+4 OF LAST AREA                   
          61106          2;                                                (29)START PQ                            
          61107          0;                                                (30)END PQ                              
          61108          0;                                                (29)END PQ                              
          61109          0;                                                (20)START PQ                            
          61110          £££££;                                                                                    
          61111          £££££;                                                                                    
          61112          0;                                                (30)START FIRST AREA                    
          61113          0;                                                (3)END+4 OF LAST AREA                   
          61114          0;                                                                                        
          61115          6;                                                                                        
          61116          ££££;                                                                                     
          61117          £0000;                                                                                    
          61118          0;                                                                                        
          61119          1£££;                                                                                     
          61120          0;                                                (30)FIRST STORE                         
          61121          0;                                                                                        
          61122          0;                                                (31)SECOND STORE                        
  Source image: P1000440.JPG
          61123          0;                                                                                        
          61124          0;                                                W/L FOR STRIP DETAIL                    
          61125          0;                                                                                        
          61126          0;                                                BLISTER SPACE                           
          61127          0;                                                                                        
                                                                                                                   
          61200    PROCR   612       612     DUMMY PROCEDURE START OF ALLOC STORAGE                                
          61201     NOTES          RADIX          201                                                              SELECT
                                                                                                                   
          61300    PROCR   613       613     SET UP 1 OR 2 STORE AREAS                                             
          61301     NOTES          RADIX          202 STORE FOR CHAP DETAILS                                       SELECT
          61302    101              0   1  3              0                (31)TEST 2 STORES                       select literal address
          61303    70      613     14   0  0              0        613     >1 AREA                                 JUMP IF A == 0
          61304    10               0   0  0              0                                                        SELECT LITERAL
          61305    12               0   0  0              1                                                        SUBTRACT LITERAL
          61306    4       621      6   0  0              0        621     SET SWITCH=2                            AUGMENT
          61307    10               0   0  0              0                                                        SELECT LITERAL
          61308    2       613     17   0  0              0        613                                             SUBTRACT
          61309    4       622     30   0  0              0        622     (71>73 ORDER)                           AUGMENT
          61310    101              0   1  3              0                (31)FORM FIRST TABLE LENGTH             select literal address
          61311    101              0   1  2              0                (30)                                    subtract literal address
          61312    4       614     20   0  0              0        614     ADJUST MR SETTING                       AUGMENT
          61313    4       621     23   0  0              0        621     ADJUST ORDERS                           AUGMENT
    61303>61314    124     613     26   0  3              0        613                                             modify address of next
          61315    126              0   0  0              0                (7)>READ BLOCK                          enter subroutine
          61316    76      616      2   0  0              0        616                                             JUMP unconditional
          61317    100              0   0  2              0                CONSTANT                                replace (B) by (N)
          61318    100              1   0  0              0                COLLATION CONST                         Halt
          61319    100              0   0  0              0                INIT CHAP COLL CONST                    Halt
          61320    100              0   0  0              0                TOT CHAPS FOR ALLOCATION                Halt
          61321    100              0   0  0              0                ?                                       Halt
          61322    100              0   0  0              0                ?                                       Halt
          61323    100              0   0  0              0                VBLE BIT PATTERN                        Halt
          61324    100              0   0  0              0                START OF ALLOC IN STRIP                 Halt
          61325    100              0   0  0              0                ZERO CONST)                             Halt
          61326    100              0   0  0              0                                    )R1 WL              Halt
          61327    100              0   0  0              0                TOTAL LENGTH COUNTER                    Halt
          61328    100              0   0  0              0                W/L FOR ALLOC CHAPS                     Halt
          61329    100              0   0  0              0                COLLATION CONSTANT                      Halt
          61330    100              1   0  0              0                MIN WASTAGE BIT PATTERN                 Halt
          61331    100              0   0  0              0                                                        Halt
                                                                                                                   
          61400    PROCR   614       614     STORE CARRIED FORWARD DETAILS                                         
          61401     NOTES          RADIX          203                                                              SELECT
    62931>61402    124     614     20   0  3              0        614     BULK COPY TO                            modify address of next
          61403    128            250   0  0              0                MIDDLE OF SPECIAL CHAP                  bulk copy short numeric
          61404    124     614     20   0  3              0        614                                             modify address of next
          61405    124            250   1  0              0                >NEW POSITION OF NEXT ORDER             unconditional jump
    62935>61406    106     614     18   1  0              0        614     COPY 40 LOCNS STORAGE TABLE TO CHAP 1/80select (N)
          61407    124     614     42   0  3              0        614                                             modify address of next
          61408    128             80   0  0              0                                                        bulk copy short numeric
          61409    106     614     16   1  0              0        614     COPY 54 LOCNS MISC TO START OF EXTRA CHAselect (N)
          61410    124     614     20   0  3              0        614                                             modify address of next
          61411    128              0   0  0              0                                                        bulk copy short numeric
          61412    101              0   1  3              0                PARA TABLE START                        select literal address
          61413    124     614     15   0  3              0        614                                             modify address of next
          61414    124              1   1  0              0                (6)>LOAD CHAP                           unconditional jump
          61415    100              0   0  0              0                ZERO                                    Halt
          61416    100             16   0  0              0                TABLE ENTRIES                           Halt
          61417    100             54   0  0              0                                                        Halt
  Source image: P1000441.JPG
          61418    100             70   0  0              0                                                        Halt
          61419    100             40   0  0              0                                                        Halt
          61420    100              0   0  0              0                W/L'S FOR BEGIN/END                     Halt
          61421    100              0   0  0              0                OF STORE AREAS                          Halt
                                                                                                                   
          61500    CONST   615       615     0    204 DUMMY PROCEDURE FOR OVERWRITE                                
          61502          (B)64-;                                           (11)MASTER PSEUDO                       
          61503          0;                                                                                        
                                                                                                                   
          61600    PROCR   616       616     INPUT CD DEAL WITH ANNEXES W/L'S                                      
          61601     NOTES          RADIX          205                                                              SELECT
    61316>61602    124     615      2   1  2              0        615     UNPACK ALPHA->NUMERIC                   modify address of next
          61603    124             25   0  2              0                CHAP DETAILS                            select literal and division
          61604    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          61605    101             28   1  3              0                                                        select literal address
          61606    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          61607    128     612      3   1  0              0        612                                             bulk copy alpha to short
          61608    124     615      2   1  2              0        615     UNPACK ALPHA->NUMERIC                   modify address of next
          61609    124              5   0  2              0                GENERAL DETAILS                         select literal and division
          61610    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          61611    101             20   1  3              0                                                        select literal address
          61612    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          61613    128     615      2   1  0              0        615                                             bulk copy alpha to short
          61614            612     10   1  0              0        612     TRANSFER PROG                           SELECT
          61615    5       615     14   1  0              0        615     SERIAL AND IDENTITY                     TRANSFER
          61616    101     612      2   1  3              0        612     TEST IF PTS REQD     ALLOC COMMENT      select literal address
          61617    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          61618    32               0   0  0              1-               STORE PARAS FOR                         SHIFT (AB) BY QUARTETS
          61619    5       615     12   0  0              0        615     ALLOC ROUTES                            TRANSFER
          61620    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          61621    3       615     13   0  0              0        615     STORE'TRIALS ALLOC'IND                  COPY
          61622    70      616     30   0  0              0        616     >NOT TRIALS ALLOCATED                   JUMP IF A == 0
          61623    101              0   1  3              0                (28)PTS IN MASTER?                      select literal address
          61624    70      616     30   0  0              0        616     >YES                                    JUMP IF A == 0
          61625    3       615      3   0  0              0        615     RESERVE MOD GROUP                       COPY
          61626    0       619     14   0  0              0        619                                             SELECT
          61627    5       617     21   0  0              0        617     (TO STEP CTR IF PTS CHAP NEEDED)        TRANSFER
          61628    101           1500   1  3              0                PTS SIZE                                select literal address
          61629    4       620     10   0  0              0        620     AUGMENT SPECIALSIZE                     AUGMENT
    61624>                                                                                                         
    61622>61630    124     615      6   0  1              0        615     FIRST SPECIAL CHAP   (CHAPS INITIALLY)  modify address of next
          61631    103     612      3   0  0              0        612                                             copy (A) to N
          61632    124     615      6   0  1              0        615     STORE PRINT S/R START                   modify address of next
          61633    106     612      2   0  0              0        612     (SPEC CHAP LENGTH)                      select (N)
          61634    102     615     17   0  0              0        615                                             transfer (A) to N
          61635            615      6   0  0              0        615     2XCHAPS                                 SELECT
          61636    1       615      6   0  0              0        615                                             ADD
          61637    5       615     19   0  0              0        615                                             TRANSFER
          61638    124     615     19   0  0              0        615                                             modify address of next
          61639    102     615     22   1  0              0        615     CLEAR PTS DETAILS                       transfer (A) to N
          61640    101              0   1  3              0                PARA TABLE START                        select literal address
          61641    5       615     34   0  0              0        615     FOR TRANSLATOR                          TRANSFER
          61642    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          61643    124     613     26   0  3              0        613                                             modify address of next
          61644    115             27   0  0              0                (3)MACHINE PRINTER TYPE                 collate and add
          61645    101              9   1  2              0                                                        subtract literal address
          61646    103     615     16   0  0              0        615     STORE INDICATOR                         copy (A) to N
          61647    71      617      2   0  0              0        617     >RTE TYPE 4                             JUMP IF A != 0
          61648    10               0   0  0              1                                                        SELECT LITERAL
          61649    4       617     22   0  0              0        617                                             AUGMENT
  Source image: P1000442.JPG
          61650    4       617     25   0  0              0        617                                             AUGMENT
          61651    106     619     12   0  0              0        619                                             select (N)
          61652    102     619      9   0  0              0        619                                             transfer (A) to N
                                                                                                                   
          61700    PROCR   617       617     FORM UP DETAILS FOR PRINTERS                                          
          61701     NOTES          RADIX          206                                                              SELECT
    61647>61702            615     19   0  0              0        615     SET UP MRS 2C:0                         SELECT
          61703    5       613     20   0  0              0        613     FOR LIST OF CHAPS                       TRANSFER
          61704            615      6   0  0              0        615                                             SELECT
          61705    3       613     22   0  0              0        613                                             COPY
          61706    101              4   1  1              0                AND LIST OF LENGTHS                     add literal address
          61707    5       613     23   0  0              0        613                                             TRANSFER
          61708    126     613     20   1  1              0        613     MR 2C: 0                                set modification register
          61709    126     613     22   1  3              0        613     2(C+2) : 0                              set modification register
          61710    5       615     24   1  1              0        615     ENSURE NO PRINT S/R UNLESS DESIRED      TRANSFER
          61711    101              0   1  3              0                (28) IS THIS ISSUE 6+MASTER?            select literal address
          61712    70      617     20   0  0              0        617     >NO                                     JUMP IF A == 0
          61713    101              0   1  3              0                (48)BONUS TO SPECIAL CHAP FOR CMR       select literal address
          61714    34      620      2   0  0              0        620                                             SET (N) IN B
          61715    124     615      6   0  1              0        615                                             modify address of next
          61716    36      612      2   0  0              0        612                                             COLLATE AND ADD
          61717    124     615      6   0  1              0        615                                             modify address of next
          61718    37      612      2   0  0              0        612                                             REPLACE SELECTED BITS
          61719    10               0   0  0              0                DUMMY                                   SELECT LITERAL
    61712>61720            612     14   0  0              0        612     TEST ANY RT 19 PRINTERS                 SELECT
          61721    70      617     54   0  0              0        617     *FORMED ORDER*->NONE                    JUMP IF A == 0
          61722    0       612     13   0  0              0        612     *1 ADDED FOR SPECIAL PRINTER*           SELECT
          61723    80      619      2   0  0              0        619     >BREAK UP DETAILS S/R                   ENTER SUBROUTINE
          61724    125              2   0  1              0                                                        step on and test
          61725    0       612     15   0  0              0        612     *1 ADDED FOR SPECIAL PRINTER*           SELECT
          61726    80      619      2   0  0              0        619     >BREAK UP DETAILS S/R                   ENTER SUBROUTINE
    61746>61727            615     23   0  1              0        615                                             SELECT
          61728    71      617     33   0  0              0        617     >CHAP CHOSEN                            JUMP IF A != 0
          61729            615     22   0  1              0        615     ANNEXE LENGTH                           SELECT
          61730            615     22   0  1              0        615     DUMMY                                   SELECT
          61731    4       620     10   0  0              0        620     AUGMENT SPECIAL TOTAL                   AUGMENT
          61732    76      617     43   0  0              0        617                                             JUMP unconditional
    61728>61733    5       613     20   0  0              0        613                                             TRANSFER
          61734            615     22   0  1              0        615     ANNEXE LENGTH                           SELECT
          61735    34      620      2   0  0              0        620                                             SET (N) IN B
          61736    124     613     20   0  1              0        613     CHAP LENGTH ALLOWING                    modify address of next
          61737    36      612      2   0  0              0        612     FOR NEG CHAP LENGTH                     COLLATE AND ADD
          61738    124     613     20   0  1              0        613                                             modify address of next
          61739    37      612      2   0  0              0        612                                             REPLACE SELECTED BITS
          61740            615     23   0  1              0        615     DOUBLE CHAP NO                          SELECT
          61741    4       615     23   0  1              0        615                                             AUGMENT
          61742    101              0   1  3              0                CLEAR CHAP LENGTH                       select literal address
    61732>61743    5       612      4   0  3              0        612                                             TRANSFER
          61744    125              2   0  1              0                                                        step on and test
          61745    125              1   0  3              0                                                        step on and test
          61746    76      617     27   0  0              0        617                                             JUMP unconditional
          61747    106     615     16   0  0              0        615     TEST RTE TYPE 9                         select (N)
          61748    70      617     52   0  0              0        617     >YES                                    JUMP IF A == 0
          61749    101              1   1  3              0                                                        select literal address
          61750    4       618     21   0  0              0        618     ADJUST ORDERS FOR PRINT S/R LENGTH      AUGMENT
          61751    10               0   0  0              2                (+5 IF GP)                              SELECT LITERAL
    61748>61752    11               0   0  0              2                (+3 IF SPECIAL)                         ADD LITERAL
    61914>61753    11               0   0  0              1                (+1 IF TRIALS ALLOC)                    ADD LITERAL
    61721>61754    1       615      6   0  0              0        615     CHAPS INITIALLY                         ADD
          61755    5       613     20   0  0              0        613     CHAPS FOR ALLOCATION                    TRANSFER
  Source image: P1000443.JPG
          61756    34      620      2   1  0              0        620     Q1=10                                   SET (N) IN B
          61757    124     615      6   0  1              0        615     INITIAL CHAPS X                         modify address of next
          61758    118              0   1  3              0                FORM BITS 1-X                           shift binary
          61759    5       613     19   0  0              0        613                                             TRANSFER
          61760    124     613     20   0  1              0        613     TOT CHAPS Y                             modify address of next
          61761    118              0   1  3              0                FORM BITS 1-Y                           shift binary
          61762    5       613     21   0  0              0        613                                             TRANSFER
          61763    91      614     20   0  3              0        614     R3 SCANS STORE AREA                     SET MODIFICATION REGISTER AT VARIABLE
          61764    5       614     20   0  0              0        614     CLEAR                                   TRANSFER
          61765    0       613     20   0  0              0        613     TOT CHAPS                               SELECT
          61766    2       615      6   0  0              0        615     INIT CHAPS                              SUBTRACT
          61767    70      618      2   0  0              0        618     >NO SPECIAL CHAPS                       JUMP IF A == 0
          61768    0       613     20   0  0              0        613                                             SELECT
          61769    5       613     27   0  0              0        613                                             TRANSFER
          61770    91      613     26   0  1              0        613     CHAPS:0                                 SET MODIFICATION REGISTER AT VARIABLE
          61771    34      613     30   0  0              0        613     BIT 1                                   SET (N) IN B
    61778>61772    0       612      3   0  1              0        612     NEXT CHAP LENGTH                        SELECT
          61773    71      617     76   0  0              0        617     >USED                                   JUMP IF A != 0
          61774    36      620      2   0  0              0        620     Q1-5(IE B-> A)                          COLLATE AND ADD
          61775    4       619     13   0  0              0        619     STEP'CHAPS ALLOCATED'                   AUGMENT
    61773>61776    33               0   0  0              1                SHIFT MARKER                            SHIFT (AB) BY BITS
          61777    125              1   0  1              0                                                        step on and test
          61778    76      617     72   0  0              0        617                                             JUMP unconditional
          61779    10               0   0  0              0                CLEAR                                   SELECT LITERAL
          61780    2       619     13   0  0              0        619                                             SUBTRACT
          61781    4       613     21   0  0              0        613     ADJUST'CHAPS UNALLOCATED'               AUGMENT
                                                                                                                   
          61800    PROCR   618       618     STORE STORAGE TABLE & ROUND UP SP CH                                  
          61801     NOTES          RADIX          207                                                              SELECT
    61767>61802            615      6   0  0              0        615     MR1=0:C                                 SELECT
          61803    5       613     27   0  0              0        613                                             TRANSFER
          61804    91      613     26   0  1              0        613                                             SET MODIFICATION REGISTER AT VARIABLE
          61805    34      613     30   0  0              0        613     BIT 1                                   SET (N) IN B
          61806    101           8190   1  3              0                FORM MAXIMUM SIZE                       select literal address
          61807    2       620     10   0  0              0        620     FOR MATE OF SPECIALS                    SUBTRACT
          61808    5       620     10   0  0              0        620                                             TRANSFER
    61816>61809            612      3   0  1              0        612     TEST CHAP SMALL ENOUGH                  SELECT
          61810    2       620     10   0  0              0        620     TO MATE WITH SPECIALS                   SUBTRACT
          61811    72      618     14   0  0              0        618     >NO                                     JUMP IF A >= 0
          61812            620      4   0  0              0        620     PACK BITS INTO                          SELECT
          61813    37      620     11   0  0              0        620     MATES PATTERN                           REPLACE SELECTED BITS
    61811>61814    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          61815    125              1   0  1              0                                                        step on and test
          61816    76      618      9   0  0              0        618     >NEXT CHAP                              JUMP unconditional
          61817            612     14   0  0              0        612                                             SELECT
          61818    34      620      2   0  0              0        620                                             SET (N) IN B
          61819    70      618     24   0  0              0        618     >NO RT 19 PRINTERS                      JUMP IF A == 0
          61820    10               0   0  0              0                CLEAR                                   SELECT LITERAL
          61821    76      618     23   0  0              0        618     *FORMED ORDER*(1 SUBTRACTED IF RT 4)    JUMP unconditional
          61822    101             34   1  3              0                50=GP PRINT LENGTH                      select literal address
    61821>61823    101             16   1  1              0                16=SP PRINT S/R LENGTH                  add literal address
    61819>61824    124     615      6   0  1              0        615                                             modify address of next
          61825    36      612      2   0  0              0        612     PRESENT SPECIAL CHAP LENGTH             COLLATE AND ADD
          61826    101            506   1  2              0                                                        subtract literal address
          61827    72      618     29   0  0              0        618                                             JUMP IF A >= 0
          61828    10               0   0  0              0                                                        SELECT LITERAL
    61827>61829    101            506   1  1              0                                                        add literal address
          61830    124     615      6   0  1              0        615                                             modify address of next
          61831    37      612      2   0  0              0        612     LENGTH AT LEAST 506                     REPLACE SELECTED BITS
          61832    101             40   1  3              0                BULK COPY STORE                         select literal address
  Source image: P1000444.JPG
          61833    30               0   0  0              5                AVAILABILITY TABLE                      SHIFT (A) BY QUARTETS
          61834    101              0   1  1              0                (30)                                    add literal address
          61835    128     615     56   0  0              0        615                                             bulk copy short numeric
          61836    0       620      2   1  0              0        620     INSERT END SIGN                         SELECT
          61837    5       615     54   1  0              0        615                                             TRANSFER
          61838    76      621      2   0  0              0        621                                             JUMP unconditional
                                                                                                                   
          61900    PROCR   619       619     BREAK UP DETAILS S/R                                                  
          61901     NOTES          RADIX          208                                                              SELECT
          61902    81      619      2   0  0              0        619     (A)=PRINTER(CHAPS*LENGTH)               START OF SUBROUTINE
          61903    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          61904    5       615     25   0  1              0        615     FIRST CHAP                              TRANSFER
          61905    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          61906    5       615     29   0  1              0        615     SECOND CHAP                             TRANSFER
          61907    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          61908    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          61909    3       615     24   0  1              0        615     *FORMED*('TRANSFER'IF SPECIAL) LENGTH   COPY
          61910    5       615     28   0  1              0        615                                             TRANSFER
          61911    82      619      2   0  0              0        619                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          61912    5       615     24   0  1              0        615     LENGTH                                  TRANSFER
          61913    100              0   0  0              0                BIT PATTERN FOR TOT CHAPS ALLOCATED TO DHalt
          61914    70      617     53   0  0              0        617     ORDER CONST IN PROCR 205                JUMP IF A == 0
          61915    10               0   0  0              0                DUMMY                                   SELECT LITERAL
                                                                                                                   
          62000    CONST   620       620     0    209 CONSTANTS                                                    
          62002          (D)£££££;                                                                                 
          62003          £££££;                                            DIV BDRY COLL CONST                     
          62004          1£££;                                                                                     
          62005          1-;                                                                                       
          62006          0;                                                                                        
          62007          8;                                                                                        
          62008          0;                                                                                        
          62009          Ю;                                                                                        
          62010          2-;                                               TOTAL SPECIAL SIZE                      
          62011          0;                                                MATES PATTERN                           
                                                                                                                   
          62100    PROCR   621       621     PREPARE TO ALLOCATE NEXT STRIP                                        
          62101     NOTES          RADIX          210                                                              SELECT
    62257>                                                                                                         
    62629>                                                                                                         
    61838>62102            620      2   0  0              0        620     TABLE END SIGN £X5 TEST IF LAST STRIP   SELECT
          62103    3       613     18   0  0              0        613     SET UP MIN WASTAGE                      COPY
          62104    2       615     56   0  3              0        615     NEXT STRIP LENGTH                       SUBTRACT
          62105    71      621     32   0  0              0        621     >NOT END                                JUMP IF A != 0
    62114>62106    76      621      7   0  0              0        621     *SWITCH*                                JUMP unconditional
    62106>62107    76      621     11   0  0              0        621     (1) ALLOCATING IN 1 STORE ONLY ->REJECT JUMP unconditional
          62108    76      621     15   0  0              0        621     (2)2 STORES:END OF NEG->SECOND STORE    JUMP unconditional
          62109    76      621     23   0  0              0        621     (3)2 STORES:END OF BOTH->FIRSTSTORE     JUMP unconditional
          62110    76      621     11   0  0              0        621     (4)2 STORES:END OF BOTH->SECOND STORE   JUMP unconditional
    62128>                                                                                                         
    62110>                                                                                                         
    62107>62111    10               0   0  0             53                ALLOC FAILED                            SELECT LITERAL
          62112    124     613     26   0  3              0        613     CODE LETTER C                           modify address of next
          62113    124              0   1  0              0                (14)->REJECT ALLOCATION                 unconditional jump
          62114    76      621      6   0  0              0        621     ORDER CONST                             JUMP unconditional
    62108>62115    10               0   0  0              0                RESET MR3                               SELECT LITERAL
          62116    124     613     26   0  3              0        613                                             modify address of next
          62117    102             30   1  0              0                CLEAR                                   transfer (A) to N
          62118    12               0   0  0              1                                                        SUBTRACT LITERAL
          62119    4       621      6   0  0              0        621     SET SWITCH=3                            AUGMENT
  Source image: P1000445.JPG
          62120    0       613     17   0  0              0        613                                             SELECT
          62121    4       622     30   0  0              0        622     (73->71 ORDER)                          AUGMENT
          62122    76      621     32   0  0              0        621                                             JUMP unconditional
    62109>62123    10               0   0  0              0                *FORMED*SET R3 TO ADDRESS SECOND TABLE  SELECT LITERAL
          62124    124     613     26   0  3              0        613                                             modify address of next
          62125    102             30   0  0              0                                                        transfer (A) to N
          62126    00      615     56   0  3              0        615     TEST NO ROOM IN                         SELECT
          62127    2       620      2   0  0              0        620     2ND STORE                               SUBTRACT
          62128    70      621     11   0  0              0        621     >YES                                    JUMP IF A == 0
          62129    10               0   0  0              0                                                        SELECT LITERAL
          62130    12               0   0  0              1                                                        SUBTRACT LITERAL
          62131    4       621      6   0  0              0        621     SET SWITCH=4                            AUGMENT
    62122>                                                                                                         
    62105>62132    10               0   0  0              1                SET UP BIT PATTERN                      SELECT LITERAL
          62133    5       613     24   1  0              0        613     AND ALLOC CONST                         TRANSFER
          62134            613     20   0  0              0        613     SET UP MR1 SETTING                      SELECT
          62135    5       613     27   0  0              0        613                                             TRANSFER
                                                                                                                   
          62200    PROCR   622       622     ALLOCATE STRIP FOR MINIMUM WASTAGE                                    
          62201     NOTES          RADIX          211                                                              SELECT
    62253>62202    10               0   0  0              0                CLEAR                                   SELECT LITERAL
          62203    34      613     24   0  0              0        613     VBLE PATTERN                            SET (N) IN B
          62204    36      619     13   0  0              0        619     ALLOC TO DATE'PATTERN                   COLLATE AND ADD
          62205    71      622     49   0  0              0        622     >DISCARD,SOME CHAP ALREADY USED         JUMP IF A != 0
          62206    0       613     19   0  0              0        613     INITIAL CHAPS'PATTERN                   SELECT
          62207    2       613     21   0  0              0        613     CHAPS UNALLOCATED'PATTERN               SUBTRACT
          62208    72      622     23   0  0              0        622     >ALL SPECIAL CHAPS ALLOCATED            JUMP IF A >= 0
          62209    10               0   0  0              0                                                        SELECT LITERAL
          62210    36      613     19   0  0              0        613     INITIAL'PATTERN                         COLLATE AND ADD
          62211    70      622     49   0  0              0        622     >DISCARD            CONTAINS SPECIALS ONJUMP IF A == 0
          62212    10               0   0  0              0                VBLE=OUTSTANDING                        SELECT LITERAL
          62213            613     21   0  0              0        613     UNALLOC                                 SELECT
          62214    2       613     24   0  0              0        613     VARIABLE                                SUBTRACT
          62215    5       615     98   0  0              0        615     FUTURE PATTERN                          TRANSFER
          62216    34      620     11   0  0              0        620     SUITABLE MATES PATTERN                  SET (N) IN B
          62217    36      615     98   0  0              0        615     ANY LEFT?                               COLLATE AND ADD
          62218    71      622     23   0  0              0        622     >YES,ACCEPTABLE PATTERN                 JUMP IF A != 0
          62219    34      613     19   0  0              0        613     INITIAL                                 SET (N) IN B
          62220    36      615     98   0  0              0        615     FUTURE PATTERN                          COLLATE AND ADD
          62221    2       615     98   0  0              0        615     FUTURE PATTERN                          SUBTRACT
          62222    71      622     49   0  0              0        622     >DISCARD,COULD USE UP SUITABLES         JUMP IF A != 0
    62218>                                                                                                         
    62208>62223    10               0   0  0              0                                                        SELECT LITERAL
          62224    5       613     28   1  0              0        613     CLEAR WL                                TRANSFER
          62225    100     613     30   0  2              0        613     BIT 1=DECODER                           replace (B) by (N)
          62226    126     613     26   1  1              0        613     CHAPS:0                                 set modification register
    62240>62227    36      613     24   0  0              0        613     VBLE PATTERN                            COLLATE AND ADD
          62228    70      622     38   0  0              0        622     >CHAP NOT IN COMBINATION                JUMP IF A == 0
          62229            612      3   0  1              0        612     LENGTH                                  SELECT
          62230    71      622     34   0  0              0        622     (73 FIRST TIME 2 STORES)->USE           JUMP IF A != 0
          62231    101              0   1  3              0                                                        select literal address
          62232    36      620      2   0  0              0        620     Q1-5(DECODER->A)                        COLLATE AND ADD
          62233    76      622     50   0  0              0        622     >SKIP SOME COMBINATIONS                 JUMP unconditional
    62230>62234    5       615     98   1  0              0        615                                             TRANSFER
          62235            615     98   0  0              0        615     MODULUS OF LENGTH                       SELECT
          62236    4       613     28   0  0              0        613     TOTAL FOR STRIP                         AUGMENT
          62237    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
    62228>62238    33               0   0  0              1                SHIFT COLLATOR                          SHIFT (AB) BY BITS
          62239    125              1   0  1              0                TEST LAST CHAP                          step on and test
          62240    76      622     27   0  0              0        622     >NO                                     JUMP unconditional
  Source image: P1000446.JPG
          62241            615     57   0  3              0        615     STRIP LENGTH                            SELECT
          62242    2       613     28   0  0              0        613     TOTAL CHAP LENGTHS                      SUBTRACT
          62243    73      622     49   0  0              0        622     >DISCARD,TOO BIG                        JUMP IF A < 0
          62244    2       613     18   0  0              0        613     MIN WASTAGTE                            SUBTRACT
          62245    72      622     49   0  0              0        622     >NO IMPROVEMENT                         JUMP IF A >= 0
          62246    4       613     18   0  0              0        613     UPDATE MIN WASTAGE                      AUGMENT
          62247    0       613     24   0  0              0        613     VBLE PATTERN                            SELECT
          62248    5       613     31   0  0              0        613     STORE PATTERN GIVING BEST FIT           TRANSFER
    62245>                                                                                                         
    62243>                                                                                                         
    62222>                                                                                                         
    62211>                                                                                                         
    62205>62249    10               0   0  0              1                STEP BIT PATTERN                        SELECT LITERAL
    62233>62250    4       613     24   0  0              0        613                                             AUGMENT
          62251    0       613     21   0  0              0        613     CHAPS UNALLOCATED'PATTERN               SELECT
          62252    2       613     24   0  0              0        613     VBLE PATTERN                            SUBTRACT
          62253    72      622      2   0  0              0        622     >TRY AGAIN                              JUMP IF A >= 0
          62254    125              2   0  3              0                 TEST STRIP UNTOUCHED STEP MR3          step on and test
          62255            613     18   0  0              0        613     WASTAGE                                 SELECT
          62256    2       620      2   0  0              0        620                                             SUBTRACT
          62257    70      621      2   0  0              0        621     >YES                                    JUMP IF A == 0
          62258            615     55   0  3              0        615     LENGTH OF NEW STRIP                     SELECT
          62259    2       613     18   0  0              0        613                                             SUBTRACT
          62260    5       613     28   0  0              0        613                                             TRANSFER
          62261    2       613     31   0  0              0        613                                             SUBTRACT
          62262    4       613     21   0  0              0        613     UPDATE'CHAPS UNALLOCATED'               AUGMENT
          62263    0       613     31   0  0              0        613                                             SELECT
          62264    4       619     13   0  0              0        619     UPDATE'CHAPS ALLOCATED'                 AUGMENT
          62265    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
                                                                                                                   
          62300    PROCR   623       623     SET UP DETAILS OF REDUCED STRIP+START OF                              
          62301     NOTES          RADIX          212 ALLOC IN STRIPS                                              SELECT
          62302    100     620      4   0  2              0        620                                             replace (B) by (N)
          62303    36      615     54   0  3              0        615                                             COLLATE AND ADD
          62304    70      623     11   0  0              0        623     >STRIP BEGIN=DIV BEGIN                  JUMP IF A == 0
          62305    1       615     55   0  3              0        615     TEST STRIP END                          ADD
          62306    2       620      4   0  0              0        620     IS DIV END                              SUBTRACT
          62307    73      623     11   0  0              0        623     >NO,ALLOC FROM STRIP START              JUMP IF A < 0
          62308            613     18   0  0              0        613     MIN WASTAGE                             SELECT
          62309    5       613     25   0  0              0        613                                             TRANSFER
          62310    76      623     12   0  0              0        623     INDICATOR                               JUMP unconditional
    62307>                                                                                                         
    62304>62311            613     28   0  0              0        613     STORE NEW STRIP LENGTH                  SELECT
    62310>62312    1       615     54   0  3              0        615     START AND END STRIP START               ADD
          62313    5       615     98   0  0              0        615     NEW STRIP START                         TRANSFER
          62314            613     18   0  0              0        613                                             SELECT
          62315    5       615     99   0  0              0        615     STRIP LENGTH                            TRANSFER
          62316            613     25   0  0              0        613     STORE ALLOC START MIN WASTAGE OR 0      SELECT
          62317    1       615     54   0  3              0        615                                             ADD
          62318    5       613     25   0  0              0        613     ALLOC START                             TRANSFER
          62319    10               0   0  0              0                DUMMY                                   SELECT LITERAL
                                                                                                                   
          62400    PROCR   624       624     ALLOCATE CHAPS IN THIS STRIP                                          
          62401     NOTES          RADIX          213                                                              SELECT
          62402    126     613     26   1  1              0        613     CHAPS               0                   set modification register
          62403    126     614     20   1  2              0        614     NEVER RUNS OUT                          set modification register
          62404    100     613     30   0  2              0        613     BIT 1=DECODER                           replace (B) by (N)
    62424>62405    36      613     31   0  0              0        613     PATTERN=MOST FAVOURABLE ALLOC IN STRIP  COLLATE AND ADD
          62406    70      624     21   0  0              0        624     >THIS CHAP NOT IN STRIP                 JUMP IF A == 0
          62407    00      612      3   0  1              0        612     LENGTH(+-)                              SELECT
  Source image: P1000447.JPG
          62408    5       615     96   1  0              0        615                                             TRANSFER
          62409            613     25   0  0              0        613                                             SELECT
          62410    3       615     22   0  2              0        615     CHAP START                              COPY
          62411    1       615     96   0  0              0        615     MODULUS OF CHAP LENGTH                  ADD
          62412    3       615     23   0  2              0        615     CHAP END                                COPY
          62413    5       613     25   0  0              0        613     NEW ALLOC START                         TRANSFER
          62414    124     613     26   0  3              0        613                                             modify address of next
          62415    106             28   0  0              0                R2 MODIFER=CHAP-2                       select (N)
          62416    2       615     19   0  0              0        615     CHAPS INITIALLY                         SUBTRACT
          62417    72      624     26   0  0              0        624     >THIS IS A SPECIAL CHAPTER              JUMP IF A >= 0
          62418    1       615     19   0  0              0        615                                             ADD
          62419    102     613     29   0  0              0        613     (MAX NORMAL CHAP IN STRIP)-2            transfer (A) to N
    62433>62420    5       612      3   0  1              0        612     CLEAR CHAP DETAILS                      TRANSFER
    62406>62421    33               0   0  0              1                SHIFT DECODER BIT                       SHIFT (AB) BY BITS
          62422    125              2   0  2              0                                                        step on and test
          62423    125              1   0  1              0                                                        step on and test
          62424    76      624      5   0  0              0        624     >NEXT CHAP                              JUMP unconditional
          62425    76      626      2   0  0              0        626     >NOW SORT REMAINDER OF STRIP            JUMP unconditional
    62417>62426            612      3   0  1              0        612     SPECIAL CHAP LENGTH(ALWAYS>0)           SELECT
          62427    124     613     29   0  0              0        613                                             modify address of next
          62428    107     615     23   0  0              0        615     STEP END OF LAST NORMAL CHAP STRIP      augment (N) by (A)
          62429    5       615     22   0  2              0        615     CHAP                                    TRANSFER
          62430            613     29   0  0              0        613                                             SELECT
          62431    101              2   1  1              0                                                        add literal address
          62432    5       615     23   0  2              0        615     STORE ASSOC CHAP FOR THIS SPECAIL       TRANSFER
          62433    76      624     20   0  0              0        624     >NEXT CHAP                              JUMP unconditional
                                                                                                                   
          62500    PROCR   625       625     ADJUST NO OF CHAPS                                                    
          62501     NOTES          RADIX          214                                                              SELECT
                                                                                                                   
          62600    PROCR   626       626     SORT REDUCED STRIP AVAILABILITY,TEST ALL ALLOC                        
          62601     NOTES          RADIX          215                                                              SELECT
    62425>62602    124     613     26   0  3              0        613                         SET MR2             modify address of next
          62603    106             30   0  0              0                                    NEVER RUNS OUT      select (N)
          62604    124     613     26   0  3              0        613                                             modify address of next
          62605    102             28   1  0              0                                    TEST NEW STRIP      transfer (A) to N
          62606            615     99   0  0              0        615                         OF LENGTH ZERO      SELECT
          62607    71      626     17   0  0              0        626     >NO                                     JUMP IF A != 0
          62608    125           4098   0  3              0                                                        step on and test
          62609    76      626     11   0  0              0        626     >IN CASE IT RUNS OUT                    JUMP unconditional
          62610    10               0   0  0              0                DUMMY                                   SELECT LITERAL
    62616>                                                                                                         
    62609>62611            615     56   1  2              0        615     MOVE NEXT ITEM DOWN                     SELECT
          62612    3       615     54   1  2              0        615                                             COPY
          62613    2       620      2   1  0              0        620     TEST END                                SUBTRACT
          62614    70      626     28   0  0              0        626     >YES                                    JUMP IF A == 0
          62615    125              2   0  2              0                STEP MR2                                step on and test
          62616    76      626     11   0  0              0        626     >NEXT ITEM                              JUMP unconditional
    62625>                                                                                                         
    62607>62617            615     52   1  2              0        615     FIND CORECT PLACE   INSERT NEW STRIP    SELECT
          62618    2       615     98   1  0              0        615                         IN CORRECT PLACE    SUBTRACT
          62619    73      626     26   0  0              0        626     >FOUND                                  JUMP IF A < 0
          62620    1       615     98   1  0              0        615                                             ADD
          62621    3       615     54   1  2              0        615                                             COPY
          62622    2       620      2   1  0              0        620     TEST END                                SUBTRACT
          62623    70      626     26   0  0              0        626     >YES                                    JUMP IF A == 0
          62624    125           4098   0  2              0                                                        step on and test
          62625    76      626     17   0  0              0        626                                             JUMP unconditional
    62623>                                                                                                         
    62619>62626            615     98   1  0              0        615     INSERT NEW ITEM                         SELECT
  Source image: P1000448.JPG
          62627    5       615     54   1  2              0        615                                             TRANSFER
    62614>62628    0       613     21   0  0              0        613     CHARS UNALLOCATED'PATTERN               SELECT
          62629    71      621      2   0  0              0        621     >TRY AGAIN                              JUMP IF A != 0
          62630    10               0   0  0              0                                                        SELECT LITERAL
          62631    5       615     18   0  0              0        615     CLEAR W/L                               TRANSFER
                                                                                                                   
          62700    PROCR   627       627     ALLOCATION SUCCESSFUL-CALC RELATIVE START OF SPECIAL CHAPS            
          62701     NOTES          RADIX          216 AND STORE PARAS FOR PTS                                      SELECT
          62702            615     19   0  0              0        615                                             SELECT
          62703    4       620      9   0  0              0        620                                             AUGMENT
          62704    4       620      8   0  0              0        620                                             AUGMENT
          62705    126     615     18   1  1              0        615     R1=INIT CHAPS:0                         set modification register
    62722>62706    126     620      8   1  3              0        620     R3=10+INIT CHAPS:INIT CHAPS             set modification register
          62707    106     615     23   0  1              0        615     CHAP END                                select (N)
          62708    105     615     22   0  1              0        615     CHAP START                              subtract (N) from (A)
          62709    102     613     19   0  0              0        613      =CHAP LENGTH                           transfer (A) to N
    62720>62710    106     615     23   0  3              0        615     2X CHAP OF NEXT SPECIAL                 select (N)
          62711    124     613     26   0  3              0        613                                             modify address of next
          62712    105             26   0  0              0                -R1 MODIFIER                            subtract (N) from (A)
          62713    101              2   1  2              0                                                        subtract literal address
          62714    71      627     19   0  0              0        627     >NEXT SPEC CHAP NOT WITH THIS CHAP      JUMP IF A != 0
          62715    106     613     19   0  0              0        613     FORM SPECAL CHAPS                       select (N)
          62716    105     615     22   0  3              0        615     RELATIVE START                          subtract (N) from (A)
          62717    3       613     19   0  0              0        613     RESET CHAP END SIGN                     COPY
          62718    102     615     32   0  3              0        615     REL START THIS SPECIAL CHAP             transfer (A) to N
    62714>62719    125              2   0  3              0                STEP MR3                                step on and test
          62720    76      627     10   0  0              0        627     >NEXT SPEC CHAP                         JUMP unconditional
          62721    125              2   0  1              0                STEP MR1                                step on and test
          62722    76      627      6   0  0              0        627     >NEXT CHAP                              JUMP unconditional
          62723    106     615     13   0  3              0        615     2X CHAP OF PTS=FIRST SPECIAL CHAP       select (N)
          62724    70      628      2   0  0              0        628     >NO PTS                                 JUMP IF A == 0
          62725    103     613     19   0  0              0        613                                             copy (A) to N
          62726    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          62727    124     613     26   0  3              0        613     STORE CH NO IN PARAMETER 45             modify address of next
          62728    102             43   0  0              0                PARAMETER                               transfer (A) to N
          62729    124     613     19   0  1              0        613                                             modify address of next
          62730    106     615     20   0  0              0        615     FORM CHAP START                         select (N)
          62731    104     615     22   0  3              0        615     FOR PTS                                 add (N) to (A)
          62732    124     613     19   0  0              0        613                                             modify address of next
          62733    103     615     21   0  0              0        615     STORE NEW CHAP END                      copy (A) to N
          62734    124     613     26   0  3              0        613     STORE PTS CHAP START                    modify address of next
          62735    107             43   0  0              0                                                        augment (N) by (A)
                                                                                                                   
          62800    PROCR   628       628     PREPARE TO CALL NEXT CHUNK                                            
          62801     NOTES          RADIX                                                                           SELECT
    62724>62802    124     615     19   0  1              0        615     START OF SPECIAL CHAP                   modify address of next
          62803    106     615     20   0  0              0        615     CHAP                                    select (N)
          62804    3       614     20   0  0              0        614                                             COPY
          62805    101             54   1  1              0                SP CHAP START+52                        add literal address
          62806    124     614     21   0  3              0        614                                             modify address of next
          62807    103             28   0  0              0                SET HR2                                 copy (A) to N
          62808    124     614     21   0  3              0        614                                             modify address of next
          62809    103              5   0  0              0                SET PARAS 9                             copy (A) to N
          62810    124     614     21   0  3              0        614                                             modify address of next
          62811    102              0   0  0              0                (6)LOAD CHAP SR LINK                    transfer (A) to N
          62812    124     614     20   0  3              0        614                                             modify address of next
          62813    101              0   1  3              0                                                        select literal address
          62814    124     614     21   0  3              0        614                                             modify address of next
          62815    103              2   0  0              0                CHAP START PARA                         copy (A) to N
          62816    101             54   1  1              0                                                        add literal address
  Source image: P1000449.JPG
          62817    124     614     21   0  3              0        614     CHUNK START PARA                        modify address of next
          62818    102              1   0  0              0                                                        transfer (A) to N
          62819    10               0   0  0              0                DUMMY                                   SELECT LITERAL
                                                                                                                   
          62900    PROCR   629       629     PREPARE 1 OR 2 MOVES                                                  
          62901     NOTES          RADIX          218 X=TABLE Y=SPEC Z=1ST CHAP STARTS                             SELECT
          62902    124     615     96   0  2              0        615     END OF ALL DATA                         select literal and division
          62903    2       614     20   0  0              0        614     SPECIAL CHAP START                      SUBTRACT
          62904    73      629      7   0  0              0        629     > OK PROVISIONALLY ) SPECIAL STARTS TOO JUMP IF A < 0
          62905    101            170   1  2              0                (PROBABLY 164 OK)                       subtract literal address
          62906    73      629     12   0  0              0        629     > DOUBLE MOVE NEEDED                    JUMP IF A < 0
    62904>62907    124     615     96   0  2              0        615     DATA END                                select literal and division
          62908    2       615     22   0  0              0        615     CHAP 1 START                            SUBTRACT
          62909    73      629     32   0  0              0        629     > OK, SINGLE MOVE                       JUMP IF A < 0
          62910    101            156   1  2              0                                                        subtract literal address
          62911    72      629     32   0  0              0        629     > OK, SINGLE MOVE                       JUMP IF A >= 0
    62906>62912    101            250   1  3              0                ADJUST ORDERS                           select literal address
          62913    34      620      4   0  0              0        620                                             SET (N) IN B
          62914    36      614     20   0  0              0        614                                             COLLATE AND ADD
          62915    101     614      6   1  2              0        614                                             subtract literal address
          62916    4       614      6   0  0              0        614     TO WORK IN MIDDLE                       AUGMENT
          62917    4       614      9   0  0              0        614     OF SPECIAL GROUP                        AUGMENT
          62918    5       629      4   0  0              0        629                                             TRANSFER
          62919    2       629      4   0  0              0        629                                             SUBTRACT
          62920    4       614      7   0  0              0        614     ADJUST NEGATIVE ORDERS                  AUGMENT
          62921    4       614     10   0  0              0        614                                             AUGMENT
          62922    4       614     13   0  0              0        614                                             AUGMENT
          62923            614     20   0  0              0        614     ADJUST T/E                              SELECT
          62924    101            250   1  1              0                                                        add literal address
          62925    4       614     16   0  0              0        614                                             AUGMENT
          62926    4       614     18   0  0              0        614                                             AUGMENT
          62927    124     614      6   0  2              0        614     FORM BULK COPY T/E                      select literal and division
          62928    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          62929    101            110   1  1              0                AMOUNT OF DATA                          add literal address
          62930    32               0   0  0              5                > MORE DETAILS YET                      SHIFT (AB) BY QUARTETS
          62931    76      614      2   0  0              0        614                                             JUMP unconditional
    62911>                                                                                                         
    62909>62932    124     614      6   0  2              0        614     ADJUST ORDERS TO                        select literal and division
          62933    4       614     16   0  0              0        614     PRODUCE 15 BIT T/E'                     AUGMENT
          62934    4       614     18   0  0              0        614                                             AUGMENT
          62935    76      614      6   0  0              0        614                                             JUMP unconditional
          62936    100              0   0  0              0                                                        Halt
          62937    100              0   0  0              0                                                        Halt
          62938    100              0   0  0              0                                                        Halt
          62939    100              0   0  0              0                                                        Halt
          62940    100              0   0  0              0                                                        Halt
          62941    100              0   0  0              0                                                        Halt
          62942    100              0   0  0              0                                                        Halt
          62943    100              0   0  0              0                                                        Halt
                                                                                                                   
          63000    PROCR   630       630     300 START OF ALLOC ROUTES                                             
          63001     NOTES          RADIX          FIRST LOCN=54 OF SPECIAL CHAP                                    SELECT
          63002    106             10   0  0              0                ALLOC COMMAND                           select (N)
          63003    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
                                                                                                                   
          63100    PROCR   631       631                                                                           
          63101     NOTES          RADIX          302                                                              SELECT
          63102    12               0   0  0              1                                                        SUBTRACT LITERAL
          63103    71      631      8   0  0              0        631     > NO ALT RTES                           JUMP IF A != 0
          63104    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
  Source image: P1000450.JPG
          63105    37      645      8   0  0              0        645     EAR                                     REPLACE SELECTED BITS
          63106    37      636     24   0  0              0        636     ORM                                     REPLACE SELECTED BITS
          63107    37      638      3   0  0              0        638     FORM 1/1/1                              REPLACE SELECTED BITS
    63103>63108    101              0   1  3              0                (32)                                    select literal address
          63109    71      631     16   0  0              0        631     > MORE THAN 8 CHANNELS                  JUMP IF A != 0
          63110            645     28   1  0              0        645                                             SELECT
          63111    5       645     16   1  0              0        645                                             TRANSFER
          63112            641      9   0  0              0        641     SET S/R FOR                             SELECT
          63113    5       641      6   0  0              0        641     8 CHANNELS                              TRANSFER
          63114            645     12   1  0              0        645     M/R CONSTANTS                           SELECT
          63115    5       645     10   1  0              0        645                                             TRANSFER
    63109>63116    101              2   1  3              0                                                        select literal address
          63117    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          63118    115             10   0  0              0                                                        collate and add
          63119    70      631     27   0  0              0        631     >FORWARD ALLOC                          JUMP IF A == 0
          63120            645     10   1  0              0        645     RESET MRS                               SELECT
          63121    5       645      4   1  0              0        645                                             TRANSFER
          63122            645     12   1  0              0        645                                             SELECT
          63123    5       645      6   1  0              0        645                                             TRANSFER
          63124    101           4096   1  2              0                ADJUST STEP MR                          subtract literal address
          63125    4       642      7   0  0              0        642     VALUE                                   AUGMENT
          63126    76      631     29   0  0              0        631     >LEAVE R IN COMMENT                     JUMP unconditional
    63119>63127    35               0   0  0           1100                                                        PREPARE FOR DIGIT COLLATION
          63128    37      645      8   1  0              0        645     CLEAR R                                 REPLACE SELECTED BITS
    63126>63129    106             11   0  0              0                                                        select (N)
          63130    71      631     33   0  0              0        631     >TRIALS                                 JUMP IF A != 0
          63131    35               0   0  0         110000                LETE                                    PREPARE FOR DIGIT COLLATION
          63132    37      645      8   1  0              0        645     FOR NO TRIALS                           REPLACE SELECTED BITS
    63130>63133    106             12   1  0              0                PROG ID >SERIAL                         select (N)
          63134    5       630      2   1  0              0        630     >WL                                     TRANSFER
          63135    76      635      2   0  0              0        635                                             JUMP unconditional
                                                                                                                   
          63200    CONST   632       632     1    303  CONSTANTS                                                   
          63202          (A)ALLOC;                                                                                 
          63204          (D)5.7:000000;                                    LE + NE                                 
          63206          1;                                                                                        
          63208          16;                                                                                       
          63210          256;                                                                                      
          63212          4096;                                                                                     
          63214          65536;                                                                                    
                                                                                                                   
          63300    PROCR   633       633     DUMMY PROCEDURE 970                                                   
          63301     NOTES          RADIX          304                                                              SELECT
                                                                                                                   
          63400    PROCR   634       634     EDIT TABLE                                                            
          63401     NOTES          RADIX          305                                                              SELECT
          63402    100     635      7   0  0              0        635                                             Halt
          63403    100              5   0  2              0                DIV NO                                  replace (B) by (N)
          63404    100     635      2   0  0              0        635                                             Halt
          63405    116           4101   0  0              0                1/0/0/5  ADDRESS IN DIVISION            Invalid
          63406    100     632      2   0  0              0        632     ALLOC                                   Halt
          63407    101              5   0  0              0                                                        table look up
          63408    100     630      2   0  0              0        630     PROG ID                                 Halt
          63409    100             53   0  0              0                                                        Halt
          63410    100     630      3   0  0              0        630     PROG SERIAL                             Halt
          63411    100             21   0  0              0                                                        Halt
          63412    100              0   0  0              0                (29) RUN NUMBER                         Halt
          63413    100             21   0  0              0                                                        Halt
          63414    100     645      8   0  0              0        645     M                                       Halt
          63415    101            305   0  0              0                                                        table look up
  Source image: P1000451.JPG
          63416    100     645      8   0  0              0        645     T/N/R                                   Halt
          63417    117            563   0  0              0                2/3/3                                   special select
                                                                                                                   
          63500    PROCR   635       635     FORM ALLOC COMMENT                                                    
          63501     NOTES          RADIX          306                                                              SELECT
    63135>63502    101              0   1  3              0                                                        select literal address
          63503    101              1   1  2              0                                                        subtract literal address
          63504    4       634     12   0  0              0        634                                             AUGMENT
          63505    124     634      6   0  2              0        634     TABLE START                             select literal and division
          63506    124             20   0  3              0                                                        modify address of next
          63507    128              0   1  2              0                                                        edit fixed field formats
          63508    101             16   1  3              0                CHAP 1 LOCATION                         select literal address
          63509    104             20   0  0              0                                                        add (N) to (A)
          63510    5       633     14   0  0              0        633                                             TRANSFER
          63511    126             16   1  1              0                CHAPS:0                                 set modification register
    63529>63512    100     645     14   0  3              0        645                                             set radix
          63513    106             20   0  1              0                BREAK UP CHAP                           select (N)
          63514    32               0   0  0              4-               START INTO                              SHIFT (AB) BY QUARTETS
          63515    33               0   0  0              3                DIV NO AND                              SHIFT (AB) BY BITS
          63516    5       635      7   0  0              0        635     START WITHIN DIV                        TRANSFER
          63517    33               0   0  0             13                                                        SHIFT (AB) BY BITS
          63518    5       635      2   0  0              0        635                                             TRANSFER
          63519    124     632      6   0  2              0        632     CONVERT CHAP START                      select literal and division
          63520    112     635      2   0  0              0        635     TO DECIMAL                              convert
          63521    102     635      2   0  0              0        635     W/L                                     transfer (A) to N
          63522    124     634      2   0  2              0        634                                             select literal and division
          63523    124     633     14   0  3              0        633     DEST IN CHAP 1                          modify address of next
          63524    128              0   1  2              0                EDIT CHAP START                         edit fixed field formats
          63525    100     632      4   0  3              0        632     RESET BINARY                            set radix
          63526    101              4   1  3              0                                                        select literal address
          63527    4       633     14   0  0              0        633                                             AUGMENT
          63528    125              2   0  1              0                                                        step on and test
          63529    76      635     12   0  0              0        635     >NEXT CHAP                              JUMP unconditional
          63530    101           7805   1  3              0                TRANSFER L/E                            select literal address
          63531    124             20   0  3              0                AND N/E TO                              modify address of next
          63532    103             14   1  0              0                                                        copy (A) to N
          63533    124     633     14   0  3              0        633     AND SECOND                              modify address of next
          63534    102              0   1  0              0                LINES                                   transfer (A) to N
          63535    124     633      6   0  2              0        633     SET UP IND MODS                         select literal and division
          63536    5       638     24   0  0              0        638     AT 15 BIT ADDRESS                       TRANSFER
          63537    5       633      2   0  0              0        633                                             TRANSFER
          63538    124     633     18   0  2              0        633                                             select literal and division
          63539    5       642      8   0  0              0        642                                             TRANSFER
          63540    80      641      2   0  0              0        641     SET ASL'S POSITIVE S/R                  ENTER SUBROUTINE
          63541    124             20   0  2              0                COPY 30 LOCNS FROM START OF CHAP 1      select literal and division
          63542    104             17   0  0              0                                                        add (N) to (A)
          63543    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          63544    101             30   1  1              0                                                        add literal address
          63545    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          63546    128     633     20   0  0              0        633     BULK COPY SPEC CHAPS                    bulk copy short numeric
          63547    106             11   0  0              0                TRIALS ALLOC' IND                       select (N)
          63548    70      635     53   0  0              0        635     >NO                                     JUMP IF A == 0
          63549    10               0   0  0              0                (28)PTS IN MASTER?                      SELECT LITERAL
          63550    70      635     53   0  0              0        635     >YES                                    JUMP IF A == 0
          63551    10               0   0  0              0                (26)PTS PRINTS ON-LINE?                 SELECT LITERAL
          63552    71      635     55   0  0              0        635     >YES(ALLOW SEARCH)                      JUMP IF A != 0
    63550>                                                                                                         
    63548>63553            635     52   0  0              0        635     SET INDICATOR                           SELECT
          63554    5       645     15   0  0              0        645     NON ZERO                                TRANSFER
    63552>63555            633     23   0  0              0        633     ROUTE 19'INDICCATOR                     SELECT
  Source image: P1000452.JPG
          63556    124             20   0  3              0                (2)                                     modify address of next
          63557    103            122   0  0              0                SET IND IN CHAP 1                       copy (A) to N
          63558    70      636      2   0  0              0        636     >PRINT SR NOT NEEDED                    JUMP IF A == 0
          63559    101           8191   1  3              0                                                        select literal address
          63560    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          63561    106             15   0  0              0                                                        select (N)
          63562    124             17   0  1              0                LOCATION OF PRINT S/R                   modify address of next
          63563    115             18   0  0              0                                                        collate and add
          63564    124     633      2   0  3              0        633                                             modify address of next
          63565    102              5   0  0              0                                                        transfer (A) to N
                                                                                                                   
          63600    PROCR   636       636     MAIN LOOP DEAL WITH TX AND FILES                                      
          63601     NOTES          RADIX          307                                                              SELECT
    63558>63602    126     633      2   1  1              0        633     SET MRS 0/0                             set modification register
          63603    101              8   1  3              0                                                        select literal address
          63604    5       633      3   0  0              0        633                                             TRANSFER
          63605    126     633      2   1  3              0        633     SET MR3 FOR SPECIAL CHAPS               set modification register
          63606    106              5   0  0              0                TEST NO OF ROUTES                       select (N)
    63860>63607    70      638     22   0  0              0        638     >NO ROUTES                              JUMP IF A == 0
          63608    5       633      3   0  0              0        633                                             TRANSFER
          63609    126     633      2   1  2              0        633     0/NO OF ROUTES                          set modification register
    63826>63610    124     645      3   1  2              0        645     FORM INDIRECT                           modify address of next
          63611    124              4   0  2              0                MODIFIER FOR                            select literal and division
          63612    3       633      6   0  0              0        633     UNPACKING ALLOC                         COPY
          63613    101             48   1  1              0                ROUTES CD                               add literal address
          63614    5       633      7   0  0              0        633                                             TRANSFER
          63615    124     633      2   0  3              0        633                                             modify address of next
          63616    126              0   0  0              0                (7)>READ NEXT BLOCK                     enter subroutine
    63825>63617    101             12   1  3              0                UNPACK NEXT PIECE FORM T/E              select literal address
          63618    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          63619    1       633      6   0  0              0        633                                             ADD
          63620    11               0   0  0              1                                                        ADD LITERAL
          63621    128     633      8   1  0              0        633     UNPACK DETAIL                           bulk copy alpha to short
    63846>63622    80      640      2   0  0              0        640     FIND ASL FOR ROUTE >SEARCH ASL'S S/R    ENTER SUBROUTINE
          63623    125              1   0  1              0                STEP MR1                                step on and test
          63624    101            128   1  3              0                (1/1/3 0 IF ALT ALLOC)                  select literal address
          63625    1       633     13   0  0              0        633     REQD AND ALLOWED                        ADD
          63626    71      637      2   0  0              0        637     >NO ROUTES                              JUMP IF A != 0
          63627    80      640      2   0  0              0        640     FIND ASL FOR ALT ROUTE >SEARCH ASL'S S/RENTER SUBROUTINE
          63628    76      637      9   0  0              0        637     >FORM FILE DETAIL                       JUMP unconditional
                                                                                                                   
          63700    PROCR   637       637     MAIN LOOP PART 2 FILE DETAILS AND COMMENT                             
          63701     NOTES          RADIX          308                                                              SELECT
    63626>63702            633      9   0  0              0        633     TEST PSEUDO RTE                         SELECT
          63703    02      645      2   0  0              0        645                                             SUBTRACT
          63704    71      637      7   0  0              0        637     >NO                                     JUMP IF A != 0
          63705    103             34   0  1              0                CLEAR TOP HALF                          copy (A) to N
          63706    76      638     12   0  0              0        638     >DEAL WITH TX AREAS FROM UP FILE DETAIL JUMP unconditional
    63704>63707    101            128   1  3              0                (32)                                    select literal address
          63708    102             34   0  1              0                ALT ROUTE                               transfer (A) to N
    63628>63709    35               0   0  0             11                PLACE ALT RTE                           PREPARE FOR DIGIT COLLATION
          63710    115             34   0  1              0                IN Q3,4                                 collate and add
          63711    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          63712    114             33   0  1              0                                                        replace selected bits
          63713    35               0   0  0             11                FORM COMMENT                            PREPARE FOR DIGIT COLLATION
          63714    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          63715    115             33   0  1              0                IN CHAPTER 1                            collate and add
          63716    102     633      3   0  0              0        633     STORE FOR PRINTER                       transfer (A) to N
          63717    106     633      9   0  0              0        633     IF PRINTER RTE TYPE                     select (N)
          63718    101              4   1  2              0                                                        subtract literal address
  Source image: P1000453.JPG
          63719    70      637     22   0  0              0        637     >PRINTER                                JUMP IF A == 0
          63720    101              5   1  2              0                                                        subtract literal address
          63721    71      637     24   0  0              0        637     >NOT PRINTER                            JUMP IF A != 0
    63719>63722    106     633      3   0  0              0        633     STORE RTE NO                            select (N)
          63723    103     645     15   0  0              0        645                                             copy (A) to N
    63721>63724    106     633      3   0  0              0        633                                             select (N)
          63725    80      644      2   0  0              0        644     >CHANNEL/ROUTE S/R                      ENTER SUBROUTINE
          63726    102     633     52   1  0              0        633     RTES                                    transfer (A) to N
          63727    124     633      6   0  3              0        633     STORE FILE IDENTITY                     modify address of next
          63728    106              0   1  0              0                                                        select (N)
          63729    102     633     54   1  0              0        633     FILE IDENTITY                           transfer (A) to N
          63730    101              3   0  1              0                                                        prepare for digit collation
          63731    115             34   0  1              0                                                        collate and add
          63732    80      644      2   0  0              0        644     >CHANNEL RTE S/R                        ENTER SUBROUTINE
          63733    30               0   0  0              0                ///// DUMMY ORDER                       SHIFT (A) BY QUARTETS
          63734    5       633     56   1  0              0        633     EDIT RTE DETAIL                         TRANSFER
          63735    35               0   0  0           1111                PACK FILE IDENT                         PREPARE FOR DIGIT COLLATION
          63736    106     633     54   1  0              0        633     INTO FILE DETAIL                        select (N)
          63737    114             34   0  1              0                                                        replace selected bits
          63738    101              0   1  1              0                DUMMY ORDER                             add literal address
          63739    124     646      2   0  2              0        646                                             select literal and division
          63740    124     633     14   0  3              0        633                                             modify address of next
          63741    128              2   1  2              0                                                        edit fixed field formats
                                                                                                                   
          63800    PROCR   638       638     MAIN LOOP PART 3 SET UP TX AND ANNEXES                                
          63801     NOTES          RADIX          309                                                              SELECT
          63802            633     13   0  0              0        633                                             SELECT
          63803    101            128   1  1              0                (1/1/1/ 0 IF ALT ALLOC)                 add literal address
          63804    70      638     10   0  0              0        638     >ALT RTES REQD                          JUMP IF A == 0
          63805    10               0   0  0             65                                                        SELECT LITERAL
          63806    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          63807    35               0   0  0         111111                                                        PREPARE FOR DIGIT COLLATION
          63808    124     633     14   0  3              0        633                                             modify address of next
          63809    114              4   1  0              0                                                        replace selected bits
    63804>63810    10               0   0  0              4                                                        SELECT LITERAL
          63811    4       633     14   0  0              0        633                                             AUGMENT
    63706>63812    124     633     11   0  1              0        633                                             modify address of next
          63813    106             18   0  0              0                CHAP START                              select (N)
          63814    1       633     10   0  0              0        633     ANNEXE START                            ADD
          63815    103             65   0  1              0                                                        copy (A) to N
          63816    12               0   0  0              2                                                        SUBTRACT LITERAL
          63817    1       633     12   0  0              0        633     ANNEXE LENGTH                           ADD
          63818    102             66   0  1              0                                                        transfer (A) to N
          63819    125              1   0  1              0                STORE LOCATION                          step on and test
    64022>63820    125              1   0  2              0                NO OF ROUTES                            step on and test
          63821    76      638     23   0  0              0        638     >NEXT ROUTE                             JUMP unconditional
    63607>63822    76      638     27   0  0              0        638     *SWITCH*DO TX AREAS NEXT, OR END        JUMP unconditional
    63821>63823    123             12   0  0              0                *STEP BY 12=ROUTES, 6=TX AREAS*         step on and test
          63824    100     633      6   0  0              0        633                                             Halt
          63825    76      636     17   0  0              0        636     >UNPACK NEXT PIECE                      JUMP unconditional
          63826    76      636     10   0  0              0        636     >READ NEXT BLOCK                        JUMP unconditional
    63822>63827            633     21   0  0              0        633     TEST RTE 7 REQUIRED                     SELECT
          63828    70      638     47   0  0              0        638     >NO                                     JUMP IF A == 0
          63829            645     16   1  0              0        645     SYNTHETIC ALLOC DETAILS FOR PTS ROUTE   SELECT
          63830    102             34   1  1              0                STORE LOCATION                          transfer (A) to N
          63831    102             66   1  1              0                CLEAR ASL START/END                     transfer (A) to N
          63832    125              2   0  1              0                                                        step on and test
          63833            645     15   0  0              0        645                                             SELECT
          63834    71      638     61   0  0              0        638     >PRINTER FOUND                          JUMP IF A != 0
          63835    106             14   0  0              0                SET UP PRINTER ROUTE TYPE               select (N)
  Source image: P1000454.JPG
          63836    11               0   0  0              9                                                        ADD LITERAL
          63837    3       633      9   0  0              0        633                                             COPY
          63838    5       633     13   0  0              0        633     AND ALT ROUTE DETAIL                    TRANSFER
          63839    10               0   0  0              1                STEP                                    SELECT LITERAL
          63840    107              5   0  0              0                                                        augment (N) by (A)
          63841    125           4097   0  2              0                PREPARE TO ENTER MAIN LOOP AGAIN        step on and test
          63842    124     646      8   0  2              0        646     ADDRESS OF CONST 'PTS'                  select literal and division
          63843    5       633      6   0  0              0        633                                             TRANSFER
          63844            638     65   0  0              0        638     ARRANGE EXIT AFTER                      SELECT
          63845    5       638     22   0  0              0        638     ALLOCATING ROUTES                       TRANSFER
          63846    76      636     22   0  0              0        636     >                                       JUMP unconditional
    63863>                                                                                                         
    63828>63847    10               0   0  0              6                PREPARE FOR TX AREAS                    SELECT LITERAL
          63848    4       638     23   0  0              0        638     CHANGE STEP ACTION                      AUGMENT
          63849    101             12   1  2              0                                                        subtract literal address
          63850    4       636     17   0  0              0        636     CHANGE UNPACK ACTION                    AUGMENT
          63851    11               0   0  0              4                                                        ADD LITERAL
          63852    4       636     21   0  0              0        636     CHANGE END SEQUENCE ADDRESS             AUGMENT
          63853            638     64   0  0              0        638                                             SELECT
          63854    5       638     22   0  0              0        638     SET UP PSEUDO ROUTE                     TRANSFER
          63855            645      2   0  0              0        645     SET UP PSEUDO                           SELECT
          63856    3       633      9   0  0              0        633     ROUTE AND ALT ROUTE                     COPY
          63857    5       633     13   0  0              0        633     DUMMY                                   TRANSFER
          63858    10               0   0  0              0                                                        SELECT LITERAL
          63859    106              6   0  0              0                                                        select (N)
          63860    76      636      7   0  0              0        636     >TX AREAS                               JUMP unconditional
    63865>                                                                                                         
    63834>63861    10               0   0  0              1                                                        SELECT LITERAL
          63862    107              5   0  0              0                                                        augment (N) by (A)
          63863    76      638     47   0  0              0        638     >PREPARE FOR TX'S                       JUMP unconditional
          63864    76      639      2   0  0              0        639     >AFTER FINISHING TX'S                   JUMP unconditional
          63865    76      638     61   0  0              0        638                                             JUMP unconditional
                                                                                                                   
          63900    PROCR   639       639     END ROUTINE                                                           
          63901     NOTES          RADIX          310                                                              SELECT
    63864>63902    106              5   0  0              0                FORM 2*(TX+FILES)                       select (N)
          63903    104              6   0  0              0                                                        add (N) to (A)
          63904    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          63905    70      640     67   0  0              0        640     >REJECT D                               JUMP IF A == 0
          63906    103             18   1  0              0                                                        copy (A) to N
          63907    107             18   1  0              0                                                        augment (N) by (A)
          63908    124             98   0  2              0                                                        select literal and division
          63909    124     633      2   0  3              0        633                                             modify address of next
          63910    103             28   1  0              0                R2                                      copy (A) to N
          63911    124     633      2   0  3              0        633     (6)SR LINK                              modify address of next
          63912    103              0   0  0              0                                                        copy (A) to N
          63913    101             44   1  3              0                                                        select literal address
          63914    124     633      2   0  3              0        633                                             modify address of next
          63915    107              1   0  0              0                (3)STEP PARA 1                          augment (N) by (A)
          63916    10               0   0  0           1.1.                                                        SELECT LITERAL
          63917    124     633     14   0  3              0        633                                             modify address of next
          63918    102              2   1  0              0                                                        transfer (A) to N
          63919    101              0   1  3              0                (3)PARA TABLE START                     select literal address
          63920    124     633      2   0  3              0        633                                             modify address of next
          63921    124              1   1  0              0                (6)>LOAD NEXT CHAPTER                   unconditional jump
                                                                                                                   
          64000    PROCR   640       640     SEARCH ASL'S ALLOWING FOR FUNNY ROUTE TYPES                           
          64001     NOTES          RADIX          311                                                              SELECT
          64002    81      640      2   0  0              0        640                                             START OF SUBROUTINE
          64003    00      642     13   0  0              0        642     PREPARE FOR SEARCH                      SELECT
  Source image: P1000455.JPG
          64004    05      642      5   0  0              0        642     ASL'S S/R                               TRANSFER
          64005    00      633     11   0  0              0        633     TEST RTE TYPE 19                        SELECT
          64006    72      640     31   0  0              0        640     >NO                                     JUMP IF A >= 0
          64007            633      9   0  0              0        633     TEST PSEUDO ROUTE                       SELECT
          64008    2       645      2   0  0              0        645                                             SUBTRACT
          64009    70      640     13   0  0              0        640                                             JUMP IF A == 0
          64010    106             14   0  0              0                SET UP PRINTER RTE                      select (N)
          64011    101              9   1  1              0                TYPE                                    add literal address
          64012    5       633      9   0  0              0        633                                             TRANSFER
    64016>                                                                                                         
    64009>64013            633     22   0  3              0        633                                             SELECT
          64014    71      640     23   0  0              0        640     CHAP DETAILS                            JUMP IF A != 0
          64015    125              2   0  3              0                                                        step on and test
          64016    76      640     13   0  0              0        640                                             JUMP unconditional
          64017    125           4098   0  3              0                NO MORE TX'S                            step on and test
          64018    101              1   1  2              0                                                        subtract literal address
          64019    102             34   1  1              0                                                        transfer (A) to N
          64020    102             66   1  1              0                                                        transfer (A) to N
          64021    125              2   0  1              0                                                        step on and test
          64022    76      638     20   0  0              0        638                                             JUMP unconditional
    64014>64023    5       633     12   0  0              0        633     LENGTH                                  TRANSFER
          64024            633     23   0  3              0        633                                             SELECT
          64025    5       633     11   0  0              0        633     CHAP                                    TRANSFER
          64026            633     32   0  3              0        633                                             SELECT
          64027    5       633     10   0  0              0        633     ANNEXE START                            TRANSFER
          64028    125              2   0  3              0                                                        step on and test
          64029    76      640     51   0  0              0        640     >TRY AND ALLOC                          JUMP unconditional
          64030    76      640     51   0  0              0        640                                             JUMP unconditional
    64006>64031    106     633      9   0  0              0        633                                             select (N)
          64032    101             14   1  2              0                TEST RTE TYPE 14                        subtract literal address
          64033    71      640     37   0  0              0        640     >NO                                     JUMP IF A != 0
          64034    106             14   0  0              0                SET UP PRINTER                          select (N)
          64035    101              9   1  1              0                RTE TYPE OF                             add literal address
          64036    5       633      9   0  0              0        633     MACHINE                                 TRANSFER
    64033>64037            633      9   0  0              0        633     TEST RTE TYPE 15                        SELECT
          64038    101             15   1  2              0                                                        subtract literal address
          64039    71      640     54   0  0              0        640     >NO                                     JUMP IF A != 0
          64040    101              5   1  3              0                (33)PREFERRED ROUTE 5/6                 select literal address
          64041    03      633      9   0  0              0        633                                             COPY
          64042    103             15   0  0              0                STORE RTE TYPE                          copy (A) to N
          64043    12               0   0  0              5                STOP ALT ROUTE                          SUBTRACT LITERAL
          64044    70      640     46   0  0              0        640     IF RTE TYPE 6                           JUMP IF A == 0
          64045    05      633     13   0  0              0        633                                             TRANSFER
    64044>64046    80      641      2   0  0              0        641     >SEARCH ASL'S S/R                       ENTER SUBROUTINE
          64047    101              6   1  3              0                TRY OTHER RTE                           select literal address
          64048    101              0   1  2              0                (33)0/1                                 subtract literal address
          64049    03      633      9   0  0              0        633                                             COPY
          64050    103             15   0  0              0                STORE RTE TYPE                          copy (A) to N
    64030>                                                                                                         
    64029>64051    12               0   0  0              5                STOP ALT RTE                            SUBTRACT LITERAL
          64052    70      640     54   0  0              0        640     IF RTE TYPE 6                           JUMP IF A == 0
          64053    05      633     13   0  0              0        633                                             TRANSFER
    64052>                                                                                                         
    64039>64054    80      641      2   0  0              0        641     SEARCH ASL'S                            ENTER SUBROUTINE
          64055            633      9   0  0              0        633     TEST RTE TYPES 7,8,11                   SELECT
          64056    80      643      2   0  0              0        643     >TEST S/R                               ENTER SUBROUTINE
          64057    71      640     61   0  0              0        640     >NO                                     JUMP IF A != 0
          64058            642     12   0  0              0        642     SEARCH FOR 7,8,11                       SELECT
          64059    5       642      5   0  0              0        642                                             TRANSFER
          64060    80      641      2   0  0              0        641     >SEARCH ASL'S S/R                       ENTER SUBROUTINE
  Source image: P1000456.JPG
    64057>64061            633      9   0  0              0        633     TEST PSEUDO ROOT                        SELECT
          64062    2       645      2   0  0              0        645                                             SUBTRACT
          64063    71      640     67   0  0              0        640     >NO                                     JUMP IF A != 0
          64064            642     11   0  0              0        642     SEARCH ALL ASL'S                        SELECT
          64065    5       642      5   0  0              0        642                                             TRANSFER
          64066    80      641      2   0  0              0        641     >SEARCH ASL'S                           ENTER SUBROUTINE
    64063>                                                                                                         
    63905>64067            642     14   0  0              0        642                                             SELECT
          64068    5       642      5   0  0              0        642                                             TRANSFER
          64069    80      641      2   0  0              0        641                                             ENTER SUBROUTINE
          64070    10               0   0  0             54                'D'                                     SELECT LITERAL
          64071    124     633      2   0  3              0        633                                             modify address of next
          64072    124              0   1  0              0                (14)>REJECT ALLOCATION                  unconditional jump
    64206>64073    124     633     18   0  3              0        633     SETUP DETAIL                            modify address of next
          64074    106              0   0  0              0                                                        select (N)
          64075    2       645      2   0  0              0        645     STORE RTE TYPE 0                        SUBTRACT
          64076    70      640     78   0  0              0        640     IF A PSEUDO ROUTE                       JUMP IF A == 0
          64077    1       645      2   0  0              0        645     RTE TYPE                                ADD
    64076>64078    30               0   0  0              4                IN QS                                   SHIFT (A) BY QUARTETS
          64079    1       633     18   0  0              0        633     RTE NO IN Q1,2                          ADD
          64080    101             64   1  2              0                                                        subtract literal address
          64081    102             34   0  1              0                                                        transfer (A) to N
          64082    124     633     18   0  3              0        633     SET ASL NEGATIVE                        modify address of next
          64083    105              0   0  0              0                                                        subtract (N) from (A)
          64084    124     633     18   0  3              0        633                                             modify address of next
          64085    102              0   0  0              0                                                        transfer (A) to N
          64086    82      640      2   0  0              0        640                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64100    PROCR   641       641     SEARCH ASL'S S/R                                                      
          64101     NOTES          RADIX          312                                                              SELECT
          64102    81      641      2   0  0              0        641                                             START OF SUBROUTINE
          64103            645      4   1  0              0        645     SET UP INDIRECT                         SELECT
          64104    5       633     18   1  0              0        633     MODIFIER 64-128                         TRANSFER
          64105    80      642      2   0  0              0        642     >SEARCH ASL'S                           ENTER SUBROUTINE
          64106            645      6   1  0              0        645     SET UP INDIRECT                         SELECT
          64107    5       633     18   1  0              0        633     MODIFIER 192-240                        TRANSFER
          64108    80      642      2   0  0              0        642     >SEARCH ASL'S                           ENTER SUBROUTINE
          64109    82      641      2   0  0              0        641                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64200    PROCR   642       642     SEARCH ASL'S S/R                                                      
          64201     NOTES          RADIX          313                                                              SELECT
          64202    81      642      2   0  0              0        642                                             START OF SUBROUTINE
    64209>64203    124     633     18   0  3              0        633     SELECT ASL                              modify address of next
          64204    106              0   0  0              0                                                        select (N)
          64205    76      642     15   0  0              0        642     *****SWITCH ORDER                       JUMP unconditional
          64206    70      640     73   0  0              0        640     >FOUND                                  JUMP IF A == 0
    64215>                                                                                                         
    64220>64207    123              1   0  0              0                STEP IND MOD                            step on and test
          64208    100     633     18   0  0              0        633                                             Halt
          64209    76      642      3   0  0              0        642                                             JUMP unconditional
          64210    82      642      2   0  0              0        642     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
          64211    30               0   0  0              1-               TEST RTE TYPES <15                      SHIFT (A) BY QUARTETS
          64212    80      643      2   0  0              0        643     TEST 7,8,11                             ENTER SUBROUTINE
          64213    2       633      9   0  0              0        633     TEST REQUIRED TYPE                      SUBTRACT
          64214    76      642     15   0  0              0        642                                             JUMP unconditional
    64214>                                                                                                         
    64205>64215    72      642      7   0  0              0        642     MAKE ASL POSITIVE                       JUMP IF A >= 0
          64216    5       633     54   0  0              0        633     IF NEGATIVE                             TRANSFER
          64217    2       633     54   0  0              0        633                                             SUBTRACT
          64218    124     633     18   0  3              0        633                                             modify address of next
  Source image: P1000457.JPG
          64219    102              0   0  0              0                                                        transfer (A) to N
          64220    76      642      7   0  0              0        642     >NEXT ASL                               JUMP unconditional
                                                                                                                   
          64300    PROCR   643       643     TEST 7,8,11 S/R                                                       
          64301     NOTES          RADIX          314                                                              SELECT
          64302    81      643      2   0  0              0        643                                             START OF SUBROUTINE
          64303    12               0   0  0              7                TEST 7,8,11 S/R                         SUBTRACT LITERAL
          64304    70      643      8   0  0              0        643     >YES                                    JUMP IF A == 0
          64305    12               0   0  0              1                TEST 8                                  SUBTRACT LITERAL
          64306    70      643      8   0  0              0        643     >YES                                    JUMP IF A == 0
          64307    12               0   0  0              3                TEST 11                                 SUBTRACT LITERAL
    64306>                                                                                                         
    64304>64308    82      643      2   0  0              0        643     LEAVE S/R                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64400    PROCR   644       644     CHANNEL/ROUTE S/R                                                     
          64401     NOTES          RADIX          315                                                              SELECT
          64402    81      644      2   0  0              0        644                                             START OF SUBROUTINE
          64403    32               0   0  0              1-               DIVIDE BY 8                             SHIFT (AB) BY QUARTETS
          64404    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          64405    101             10   1  2              0                CONVERT CHANNEL                         subtract literal address
          64406    73      644      8   0  0              0        644     BINARY>DECIMAL                          JUMP IF A < 0
          64407    101              6   1  1              0                                                        add literal address
    64406>64408    101             10   1  1              0                                                        add literal address
          64409    118              1   0  3              0                SPLIT UP CHANNEL                        shift binary
          64410    33               0   0  0              3                AND ROUTE                               SHIFT (AB) BY BITS
          64411    82      644      2   0  0              0        644     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          64500    CONST   645       645     0    316 MAIN LOOP CONSTANTS                                          
          64502          (D)££££;                                                                                  
          64503          (B)64-;                                                                                   
          64504          64;                                                                                       
          64505          128;                                                                                      
          64506          192;                                                                                      
          64507          240;                                                                                      
          64508          (D)36965;                                         ' MTRN'                                 
          64509          647;                                                                                      
          64510          (B)240;                                                                                   
          64511          192;                                                                                      
          64512          128;                                                                                      
          64513          64;                                                                                       
          64514          (D)66666;                                                                                 
          64515          ;                                                                                         
          64516          74000;                                            (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
          64517          70740-;                                                                                   
          64518          ;                                                                                         
          64519          ;                                                                                         
          64520          ;                                                                                         
          64521          ;                                                                                         
          64522          ;                                                                                         
          64523          ;                                                                                         
          64524          ;                                                                                         
          64525          ;                                                                                         
          64526          ;                                                                                         
          64527          ;                                                                                         
          64528          78000;                                                                                    
          64529          70780-;                                           (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
                                                                                                                   
          64600    PROCR   646       646     MORE EDIT TABLES IN DISGUISE                                          
          64602    100     633     54   0  0              0        633     FILE IDENTITY                           Halt
          64603    101            515   0  0              0                2/0/3                                   table look up
  Source image: P1000458.JPG
          64604    100     633     52   0  0              0        633     RTE NO                                  Halt
          64605    100           4627   0  0              0                1/2/1/3                                 Halt
          64606    100     633     56   0  0              0        633     ALT RTE                                 Halt
          64607    116           4611   0  0              0                1/2/0/3                                 Invalid
          64608    107           4978   0  3              0                )CONST 'PTS'                            augment (N) by (A)
          64609    100              6   0  0              0                )                                       Halt
                                                                                                                   
          64700    PROCR   647       647     DUMMY PROCEDURE                                                       
          64701     NOTES          RADIX          401                                                              SELECT
                                                                                                                   
          64800    PROCR   648       648     ALLOC TAG/FP/MG                                                       
          64801     NOTES          RADIX          402 FIRST LOCN=98 OF SPECIAL CHAPTER                             SELECT
          64802    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
          64803    124             20   0  1              0                (2)                                     modify address of next
          64804    101              0   1  3              0                13-BIT START CHAP 1                     select literal address
          64805    4       655     19   0  0              0        655     GET ADDRESS CORRECT                     AUGMENT
          64806    4       656     53   0  0              0        656                                             AUGMENT
    65641>64807    5       648      2   0  0              0        648     WL                                      TRANSFER
          64808    2       648      2   0  0              0        648                                             SUBTRACT
          64809    4       655     17   0  0              0        655                                             AUGMENT
          64810    4       655     20   0  0              0        655                                             AUGMENT
          64811    4       655     22   0  0              0        655                                             AUGMENT
          64812    4       656     51   0  0              0        656                                             AUGMENT
          64813    4       656     54   0  0              0        656                                             AUGMENT
          64814    4       656     56   0  0              0        656                                             AUGMENT
          64815    10               0   0  0              0                DUMMY                                   SELECT LITERAL
          64816    101              2   1  3              0                (4)TEST>5 TAGS                          select literal address
          64817    101              0   1  2              0                (29)                                    subtract literal address
          64818    70      648     22   0  0              0        648     >NO                                     JUMP IF A == 0
          64819    124     657      2   0  3              0        657     SELECT AND SHIFT                        modify address of next
          64820    106              1   0  0              0                LAST 5 TAGS                             select (N)
          64821    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    64818>64822    124     657      2   0  3              0        657     FORMER TAG AVAILABILITY                 modify address of next
          64823    104              0   0  0              0                                                        add (N) to (A)
          64824    05      657     18   1  0              0        657                                             TRANSFER
          64825    106              9   0  0              0                FORM INITIAL ENTRY                      select (N)
          64826    104              9   0  0              0                POINT                                   add (N) to (A)
          64827    107     648     28   0  0              0        648     =INITIAL CHAP                           augment (N) by (A)
          64828    106             18   0  0              0                START+RELATIVE                          select (N)
          64829    104              8   0  0              0                ENTRY POINT                             add (N) to (A)
          64830    102              8   0  0              0                                                        transfer (A) to N
    64835>64831            657     18   1  0              0        657                                             SELECT
          64832    70      648     63   0  0              0        648     >NO TAG AVAILABLE                       JUMP IF A == 0
    65646>64833    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          64834    05      657     18   1  0              0        657                                             TRANSFER
          64835    74      648     31   0  0              0        648     >TAG NOT FOUND YET                      JUMP IF AB == 0        // 27, 1, 0
          64836    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
    65645>64837    103             10   0  0              0                ALLOC TAG                               copy (A) to N
          64838            657     18   1  0              0        657     RESIDUE                                 SELECT
          64839    124             10   0  0              0                ALLOC TAG                               modify address of next
          64840    118              0   0  0              0                                                        shift logical
          64841    05      657     18   1  0              0        657     NEW TAG AVAILABILITY WORD               TRANSFER
          64842    106              0   0  0              0                FP WANTED                               select (N)
          64843    70      648     48   0  0              0        648     >NO                                     JUMP IF A == 0
          64844    124     657      2   0  3              0        657                                             modify address of next
          64845    123            128   0  3              0                A*TAG                                   select tag
          64846    101             14   1  2              0                                                        subtract literal address
    65643>64847    71      648     61   0  0              0        648     >NOT AVAILABLE                          JUMP IF A != 0
    64843>64848    126     657     16   1  3              0        657     24:0                                    set modification register
          64849    106              1   0  0              0                MOD GROUP REQUIRED                      select (N)
  Source image: P1000459.JPG
          64850    71      648     54   0  0              0        648     >YES                                    JUMP IF A != 0
          64851    124             20   0  3              0                START OF CHAP 1                         modify address of next
          64852    102             10   1  0              0                CLEAR M IN ALLOC COMMENT                transfer (A) to N
          64853    76      648     74   0  0              0        648                                             JUMP unconditional
    64860>                                                                                                         
    64850>64854    124     657      2   0  3              0        657                                             modify address of next
          64855    124             30   0  3              0                R3 MODIFIER                             modify address of next
          64856    123             10   0  3              0                R2 TAG FOR EACH MOD GROUP               select tag
          64857    101             14   1  2              0                                                        subtract literal address
          64858    70      648     67   0  0              0        648     >AVAILABLE                              JUMP IF A == 0
          64859    125              8   0  3              0                                                        step on and test
          64860    76      648     54   0  0              0        648                                             JUMP unconditional
    64847>64861    101              0   1  3              0                                                        select literal address
          64862    101              1   1  2              0                A=NO FP/MG                              subtract literal address
    64832>64863    101              3   1  2              0                B=NO TAB                                subtract literal address
    65216>64864    101             85   1  1              0                E=NO 90K MATCH                          add literal address
          64865    124     657      2   0  3              0        657     (14)>REJECT ALLOCATION                  modify address of next
          64866    124              0   1  0              0                >REJECT ALLOCATION                      unconditional jump
    64858>64867    124     657      2   0  3              0        657                                             modify address of next
          64868    106             30   0  0              0                R3 MODIFIER                             select (N)
          64869    31               0   0  0              1                                                        SHIFT (A) BY BITS
          64870    30               0   0  0              1-               DIVIDE BY 8                             SHIFT (A) BY QUARTETS
          64871    11               0   0  0              1                                                        ADD LITERAL
          64872    124             20   0  3              0                START OF CH 1                           modify address of next
          64873    107             10   1  0              0                SET MOD GROUP IN ALLOC COMMENT          augment (N) by (A)
    64853>64874    102              1   0  0              0                                                        transfer (A) to N
          64875    106             10   0  0              0                AUGMENT TAG TO                          select (N)
          64876    101             64   1  1              0                COMMENT                                 add literal address
          64877    118              6   0  0              0                                                        shift logical
          64878    124             20   0  3              0                                                        modify address of next
          64879    107             10   1  0              0                                                        augment (N) by (A)
          64880    101              0   1  3              0                DUMMY                                   select literal address
                                                                                                                   
          64900    PROCR   649       649     45/90K CHUNK                                                          
          64901     NOTES          RADIX          403                                                              SELECT
          64902    106              5   0  0              0                FILES                                   select (N)
          64903    31               0   0  0              1                                                        SHIFT (A) BY BITS
          64904    5       657      3   0  0              0        657     2*FILES                                 TRANSFER
          64905            657      9   0  0              0        657                                             SELECT
          64906    70      650      2   0  0              0        650     >THIS IS A 45K INSTALLATION             JUMP IF A == 0
          64907    124     649     10   1  1              0        649     RESET MG 3                              set modification group
          64908    124     647      2   0  2              0        647                                             select literal and division
          64909    3       657      6   0  0              0        657     FORM TABLE ENTRY                        COPY
          64910    101            126   1  3              0                '----BE'                                select literal address
          64911    124     657     13   1  2              0        657     -64+R FOR CONTROL DATA PSEUDOROUTE      modify address of next
          64912    102             16   0  0              0                AS EMERGENCY STOP                       transfer (A) to N
          64913            657      4   1  0              0        657                                             SELECT
          64914    128     647      2   1  1              0        647     CLEAR 16 LOCNS AS WORKING SPACE         bulk copy long numeric
          64915    124     657      6   0  2              0        657     TSL FOR UNPACKING                       select literal and division
          64916    124     657     13   1  2              0        657     -64+R FOR CONTROL DATA PSEUDO-ROUTE     modify address of next
          64917    128              0   0  3              0                                                        unpack variable field data
                                                                                                                   
          65000    PROCR   650       650     45/90K CHUNK                                                          
          65001     NOTES          RADIX          404 REARRANGE SPEC CHAP ROUTE DETAIL                             SELECT
    64906>65002    126     657      2   1  1              0        657     2*ROUTES:0                              set modification register
    65209>65003    106             34   1  1              0                                                        select (N)
          65004    73      652      8   0  0              0        652     >RTE 7 DETAIL                           JUMP IF A < 0
          65005    101              0   1  1              0                DUMMY ORDER                             add literal address
          65006    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          65007    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
  Source image: P1000460.JPG
          65008    5       657      5   0  0              0        657     ALT RTE TYPE                            TRANSFER
          65009    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          65010    5       657      8   0  0              0        657     FILE IDENTITY                           TRANSFER
          65011    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          65012    5       657      4   0  0              0        657     ROUTE TYPE                              TRANSFER
          65013    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          65014    5       657      7   0  0              0        657     ALT ROUTE NO                            TRANSFER
          65015    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          65016    5       657      6   0  0              0        657     MAIN ROUTE NO                           TRANSFER
          65017            657      9   0  0              0        657     INDICATOR                               SELECT
          65018    70      652      2   0  0              0        652                                             JUMP IF A == 0
                                                                                                                   
          65100    PROCR   651       651     45/90K CHUNK                                                          
          65101     NOTES          RADIX          405 SET INDICATOR IF REQUIRED                                    SELECT
          65102            657      4   0  0              0        657     ROUTE TYPE                              SELECT
          65103    12               0   0  0              7                                                        SUBTRACT LITERAL
          65104    70      651      9   0  0              0        651     >MAG TAPE FILE                          JUMP IF A == 0
          65105    12               0   0  0              1                                                        SUBTRACT LITERAL
          65106    70      651      9   0  0              0        651     >MAG TAPE FILE                          JUMP IF A == 0
          65107    12               0   0  0              3                                                        SUBTRACT LITERAL
          65108    71      652      2   0  0              0        652     >NOT A MAG TAPE FILE                    JUMP IF A != 0
    65106>                                                                                                         
    65104>65109    126     657     10   1  2              0        657     SET MR2 AT 16:0                         set modification register
    65114>65110            647      2   1  2              0        647                                             SELECT
          65111    2       657      8   0  0              0        657     FILE IDENTITY                           SUBTRACT
          65112    70      651     16   0  0              0        651     >MATCH SET IND=0 FOR 45K                JUMP IF A == 0
          65113    125              2   0  2              0                                                        step on and test
          65114    76      651     10   0  0              0        651                                             JUMP unconditional
          65115    101              1   1  3              0                SET IND=1 FOR 90K IF NO MATCH           select literal address
    65112>65116    124     657      6   0  3              0        657     ROUTE NO                                modify address of next
          65117    103              0   0  0              0                (21)SET MASTER IND                      copy (A) to N
          65118    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          65119            657      7   0  0              0        657     ALT ROUTE NO                            SELECT
          65120    101            128   1  2              0                (32) (>8 CHANNELS)                      subtract literal address
          65121    70      651     26   0  0              0        651     >ALT ROUTE NOT USED                     JUMP IF A == 0
          65122    101              0   1  3              0                DRAIN                                   select literal address
          65123    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          65124    124     657      7   1  2              0        657     ALT ROUTE NO                            modify address of next
          65125    102              0   0  0              0                (22)SET MASTER IND                      transfer (A) to N
    65121>65126    5       647      2   1  2              0        647     CLEAR ENTRY FROM                        TRANSFER
                                                                                                                   
          65200    PROCR   652       652     90K/45K CHUNK                                                         
          65201     NOTES          RADIX          406                                                              SELECT
    65108>                                                                                                         
    65018>65202            657      5   0  0              0        657     ALT ROUTE TYPE                          SELECT
          65203    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          65204    1       657      6   0  0              0        657     MAIN ROUTE NO                           ADD
          65205    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          65206    1       657      7   0  0              0        657     ALT ROUTE NO                            ADD
          65207    102             35   0  1              0                SECOND M OF ROUTE DETAIL                transfer (A) to N
    65004>65208    125              2   0  1              0                                                        step on and test
          65209    76      650      3   0  0              0        650     >NEXT ROUTE                             JUMP unconditional
          65210            657      9   0  0              0        657                                             SELECT
          65211    70      653      2   0  0              0        653     >45K INSTALLATION                       JUMP IF A == 0
          65212    126     657     10   1  2              0        657     16:0                                    set modification register
    65218>65213            647      2   1  2              0        647                                             SELECT
          65214    70      652     17   0  0              0        652                                             JUMP IF A == 0
          65215    101              0   1  3              0                UNMATCHED ENTRY IN LIST                 select literal address
          65216    76      648     64   0  0              0        648     >REJECT E                               JUMP unconditional
    65214>65217    125              2   0  2              0                                                        step on and test
  Source image: P1000461.JPG
          65218    76      652     13   0  0              0        652                                             JUMP unconditional
          65219    101              0   1  1              0                DUMMY ORDER                             add literal address
                                                                                                                   
          65300    PROCR   653       653     ARRANGE FOR SPECIAL, GP, OR NEITHER S/R                               
          65301     NOTES          RADIX          407                                                              SELECT
    65211>65302    124             20   0  3              0                CHAP 1                                  modify address of next
          65303    106            122   0  0              0                TEST FOR PRINTER                        select (N)
          65304    70      653     37   0  0              0        653     >NO PRINTER                             JUMP IF A == 0
          65305    124              0   0  2              0                SPECIAL CHAP DIVISION0                  select literal and division
          65306    101              0   1  2              0                                                        subtract literal address
          65307    3       655     26   0  0              0        655     STORE AS PARA FOR                       COPY
          65308    5       656     60   0  0              0        656     PRINT S/R'S                             TRANSFER
          65309    106             20   0  0              0                FORM AND STORE                          select (N)
          65310    04      655     24   0  0              0        655     CHAP 1 PARA FOR                         AUGMENT
          65311    04      656     58   0  0              0        656     PRINT S/RS                              AUGMENT
          65312    10               0   0  0              0                                                        SELECT LITERAL
          65313    101              8   1  2              0                                                        subtract literal address
          65314    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          65315    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          65316    36      654     11   0  0              0        654                                             COLLATE AND ADD
          65317    70      653     19   0  0              0        653                                             JUMP IF A == 0
          65318    37      656     49   0  0              0        656                                             REPLACE SELECTED BITS
    65317>65319    10               0   0  0              0                                                        SELECT LITERAL
          65320    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          65321    36      654     11   0  0              0        654                                             COLLATE AND ADD
          65322    101              4   1  2              0                                                        subtract literal address
          65323    70      653     31   0  0              0        653     >                                       JUMP IF A == 0
          65324    124     655      2   0  2              0        655     FORM T/E FOR                            select literal and division
          65325    32               0   0  0              5-               BULK COPYING                            SHIFT (AB) BY QUARTETS
          65326    101             26   1  3              0                SP PRINTER S/R                          select literal address
          65327    32               0   0  0              5                TO CHAP                                 SHIFT (AB) BY QUARTETS
          65328    124             20   0  3              0                                                        modify address of next
          65329    128            154   0  0              0                TO CHAP 1                               bulk copy short numeric
          65330    76      653     37   0  0              0        653                                             JUMP unconditional
    65323>65331    124     656      2   0  2              0        656     FORM T/E FOR                            select literal and division
          65332    32               0   0  0              5-               BULK COPYING                            SHIFT (AB) BY QUARTETS
          65333    101             62   1  3              0                GP PRINTER S/R                          select literal address
          65334    32               0   0  0              5                CHAP 1                                  SHIFT (AB) BY QUARTETS
          65335    124             20   0  3              0                                                        modify address of next
          65336    128            120   0  0              0                                                        bulk copy short numeric
    65330>                                                                                                         
    65304>65337    102             16   0  0              0                                                        transfer (A) to N
          65338    124     647      2   0  2              0        647     RESET PARA 5                            select literal and division
          65339    124     657      2   0  3              0        657                                             modify address of next
          65340    102              5   0  0              0                                                        transfer (A) to N
                                                                                                                   
          65400    PROCR   654       654     FINAL CHUNK                                                           
          65401     NOTES          RADIX          408                                                              SELECT
          65402    126     657     18   1  1              0        657     W/L FOR NEW TAG AVAILABILITY WORD       set modification register
          65403    124             98   0  2              0                                                        select literal and division
          65404    124     657      2   0  3              0        657                                             modify address of next
          65405    103             28   1  0              0                MR2                                     copy (A) to N
          65406    124     657      2   0  3              0        657                                             modify address of next
          65407    102              0   0  0              0                (6)SET SR LINK                          transfer (A) to N
          65408    101              0   1  3              0                PARAS TABLE START                       select literal address
          65409    124     657      2   0  3              0        657                                             modify address of next
          65410    124              1   1  0              0                (6)>SECOND ORDER 'LOAD CHAPT' SR        unconditional jump
          65411    100              0   0  0              0                (27)                                    Halt
                                                                                                                   
          65500    PROCR   655       655     SPECIAL PRINTER S/R                                                   
  Source image: P1000462.JPG
          65501     NOTES          RADIX          409                                                              SELECT
          65502    100              0   0  0              0                LINK                                    Halt
          65503    101              0   1  3              0                FORM PSUEDOROUTE IN B FOR SPECIAL PRINTEselect literal address
          65504    101             64   1  2              0                                                        subtract literal address
          65505    124     647      2   0  3              0        647     S/R LINK                                modify address of next
          65506    105              2   0  0              0                                                        subtract (N) from (A)
          65507    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          65508    10               0   0  0              9                ROUTE TYPE                              SELECT LITERAL
          65509    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          65510    124     647      2   0  3              0        647                                             modify address of next
          65511    104              1   0  0              0                PRINTER ROUTE                           add (N) to (A)
          65512    125           4096   1  1              0                                                        clear indicators
          65513    124     647     11   0  3              0        647                                             modify address of next
          65514    123            159   0  2              0                ENTER MASTER                            enter master routine
          65515    126     647      2   0  1              0        647     RETURN TO MAIN PROGRAM                  leave subroutine
          65516    100              0   0  0              0                DUMMY                                   Halt
          65517    124            178   0  3              0                                                        modify address of next
          65518    128            214   0  0              0                CLEAR SPECIAL CHAP                      bulk copy short numeric
          65519    106            176   1  0              0                                                        select (N)
          65520    124            178   0  3              0                                                        modify address of next
          65521    128     647      2   0  0              0        647     COPY TO SPECIAL CHAP                    bulk copy short numeric
          65522    124            178   0  3              0                                                        modify address of next
          65523    124            204   1  0              0                >REENTER FINAL CHUNK                    unconditional jump
          65524    100            154   0  0              0                ABS START THIS SR IN CHAP 1             Halt
          65525    100             14   0  0              0                                                        Halt
          65526    100              0   0  0              0                SPECIAL CHAPTER                         Halt
                                                                                                                   
          65600    PROCR   656       656     G.P. PRINTER S/R                                                      
          65601     NOTES          RADIX          410                                                              SELECT
          65602    100              0   0  0              0                LINK                                    Halt
          65603    124     647      2   0  3              0        647     STORE DATA                              modify address of next
          65604    124              2   1  2              0                                                        modify address of next
          65605    124              0   0  2              0                                                        select literal and division
          65606    102     647     50   0  0              0        647                                             transfer (A) to N
          65607    106     647     48   1  0              0        647     PACK COLUMNS BIT                        select (N)
          65608    100     647     48   1  2              0        647     INTO FUNCTION                           replace (B) by (N)
          65609    124     647     50   0  3              0        647                                             modify address of next
          65610    114              0   1  0              0                                                        replace selected bits
          65611    124     647      2   0  3              0        647     FORM T/E                                modify address of next
          65612    106              4   0  0              0                                                        select (N)
          65613    118              5   0  0              0                                                        shift logical
          65614    124     647      2   0  3              0        647     BULK CLEAR G.P. TRANSIT                 modify address of next
          65615    124              3   1  2              0                AREA BEFORE EDIT                        modify address of next
          65616    128              0   1  1              0                                                        bulk copy long numeric
          65617    106     647     50   0  0              0        647                                             select (N)
          65618    124     647      2   0  3              0        647     EDIT INTO G.P. TRANSIT AREA             modify address of next
          65619    124              3   1  2              0                                                        modify address of next
          65620    129              0   0  1              0                                                        edit for anelex output
          65621    102     647     50   0  0              0        647                                             transfer (A) to N
          65622    101             64   1  2              0                FORM PSEUDOROUTE IN B FOR G.P.PRINTER   subtract literal address
          65623    124     647      2   0  3              0        647                                             modify address of next
          65624    105              3   0  0              0                                                        subtract (N) from (A)
          65625    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          65626    10               0   0  0              4                ROUTE TYPE                              SELECT LITERAL
          65627    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          65628    124     647      2   0  3              0        647     ROUTE NO                                modify address of next
          65629    104              1   0  0              0                                                        add (N) to (A)
          65630    125           4096   1  1              0                                                        clear indicators
          65631    124     647     48   0  3              0        647                                             modify address of next
          65632    123            160   0  2              0                ENTER MASTER                            enter master routine
  Source image: P1000463.JPG
          65633    124     647     50   0  3              0        647                                             modify address of next
          65634    100              0   1  2              0                                                        replace (B) by (N)
          65635    10               0   0  0              2                STEP MODIFIER                           SELECT LITERAL
          65636    4       647     50   0  0              0        647                                             AUGMENT
          65637    33               0   0  0              2                SELECT NEXT CHARACTER                   SHIFT (AB) BY BITS
          65638    10               0   0  0              0                                                        SELECT LITERAL
          65639    33               0   0  0              6                                                        SHIFT (AB) BY BITS
          65640    12               0   0  0             1.                TEST L/E                                SUBTRACT LITERAL
          65641    70      648      7   0  0              0        648     >YES                                    JUMP IF A == 0
          65642    12               0   0  0             20                TEST B/E                                SUBTRACT LITERAL
          65643    70      648     47   0  0              0        648     >YES                                    JUMP IF A == 0
          65644    10               0   0  0              0                                                        SELECT LITERAL
          65645    75      648     37   0  0              0        648     >NEXT CHARACTER                         JUMP IF AB != 0
          65646    76      648     33   0  0              0        648     >NEXT WORD                              JUMP unconditional
          65647    126     647      2   0  1              0        647     >LEAVE                                  leave subroutine
          65648    100              0   0  0              0                ZERO                                    Halt
          65649    100              0   0  0              0                FN WORD                                 Halt
          65650    100              0   0  0              0                MODIFIER                                Halt
          65651    124            178   0  3              0                                                        modify address of next
          65652    128            214   0  0              0                CLEAR SPECIAL CHAP                      bulk copy short numeric
          65653    106            176   1  0              0                                                        select (N)
          65654    124            178   0  3              0                                                        modify address of next
          65655    128     647      2   0  0              0        647     COPY TO SPECIAL CHAP                    bulk copy short numeric
          65656    124            178   0  3              0                                                        modify address of next
          65657    124            204   1  0              0                >REENTER FINAL CHUNK                    unconditional jump
          65658    100            120   0  0              0                ABS START THIS SR IN CHAP 1             Halt
          65659    100             48   0  0              0                                                        Halt
          65660    100              0   0  0              0                SPECIAL CHAPTER                         Halt
                                                                                                                   
          65700    CONST   657       657     0    411 CONSTS FOR 45/90K CHUNK                                      
          65702          (D)0;                                             ZERO                                    
          65703          0;                                                2*FILES                                 
          65704          0;                                                ROUTE TYPE/BULK CLEAR T                 
          65705          20010;                                            ALT RTE TYPE/BULK CLEAR T               
          65706          0;                                                ROUTE NO/UNPACK TABLE                   
          65707          30000-;                                           ALT RTE NO/UNPACK TABLE                 
          65708          0;                                                FILE IDENTITY                           
          65709          0;                                                (21)NONZERO IF 90K INSTALLATION         
          65710          0;                                                                                        
          65711          10;                                               MOD REGISTER CONSTANT                   
          65712          40-;                                              (24) -(64+R) FOR PROGM ROUTE            
          65713          40-;                                              (23)=LOCN OF 45K ROUTES LIST            
          65714          0;                                                LAST BLOCK SERIAL                       
          65715          0;                                                ON PROGM TAPE                           
          65716          0;                                                                                        
          65717          (B)24;                                            MR 24:0                                 
          65718          0;                                                                                        
          65719          ;                                                 W/L                                     
          65720          ;                                                                                         
          65721          ;                                                                                         
          65722          ;                                                                                         
          65723          ;                                                                                         
          65724          ;                                                                                         
          65725          ;                                                                                         
                                                                                                                   
          65800    PROCR   658       658     SET UP PROG IN PQ                                                     
          65801     NOTES          RADIX          501 FIRST LOCN=98 OF SPECIAL CHAPTER                             SELECT
          65802    124     668      2   0  3              0        668     NEW TAG AVAILABILITY                    modify address of next
          65803    106             26   1  0              0                                                        select (N)
          65804    05      668     26   1  0              0        668                                             TRANSFER
  Source image: P1000464.JPG
          65805    101              2   1  2              0                ADJUST MR SETTING                       subtract literal address
          65806    4       668     14   0  0              0        668                                             AUGMENT
          65807    4       668     15   0  0              0        668                                             AUGMENT
          65808    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
          65809    106             15   0  0              0                                                        select (N)
          65810    102             14   0  0              0                                                        transfer (A) to N
          65811    106              2   0  0              0                PRIORITY CLASS                          select (N)
          65812    30               0   0  0              4                Q5                                      SHIFT (A) BY QUARTETS
          65813    100             10   0  2              0                TAG T                                   replace (B) by (N)
          65814    110     668      9   0  0              0        668                                             multiply and add
          65815    1       668      9   0  0              0        668     48(T+1)                                 ADD
          65816    124     668      2   0  3              0        668                                             modify address of next
          65817    104              2   0  0              0                MR SWITCH START                         add (N) to (A)
          65818    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          65819    104             12   0  0              0                PROG IDENTITY                           add (N) to (A)
          65820    5       668     12   1  0              0        668                                             TRANSFER
          65821    126     668     14   1  1              0        668     SCAN PQ BACKWARDS                       set modification register
          65822    35               0   0  0          10000                Q5                                      PREPARE FOR DIGIT COLLATION
    65835>65823    124     668      2   0  3              0        668                                             modify address of next
          65824    115              1   0  1              0                P CLASS NEXT ENTRY                      collate and add
          65825    2       668     16   0  0              0        668     £0000                                   SUBTRACT
          65826    70      658     34   0  0              0        658     >STEP R1                                JUMP IF A == 0
          65827    1       668     16   0  0              0        668     £0000                                   ADD
          65828    2       668     13   0  0              0        668                                             SUBTRACT
          65829    73      658     38   0  0              0        658     >INSERT NOW                             JUMP IF A < 0
          65830    124     668      2   0  3              0        668                                             modify address of next
          65831    106              0   1  1              0                                                        select (N)
          65832    124     668      2   0  3              0        668                                             modify address of next
          65833    102              2   1  1              0                                                        transfer (A) to N
    65826>65834    125           4098   0  1              0                2-                                      step on and test
          65835    76      658     23   0  0              0        658                                             JUMP unconditional
          65836    111              7   0  3              0                CONST>27/0/3                            multiply and subtract
          65837    108              7   1  0              0                CONST>24/1/0                            merge variable length
    65829>65838    125           4096   1  1              0                SET NON-INT                             clear indicators
          65839            668     12   1  0              0        668                                             SELECT
          65840    124     668      2   0  3              0        668                                             modify address of next
          65841    102              2   1  1              0                                                        transfer (A) to N
          65842    35               0   0  0           1111                Q1-4                                    PREPARE FOR DIGIT COLLATION
          65843    36      668     13   0  0              0        668     SWITCH START                            COLLATE AND ADD
          65844    124     668      2   0  3              0        668                                             modify address of next
          65845    103             30   1  0              0                R3 MODIFIERS                            copy (A) to N
          65846    4       658     36   0  0              0        658     AUG CONSTANTS                           AUGMENT
          65847    4       658     37   0  0              0        658                                             AUGMENT
          65848    5       668      8   0  0              0        668                                             TRANSFER
          65849    124     668      2   0  3              0        668     START OF SWITCH ABOVE                   modify address of next
          65850    106              1   0  1              0                                                        select (N)
          65851    124     668      2   0  3              0        668                                             modify address of next
          65852    102             28   1  0              0                R2 MODIFIER                             transfer (A) to N
          65853    101              4   1  2              0                                                        subtract literal address
          65854    4       660     28   0  0              0        660     ADJUST ORDERS                           AUGMENT
          65855    4       660     33   0  0              0        660                                             AUGMENT
          65856    04      660     20   0  0              0        660                                             AUGMENT
                                                                                                                   
          65900    PROCR   659       659     UPDATE PREVIOUS SWITCH, FORM SWITCH ORDERS                            
          65901     NOTES          RADIX          502                                                              SELECT
          65902    124     668      2   0  3              0        668                                             modify address of next
          65903    126              0   0  0              0                (8)>UPDATE SWITCH                       enter subroutine
          65904    10               0   0  0              0                                                        SELECT LITERAL
          65905    2       658     36   0  0              0        658     27/0/3>SI+7                             SUBTRACT
          65906    124     668      2   0  3              0        668                                             modify address of next
  Source image: P1000465.JPG
          65907    102             20   0  2              0                IN SJ+20 OF PREVIOUS SWITCH             transfer (A) to N
          65908    124     668      2   0  3              0        668                                             modify address of next
          65909    106              9   0  2              0                SJ+9                                    select (N)
          65910    124     668      2   0  3              0        668                                             modify address of next
          65911    105              7   0  2              0                SJ+7                                    subtract (N) from (A)
          65912    71      659     16   0  0              0        659     >SWITCH NOT AT 2                        JUMP IF A != 0
          65913    2       658     37   0  0              0        658     24/1/0>SI+7                             SUBTRACT
          65914    124     668      2   0  3              0        668                                             modify address of next
          65915    102              7   0  2              0                TO SJ+7                                 transfer (A) to N
    65912>65916    10               0   0  0              0                                                        SELECT LITERAL
          65917    2       658     37   0  0              0        658                                             SUBTRACT
          65918    124     668      2   0  3              0        668                                             modify address of next
          65919    102              9   0  2              0                SET 24/1/0 IN SI+9 ALSO                 transfer (A) to N
                                                                                                                   
          66000    PROCR   660       660     PLACE CONSTANT IN SWITCH                                              
          66001     NOTES          RADIX          503                                                              SELECT
          66002    106              1   0  0              0                MOD GROUP                               select (N)
          66003    31               0   0  0             13                                                        SHIFT (A) BY BITS
          66004    124     668      2   0  3              0        668                                             modify address of next
          66005    102             29   0  3              0                SI+29                                   transfer (A) to N
          66006    106             10   0  0              0                TAG                                     select (N)
          66007    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          66008    104              8   0  0              0                ABS ENTRY                               add (N) to (A)
          66009    124     668      2   0  3              0        668                                             modify address of next
          66010    102             44   1  3              0                SET LINK CLEAR 45                       transfer (A) to N
          66011    124              0   0  2              0                SPECIAL CHAPTER START                   select literal and division
          66012    124     668      2   0  3              0        668                                             modify address of next
          66013    102             37   0  3              0                SI+37                                   transfer (A) to N
          66014    106             12   0  0              0                PROG IDENTITY                           select (N)
          66015    124     668      2   0  3              0        668                                             modify address of next
          66016    102             39   0  3              0                SI+39                                   transfer (A) to N
          66017    124     668      2   0  3              0        668                                             modify address of next
          66018    102             46   1  3              0                CLEAR THIS SI+46,47                     transfer (A) to N
          66019    124     668      2   0  3              0        668                                             modify address of next
          66020    106              3   0  0              0                (29)RUN NUMBER                          select (N)
          66021    103             15   0  0              0                TO SPEC CHAP                            copy (A) to N
          66022    124     668      2   0  3              0        668                                             modify address of next
          66023    102             40   0  3              0                TO SI+40                                transfer (A) to N
          66024    101              0   1  3              0                (15) 'ROUTE CLOSED' ENTRY               select literal address
          66025    124     668      2   0  3              0        668                                             modify address of next
          66026    102             42   0  3              0                SI+42                                   transfer (A) to N
          66027    124     668      2   0  3              0        668                                             modify address of next
          66028    106              1   0  0              0                MOST SIG HALF OF A                      select (N)
          66029    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          66030    12               0   0  0             7.                                                        SUBTRACT LITERAL
          66031    70      660     35   0  0              0        660     >SET (AB)=ZERO                          JUMP IF A == 0
          66032    124     668      2   0  3              0        668                                             modify address of next
          66033    100              0   1  1              0                VALUES>A&B,RUBBISH>C                    replace registers
          66034    76      660     36   0  0              0        660                                             JUMP unconditional
    66031>66035    35               0   0  0              0                AB CLEAR                                PREPARE FOR DIGIT COLLATION
    66034>66036    100     668     17   0  3              0        668     SET DECIMAL                             set radix
          66037    124     668      2   0  3              0        668                                             modify address of next
          66038    124             30   0  3              0                R3                                      modify address of next
          66039    100             30   1  0              0                SET ABC INITIAL ENTRY SI+30>34          copy registers
                                                                                                                   
          66100    PROCR   661       661     UPDATE MASTER AVAILABILITY FOR FP/MG/TAG/STORE/ROUTE                  
          66101     NOTES          RADIX          504 CLEAR ALLOC MOD REGISTERS                                    SELECT
          66102    100     668      2   0  3              0        668     BINARY                                  set radix
          66103    106              0   0  0              0                FP IND                                  select (N)
          66104    70      661     11   0  0              0        661     >NOT USED                               JUMP IF A == 0
  Source image: P1000466.JPG
          66105    106             10   0  0              0                PROG TAG                                select (N)
          66106    126     668      6   1  3              0        668     6/0                                     set modification register
    66110>66107    124     668      2   0  3              0        668     ZERO                                    modify address of next
          66108    123            128   1  3              0                                                        copy into tag
          66109    125              2   0  3              0                                                        step on and test
          66110    76      661      7   0  0              0        661                                             JUMP unconditional
    66104>66111    106              1   0  0              0                MOD GROUP                               select (N)
          66112    70      661     32   0  0              0        661     >NOT USED                               JUMP IF A == 0
          66113    31               0   0  0              3                                                        SHIFT (A) BY BITS
          66114    5       668      5   0  0              0        668     8M                                      TRANSFER
          66115    106             10   0  0              0                TAG                                     select (N)
          66116    126     668      6   1  3              0        668     6/0                                     set modification register
    66120>66117    124     668      5   0  3              0        668     8M                                      modify address of next
          66118    123              2   1  3              0                                                        copy into tag
          66119    125              2   0  3              0                                                        step on and test
          66120    76      661     17   0  0              0        661                                             JUMP unconditional
          66121    106              1   0  0              0                MOD GROUP                               select (N)
          66122    12               0   0  0              3                                                        SUBTRACT LITERAL
          66123    126     668      6   1  3              0        668     6/0                                     set modification register
          66124    70      661     28   0  0              0        661     >MG3                                    JUMP IF A == 0
          66125            668      5   0  0              0        668     8M                                      SELECT
          66126    11               0   0  0              2                OVER 'START OF COPY OF MG3' ADDRESS     ADD LITERAL
          66127    5       668      4   0  0              0        668                                             TRANSFER
    66131>                                                                                                         
    66124>66128    124     668      4   0  3              0        668     LOCN OF MR1 OF MOD GROUP                modify address of next
          66129    102              0   1  3              0                                                        transfer (A) to N
          66130    125              2   0  3              0                                                        step on and test
          66131    76      661     28   0  0              0        661                                             JUMP unconditional
    66112>66132    101              0   1  3              0                (3)FORM QTTY TO COPY                    select literal address
          66133    101              0   1  2              0                (30)                                    subtract literal address
          66134    12               0   0  0              4                                                        SUBTRACT LITERAL
          66135    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          66136    101             80   1  1              0                                                        add literal address
          66137    104             20   0  0              0                                                        add (N) to (A)
          66138    124     668      2   0  3              0        668                                             modify address of next
          66139    128              0   1  1              0                (30)UPDATE STORAGE                      bulk copy long numeric
                                                                                                                   
          66200    PROCR   662       662     SET ASL'S                                                             
          66201     NOTES          RADIX          505                                                              SELECT
          66202    0       668     26   1  0              0        668     UPDATE TAG AVAILABILITY                 SELECT
          66203    124     668      2   0  3              0        668                                             modify address of next
          66204    102              0   1  0              0                                                        transfer (A) to N
          66205    126             18   1  3              0                2X(R+T):0                               set modification register
    66250>66206    35               0   0  0             11-                                                       PREPARE FOR DIGIT COLLATION
          66207    115             34   1  3              0                ALLOC ROUTE                             collate and add
          66208    73      662     48   0  0              0        662     >NEGATIVE           IGNORE              JUMP IF A < 0
          66209    5       668      5   0  0              0        668     W/L                                     TRANSFER
          66210    106             10   0  0              0                TAG                                     select (N)
          66211    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          66212    104             66   0  3              0                START                                   add (N) to (A)
          66213    124     668      5   0  3              0        668     ROUTE                                   modify address of next
          66214    102             64   0  0              0                                                        transfer (A) to N
          66215    106             35   0  3              0                FILE ID Q1=4                            select (N)
          66216    70      662     48   0  0              0        662     >TRANSIT AREA                           JUMP IF A == 0
          66217    106             34   0  3              0                RT IN Q5                                select (N)
          66218    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          66219    12               0   0  0              7                TEST IF M/T                             SUBTRACT LITERAL
          66220    70      662     25   0  0              0        662     IE RTE TYPES                            JUMP IF A == 0
          66221    12               0   0  0              1                7,8,11                                  SUBTRACT LITERAL
          66222    70      662     25   0  0              0        662                                             JUMP IF A == 0
  Source image: P1000467.JPG
          66223    12               0   0  0              3                                                        SUBTRACT LITERAL
          66224    71      662     29   0  0              0        662                                             JUMP IF A != 0
    66222>                                                                                                         
    66220>66225    124     668      5   0  3              0        668                                             modify address of next
          66226    102              0   0  0              0                (16)CLEAR REEL CTR                      transfer (A) to N
          66227    76      662     37   0  0              0        662                                             JUMP unconditional
          66228    102              0   0  0              0                (35)CLEAR BLOCK COUNTER FOR MT ROUTE    transfer (A) to N
    66224>66229    11               0   0  0              5                TEST CARD INPUT                         ADD LITERAL
          66230    70      662     33   0  0              0        662     >80-COL CARDS(6)                        JUMP IF A == 0
          66231    12               0   0  0              7                                                        SUBTRACT LITERAL
          66232    71      662     37   0  0              0        662     >NOT 40-COL CARDS(15)                   JUMP IF A != 0
    66230>66233    124     668      5   0  3              0        668                                             modify address of next
          66234    106             64   0  0              0                ASL FOR EVEN ROUTE                      select (N)
          66235    124     668      5   0  3              0        668                                             modify address of next
          66236    102             65   0  0              0                COPY FOR ODD ROUTE                      transfer (A) to N
    66232>                                                                                                         
    66227>66237    106             34   0  3              0                                                        select (N)
          66238    30               0   0  0              6                ALT ROUTE Q3,4                          SHIFT (A) BY QUARTETS
          66239    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          66240    12               0   0  0             80                (32)                                    SUBTRACT LITERAL
          66241    70      662     48   0  0              0        662     >NOT USED                               JUMP IF A == 0
          66242    11               0   0  0             80                (32)                                    ADD LITERAL
          66243    5       668      5   0  0              0        668                                             TRANSFER
          66244    106             10   0  0              0                TAG                                     select (N)
          66245    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          66246    124     668      5   0  3              0        668                                             modify address of next
          66247    102             64   0  0              0                SET IND THAT NOT AVAILABLE              transfer (A) to N
    66241>                                                                                                         
    66216>                                                                                                         
    66208>66248    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          66249    125              2   0  3              0                                                        step on and test
          66250    76      662      6   0  0              0        662     >NEXT ROUTE                             JUMP unconditional
          66251    5       668     12   1  0              0        668     CLEAR THIS                              TRANSFER
          66252    124     668      2   0  3              0        668                                             modify address of next
          66253    102              5   0  0              0                CLEAR PARAMETER 5                       transfer (A) to N
          66254    125              0   1  2              0                DUMMY                                   interrogate indicators
                                                                                                                   
          66300    PROCR   663       663     SET UP CHAP PARAS   ROUTE PARAS    TX AREA PARAS                      
          66301     NOTES          RADIX          506 MOD GROUP PARAS AND SPECIAL PARAS                            SELECT
          66302    126     668     12   1  1              0        668     CLEAR                                   set modification register
          66303    126             16   1  2              0                2XCHAPS:0                               set modification register
    66311>66304    34      668     11   0  0              0        668     BITS 1-13                               SET (N) IN B
          66305    106             20   0  2              0                NEXT START                              select (N)
          66306    102             99   0  1              0                15 BIT                                  transfer (A) to N
          66307    115             20   0  2              0                                                        collate and add
          66308    102            100   0  1              0                                                        transfer (A) to N
          66309    125              2   0  1              0                                                        step on and test
          66310    125              2   0  2              0                                                        step on and test
          66311    76      663      4   0  0              0        663     >NEXT CHAP                              JUMP unconditional
          66312    102             98   0  0              0                CLEAR PARA 0                            transfer (A) to N
          66313    106              5   0  0              0                FILES                                   select (N)
          66314    104              5   0  0              0                                                        add (N) to (A)
          66315    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          66316    124     668      2   0  3              0        668                                             modify address of next
          66317    102             28   1  0              0                R2=2XROUTES:0                           transfer (A) to N
          66318    35               0   0  0             11-                                                       PREPARE FOR DIGIT COLLATION
    66327>66319    115             34   1  2              0                NEXT ROUTE                              collate and add
          66320    72      663     24   0  0              0        663     PARA                                    JUMP IF A >= 0
    66322>66321    125              2   0  2              0                END OF ROUTES                           step on and test
          66322    76      663     21   0  0              0        663     >STEP UP MR TO END                      JUMP unconditional
  Source image: P1000468.JPG
          66323    76      663     28   0  0              0        663     >END                                    JUMP unconditional
    66320>66324    102             99   0  1              0                                                        transfer (A) to N
          66325    125              1   0  1              0                                                        step on and test
          66326    125              2   0  2              0                                                        step on and test
          66327    76      663     19   0  0              0        663     >NEXT ROUTE                             JUMP unconditional
    66323>66328    106             19   0  0              0                                                        select (N)
          66329    124     668      2   0  3              0        668                                             modify address of next
          66330    102             29   0  0              0                ADJUST END VALUE                        transfer (A) to N
          66331    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
    66339>66332    115             34   0  2              0                TX AREA                                 collate and add
          66333    102             99   0  1              0                                                        transfer (A) to N
          66334    105             99   0  1              0                                                        subtract (N) from (A)
          66335    101             64   1  2              0                                                        subtract literal address
          66336    102            100   0  1              0                                                        transfer (A) to N
          66337    125              2   0  1              0                                                        step on and test
          66338    125              2   0  2              0                                                        step on and test
          66339    76      663     32   0  0              0        663     >NEXT TX AREA                           JUMP unconditional
          66340    106              1   0  0              0                MOD GROUP                               select (N)
          66341    31               0   0  0              3                                                        SHIFT (A) BY BITS
          66342    102             99   0  1              0                BM                                      transfer (A) to N
          66343    105             99   0  1              0                                                        subtract (N) from (A)
          66344    101              2   1  2              0                                                        subtract literal address
          66345    103            100   0  1              0                -(8M+2)=R1                              copy (A) to N
          66346    101              2   1  2              0                                                        subtract literal address
          66347    103            101   0  1              0                -(8M+4)=R2                              copy (A) to N
          66348    101              2   1  2              0                                                        subtract literal address
          66349    102            102   0  1              0                -(8M+6)=R3                              transfer (A) to N
          66350    106             14   0  0              0                CONTROL DATA                            select (N)
          66351    102            103   0  1              0                ROUTE TYPE                              transfer (A) to N
          66352    124     668      2   1  1              0        668     MOD GROUP 0                             set modification group
          66353    124     668      2   0  3              0        668                                             modify address of next
          66354    126              0   0  0              0                (17)->REQUEST T/W                       enter subroutine
          66355    124     668      2   0  3              0        668     RI MODIFIER                             modify address of next
          66356    106             26   0  0              0                                                        select (N)
          66357    11               0   0  0              5                                                        ADD LITERAL
          66358    102             14   0  0              0                STORE(PARAS+1)FOR PTS                   transfer (A) to N
                                                                                                                   
          66400    PROCR   664       664     TYPE DATE TIME AND ALLOC COMMENT                                      
          66401     NOTES          RADIX          507                                                              SELECT
          66402    12               0   0  0              2                                                        SUBTRACT LITERAL
          66403    4       668     21   0  0              0        668     SET TRUE ANNEX START                    AUGMENT
          66404    124     669      2   0  2              0        669                                             select literal and division
          66405    124     668     21   0  3              0        668                                             modify address of next
          66406    128              0   1  2              0                                                        edit fixed field formats
          66407            668     20   0  0              0        668     PARA 25                                 SELECT
          66408    73      664     14   0  0              0        664     >MASTER TYPES PAGE HEADINGS ANYWAY      JUMP IF A < 0
          66409    71      664     13   0  0              0        664     >CLOCK WORKING                          JUMP IF A != 0
          66410    10               0   0  0           1.1.                                                        SELECT LITERAL
          66411    124     668     21   0  3              0        668                                             modify address of next
          66412    102              6   1  0              0                PREMATURE END                           transfer (A) to N
    66409>66413    80      667      2   0  0              0        667     >TYPE                                   ENTER SUBROUTINE
    66408>66414    124     668      2   0  3              0        668                                             modify address of next
          66415    126              0   0  0              0                (17)->REQUEST T/W                       enter subroutine
          66416    101             76   1  3              0                ANNEX LENGTH                            select literal address
          66417    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          66418    104             20   0  0              0                CHAP 1 START                            add (N) to (A)
          66419    124     668      2   0  3              0        668                                             modify address of next
          66420    128              0   1  1              0                (18)->MR T/W ANNEX                      bulk copy long numeric
          66421    124     668      2   0  3              0        668                                             modify address of next
          66422    126              0   0  0              0                (19)EDIT TIME SR                        enter subroutine
  Source image: P1000469.JPG
          66423    80      667      2   0  0              0        667     >TYPE                                   ENTER SUBROUTINE
                                                                                                                   
          66500    PROCR   665       665     CLEAR STORE STACK NEW TAG                                             
          66501     NOTES          RADIX          508                                                              SELECT
          66502    124     668     17   1  1              0        668     SET MOD GROUP 3                         set modification group
          66503    126             16   1  1              0                2XCHAPS:0                               set modification register
    66529>66504    106             20   1  1              0                                                        select (N)
          66505    5       668     12   1  0              0        668     START/END NEXT CHAP                     TRANSFER
          66506    124              0   0  2              0                                                        select literal and division
          66507    2       668     12   0  0              0        668                                             SUBTRACT
          66508    126     668     12   1  2              0        668     TAG STACKER                             set modification register
          66509    126     668     12   1  3              0        668     CLEARER                                 set modification register
          66510    71      665     15   0  0              0        665     >NOT SPECIAL CHAP                       JUMP IF A != 0
          66511    125            200   0  2              0                                                        step on and test
          66512    125            500   0  3              0                                                        step on and test
          66513    76      665     15   0  0              0        665                                             JUMP unconditional
          66514    76      665     23   0  0              0        665     >NONE TO CLEAR                          JUMP unconditional
    66513>                                                                                                         
    66510>66515    125            180   0  3              0                STOP 180 CHAP 1                         step on and test
          66516    10               0   0  0              0                                                        SELECT LITERAL
          66517    106     665     16   0  0              0        665     CORRECTION AFTER                        select (N)
          66518    102     665     15   0  0              0        665     CHAP 1                                  transfer (A) to N
    66522>66519    124     668      2   0  3              0        668                                             modify address of next
          66520    102              0   1  3              0                CLEAR STORE                             transfer (A) to N
          66521    125              2   0  3              0                                                        step on and test
          66522    76      665     19   0  0              0        665                                             JUMP unconditional
    66514>66523    106             10   0  0              0                TAG                                     select (N)
    66527>66524    124     668      2   0  3              0        668                                             modify address of next
          66525    123              0   1  2              0                STACK AG                                copy into tag
          66526    125              2   0  2              0                                                        step on and test
          66527    76      665     24   0  0              0        665                                             JUMP unconditional
          66528    125              2   0  1              0                                                        step on and test
          66529    76      665      4   0  0              0        665     >NEXT CHAPTER                           JUMP unconditional
          66530    101              0   1  3              0                (28)                                    select literal address
          66531    70      666      2   0  0              0        666     >PTS PART OF MASTER                     JUMP IF A == 0
          66532    106             11   0  0              0                                                        select (N)
          66533    70      666      2   0  0              0        666     >NOT TRIALS ALLOCATED                   JUMP IF A == 0
          66534    124     668      2   0  3              0        668     Q5 OF PARA 43=2X CHAP CONTAINING PTS    modify address of next
          66535    106             43   0  0              0                                                        select (N)
          66536    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          66537    4       665     39   0  0              0        665                                             AUGMENT
          66538    101           1500   1  3              0                ADD PTS SIZE TO CHAP                    select literal address
          66539    107             19   0  0              0                                                        augment (N) by (A)
                                                                                                                   
          66600    PROCR   666       666     LOAD FINAL CHUNK                                                      
          66601     NOTES          RADIX          509                                                              SELECT
    66533>                                                                                                         
    66531>66602            668      8   0  0              0        668     SWITCH START   SET RI FOR ENTRY         SELECT
          66603    32               0   0  0              5-               TO PROGRAM                              SHIFT (AB) BY QUARTETS
          66604    124              0   0  2              0                SPECIAL CHAP START                      select literal and division
          66605    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          66606    124     668      2   0  3              0        668                                             modify address of next
          66607    102             26   1  0              0                RI                                      transfer (A) to N
          66608    124            146   0  2              0                                                        select literal and division
          66609    124     668      2   0  3              0        668                                             modify address of next
          66610    102             28   1  0              0                R2 MODIFIER                             transfer (A) to N
          66611    101            146   1  3              0                SET PARA 1 VALUE                        select literal address
          66612    124     668      2   0  3              0        668     13 BIT ADDRESS OF LOCN 140              modify address of next
          66613    102              1   0  0              0                                                        transfer (A) to N
          66614    101              0   1  3              0                PARA TABLE START                        select literal address
  Source image: P1000470.JPG
          66615    124     668      2   0  3              0        668                                             modify address of next
          66616    126              0   0  0              0                (6)->LOAD CHAP SR                       enter subroutine
          66617            668      8   0  0              0        668                                             SELECT
          66618    124            214   1  0              0                                                        unconditional jump
                                                                                                                   
          66700    PROCR   667       667     TYPEWRITER S/R                                                        
          66701     NOTES          RADIX          511                                                              SELECT
          66702    81      667      2   0  0              0        667     MOD GROUP=0                             START OF SUBROUTINE
          66703    124     668      2   0  3              0        668                                             modify address of next
          66704    106             35   0  1              0                (SM+35)                                 select (N)
          66705    11               0   0  0              2                                                        ADD LITERAL
          66706    124     668      2   0  3              0        668                                             modify address of next
          66707    102              7   0  1              0                >SM+7                                   transfer (A) to N
          66708    124     667     13   0  2              0        667                                             select literal and division
          66709    124     668      2   0  3              0        668                                             modify address of next
          66710    102             42   0  1              0                RETURN ADDRESS                          transfer (A) to N
          66711    124     668      2   0  3              0        668                                             modify address of next
          66712    124              0   1  0              0                (20)->TYPE                              unconditional jump
          66713    101              0   1  3              0                (15)ROUTE CLOSED'LINK                   select literal address
          66714    124     668      2   0  3              0        668                                             modify address of next
          66715    103              7   0  1              0                >SM+7                                   copy (A) to N
          66716    124     668      2   0  3              0        668                                             modify address of next
          66717    102             42   0  1              0                >SM+42                                  transfer (A) to N
          66718    82      667      2   0  0              0        667                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          66800    CONST   668       668     0    512                                                              
          66802          (B)0;                                             ZERO                                    
          66803          20;                                               BULK COPY TE                            
          66804          0;                                                (10)LOCN OF (MG3)                       
          66805          0;                                                W/L                                     
          66806          0;                                                MOD REGISTER                            
          66807          6;                                                                                        
          66808          0;                                                W/L                                     
          66809          48;                                                                                       
          66810          0;                                                NEW TAG AVAILABILITY WRD                
          66811          8191;                                             BITS 1-13                               
          66812          0;                                                LONG W/L                                
          66813          0;                                                                                        
          66814          ;                                                 (30)PQ START                            
          66815          ;                                                 (29)PQ END                              
          66816          (D)£0000;                                                                                 
          66817          66666;                                            DEC RADIX                               
          66818          35.5.;                                                                                    
          66819          517;                                                                                      
          66820          0;                                                (25)CLOCK PARA                          
          66821          0;                                                (18)T/W ASL                             
          66822          35500;                                                                                    
          66823          54517;                                                                                    
          66824          0;                                                (43)PTS START+CHAP                      
          66825          0;                                                                                        
          66826          0;                                                                                        
          66827          ;                                                                                         
                                                                                                                   
          66900    PROCR   669       669     EDIT TABLE IN DISGUISE                                                
          66901     NOTES          RADIX          513                                                              SELECT
          66902    100     668     22   0  0              0        668     DATE                                    Halt
          66903    103              5   0  0              0                                                        copy (A) to N
          66904    100            138   0  0              0                DAY Q5,6                                Halt
          66905    102           1026   0  0              0                4/0/2                                   transfer (A) to N
          66906    100            138   0  0              0                MONTH Q5,4                              Halt
  Source image: P1000471.JPG
          66907    102           1554   0  0              0                                                        transfer (A) to N
          66908    100            138   0  0              0                YEAR Q1,2                               Halt
          66909    102           2066   0  0              0                                                        transfer (A) to N
          66910    100     668     18   0  0              0        668     'AT'                                    Halt
          66911    103            290   0  0              0                                                        copy (A) to N
          66912    100            156   0  0              0                TIME                                    Halt
          66913    100             20   0  0              0                0/1/4                                   Halt
          66914    100     668     18   0  0              0        668     DOUBLE LINE END                         Halt
          66915    119            786   0  0              0                                                        output
          66916    100              0   0  0              0                                                        Halt
          66917    100              0   0  0              0                                                        Halt
          66918    100              0   0  0              0                                                        Halt
          66919    100              0   0  0              0                                                        Halt
                                                                                                                   
          67000    PROCR   670       670     FINAL CHUNK=LOAD PROGRAM START=LOCN 146 OF SPECIAL CHAP               
          67001     NOTES          RADIX          601                                                              SELECT
    67049>67002    128     670      6   1  1              0        670     CLEAR 150-197 OF SPECIAL CHAPTER        bulk copy long numeric
          67003    124     670      6   0  3              0        670                                             modify address of next
          67004    124              0   1  0              0                (9)>REENTER MASTER                      unconditional jump
          67005    101              0   1  3              0                                                        select literal address
          67006    100              0   0  0              0                T/E FOR CLEARING                        Halt
          67007    102             48   0  0              0                FINAL CHUNK                             transfer (A) to N
    67023>                                                                                                         
    67204>67008    124             16   0  1              0                                                        modify address of next
          67009    106             20   0  0              0                NEXT CHAP START                         select (N)
    67030>67010    124     670      6   0  3              0        670                                             modify address of next
          67011    102             28   1  0              0                R2                                      transfer (A) to N
    67017>67012    124     670      6   0  3              0        670                                             modify address of next
          67013    126              0   0  0              0                (7)>READ BLOCK                          enter subroutine
          67014    124     671      2   1  2              0        671     -64+R                                   modify address of next
          67015    106             12   1  0              0                                                        select (N)
          67016    2       671      4   1  0              0        671     'CHAPT'                                 SUBTRACT
          67017    71      670     12   0  0              0        670     >NOT AT CHAP HEADING                    JUMP IF A != 0
          67018    124             98   0  2              0                PARA TABLE START                        select literal and division
          67019    124     670      6   0  3              0        670                                             modify address of next
          67020    126              0   0  0              0                (6)>LOAD CHAP                           enter subroutine
          67021    123              2   0  0              0                                                        step on and test
          67022    100             16   0  0              0                (ABSOLUTE ADDRESS FORMED IN 603)        Halt
          67023    76      670      8   0  0              0        670     >NEXT CHAPTER                           JUMP unconditional
          67024    76      670     31   0  0              0        670     *FORMED ORDER*(1/1/3 IF PTS TO BE LOADEDJUMP unconditional
          67025    5       670     18   0  0              0        670                                             TRANSFER
          67026    101             23   1  2              0                                                        subtract literal address
          67027    4       670     23   0  0              0        670     STEP LOOP EXIT                          AUGMENT
          67028    4       671      4   0  0              0        671     (CHAPT)>(CHAP')                         AUGMENT
          67029    106            200   0  0              0                                                        select (N)
          67030    76      670     10   0  0              0        670                                             JUMP unconditional
    67024>67031    126             18   1  2              0                STACK GUARD WORDS                       set modification register
    67039>67032    106             67   0  2              0                                                        select (N)
          67033    70      670     38   0  0              0        670                                             JUMP IF A == 0
          67034    5       670      8   0  0              0        670                                             TRANSFER
          67035    101             15   1  3              0                                                        select literal address
          67036    124     670      8   0  3              0        670                                             modify address of next
          67037    123              0   1  0              0                TAG 15 GUARD WORD                       copy into tag
    67033>67038    125              2   0  2              0                                                        step on and test
          67039    76      670     32   0  0              0        670                                             JUMP unconditional
          67040            671      3   0  0              0        671     24/1/0 23                               SELECT
          67041    101              0   1  2              0                -(SWITCH START)                         subtract literal address
          67042    124     670      6   0  3              0        670                                             modify address of next
          67043    103             35   0  1              0                24/1/0 SI*23 IN SI*35                   copy (A) to N
          67044    124     670      6   0  3              0        670                                             modify address of next
  Source image: P1000472.JPG
          67045    102              7   0  1              0                TO SI+7                                 transfer (A) to N
          67046    102             16   0  0              0                CLEAR MODIFIERS                         transfer (A) to N
          67047    124     670      6   1  1              0        670     MG 0                                    set modification group
          67048    106     670      6   1  0              0        670                                             select (N)
          67049    76      670      2   0  0              0        670     >CLEAR AND ENTER                        JUMP unconditional
                                                                                                                   
          67100    CONST   671       671     0    602 PARA FOR LOAD CHAPTER                                        
          67102          (B)64-;                                           (11)PROG PSEUDOROUTE                    
          67103          (D)88017-;                                                                                
          67104          (D)16773;                                                                                 
          67105          53585;                                                                                    
          67106          ;                                                                                         
          67107          ;                                                                                         
                                                                                                                   
          67200    PROCR   672       672     603 ARRANGE PTS LOADING LOCATION 200 OF SPECIAL CHAP                  
          67202    100              0   0  0              0                                                        Halt
    67212>67203    128            204   1  1              0                CLEAR 204-214 OF                        bulk copy long numeric
          67204    124     670      8   1  0              0        670     SPECIAL CHAP                            unconditional jump
    67255>67205    128            214   1  1              0                CLEAR 214-END OF SPECIAL CHAP           bulk copy long numeric
          67206    106     670      7   0  0              0        670                                             select (N)
          67207    101            152   1  1              0                CLEAR FIRST 200                         add literal address
          67208    30               0   0  0              5                OF CHAPTER 1                            SHIFT (A) BY QUARTETS
          67209    124             20   0  3              0                                                        modify address of next
          67210    128              0   1  1              0                                                        bulk copy long numeric
          67211    106     672     14   1  0              0        672                                             select (N)
          67212    124     672      3   1  0              0        672                                             unconditional jump
          67213    100              0   0  0              0                                                        Halt
          67214    100              0   0  0              0                BULK CLEAR CONSTANT                     Halt
          67215    102             10   0  0              0                                                        transfer (A) to N
          67216    107     670     41   0  0              0        670     FORM 'SUBTRACT SWITCH START'            augment (N) by (A)
          67217    124             16   0  2              0                FORM ABS ADDRESS INDIREST MOD REGISTER  select literal and division
          67218    5       670     22   0  0              0        670                                             TRANSFER
          67219    124     670      6   0  3              0        670     SET UP 64 AND                           modify address of next
          67220    106             64   0  0              0                (24)124 FOR USE                         select (N)
          67221    102            198   0  0              0                                                        transfer (A) to N
          67222    124     670      6   0  3              0        670                                             modify address of next
          67223    106            124   0  0              0                                                        select (N)
          67224    102            199   0  0              0                                                        transfer (A) to N
          67225    106             11   0  0              0                TEST PROGRAM TRIALS ALLOCATED           select (N)
          67226    70      672     46   0  0              0        672     >NO                                     JUMP IF A == 0
          67227    101              0   1  3              0                (28)TEST PTS IN MASTER CODING           select literal address
          67228    70      672     46   0  0              0        672     >YES                                    JUMP IF A == 0
          67229            672     56   0  0              0        672     ARRANGE FOR PTS                         SELECT
          67230    102     670     24   0  0              0        670     LOADING PROCEDURE                       transfer (A) to N
          67231    35               0   0  0           1111                COLLATION CONST                         PREPARE FOR DIGIT COLLATION
          67232    36      672     58   0  0              0        672     PTS BEGINNING AND                       COLLATE AND ADD
          67233    124     670      6   0  3              0        670     SET UP PARA 2                           modify address of next
          67234    103              2   0  0              0                15 BIT START PTS                        copy (A) to N
          67235    102            200   0  0              0                END FOR LOADING                         transfer (A) to N
          67236    124            200   0  3              0                SET UP PARA 1                           modify address of next
          67237    101              0   1  3              0                13 BIT START PTS                        select literal address
          67238    124     670      6   0  3              0        670                                             modify address of next
          67239    102              1   0  0              0                                                        transfer (A) to N
          67240    124             20   0  3              0                PARA 47 15 BIT                          modify address of next
          67241    105            165   0  0              0                START OF PRINT S/R                      subtract (N) from (A)
          67242    1       672     59   0  0              0        672                                             ADD
          67243    101              0   1  2              0                                                        subtract literal address
          67244    124     670      6   0  3              0        670                                             modify address of next
          67245    106             47   0  0              0                                                        select (N)
    67228>                                                                                                         
  Source image: P1000473.JPG
    67226>67246    124             20   0  3              0                TEST PRINT S/R                          modify address of next
          67247    106            122   0  0              0                REQUIRED                                select (N)
          67248    70      672     53   0  0              0        672     >NO                                     JUMP IF A == 0
          67249    106     672     57   0  0              0        672     SELECT BULK CLEAR                       select (N)
          67250    30               0   0  0              5                TABLE ENTRY                             SHIFT (A) BY QUARTETS
          67251    124             20   0  3              0                                                        modify address of next
          67252    124            169   1  0              0                >ENTER 'LOAD PRINT SR' IN CHAP 1        unconditional jump
    67248>67253    106     672     57   0  0              0        672                                             select (N)
          67254    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          67255    124     672      5   1  0              0        672     >LOAD CHAPS                             unconditional jump
          67256    106     670      5   0  0              0        670                                             select (N)
          67257    102            286   0  0              0                                                        transfer (A) to N
          67258    100              0   0  0              0                43                                      Halt
          67259    126              0   0  1              0                                                        leave subroutine
                                                                                                                   
          67300    CONST   673       673     0    FIRST LEVEL PARAS FOR UNLOADER                                   
          67302          (B5)7(B3)1(B3)1(B3)1(B6)9;                        101/1 START OF PG                       
          67303          1,1,0,1,15;                                       START OF 2ND ST TB                      
          67304          1,1,1,1,54;                                                                               
          67305          1,0,1,0,9;                                                                                
          67306          0,1,0,0,9;                                                                                
          67307          0,1,1,1,9;                                                                                
          67308          0,1,1,0,9;                                                                                
          67309          1,0,0,1,54;                                                                               
          67310          0,1,1,0,0;                                                                                
          67311          1,7,1,0,8;                                        REJ ALLOC COMM                          
          67312          1,7,1,1,9;                                        LOAD NEXT CHAP                          
          67313          3,3,1,7,1;                                        102/5 LOAD NEXT CHAP                    
          67314          0,1,1,0,9;                                                                                
          67315          0,1,0,1,15;                                       UPDATE SWITCH S/R                       
          67316          1,0,1,1,1;                                                                                
          67317          0,0,1,0,1;                                                                                
          67318          1,0,1,0,9;                                                                                
          67319          0,1,0,0,9;                                                                                
          67320          0,1,0,1,1;                                                                                
          67321          4,1,0,1,0;                                                                                
          67322          1,1,1,0,8;                                                                                
          67323          0,1,1,0,1;                                        103/1                                   
          67324          0,0,0,1,55;                                       CD RTE TYPE                             
          67325          1,7,6,1,0;                                                                                
          67326          0,1,0,1,9;                                                                                
          67327          1,1,0,1,57;                                       USE OF ASS TABLE                        
          67328          1,1,1,7,0;                                        USE OF ASS TABLE                        
          67329          1,0,1,7,1;                                        USE OF ASS TABLE                        
          67330          1,0,1,0,9;                                        104/1                                   
          67331          0,1,0,0,9;                                                                                
          67332          1,1,1,0,9;                                                                                
          67333          0,1,0,0,15;                                       105/6                                   
          67334          1,1,1,1,9;                                                                                
          67335          1,1,1,1,54;                                                                               
          67336          1,0,1,1,9;                                        106/3                                   
          67337          1,1,1,1,9;                                                                                
          67338          1,1,1,1,1;                                                                                
          67339          1,1,1,1,1;                                                                                
          67340          1,0,1,1,8;                                                                                
          67341          1,0,1,1,1;                                                                                
          67342          1,1,1,0,9;                                        107/3                                   
          67343          1,1,1,1,9;                                                                                
          67344          1,0,1,1,9;                                                                                
          67345          1,0,0,1,1;                                                                                
  Source image: P1000474.JPG
          67346          7,0,1,1,9;                                        XXX COMMENT                             
          67347          0,1,1,0,1;                                                                                
          67348          1,0,1,0,63;                                       108/5 STRT OF STRE TB                   
          67349          7,3,7,7,63;                                       PRTY AND STR TAB STRT                   
          67350          0,0,7,3,0;                                        STORE TAB START                         
          67351          0,0,0,0,56;                                                                               
          67352          7,0,0,0,0;                                                                                
          67353          7,6,6,6,54;                                                                               
                                                                                                                   
          67400    CONST   674       674     0    FIRST LEVEL PARAS FOR ALLO STORAGE                               
          67402          (B5)7(B3)1(B3)0(B3)6(B6)1;                        202/1                                   
          67403          0,1,1,6,63;                                                                               
          67404          1,1,6,6,54;                                                                               
          67405          1,7,1,0,0;                                        READ NEXT BLOCK S/R                     
          67406          0,0,0,0,0;                                                                                
          67407          0,0,0,0,0;                                                                                
          67408          1,0,1,0,9;                                        203/1                                   
          67409          0,1,1,0,25;                                                                               
          67410          7,0,0,0,0;                                        LOAD NEXT CHAP S/R                      
          67411          0,0,7,0,8;                                        204/3 205/5 RTE 0 PSDO RT               
          67412          0,0,0,1,8;                                                                                
          67413          0,0,0,1,9;                                                                                
          67414          5,0,0,1,1;                                                                                
          67415          1,7,1,1,9;                                                                                
          67416          0,1,1,1,9;                                                                                
          67417          1,1,1,1,9;                                                                                
          67418          6,3,1,6,54;                                                                               
          67419          0,1,3,0,9;                                                                                
          67420          0,1,1,1,9;                                        206/6                                   
          67421          1,1,1,0,9;                                                                                
          67422          1,1,7,1,57;                                                                               
          67423          1,1,1,1,1;                                                                                
          67424          1,1,1,0,9;                                                                                
          67425          1,1,1,1,9;                                                                                
          67426          1,1,1,1,9;                                                                                
          67427          1,1,1,0,8;                                                                                
          67428          0,1,1,1,1;                                                                                
          67429          0,6,6,6,54;                                                                               
          67430          0,0,1,1,9;                                                                                
          67431          0,1,6,1,1;                                                                                
          67432          1,1,1,1,9;                                                                                
          67433          1,1,1,1,9;                                                                                
          67434          1,0,0,1,1;                                                                                
          67435          1,1,1,1,8;                                        207/2                                   
          67436          1,1,1,1,9;                                                                                
          67437          1,0,0,1,9;                                                                                
          67438          1,6,6,6,54;                                                                               
          67439          0,1,0,0,9;                                                                                
          67440          0,1,0,0,9;                                                                                
          67441          0,0,7,1,9;                                                                                
          67442          1,0,0,1,1;                                        208/2                                   
          67443          0,0,1,1,9;                                                                                
          67444          0,1,0,6,0;                                        209/5                                   
          67445          0,0,0,0,0;                                                                                
          67446          0,0,1,1,9;                                        210/3                                   
          67447          1,1,1,1,54;                                                                               
          67448          1,0,1,7,8;                                        REJECT ALLO COMM                        
          67449          1,0,0,1,9;                                                                                
          67450          1,0,6,6,54;                                                                               
          67451          1,0,1,1,8;                                                                                
  Source image: P1000475.JPG
          67452          6,6,0,1,1;                                                                                
          67453          6,6,6,6,54;                                                                               
          67454          1,1,0,1,9;                                        211/3                                   
          67455          1,1,1,0,9;                                                                                
          67456          0,1,1,1,9;                                                                                
          67457          1,1,1,1,8;                                                                                
          67458          1,1,1,6,9;                                                                                
          67459          1,1,0,1,9;                                                                                
          67460          1,1,0,0,1;                                                                                
          67461          1,1,1,1,9;                                                                                
          67462          1,1,0,1,9;                                                                                
          67463          1,0,1,1,9;                                                                                
          67464          1,1,1,1,9;                                                                                
          67465          0,6,1,1,9;                                        212/3                                   
          67466          1,1,1,1,9;                                                                                
          67467          1,1,1,1,9;                                                                                
          67468          1,0,6,6,54;                                                                               
          67469          6,1,1,1,9;                                        213/2                                   
          67470          1,1,1,1,9;                                                                                
          67471          1,1,0,1,9;                                                                                
          67472          1,1,0,0,1;                                                                                
          67473          1,1,1,1,9;                                                                                
          67474          0,1,1,1,1;                                        214/4 215/4                             
          67475          0,1,1,0,8;                                                                                
          67476          1,1,1,1,6;                                                                                
          67477          1,1,1,1,9;                                                                                
          67478          1,1,0,1,9;                                                                                
          67479          1,1,0,1,9;                                        216/5                                   
          67480          1,1,1,1,9;                                                                                
          67481          1,1,0,0,9;                                                                                
          67482          1,1,1,0,8;                                                                                
          67483          1,1,1,1,1;                                                                                
          67484          3,1,1,1,9;                                                                                
          67485          1,3,6,6,9;                                        217/5                                   
          67486          1,0,1,0,11;                                                                               
          67487          1,7,1,0,11;                                       LOAD CHAP S/R                           
          67488          0,1,3,0,54;                                                                               
          67489          1,1,1,0,9;                                        218/1                                   
          67490          1,1,0,1,1;                                                                                
          67491          1,6,6,6,54;                                                                               
          67492          1,1,1,1,9;                                                                                
          67493          1,1,1,0,9;                                                                                
          67494          1,0,0,0,9;                                                                                
          67495          1,1,1,0,0;                                                                                
          67496          0,0,0,0,6;                                                                                
          67497          7,6,6,6,54;                                                                               
                                                                                                                   
          67500    CONST   675       675     0    FIRST LEVEL PARAS FOR ALLOC                                      
          67502          (B5)2(B3)0(B3)0(B3)1(B6)1;                        301/0 302/3                             
          67503          1,1,7,1,9;                                                                                
          67504          1,1,1,1,0;                                                                                
          67505          2,1,1,1,9;                                                                                
          67506          0,1,1,0,10;                                                                               
          67507          1,0,1,2,9;                                                                                
          67508          0,0,6,6,54;                                       303/1                                   
          67509          0,0,0,0,0;                                                                                
          67510          0,0,0,0,0;                                                                                
          67511          5,0,5,0,40;                                       304/1                                   
          67512          5,0,5,0,56;                                       RUN NUMBER                              
          67513          5,0,5,0,0;                                        306/5                                   
  Source image: P1000476.JPG
          67514          1,1,2,0,2;                                                                                
          67515          1,2,1,2,0;                                                                                
          67516          1,0,1,1,9;                                                                                
          67517          1,1,0,1,1;                                                                                
          67518          0,1,0,2,1;                                                                                
          67519          0,1,1,1,9;                                                                                
          67520          1,2,2,0,0;                                                                                
          67521          1,2,1,7,15;                                                                               
          67522          1,1,1,1,16;                                                                               
          67523          1,0,0,2,18;                                                                               
          67524          1,3,1,0,9;                                        307/3                                   
          67525          2,1,1,1,8;                                                                                
          67526          1,0,1,1,56;                                       READ NEXT BLOCK                         
          67527          6,6,6,6,1;                                                                                
          67528          0,1,1,0,1;                                        308/4                                   
          67529          1,1,1,1,9;                                        8 OR MORE CH                            
          67530          2,1,7,2,2;                                                                                
          67531          0,2,6,6,54;                                                                               
          67532          0,0,2,1,8;                                                                                
          67533          1,0,1,1,9;                                                                                
          67534          1,1,1,0,8;                                                                                
          67535          2,1,0,1,1;                                                                                
          67536          2,0,1,1,54;                                                                               
          67537          0,1,0,1,0;                                        309/2                                   
          67538          0,1,0,0,9;                                                                                
          67539          2,1,2,0,10;                                                                               
          67540          0,0,1,1,1;                                                                                
          67541          1,1,1,1,10;                                                                               
          67542          2,0,1,1,16;                                                                               
          67543          1,1,0,2,1;                                                                                
          67544          1,1,1,1,1;                                                                                
          67545          0,1,0,1,9;                                                                                
          67546          1,1,1,0,54;                                                                               
          67547          2,1,0,2,9;                                                                                
          67548          1,2,2,0,10;                                       310/2                                   
          67549          2,2,1,0,54;                                                                               
          67550          1,7,0,1,24;                                       LOAD NEXT CHAP                          
          67551          1,0,3,1,56;                                       311/6                                   
          67552          1,1,1,1,9;                                                                                
          67553          1,2,0,1,9;                                                                                
          67554          0,1,0,0,18;                                                                               
          67555          0,1,1,1,9;                                                                                
          67556          1,0,1,1,8;                                                                                
          67557          1,2,0,1,8;                                                                                
          67558          1,7,1,2,1;                                        OD RTE TYPE                             
          67559          1,1,0,7,10;                                       CD RTE TYPE                             
          67560          0,1,1,1,9;                                                                                
          67561          1,1,1,1,9;                                                                                
          67562          1,1,1,1,9;                                                                                
          67563          1,0,1,7,8;                                        REJ ALLOC COMM                          
          67564          1,1,1,0,8;                                                                                
          67565          2,1,0,1,1;                                                                                
          67566          0,1,1,1,9;                                        312/1                                   
          67567          1,1,0,1,1;                                        313/3                                   
          67568          1,0,1,1,8;                                                                                
          67569          1,1,1,1,9;                                                                                
          67570          1,0,1,0,1;                                        314/4                                   
          67571          0,1,0,1,0;                                        315/5                                   
          67572          0,0,1,0,0;                                                                                
          67573          0,1,0,7,0;                                        316/3 PROG RTE NO                       
  Source image: P1000477.JPG
          67574          0,0,0,0,0;                                                                                
          67575          0,0,0,0,56;                                       PROG RTE NO                             
          67576          0,0,0,0,0;                                                                                
          67577          0,0,0,0,56;                                       PROG RTE NO                             
          67578          5,0,5,0,40;                                                                               
          67579          0,0,7,6,54;                                                                               
                                                                                                                   
          67600    CONST   676       676     0    FIRST LEVEL PARAS FOR ALLOC F/P TAG                              
          67602          (B5)0(B3)2(B3)0(B3)1(B6)9;                        402/1                                   
          67603          1,1,1,1,9;                                                                                
          67604          1,0,4,7,54;                                                                               
          67605          1,1,4,0,12;                                                                               
          67606          1,2,2,1,18;                                                                               
          67607          2,1,1,0,9;                                                                                
          67608          0,2,1,2,1;                                                                                
          67609          2,1,1,0,1;                                                                                
          67610          1,2,1,2,1;                                                                                
          67611          1,0,0,0,8;                                                                                
          67612          1,0,0,0,1;                                                                                
          67613          7,1,0,0,0;                                        REJ ALLOC COMMENT                       
          67614          2,0,2,2,0;                                                                                
          67615          2,0,0,2,1;                                                                                
          67616          1,1,1,1,8;                                                                                
          67617          1,0,1,1,9;                                                                                
          67618          0,1,2,1,54;                                                                               
          67619          0,0,0,1,1;                                                                                
          67620          0,1,0,1,1;                                                                                
          67621          1,1,1,0,8;                                        405/3                                   
          67622          1,0,1,1,9;                                                                                
          67623          1,0,1,0,15;                                       45/90K                                  
          67624          0,1,7,1,0;                                                                                
          67625          1,7,1,1,1;                                        406/4 45/90K IND                        
          67626          0,1,2,0,9;                                                                                
          67627          1,1,1,1,1;                                                                                
          67628          0,1,0,6,54;                                                                               
          67629          2,0,1,2,17;                                       407/1                                   
          67630          1,2,1,1,0;                                                                                
          67631          0,0,6,6,54;                                                                               
          67632          1,1,1,0,1;                                                                                
          67633          6,0,1,1,0;                                                                                
          67634          0,2,0,1,8;                                                                                
          67635          0,0,2,0,17;                                                                               
          67636          1,3,6,6,54;                                                                               
          67637          6,6,1,2,8;                                        408/3 PRINT RT                          
          67638          1,7,3,1,63;                                       LOAD NEXT CHAP                          
          67639          0,0,0,5,0;                                        409/1                                   
          67640          0,0,5,0,5;                                                                                
          67641          0,5,0,6,54;                                                                               
          67642          6,6,0,2,0;                                                                                
          67643          5,0,2,0,0;                                                                                
          67644          0,5,0,0,45;                                       410/1                                   
          67645          5,5,0,5,6;                                                                                
          67646          0,5,0,0,45;                                                                               
          67647          0,0,5,0,40;                                                                               
          67648          0,0,0,5,0;                                                                                
          67649          5,0,5,0,5;                                                                                
          67650          0,0,0,0,40;                                                                               
          67651          5,0,5,5,40;                                                                               
          67652          0,0,6,6,54;                                                                               
          67653          0,2,0,0,40;                                       410 ENDS ODD'COS 409 ENDS EVEN          
  Source image: P1000478.JPG
          67654          2,0,0,0,0;                                        411/5                                   
          67655          0,0,0,0,7;                                                                                
          67656          0,0,7,7,0;                                                                                
          67657          0,0,0,0,0;                                                                                
          67658          0,0,0,0,62;                                                                               
          67659          1,0,1,0,9;                                        501/1                                   
                                                                                                                   
          67700    CONST   677       677     0    FIRST LEVEL PARAS FOR SET UP PQ                                  
          67702          (B5)0(B3)6(B3)6(B3)6(B6)50;                                                               
          67703          2,2,0,2,9;                                                                                
          67704          1,0,0,2,9;                                                                                
          67705          0,1,0,1,9;                                                                                
          67706          1,1,1,0,8;                                                                                
          67707          0,1,0,0,1;                                                                                
          67708          1,6,6,6,54;                                                                               
          67709          0,0,1,1,1;                                                                                
          67710          1,1,1,0,8;                                                                                
          67711          0,1,1,1,15;                                       502/5 UPDATE SWITCH S/R                 
          67712          0,1,1,0,8;                                                                                
          67713          1,0,1,1,8;                                                                                
          67714          0,1,1,0,16;                                       503/5                                   
          67715          1,0,2,0,17;                                                                               
          67716          0,2,1,0,17;                                                                               
          67717          0,1,0,1,58;                                                                               
          67718          1,0,7,1,1;                                        START OF PRIORITY TAB                   
          67719          3,0,0,1,11;                                       ROUTE CLOSED LINK                       
          67720          1,0,1,1,0;                                                                                
          67721          1,2,1,2,9;                                        504/1                                   
          67722          0,0,1,2,8;                                                                                
          67723          1,2,1,1,0;                                                                                
          67724          1,2,0,1,9;                                                                                
          67725          0,1,1,0,1;                                                                                
          67726          3,7,0,0,2;                                                                                
          67727          1,7,1,1,34;                                       505/3                                   
          67728          0,2,1,1,16;                                                                               
          67729          2,1,0,2,10;                                                                               
          67730          0,0,1,0,8;                                                                                
          67731          1,1,7,1,56;                                                                               
          67732          1,0,6,6,54;                                                                               
          67733          1,1,0,1,2;                                                                                
          67734          0,0,7,1,57;                                                                               
          67735          2,0,1,0,0;                                                                                
          67736          1,1,1,3,6;                                                                                
          67737          1,2,1,2,18;                                       506/1                                   
          67738          2,0,0,1,18;                                                                               
          67739          2,0,1,0,2;                                                                                
          67740          1,0,1,6,54;                                                                               
          67741          1,2,0,0,10;                                                                               
          67742          1,0,0,2,18;                                                                               
          67743          0,2,0,0,10;                                                                               
          67744          0,2,2,0,16;                                                                               
          67745          2,0,2,2,17;                                                                               
          67746          1,7,1,0,2;                                        REQUEST T/W S/R                         
          67747          6,6,6,6,1;                                        507/5                                   
          67748          1,1,0,1,9;                                                                                
          67749          0,1,0,1,15;                                       REQUEST T/W S/R                         
          67750          0,0,2,1,57;                                       T/W ANNEXE                              
          67751          7,1,1,2,17;                                       508/3 EDIT TIME SR                      
          67752          2,1,1,1,8;                                                                                
          67753          0,1,1,0,1;                                                                                
  Source image: P1000479.JPG
          67754          1,1,0,0,10;                                                                               
          67755          1,0,0,1,1;                                                                                
          67756          7,1,2,1,11;                                       PTS IN MASTER?                          
          67757          0,1,0,2,8;                                        509/5                                   
          67758          2,0,1,0,54;                                                                               
          67759          2,1,0,2,11;                                                                               
          67760          3,1,7,1,16;                                       510/6 LOAD CHAP S/R                     
          67761          1,0,0,1,1;                                                                                
          67762          1,0,1,7,57;                                       LOG ROUTINE/RTE CLSD LK                 
          67763          0,1,0,1,0;                                        511/5                                   
          67764          0,6,6,6,54;                                                                               
          67765          6,6,6,6,54;                                                                               
          67766          7,0,0,0,0;                                        MOD GRP 3 STORE                         
          67767          0,0,0,0,63;                                       PRRTY AND STRE TABS                     
          67768          0,0,0,0,63;                                       CLOCK IND/T/W ANNEXE                    
          67769          0,0,7,0,0;                                        PTS CHAP START                          
          67770          5,0,0,0,0;                                        513/1                                   
          67771          0,0,5,0,0;                                                                                
          67772          5,0,0,0,0;                                                                                
          67773          7,6,6,6,54;                                                                               
                                                                                                                   
          67800    CONST   678       678     0    FIRST LEVEL PARAS OF FINAL CHUNK                                 
          67802          (B5)1(B3)1(B3)7(B3)3(B6)0;                        601/1 RETURN AFTER PLS                  
          67803          6,2,2,1,1;                                                                                
          67804          7,1,0,1,10;                                       READ NEXT BLOCK                         
          67805          1,7,0,2,9;                                        LOAD CHAP S/R                           
          67806          1,0,1,1,17;                                                                               
          67807          2,2,1,1,1;                                                                                
          67808          0,0,1,1,1;                                                                                
          67809          0,1,0,2,9;                                                                                
          67810          1,7,0,0,0;                                                                                
          67811          0,0,2,1,17;                                                                               
          67812          0,0,2,0,9;                                        603/1                                   
          67813          0,0,0,6,54;                                                                               
          67814          1,2,1,1,58;                                                                               
          67815          1,0,2,2,15;                                       PTS IN MASTER                           
          67816          1,1,1,0,9;                                                                                
          67817          3,2,2,0,11;                                                                               
          67818          2,0,1,2,11;                                                                               
          67819          2,0,1,1,2;                                                                                
          67820          0,1,0,1,8;                                                                                
          67821          7,0,7,6,54;                                       PTS CHAP START                          
                                                                                                                   
          67900    CONST   679       679     0    SECOND LEVEL PARAS                                               
          67902          (B8)29(B6)31(B6)14;                               UNLOADER                                
          67903          6,6,8;                                                                                    
          67904          32,32,12;                                                                                 
          67905          12,12,31;                                                                                 
          67906          13,63,63;                                                                                 
          67907          30,31,31;                                                                                 
          67908          29,30,29;                                                                                 
          67909          30,30,30;                                                                                 
          67910          31,62,31;                                         2/ALLOC STORAGE                         
          67911          31,30,7;                                                                                  
          67912          6,11,28;                                                                                  
          67913          28,48,30;                                                                                 
          67914          14,6,62;                                                                                  
          67915          32,29,28;                                         1/ALLOC ROUTES                          
          67916          26,7,63;                                                                                  
          67917          63,63,32;                                                                                 
  Source image: P1000480.JPG
          67918          6,6,33;                                                                                   
          67919          33,14,24;                                                                                 
          67920          24,63,63;                                                                                 
          67921          24,62,29;                                         3/ALLOC F/P                             
          67922          14,22,32;                                                                                 
          67923          22,63,63;                                                                                 
          67924          63,6,6;                                                                                   
          67925          27,63,63;                                                                                 
          67926          21,24,23;                                                                                 
          67927          62,8,29;                                          2/SET UP PQ                             
          67928          15,30,30;                                                                                 
          67929          16,35,32;                                                                                 
          67930          32,63,63;                                                                                 
          67931          63,63,63;                                         DUMMY WORD                              
          67932          17,17,18;                                                                                 
          67933          19,28,6;                                                                                  
          67934          20,15,10;                                                                                 
          67935          30,29,25;                                                                                 
          67936          18,43,62;                                                                                 
          67937          9,7,6;                                            1/LOAD CHAP                             
          67938          11,24,28;                                                                                 
          67939          43,62,63;                                                                                 
                                                                                                                   
          68000    PROCR   680       680     START OF PASS 4=READ/STORE PROCR START INDEX                          
    68774>                                                                                                         
    71172>68002    152     152      2   0  0              0        152                                             OVERLAY
          68003    C       776      2   0  0              0        776     CALL PASS 5                             
          68004    0       27      13   0  0              0                                                        SELECT
          68005    70      680      8   0  0              0        680     >NOT 'TRAMDING'                         JUMP IF A == 0
          68006    0       94       0   1  0              0                                                        SELECT
          68007    5       16       2   1  0              0                                                        TRANSFER
    68005>68008    52      5        0   0  0              0                TYPE 'PROG OUT'                         EDIT
          68009    C       736     14   0  0              0        736                                             
          68010    0       27      12   0  0              0                                                        SELECT
          68011    70      680     18   0  0              0        680     >NO PTS                                 JUMP IF A == 0
          68012    10               0   0  0       4+677372                '+PTS'                                  SELECT LITERAL
          68013    5       5       12   1  0              0                                                        TRANSFER
          68014    0       732     24   1  0              0        732     DOUBLE LE                               SELECT
          68015    5       5       14   1  0              0                                                        TRANSFER
          68016    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          68017    37      5       10   1  0              0                                                        REPLACE SELECTED BITS
    68011>68018    154     5        0   0  0              0                                                        COMMENT IN LOG
          68019    54      5        0   1  0             50                                                        BULK CLEAR
          68020    0       27      13   0  0              0                                                        SELECT
          68021    71      690      2   0  0              0        690     >'TRAMDING'                             JUMP IF A != 0
          68022    54      26       0   1  0           1080                                                        BULK CLEAR
          68023    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68024    C                0   0  0             48                FOR PROCR STARTS                        
    68040>68025    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68026    C                0   0  0            144                                                        
          68027    80      722      2   0  0              0        722     READ A6>SEC 9                           ENTER SUBROUTINE
          68028    55      9        4   2  0              8                                                        BULK COPY
          68029    C       11       0   2  0              0                                                        
          68030    5       18       0   0  0              0                CLEAR CTR                               TRANSFER
          68031            11       0   1  0              0                                                        SELECT
          68032    32               0   0  0              2-               TEST TYPE AS EXPECTED                   SHIFT (AB) BY QUARTETS
          68033    2       731      8   1  0              0        731                                             SUBTRACT
          68034    70      680     41   0  0              0        680     >OK                                     JUMP IF A == 0
          68035    10               0   0  0         900000                                                        SELECT LITERAL
          68036    1       27       9   0  0              0                                                        ADD
  Source image: P1000481.JPG
          68037    91               0   0  3              0                FOR REENTRY                             SET MODIFICATION REGISTER AT VARIABLE
          68038    150              0   0  0              8                                                        OFFER OPTIONS
          68039    C       100      2   0  0              0        100     RE-ENTER PASS 0                         
          68040    C       680     25   0  0              0        680     >READ NEXT BLOCK                        
    68034>68041            9        0   2  0              0                                                        SELECT
          68042    5       712      2   0  0              0        712     CURRENT BLOCK SERIAL WL                 TRANSFER
    68065>68043    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68044    C                0   0  0            144                                                        
    68063>68045            9        4   1  2              0                                                        SELECT
          68046    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          68047    2       731      8   1  0              0        731     'TYPE'                                  SUBTRACT
          68048    71      680     63   0  0              0        680     >STEP R2                                JUMP IF A != 0
          68049    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          68050    12               0   0  0             46                                                        SUBTRACT LITERAL
          68051    70      680     63   0  0              0        680     >6=C-PROCR                              JUMP IF A == 0
          68052    12               0   0  0              1                                                        SUBTRACT LITERAL
          68053    70      680     63   0  0              0        680     >7=VALUES                               JUMP IF A == 0
          68054    73      680     58   0  0              0        680     >TYPE 1-5                               JUMP IF A < 0
          68055    12               0   0  0              8                                                        SUBTRACT LITERAL
          68056    70      680     66   0  0              0        680     >END OF PROGM                           JUMP IF A == 0
          68057    76      680     63   0  0              0        680                                             JUMP unconditional
    68054>68058            9        6   2  2              0                                                        SELECT
          68059    5       26       0   0  0              0                                                        TRANSFER
          68060            9        8   2  2              0                START                                   SELECT
          68061    124     26       0   0  1              0                                                        modify address of next
          68062    5       26       0   0  0              0                                                        TRANSFER
    68057>                                                                                                         
    68053>                                                                                                         
    68051>                                                                                                         
    68048>68063    94      680     45   0  2              8        680                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68064    80      722      2   0  0              0        722     >READ                                   ENTER SUBROUTINE
          68065    76      680     43   0  0              0        680                                             JUMP unconditional
    68071>                                                                                                         
    68056>68066    46      A6       4   0  0              1                                                        RUN BACK
          68067    C                0   0  0                                                                       
    68072>68068    80      722      2   0  0              0        722     >READ                                   ENTER SUBROUTINE
          68069            712      2   0  0              0        712                                             SELECT
          68070    2       9        0   2  0              0                                                        SUBTRACT
          68071    73      680     66   0  0              0        680     >RUN BACK FURTHER                       JUMP IF A < 0
          68072    71      680     68   0  0              0        680     >GET TO REQUIRED BLOCK                  JUMP IF A != 0
          68073    55      94       0   1  0            100                SECTION START ADDRESSES                 BULK COPY
          68074    C       26       0   1  0              0                                                        
          68075    101            204   1  3              0                                                        select literal address
          68076    5       26    1000   0  0              0                CONVERT TABLE START                     TRANSFER
          68077    124     92      29   0  1              0                                                        modify address of next
          68078            26    1001   0  0              0                                                        SELECT
          68079    124     92      29   0  1              0                                                        modify address of next
          68080    5       72      17   0  0              0                (TO PRESERVE IT IN COPY)                TRANSFER
          68081    55      72      18   0  0              0                SWITCH PROCR STARTS                     BULK COPY
          68082    C       26    1002   0  0              0                                                        
          68083    C       92      29   0  0              0                (CHAPS INITIALLY)                       
          68084    124     92      29   0  1              0                                                        modify address of next
          68085            72       2   0  0              0                SPECIAL CHAP LENGTH                     SELECT
          68086    5       26    1001   0  0              0                SET START OF PRINT SR                   TRANSFER
          68087    5       27       7   0  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          68100    PROCR   681       681     SET UP BLOCKS FOR PTS                                                 
          68102            16       2   0  0              0                PROG ID                                 SELECT
          68103    5       8        6   2  0              0                                                        TRANSFER
          68104            16       3   0  0              0                PROG SERIAL                             SELECT
  Source image: P1000482.JPG
          68105    5       8        8   2  0              0                                                        TRANSFER
          68106            732     12   1  0              0        732      'FIEND'                                SELECT
          68107    5       8        4   1  0              0                                                        TRANSFER
          68108    80      727      2   0  0              0        727     WRITE'FIEND'BLOCK                       ENTER SUBROUTINE
          68109    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68110    C                0   0  0             48                                                        
          68111    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68112    C                0   0  0           1000                                                        
    68115>68113    0       26       0   0  1              0                PROCR START INDEX                       SELECT
          68114    80      692      2   0  0              0        692     >OUT                                    ENTER SUBROUTINE
          68115    94      681     13   0  1              1        681                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68116    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68117    C                0   0  0             14                FOR CHAPTER ENDS ETC                    
    68120>68118            92      10   0  1              0                                                        SELECT
          68119    80      692      2   0  0              0        692     >OUT                                    ENTER SUBROUTINE
          68120    94      681     18   0  1              1        681                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68121    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68122    C                0   0  0             40                FOR TRACE POINTS                        
    68125>68123            25       2   0  1              0                                                        SELECT
          68124    80      692      2   0  0              0        692     >OUT                                    ENTER SUBROUTINE
          68125    94      681     23   0  1              1        681                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68126    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68127    C                0   0  0            100                FOR SECTIONS                            
    68130>68128            15       0   0  1              0                                                        SELECT
          68129    80      692      2   0  0              0        692     >OUT                                    ENTER SUBROUTINE
          68130    94      681     28   0  1              1        681                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68131    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68132    C                0   0  0             36                FOR FILES AND TX AREAS                  
    68135>68133            24       0   0  1              0                                                        SELECT
          68134    80      692      2   0  0              0        692     >OUT                                    ENTER SUBROUTINE
          68135    94      681     33   0  1              1        681                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68136    80      727      2   0  0              0        727     WRITE FINAL BLOCK                       ENTER SUBROUTINE
                                                                                                                   
          68200    PROCR   682       682     CHAPTER HEADING BLOCK - THE FIRST ONE                                 
          68202    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68203    C                0   0  0             48                                                        
          68204    10               0   0  0              1                                                        SELECT LITERAL
          68205    5       16      16   0  0              0                                                        TRANSFER
          68206    52      8        4   0  0              0                                                        EDIT
          68207    C       738      2   0  0              0        738                                             
          68208    80      727      2   0  0              0        727     WRITE CHAP HEADING BLOCK                ENTER SUBROUTINE
          68209    52      5        2   0  0              0                                                        EDIT
          68210    C       738     12   0  0              0        738                                             
          68211    10               0   0  0              2                                                        SELECT LITERAL
          68212    3       16      16   0  0              0                                                        COPY
          68213    80      724      2   0  0              0        724     >PRINT CHAP HEADING                     ENTER SUBROUTINE
          68214    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68215    C                0   0  0            144                                                        
          68216    76      683      3   0  0              0        683     >DEAL WITH FIRST'TYPE'BLOCK             JUMP unconditional
                                                                                                                   
          68300    PROCR   683       683     ENTRY POINT                                                           
          68301     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    68406>                                                                                                         
    68418>                                                                                                         
    68422>                                                                                                         
    68519>                                                                                                         
    69815>                                                                                                         
    70117>                                                                                                         
    70119>                                                                                                         
    70505>                                                                                                         
    70537>                                                                                                         
    70539>                                                                                                         
    70634>                                                                                                         
    70712>                                                                                                         
    70720>                                                                                                         
    70818>                                                                                                         
    70827>                                                                                                         
  Source image: P1000483.JPG
    70831>68302    80      721      2   0  0              0        721     >GET NEXT ITEM                          ENTER SUBROUTINE
    68216>68303    80      728      2   0  0              0        728                                             ENTER SUBROUTINE
    68744>68304            11       0   1  0              0                                                        SELECT
          68305    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          68306    2       731      8   1  0              0        731      'TYPE'                                 SUBTRACT
          68307    71      695      2   0  0              0        695     >SWITCH NOT A 'TYPE' UNIT               JUMP IF A != 0
          68308    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          68309    12               0   0  0             48                                                        SUBTRACT LITERAL
          68310    72      686      2   0  0              0        686     (MUST BE 14=CHAP END)                   JUMP IF A >= 0
          68311    11               0   0  0              8                                                        ADD LITERAL
          68312    84      695      2   0  0              0        695                                             SET SWITCH(ES) AT VARIABLE VALUE
          68313    00      11       4   2  0              0                                                        SELECT
          68314    05      16      23   0  0              0                SPACE CTR FOR USE WITH VALUES           TRANSFER
          68315            11       2   2  0              0                                                        SELECT
          68316    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          68317    3       16      17   0  0              0                                                        COPY
          68318    5       733      6   0  0              0        733     STORE CURRENT PROCR                     TRANSFER
          68319    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
                                                                                                                   
          68400    PROCR   684       684     PRINT HEADING FOR INSTRUCTIONS                                        
          68401     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
          68402    85      100      2   0  0              0        100                                             SWITCH R
          68403    C       684     23   0  0              0        684     >PRINT                                  
          68404    C       684      5   0  0              0        684     >DON'T PRINT                            
    68404>68405    0       11       2   2  0              0                PROCR                                   SELECT
          68406    70      683      2   0  0              0        683     >DON'T PRINT                            JUMP IF A == 0
          68407    0       11       4   2  0              0                PROCR START                             SELECT
          68408    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          68409    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          68410    5       16      36   0  0              0                PROCR START                             TRANSFER
          68411    52      5        2   0  8              0                                                        EDIT
          68412    C       738     16   0  0              0        738                                             
          68413    86      695      2   0  0              0        695     TYPE                                    SELECT SWITCH R
          68414    12               0   0  0              6                                                        SUBTRACT LITERAL
          68415    71      684     18   0  0              0        684                                             JUMP IF A != 0
          68416    10               0   0  0         537354                 'CTD'                                  SELECT LITERAL
          68417    5       5        2   1  8              0                                                        TRANSFER
    68415>68418    94      683      2   0  8              4        683                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68419    80      724      2   0  0              0        724     >PRINT                                  ENTER SUBROUTINE
          68420    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68421    C                0   0  0             48                                                        
          68422    76      683      2   0  0              0        683                                             JUMP unconditional
    68403>68423    95               0   0  5              0                                                        SELECT MODIFICATION REGISTER
          68424    5       731     38   1  0              0        731                                             TRANSFER
          68425    0       16       1   0  0              0                LINE PRINTED?                           SELECT
          68426    70      684     28   0  0              0        684     >YES                                    JUMP IF A == 0
          68427    80      712      2   0  0              0        712     >O/P LINE                               ENTER SUBROUTINE
    68426>68428    91      731     38   0  5              0        731     RESET R5                                SET MODIFICATION REGISTER AT VARIABLE
          68429    5       16      37   0  0              0                CLEAR SUBCTR                            TRANSFER
          68430    86      695      2   0  0              0        695     TEST TYPE 1                             SELECT SWITCH R
          68431    12               0   0  0              1                                                        SUBTRACT LITERAL
          68432    71      685      2   0  0              0        685     IF NOT GO TO 728                        JUMP IF A != 0
          68433    0       731     28   1  0              0        731     SET UP'PROCEDURE'                       SELECT
  Source image: P1000484.JPG
          68434    34      731     30   1  0              0        731                                             SET (N) IN B
          68435    76      685     15   0  0              0        685                                             JUMP unconditional
                                                                                                                   
          68500    PROCR   685       685     PRINT OTHER HEADINGS                                                  
          68501     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    68432>68502    12               0   0  0              5                                                        SUBTRACT LITERAL
          68503    71      685      7   0  0              0        685     >NOT TYPE 6                             JUMP IF A != 0
          68504    10               0   0  0     5366657354                'CONTD'                                 SELECT LITERAL
    68512>68505    5       5        2   1  0              0                                                        TRANSFER
          68506    76      685     18   0  0              0        685     >PRINT                                  JUMP unconditional
    68503>68507    12               0   0  0              1                                                        SUBTRACT LITERAL
          68508    71      685     13   0  0              0        685     >NOT TYPE 7                             JUMP IF A != 0
          68509    90               0   0  8              0                (FOR SPECIAL PRINTING)                  SET MODIFICATION REGISTER AT LITERAL
          68510    C                0   0  0             40                                                        
          68511    10               0   0  0     7551637455                'VALUE'                                 SELECT LITERAL
          68512    76      685      5   0  0              0        685                                             JUMP unconditional
    68508>68513    0       731     32   1  0              0        731                                             SELECT
          68514    34      731     34   1  0              0        731                                             SET (N) IN B
    68435>68515    100     16      18   1  0              0                                                        copy registers
          68516    52      5        2   0  0              0                                                        EDIT
          68517    C       738     42   0  0              0        738     HEADING BLOCK                           
    68506>68518    80      724      2   0  0              0        724                                             ENTER SUBROUTINE
          68519    76      683      2   0  0              0        683                                             JUMP unconditional
                                                                                                                   
          68600    PROCR   686       686     CHAPTER END                                                           
          68601     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    68610>                                                                                                         
    68310>68602    80      721      2   0  0              0        721     GET NEXT ITEM                           ENTER SUBROUTINE
          68603    80      728      2   0  0              0        728                                             ENTER SUBROUTINE
          68604            11       0   1  0              0                                                        SELECT
          68605    2       731     20   1  0              0        731     BEW                                     SUBTRACT
          68606    70      721      4   0  0              0        721     >READ BLOCK, SR LINK STILL SET          JUMP IF A == 0
          68607            11       0   1  0              0                                                        SELECT
          68608    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          68609    2       731      8   1  0              0        731     'TYPE'                                  SUBTRACT
          68610    71      686      2   0  0              0        686     >LOOP                                   JUMP IF A != 0
    68904>                                                                                                         
    68955>68611            735     10   0  0              0        735     £ IN Q5                                 SELECT
          68612    5       8        4   2  1              0                =PARAMETER                              TRANSFER
          68613    5       8        6   1  1              0                                                        TRANSFER
          68614    80      727      2   0  0              0        727     >WRITE                                  ENTER SUBROUTINE
          68615    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68616    C                0   0  0             48                                                        
          68617    0       16       1   0  0              0                                                        SELECT
          68618    70      687      2   0  0              0        687                                             JUMP IF A == 0
          68619    80      712      2   0  0              0        712     >O/P LINE                               ENTER SUBROUTINE
                                                                                                                   
          68700    PROCR   687       687     NEW CHAPTER HEADING                                                   
          68701     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    68618>68702    10               0   0  0              0                                                        SELECT LITERAL
          68703    5       16      28   0  0              0                                                        TRANSFER
          68704    5       16      37   0  0              0                CLEAR SERIAL SUB-CTR                    TRANSFER
          68705    52      8        4   0  0              0                EDIT                                    EDIT
          68706    C       738      2   0  0              0        738                                             
          68707    0       16      16   0  0              0                                                        SELECT
          68708    80      730      2   0  0              0        730     >TO BIN                                 ENTER SUBROUTINE
          68709    5       8        4   2  0              0                BIN CHAP NUMBER ON MT                   TRANSFER
          68710    85      100      2   0  0              0        100                                             SWITCH R
          68711    C       687     16   0  0              0        687     >PRINT                                  
          68712    C       687     13   0  0              0        687     >DON'T PRINT                            
  Source image: P1000485.JPG
    68712>68713    80      724      2   0  0              0        724     > PRINT PROCR START LINE                ENTER SUBROUTINE
          68714    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68715    C                0   0  0             48                                                        
    68711>68716    52      5        2   0  0              0                                                        EDIT
          68717    C       738     12   0  0              0        738                                             
          68718    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68719    C                0   0  0             40                                                        
          68720    60               0   0  0              0                                                        SET DECIMAL RADIX
          68721    10               0   0  0              1                                                        SELECT LITERAL
          68722    4       16      16   0  0              0                STEP CHAP NUMBER (DEC)                  AUGMENT
          68723    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          68724            16      16   0  0              0                THIS CHAP (DEC)                         SELECT
          68725    12               0   0  0              1                                                        SUBTRACT LITERAL
          68726    2       92      29   0  0              0                SPECIAL CHAP (DEC)                      SUBTRACT
          68727    71      687     35   0  0              0        687                                             JUMP IF A != 0
          68728    55      732      2   1  0              6        732      'EXTRA CHAPTER'                        BULK COPY
          68729    C       5       10   1  0              0                                                        
          68730    101            202   1  3              0                                                        select literal address
          68731    5       16      28   0  0              0                SET LINE SERIAL                         TRANSFER
          68732    80      724      2   0  0              0        724     PRINT CHAP HEADING                      ENTER SUBROUTINE
          68733    80      727      2   0  0              0        727     > WRITE CHAP HEADING                    ENTER SUBROUTINE
          68734    76      688      2   0  0              0        688     > GENERATE SP CHAP                      JUMP unconditional
    68727>68735            11       0   1  0              0                 'TYPE (SOMETHING) '                    SELECT
          68736    2       731      4   1  0              0        731      'TYPE£'                                SUBTRACT
          68737    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68738    C                0   0  0              0                /////                                   
          68739    70      687     45   0  0              0        687     > END                                   JUMP IF A == 0
          68740    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68741    C                0   0  0             48                                                        
          68742    80      724      2   0  0              0        724     > PRINT NEW CHAP HEADING                ENTER SUBROUTINE
          68743    80      727      2   0  0              0        727     > WRITE NEW                             ENTER SUBROUTINE
          68744    76      683      4   0  0              0        683     > TEST WHICH TYPE                       JUMP unconditional
    68739>68745            27       7   0  0              0                CTR NEG ADDRESSES                       SELECT
          68746    70      687     71   0  0              0        687     > NONE                                  JUMP IF A == 0
          68747    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          68748    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          68749    54      5        2   1  0             46                                                        BULK CLEAR
          68750    80      724      2   0  0              0        724                                             ENTER SUBROUTINE
          68751    80      724      2   0  0              0        724                                             ENTER SUBROUTINE
          68752    80      724      2   0  0              0        724     3 BLANK LINES                           ENTER SUBROUTINE
          68753    10               0   0  0     6955560000                 'REF'                                  SELECT LITERAL
          68754    5       5        4   1  0              0                                                        TRANSFER
          68755    10               0   0  0     6769665369                 'PROCR'                                SELECT LITERAL
          68756    5       5        6   1  0              0                                                        TRANSFER
          68757    80      724      2   0  0              0        724     > HEADING                               ENTER SUBROUTINE
    68767>68758            18       3   0  3              0                REF                                     SELECT
          68759    80      729      2   0  0              0        729     > DEC                                   ENTER SUBROUTINE
          68760    5       729      2   0  0              0        729                                             TRANSFER
          68761            18       2   0  3              0                DEC PROCR                               SELECT
          68762    5       724      2   0  0              0        724                                             TRANSFER
          68763    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          68764    52      5        4   0  0              0                                                        EDIT
          68765    C       736     10   0  0              0        736                                             
          68766    80      724      2   0  0              0        724     > PRINT                                 ENTER SUBROUTINE
          68767    94      687     58   0  3              2        687                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68768    80      724      2   0  0              0        724     > BLANKS                                ENTER SUBROUTINE
          68769    80      724      2   0  0              0        724                                             ENTER SUBROUTINE
          68770    80      724      2   0  0              0        724                                             ENTER SUBROUTINE
    69165>                                                                                                         
    68746>68771    55      26       0   1  0           1000                PROCR START INDEX FOR 08005             BULK COPY
  Source image: P1000486.JPG
          68772    C       18    1000   1  0              0                                                        
          68773            27      12   0  0              0                                                        SELECT
          68774    70      680      2   0  0              0        680     > PTS NOT NEEDED. CALL PASS 5           JUMP IF A == 0
          68775    76      711      2   0  0              0        711                                             JUMP unconditional
                                                                                                                   
          68800    PROCR   688       688     GENERATE START OF SPECIAL CHAPTER                                     
    68734>68802    10               0   0  0            £00                                                        SELECT LITERAL
          68803    5       13       0   2  0              0                PARA                                    TRANSFER
          68804    101            202   1  3              0                                                        select literal address
          68805    5       13       2   2  0              0                                                        TRANSFER
          68806    80      714      2   0  0              0        714     > O/P                                   ENTER SUBROUTINE
          68807    10               0   0  0             14                20                                      SELECT LITERAL
          68808    92               0   0  5              0                                                        SET MODIFIER AT VARIABLE
          68809    10               0   0  0              0                                                        SELECT LITERAL
          68810    5       13       0   2  0              0                                                        TRANSFER
          68811    5       13       2   2  0              0                                                        TRANSFER
          68812    80      710      2   0  0              0        710                                             ENTER SUBROUTINE
          68813    80      710      2   0  0              0        710     O/P LOCNS 202 203 BLANK                 ENTER SUBROUTINE
                                                                                                                   
          68900    PROCR   689       689     CALCULATE CONVERT TABLE                                               
          68902            92       7   0  0              0                                                        SELECT
          68903    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          68904    70      686     11   0  0              0        686     > NO TABLES                             JUMP IF A == 0
          68905    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    68954>68906            99       0   1  3              0                NEXT OLD/NEW RADIX PAIR                 SELECT
          68907    5       70      30   1  0              0                                                        TRANSFER
          68908    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
          68909    5       70       6   1  0              0                WL                                      TRANSFER
          68910    10               0   0  0              1                                                        SELECT LITERAL
          68911    5       70       8   1  0              0                FIRST TABLE ENTRY                       TRANSFER
          68912    100     70      30   0  3              0                NEW RADIX                               set radix
          68913    12               0   0  0              1                                                        SUBTRACT LITERAL
          68914    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          68915    10               0   0  0              0                                                        SELECT LITERAL
          68916    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          68917    5       70       0   1  0              0                LARGEST NUMBER IN NEW RADIX             TRANSFER
          68918    100     70      31   0  3              0                OLD RADIX                               set radix
          68919    12               0   0  0              1                                                        SUBTRACT LITERAL
          68920    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          68921    5       70       2   1  0              0                > COMPLEMENT                            TRANSFER
          68922    0       70      31   0  0              0                OLD RADIX                               SELECT
          68923    5       70       2   0  0              0                                                        TRANSFER
          68924    34      70       2   1  0              0                (8) = 10QTTS OF OLD EXCESS CONSTS       SET (N) IN B
          68925    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68926    C                0   0  0             18                CALC 9 TE'S                             
    68943>68927    36      735     13   0  0              0        735     Q1                                      COLLATE AND ADD
          68928    5       70       4   0  0              0                EC Q1 - FORM 16-EC:0                    TRANSFER
          68929    2       70       4   0  0              0                FOR MR                                  SUBTRACT
          68930    11               0   0  0             10                                                        ADD LITERAL
          68931    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          68932    5       70       2   1  0              0                                                        TRANSFER
          68933    91      70       2   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          68934    100     70      30   0  3              0                SET NEW RADIX                           set radix
          68935    2       70       0   1  0              0                LARGEST NO IN NEW RADIX                 SUBTRACT
    68938>68936    1       70       8   1  4              0                                                        ADD
          68937    72      689     56   0  0              0        689     > WILL GET O'FLOW                       JUMP IF A >= 0
          68938    94      689     36   0  3              1        689                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68939    1       70       0   1  0              0                                                        ADD
    68957>68940    5       70      10   1  4              0                STORE NEXT TE                           TRANSFER
          68941    62               0   0  0              0                SET BINARY                              SET EXCESS CONSTANTS
  Source image: P1000487.JPG
          68942    32               0   0  0              1-               FOR NEXT QTT OF OLD RADIX               SHIFT (AB) BY QUARTETS
          68943    94      689     27   0  4              2        689                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68944    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          68945    C                0   0  0             20                                                        
    68952>68946    0       70       8   0  3              0                                                        SELECT
          68947    5       13       2   2  0              0                                                        TRANSFER
          68948    80      710      2   0  0              0        710                                             ENTER SUBROUTINE
          68949    0       70       9   0  3              0                                                        SELECT
          68950    5       13       2   2  0              0                                                        TRANSFER
          68951    80      710      2   0  0              0        710                                             ENTER SUBROUTINE
          68952    94      689     46   0  3              2        689                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68953    91      70       6   0  3              0                RESTORE R3                              SET MODIFICATION REGISTER AT VARIABLE
          68954    94      689      6   0  3              2        689     >NEXT CONVERT TABLE                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          68955    76      686     11   0  0              0        686     >FINISH THE EXTRA CHAPTER               JUMP unconditional
    68937>68956    0       734     40   1  0              0        734     ALL THE £'S                             SELECT
          68957    76      689     40   0  0              0        689     >STORE INFINITY AS TABLE ENTRY          JUMP unconditional
                                                                                                                   
          69000    PROCR   690       690     DIRECTORY ENTRY FROM PASS 5-DEAL WITH END OF INTERCODE*PLS            
    68021>69002            16       2   0  0              0                GENERATE INDEX DETAILS                  SELECT
          69003    3       8        4   2  0              0                                                        COPY
          69004    5       8       12   2  0              0                                                        TRANSFER
          69005            16       3   0  0              0                                                        SELECT
          69006    3       8        6   2  0              0                                                        COPY
          69007    5       8       14   2  0              0                                                        TRANSFER
          69008    10               0   0  0              2                                                        SELECT LITERAL
          69009    5       8       10   2  0              0                PASS 1 IDENTIFIER                       TRANSFER
          69010    10               0   0  0              3                                                        SELECT LITERAL
          69011    5       8       18   2  0              0                PASS 3 IDENTIFIER                       TRANSFER
          69012    10               0   0  0              4                                                        SELECT LITERAL
          69013    5       8       16   2  0              0                                                        TRANSFER
          69014            734     40   0  0              0        734      '£££££'                                SELECT
          69015    5       8       20   2  0              0                                                        TRANSFER
          69016    80      727      2   0  0              0        727     >WRITE                                  ENTER SUBROUTINE
    69020>                                                                                                         
    69024>69017    80      694      2   0  0              0        694     A1-7                                    ENTER SUBROUTINE
          69018            7        4   2  0              0                TEST 'SENTINEL5'                        SELECT
          69019    2       734     40   0  0              0        734      '£££££'                                SUBTRACT
          69020    71      690     17   0  0              0        690     >NO                                     JUMP IF A != 0
          69021    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          69022    36      7        6   2  0              0                                                        COLLATE AND ADD
          69023    12               0   0  0              5                                                        SUBTRACT LITERAL
          69024    71      690     17   0  0              0        690     >NO                                     JUMP IF A != 0
          69025            16       3   0  0              0                                                        SELECT
          69026    5       7       10   2  0              0                PROG SERIAL                             TRANSFER
    69031>69027    80      704      2   0  0              0        704     >WRITE                                  ENTER SUBROUTINE
          69028    80      694      2   0  0              0        694     >READ                                   ENTER SUBROUTINE
          69029            7       42   1  0              0                                                        SELECT
          69030    12               0   0  0     5163636653                 'ALLOC'                                SUBTRACT LITERAL
          69031    71      690     27   0  0              0        690                                             JUMP IF A != 0
          69032            7       12   2  0              0                CHAPS INITIALLY                         SELECT
          69033    3       92       9   0  0              0                                                        COPY
          69034    5       92      29   0  0              0                                                        TRANSFER
          69035            16       3   0  0              0                                                        SELECT
          69036    5       7       40   2  0              0                NEW PROG SERIAL                         TRANSFER
    69041>69037    80      704      2   0  0              0        704     >WRITE                                  ENTER SUBROUTINE
          69038    80      694      2   0  0              0        694     >READ                                   ENTER SUBROUTINE
          69039            7        4   1  0              0                                                        SELECT
          69040    2       732     12   1  0              0        732      'FIEND'                                SUBTRACT
          69041    71      690     37   0  0              0        690     >NOT YET                                JUMP IF A != 0
          69042            16       3   0  0              0                                                        SELECT
  Source image: P1000488.JPG
          69043    5       7        8   2  0              0                                                        TRANSFER
          69044    80      704      2   0  0              0        704                                             ENTER SUBROUTINE
                                                                                                                   
          69100    PROCR   691       691     STORE 08005 DATA,ALIGN FILES,COPY M/CODE PROGRAM                      
          69102    90               0   0  2              0                TRICK                                   SET MODIFICATION REGISTER AT LITERAL
          69103    C                0   0  0              2                                                        
          69104    90               0   0  1              0                FOR PROCR START INDEX                   SET MODIFICATION REGISTER AT LITERAL
          69105    C                0   0  0           1000                                                        
    69108>69106    80      693      2   0  0              0        693     >GET                                    ENTER SUBROUTINE
          69107    5       26       0   0  1              0                                                        TRANSFER
          69108    94      691      6   0  1              1        691                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69109    90               0   0  1              0                FOR CHAP DETAILS                        SET MODIFICATION REGISTER AT LITERAL
          69110    C                0   0  0             14                                                        
    69113>69111    80      693      2   0  0              0        693     >GET                                    ENTER SUBROUTINE
          69112    5       92      10   0  1              0                                                        TRANSFER
          69113    94      691     11   0  1              1        691                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69114    90               0   0  1              0                FOR TRACE POINTS                        SET MODIFICATION REGISTER AT LITERAL
          69115    C                0   0  0             40                                                        
    69118>69116    80      693      2   0  0              0        693     >GET                                    ENTER SUBROUTINE
          69117    5       25       2   0  1              0                                                        TRANSFER
          69118    94      691     16   0  1              1        691                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69119    90               0   0  1              0                FOR SECTIONS                            SET MODIFICATION REGISTER AT LITERAL
          69120    C                0   0  0            100                                                        
    69123>69121    80      693      2   0  0              0        693     >GET                                    ENTER SUBROUTINE
          69122    5       15       0   0  1              0                                                        TRANSFER
          69123    94      691     21   0  1              1        691                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69124    90               0   0  1              0                FOR FILES AND TX AREAS                  SET MODIFICATION REGISTER AT LITERAL
          69125    C                0   0  0             36                                                        
    69128>69126    80      693      2   0  0              0        693     >GET                                    ENTER SUBROUTINE
          69127    5       24       0   0  1              0                                                        TRANSFER
          69128    94      691     26   0  1              1        691                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    69161>69129    80      694      2   0  0              0        694     >READ A1                                ENTER SUBROUTINE
          69130            7       12   1  0              0                                                        SELECT
          69131    2       731      2   1  0              0        731      'CHAPT'                                SUBTRACT
          69132    70      691     58   0  0              0        691     >HEADING BLOCK                          JUMP IF A == 0
          69133            7        4   1  0              0                                                        SELECT
          69134    2       731      2   1  0              0        731      'CHAPT'                                SUBTRACT
          69135    70      691     62   0  0              0        691     >TRIAL DATA START                       JUMP IF A == 0
          69136    1       731      2   1  0              0        731                                             ADD
          69137    2       731      6   1  0              0        731      'FILES'                                SUBTRACT
          69138    70      691     62   0  0              0        691     >PM POINTS START                        JUMP IF A == 0
          69139    1       731      6   1  0              0        731                                             ADD
          69140    12               0   0  0             55                 'E'                                    SUBTRACT LITERAL
          69141    70      691     55   0  0              0        691     >YES                                    JUMP IF A == 0
          69142            7       12   1  0              0                                                        SELECT
          69143    12               0   0  0     535851675+                (PTS HEADING)                           SUBTRACT LITERAL
          69144    71      691     60   0  0              0        691     >NO                                     JUMP IF A != 0
    69154>69145    80      694      2   0  0              0        694     (DRAIN OLD PTS PART ONE)                ENTER SUBROUTINE
          69146            7        4   1  0              0                                                        SELECT
          69147    2       731      2   1  0              0        731      'CHAPT'                                SUBTRACT
          69148    70      691     62   0  0              0        691                                             JUMP IF A == 0
          69149    1       731      2   1  0              0        731                                             ADD
          69150    2       731      6   1  0              0        731      'FILES'                                SUBTRACT
          69151    70      691     62   0  0              0        691                                             JUMP IF A == 0
          69152    1       731      6   1  0              0        731                                             ADD
          69153    12               0   0  0             55                 'E'                                    SUBTRACT LITERAL
          69154    71      691     45   0  0              0        691                                             JUMP IF A != 0
    69141>69155    5       27       3   0  0              0                SET'NO B/FWD TRIAL DATA'                TRANSFER
          69156    41      A1       0   0  0              1                CLOSE I/P                               CLOSE FILE
          69157    76      691     64   0  0              0        691                                             JUMP unconditional
  Source image: P1000489.JPG
    69132>69158            16       3   0  0              0                                                        SELECT
          69159    5       7       10   2  0              0                                                        TRANSFER
    69144>69160    80      704      2   0  0              0        704     >WRITE                                  ENTER SUBROUTINE
          69161    76      691     29   0  0              0        691                                             JUMP unconditional
    69151>                                                                                                         
    69148>                                                                                                         
    69138>                                                                                                         
    69135>69162    10               0   0  0              1                                                        SELECT LITERAL
          69163    5       27       3   0  0              0                SET'DATA PRESENT'                       TRANSFER
    69157>69164    40      A6       0   0  0              1                                                        OPEN FILE
          69165    76      687     71   0  0              0        687                                             JUMP unconditional
                                                                                                                   
          69200    PROCR   692       692     WRITE PTS BLOCK TO A2                                                 
          69202    81      692      2   0  0              0        692                                             START OF SUBROUTINE
          69203    5       8        4   2  2              0                                                        TRANSFER
          69204    94      692      8   0  2              2        692                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69205    80      727      2   0  0              0        727     WRITE->A2                               ENTER SUBROUTINE
          69206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          69207    C                0   0  0             48                                                        
    69204>69208    82      692      2   0  0              0        692                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          69300    PROCR   693       693     READ/STORE NEXT'FIEND'ITEM                                            
          69302    81      693      2   0  0              0        693                                             START OF SUBROUTINE
          69303    94      693      8   0  2              2        693                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69304    80      694      2   0  0              0        694     READ A1-7                               ENTER SUBROUTINE
          69305    80      704      2   0  0              0        704     COPY 7->8->A2                           ENTER SUBROUTINE
          69306    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          69307    C                0   0  0             48                                                        
    69303>69308            7        4   2  2              0                                                        SELECT
          69309    82      693      2   0  0              0        693                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          69400    PROCR   694       694     READ A1-7                                                             
          69402    81      694      2   0  0              0        694                                             START OF SUBROUTINE
          69403    42      A1       0   0  0              0                                                        INPUT
          69404    C       7        0   0  0              0                                                        
          69405    82      694      2   0  0              0        694                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          69500    PROCR   695       695     'TYPE'SWITCH                                                          
          69501     NOTES          RADIX     B    MAIN LOOP                                                        SELECT
    68307>69502    85      695      2   0  0              0        695                                             SWITCH R
          69503    C       696      2   0  0              0        696     INSTRUCTIONS                            
          69504    C       702      2   0  0              0        702     TABLE ENTRIES                           
          69505    C       706      2   0  0              0        706     PROGRAMME CONSTS                        
          69506    C       706      2   0  0              0        706     TABLE STARTS                            
          69507    C       707      2   0  0              0        707     FORMED CONST                            
          69508    C       696      2   0  0              0        696     6=C-PROCR                               
          69509    C       708      2   0  0              0        708     7=VALUES                                
                                                                                                                   
          69600    PROCR   696       696     TEST FOR SEQUENCE CHANGE                                              
          69601     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    69508>                                                                                                         
    69503>69602            11       4   2  0              0                                                        SELECT
          69603    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          69604    5       16      18   0  0              0                REF                                     TRANSFER
          69605    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          69606    5       16      24   0  0              0                NEG ITEM IND                            TRANSFER
          69607    33               0   0  0              7                                                        SHIFT (AB) BY BITS
          69608    5       13       0   2  0              0                PARA                                    TRANSFER
          69609    34      11       6   2  0              0                ADM+ITEM                                SET (N) IN B
          69610            11       2   2  0              0                TEST FOR SEQUENCE CHANGE                SELECT
  Source image: P1000490.JPG
          69611    70      697      2   0  0              0        697     >NOT SEQ CHANGE OR MR ENTRY             JUMP IF A == 0
          69612    12               0   0  0              1                                                        SUBTRACT LITERAL
          69613    70      699      2   0  0              0        699     >IS SEQ CHANGE                          JUMP IF A == 0
          69614    12               0   0  0              1                                                        SUBTRACT LITERAL
          69615    71      696     27   0  0              0        696     >NOT ACTION 16/0/0                      JUMP IF A != 0
          69616    36      735      3   0  0              0        735     BITS 1-13                               COLLATE AND ADD
          69617    5       16      19   0  0              0                MODULUS OF ITEM                         TRANSFER
          69618    34      16      24   0  0              0                                                        SET (N) IN B
          69619    74      696     22   0  0              0        696     >POSITIVE ITEM                          JUMP IF AB == 0        // 27, 1, 0
          69620    1       16      19   0  0              0                                                        ADD
          69621    76      696     23   0  0              0        696                                             JUMP unconditional
    69619>69622    2       16      19   0  0              0                                                        SUBTRACT
    69621>69623    124     16      18   0  1              0                REF                                     modify address of next
          69624    2       26       0   0  0              0                                                        SUBTRACT
          69625    5       13       2   2  0              0                                                        TRANSFER
          69626    76      698     12   0  0              0        698     >O/P                                    JUMP unconditional
    69615>69627    0       11       2   2  0              0                                                        SELECT
          69628    5       13       0   2  0              0                COPY IND AS PARA                        TRANSFER
                                                                                                                   
          69700    PROCR   697       697     INSTRUCTIONS                                                          
          69701     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    69611>69702    36      735      3   0  0              0        735     BITS 1-13                               COLLATE AND ADD
          69703    5       16      19   0  0              0                MODULUS OF ITEM                         TRANSFER
          69704            11       6   2  0              0                                                        SELECT
          69705    5       13       2   2  0              0                                                        TRANSFER
          69706    34      16      24   0  0              0                                                        SET (N) IN B
          69707    74      697     10   0  0              0        697     >NOT NEGATIVE ITEM                      JUMP IF AB == 0        // 27, 1, 0
          69708    2       16      19   0  0              0                                                        SUBTRACT
          69709    5       16      19   0  0              0                (SET SIGN)                              TRANSFER
    69707>69710            16      19   0  0              0                                                        SELECT
          69711    124     16      18   0  1              0                                                        modify address of next
          69712    1       26       0   0  0              0                PROCR START                             ADD
          69713    73      698      2   0  0              0        698     >REPORT                                 JUMP IF A < 0
          69714    34      735      3   0  0              0        735     BITS 1-13                               SET (N) IN B
          69715    37      13       2   2  0              0                                                        REPLACE SELECTED BITS
          69716    76      698     12   0  0              0        698                                             JUMP unconditional
                                                                                                                   
          69800    PROCR   698       698     REPORT ACTION WITH NEGATIVE ITEM                                      
          69801     NOTES          RADIX     B    ACTION DETAILS                                                   SELECT
    69713>69802    10               0   0  0          78000-               23/1/0 ACTION FOR LOCKOUT               SELECT LITERAL
          69803    5       13       2   2  0              0                                                        TRANSFER
          69804    5       13       0   2  0              0                                                        TRANSFER
          69805    91      27       7   0  3              0                CTR                                     SET MODIFICATION REGISTER AT VARIABLE
          69806            16      18   0  0              0                THIS REF                                SELECT
          69807    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          69808    1       733      6   0  0              0        733     CURRENT PROCR                           ADD
          69809    5       18       2   1  3              0                                                        TRANSFER
          69810    10               0   0  0              2                                                        SELECT LITERAL
          69811    4       27       7   0  0              0                STEP CTR                                AUGMENT
    69922>                                                                                                         
    69924>                                                                                                         
    69716>                                                                                                         
    69626>69812    80      714      2   0  0              0        714     EDIT+WRITE INSTRUCTION                  ENTER SUBROUTINE
          69813    85      100      2   0  0              0        100                                             SWITCH R
          69814    C       700      2   0  0              0        700     >PRINT                                  
          69815    C       683      2   0  0              0        683     >DON'T PRINT                            
                                                                                                                   
          69900    PROCR   699       699     SEQUENCE CHANGES                                                      
          69901     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    69613>69902    0       735     15   0  0              0        735     FLIPFLOP                                SELECT
  Source image: P1000491.JPG
          69903    70      699      7   0  0              0        699     BOTTOM 10 BITS                          JUMP IF A == 0
          69904    0       18       0   0 12              0                                                        SELECT
          69905    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          69906    76      699      9   0  0              0        699                                             JUMP unconditional
    69903>69907    34      735     14   0  0              0        735     BITS 1-10                               SET (N) IN B
          69908    36      18       0   0 12              0                                                        COLLATE AND ADD
    69906>69909    124     16      18   0  1              0                ITEM WITHIN PROCR IN A                  modify address of next
          69910    1       26       0   0  0              0                                                        ADD
          69911    5       16      18   0  0              0                =SEQ CHANGE ADDRESS                     TRANSFER
          69912    34      11       6   2  0              0                                                        SET (N) IN B
          69913    36      735      4   0  0              0        735     BITS 14-20+SIGN                         COLLATE AND ADD
          69914    73      699     17   0  0              0        699                                             JUMP IF A < 0
          69915    1       16      18   0  0              0                                                        ADD
          69916    76      699     18   0  0              0        699                                             JUMP unconditional
    69914>69917    2       16      18   0  0              0                                                        SUBTRACT
    69916>69918    5       13       2   2  0              0                                                        TRANSFER
          69919    10               0   0  0              1                                                        SELECT LITERAL
          69920    2       735     15   0  0              0        735                                             SUBTRACT
          69921    3       735     15   0  0              0        735     REVERSE FLIPFLOP                        COPY
          69922    71      698     12   0  0              0        698     >NOW ADDRESSES TOP 10 BITS              JUMP IF A != 0
          69923    94               0   0 12              1-                                                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          69924    76      698     12   0  0              0        698     >SAFETY                                 JUMP unconditional
                                                                                                                   
          70000    PROCR   700       700     DECODE INSTRUCTION FOR PRINTING                                       
          70001     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    69814>70002    34      13       2   2  0              0                (A IS CLEAR)                            SET (N) IN B
          70003    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
          70004    5       16      21   0  0              0                ACTION                                  TRANSFER
          70005    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          70006    5       16      25   0  0              0                DISC                                    TRANSFER
          70007    33               0   0  0              2                                                        SHIFT (AB) BY BITS
          70008    5       16      26   0  0              0                MOD                                     TRANSFER
          70009    33               0   0  0             13                                                        SHIFT (AB) BY BITS
          70010    5       16      24   0  0              0                ADDRESS                                 TRANSFER
          70011    0       13       2   2  0              0                                                        SELECT
          70012    72      701      2   0  0              0        701     >POSITIVE ACTION                        JUMP IF A >= 0
          70013    10               0   0  0             10                16                                      SELECT LITERAL
          70014    4       16      21   0  0              0                                                        AUGMENT
                                                                                                                   
          70100    PROCR   701       701     CONVERT FOR PRINT                                                     
          70101     NOTES          RADIX     B    INSTRUCTIONS                                                     SELECT
    70012>70102    0       13       0   2  0              0                PARA                                    SELECT
          70103    80      729      2   0  0              0        729     >CONVERT TO DEC                         ENTER SUBROUTINE
          70104    5       13       4   0  0              0                                                        TRANSFER
          70105    0       16      24   0  0              0                ADDRESS                                 SELECT
          70106    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          70107    5       13       2   1  0              0                                                        TRANSFER
          70108    0       16      21   0  0              0                ACTION                                  SELECT
          70109    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          70110    5       13       0   1  0              0                                                        TRANSFER
          70111    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          70112    52      5        4   0  5              0                                                        EDIT
          70113    C       739      2   0  0              0        739                                             
          70114    10               0   0  0              1                                                        SELECT LITERAL
          70115    4       16      37   0  0              0                AUG SUBCTR                              AUGMENT
          70116    5       16       1   0  0              0                                                        TRANSFER
          70117    94      683      2   0  5             10        683                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70118    80      712      2   0  0              0        712     >O/P LINE                               ENTER SUBROUTINE
          70119    76      683      2   0  0              0        683                                             JUMP unconditional
                                                                                                                   
  Source image: P1000492.JPG
          70200    PROCR   702       702     FORM ADDRESS                                                          
          70201     NOTES          RADIX     B                                                                     SELECT
    69504>70202            11       0   2  0              0                                                        SELECT
          70203    32               0   0  0              2-               SELECT REFERENCE                        SHIFT (AB) BY QUARTETS
          70204    5       16      18   0  0              0                                                        TRANSFER
          70205    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          70206    5       16      21   0  0              0                NEW ITEM IND                            TRANSFER
          70207    33               0   0  0              7                                                        SHIFT (AB) BY BITS
          70208    3       13       0   2  0              0                                                        COPY
          70209    5       13       4   2  0              0                PARAMETER                               TRANSFER
                                                                                                                   
          70300    PROCR   703       703     DEAL WITH 2ND ITEM FOR CONDENSE                                       
          70301     NOTES          RADIX     B                                                                     SELECT
          70302            11       6   1  0              0                                                        SELECT
          70303    5       13       6   1  0              0                STORE Q'S AND I'S                       TRANSFER
          70304            11       4   2  0              0                                                        SELECT
          70305    70      703     26   0  0              0        703     > NOT CONDENSE/UNPACK TABLE             JUMP IF A == 0
          70306    124     16      18   0  1              0                REF                                     modify address of next
          70307    0       26       0   0  0              0                                                        SELECT
          70308    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          70309    36      11       4   2  0              0                (POSITIVE) ITEM                         COLLATE AND ADD
          70310    5       16      22   0  0              0                PROVISIONAL ADDRESS                     TRANSFER
          70311    0       13       6   2  0              0                Q + I                                   SELECT
          70312    72      703     15   0  0              0        703     > NORMAL                                JUMP IF A >= 0
          70313    2       16      22   0  0              0                                                        SUBTRACT
          70314    76      703     16   0  0              0        703                                             JUMP unconditional
    70312>70315    1       16      22   0  0              0                                                        ADD
    70314>70316    5       13       6   2  0              0                SET SECOND ADDRESS + LTE                TRANSFER
          70317    34      16      21   0  0              0                 '-0' IND                               SET (N) IN B
          70318    74      703     27   0  0              0        703     > NO, CALC FIRST ADDRESS                JUMP IF AB == 0        // 27, 1, 0
          70319    2       13       6   2  0              0                                                        SUBTRACT
          70320    70      703     24   0  0              0        703                                             JUMP IF A == 0
          70321    5       13       6   2  0              0                (SET SIGN BIT)                          TRANSFER
          70322    5       16      21   0  0              0                                                        TRANSFER
          70323    76      703     27   0  0              0        703                                             JUMP unconditional
    70320>70324    5       16      21   0  0              0                CLEAR THIS                              TRANSFER
          70325    0       735      8   0  0              0        735      £ IN Q4 (MINUS ZERO)                   SELECT
    70305>70326    5       13       4   2  0              0                CLEAR PARA - FIXED FIELD                TRANSFER
    70323>                                                                                                         
    70318>70327    124     16      18   0  1              0                REF                                     modify address of next
          70328    0       26       0   0  0              0                                                        SELECT
          70329    1       11       2   2  0              0                FIRST ITEM (ALWAYS > 0)                 ADD
          70330    5       13       2   2  0              0                                                        TRANSFER
          70331    0       16      21   0  0              0                 '-0' IND                               SELECT
          70332    70      703     35   0  0              0        703     > NO                                    JUMP IF A == 0
          70333    0       735      8   0  0              0        735     £ IN Q4                                 SELECT
          70334    5       13       4   2  0              0                SET SECOND PARA                         TRANSFER
    70332>70335    80      714      2   0  0              0        714     > O/P MT                                ENTER SUBROUTINE
          70336    0       13       0   2  0              0                PARA                                    SELECT
          70337    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          70338    5       16      22   0  0              0                                                        TRANSFER
          70339    34      13       2   2  0              0                                                        SET (N) IN B
          70340    32               0   0  0              6                DELETE B17                              SHIFT (AB) BY QUARTETS
          70341    10               0   0  0              0                (STERLING INDICATOR)                    SELECT LITERAL
          70342    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          70343    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          70344    5       16      30   0  0              0                                                        TRANSFER
          70345    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          70346    35               0   0  0          10000                Q5                                      PREPARE FOR DIGIT COLLATION
          70347    36      13       2   2  0              0                STERLING IND                            COLLATE AND ADD
  Source image: P1000493.JPG
          70348    4       16      22   0  0              0                STORE WITH PARA                         AUGMENT
          70349            13       4   1  0              0                SET UP SECOND HALF OF                   SELECT
          70350    5       13       0   1  0              0                DETAILS FOR                             TRANSFER
          70351            13       6   1  0              0                OUTPUT                                  SELECT
          70352    5       13       2   1  0              0                                                        TRANSFER
          70353    80      714      2   0  0              0        714     >O/P SECOND HALF                        ENTER SUBROUTINE
          70354    76      705      2   0  0              0        705                                             JUMP unconditional
                                                                                                                   
          70400    PROCR   704       704     WRITE SEC 7->A2                                                       
          70402    81      704      2   0  0              0        704                                             START OF SUBROUTINE
          70403    55      7        4   1  0             50                                                        BULK COPY
          70404    C       8        4   1  0              0                                                        
          70405    80      727      2   0  0              0        727     WRITE 8->A2                             ENTER SUBROUTINE
          70406    82      704      2   0  0              0        704                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          70500    PROCR   705       705                                                                           
          70501     NOTES          RADIX                                                                           SELECT
    70354>70502    35               0   0  0           1111                Q1-4 0F INDS/QTTS                       PREPARE FOR DIGIT COLLATION
          70503    85      100      2   0  0              0        100                                             SWITCH R
          70504    C       705      6   0  0              0        705     >PRINT                                  
          70505    C       683      2   0  0              0        683     >DONT PRINT                             
    70504>70506    36      13       2   2  0              0                                                        COLLATE AND ADD
          70507    80      729      2   0  0              0        729     TO DEC                                  ENTER SUBROUTINE
          70508    62               0   0  0              0                ITEM FOR                                SET EXCESS CONSTANTS
          70509    5       731     38   0  0              0        731     CONDENSE                                TRANSFER
          70510    5       13      22   0  0              0                CLEAR'LAST TE'IND                       TRANSFER
          70511            13       2   2  0              0                QTTS+INDS                               SELECT
          70512    73      705     16   0  0              0        705     > LAST TE                               JUMP IF A < 0
          70513            13       0   2  0              0                SECOND PARA                             SELECT
          70514    30               0   0  0              3-               TEST Q 4 NON-ZERO                       SHIFT (A) BY QUARTETS
          70515    70      705     18   0  0              0        705     > NOT LTE                               JUMP IF A == 0
    70512>70516    10               0   0  0              1                                                        SELECT LITERAL
          70517    5       13      22   0  0              0                SET LTE IND                             TRANSFER
    70515>70518    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          70519    C                0   0  0              5                                                        
          70520    34      13       2   2  0              0                QTTS                                    SET (N) IN B
          70521    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
    70524>70522    5       13       0   0  3              0                                                        TRANSFER
          70523    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          70524    94      705     22   0  3              1        705     STORE Q5-1 IN 13/0-4                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70525    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          70526    C                0   0  0              5                                                        
    70530>70527    00      13       0   0  3              0                                                        SELECT
          70528    80      729      2   0  0              0        729     TO DECIMAL                              ENTER SUBROUTINE
          70529    05      13       0   0  3              0                                                        TRANSFER
          70530    94      705     27   0  3              1        705                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70531    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          70532    52      5        4   0  5              0                                                        EDIT
          70533    C       738     22   0  0              0        738                                             
    70637>70534    10               0   0  0              2                                                        SELECT LITERAL
          70535    4       16      37   0  0              0                AUG SUBCTR                              AUGMENT
          70536    5       16       1   0  0              0                                                        TRANSFER
          70537    94      683      2   0  5             20        683                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70538    80      712      2   0  0              0        712     > O/P LINE                              ENTER SUBROUTINE
          70539    76      683      2   0  0              0        683                                             JUMP unconditional
                                                                                                                   
          70600    PROCR   706       706                                                                           
          70601     NOTES          RADIX     B    DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S                   SELECT
    69506>                                                                                                         
    69505>70602    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
  Source image: P1000494.JPG
          70603    C                0   0  0              8                                                        
    70631>70604            11       0   2  4              0                                                        SELECT
          70605    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          70606    5       16      18   0  0              0                REF                                     TRANSFER
          70607    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          70608    5       13       0   2  0              0                PARA                                    TRANSFER
          70609    34      735     11   0  0              0        735     BIT 8                                   SET (N) IN B
          70610    36      13       0   2  0              0                                                        COLLATE AND ADD
          70611    70      706     14   0  0              0        706     >NOT MINUS ZERO                         JUMP IF A == 0
          70612            735      8   0  0              0        735     £ IN Q4                                 SELECT
          70613    5       13       0   2  0              0                                                        TRANSFER
    70611>70614    86      695      2   0  0              0        695                                             SELECT SWITCH R
          70615    12               0   0  0              3                                                        SUBTRACT LITERAL
          70616    71      706     22   0  0              0        706     >TABLE START                            JUMP IF A != 0
          70617    0       11       2   2  4              0                PROGRAM CONST                           SELECT
          70618    72      706     23   0  0              0        706     >POSITIVE ITEM                          JUMP IF A >= 0
          70619    124     16      18   0  1              0                                                        modify address of next
          70620    2       26       0   0  0              0                PROCR START                             SUBTRACT
          70621    76      706     25   0  0              0        706                                             JUMP unconditional
    70616>70622    0       11       2   2  4              0                                                        SELECT
    70618>70623    124     16      18   0  1              0                                                        modify address of next
          70624    1       26       0   0  0              0                                                        ADD
    70621>70625    5       13       2   2  0              0                                                        TRANSFER
          70626    80      714      2   0  0              0        714     >O/P                                    ENTER SUBROUTINE
          70627    0       13       2   2  0              0                CONST                                   SELECT
          70628    5       13       4   0  4              0                STORE FOR PRINT                         TRANSFER
          70629    0       13       0   2  0              0                PARA                                    SELECT
          70630    5       13       6   0  4              0                                                        TRANSFER
          70631    94      706      4   0  4              4        706                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70632    85      100      2   0  0              0        100                                             SWITCH R
          70633    C       706     35   0  0              0        706     >PRINT                                  
          70634    C       683      2   0  0              0        683     >DON'T PRINT                            
    70633>70635    52      5        4   0  5              0                                                        EDIT
          70636    C       737      6   0  0              0        737                                             
          70637    76      705     34   0  0              0        705     >VIA TABLE ENTRIES                      JUMP unconditional
                                                                                                                   
          70700    PROCR   707       707     DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS                       
          70701     NOTES          RADIX     B    FORMED CONSTS                                                    SELECT
    69507>70702    90               0   0  4              0                4 CONSTANTS PER ITEM                    SET MODIFICATION REGISTER AT LITERAL
          70703    C                0   0  0              8                                                        
          70704    10               0   0  0              0                CLEAR PARA                              SELECT LITERAL
          70705    5       13       0   2  0              0                                                        TRANSFER
    70709>70706    0       11       0   1  4              0                                                        SELECT
          70707    5       13       2   1  0              0                                                        TRANSFER
          70708    80      714      2   0  0              0        714                                             ENTER SUBROUTINE
          70709    94      707      6   0  4              2        707                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70710    85      100      2   0  0              0        100                                             SWITCH R
          70711    C       707     13   0  0              0        707     >PRINT                                  
          70712    C       683      2   0  0              0        683     >DON'T PRINT                            
    70711>70713    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          70714    C                0   0  0              8                                                        
    70719>70715    0       11       0   2  4              0                                                        SELECT
          70716    5       13       4   0  0              0                                                        TRANSFER
          70717    5       13       6   0  0              0                                                        TRANSFER
          70718    80      709      2   0  0              0        709                                             ENTER SUBROUTINE
          70719    94      707     15   0  4              2        707                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70720    76      683      2   0  0              0        683                                             JUMP unconditional
                                                                                                                   
          70800    PROCR   708       708     VALUES                                                                
          70801     NOTES          RADIX     B                                                                     SELECT
  Source image: P1000495.JPG
    69509>70802            11       0   1  0              0                                                        SELECT
          70803    2       731     24   1  0              0        731     NOTES'                                  SUBTRACT
          70804    71      708     32   0  0              0        708     >NOT NEW REF/ITEM                       JUMP IF A != 0
          70805            11       4   2  0              0                REF                                     SELECT
          70806    5       16      18   0  0              0                                                        TRANSFER
          70807            11       6   2  0              0                ITEM                                    SELECT
          70808    124     16      18   0  0              0                                                        modify address of next
          70809    1       26       0   0  0              0                                                        ADD
          70810    02      16      23   0  0              0                CURRENT VALUE OF STACKER                SUBTRACT
          70811    03      13       2   2  0              0                >DELTA                                  COPY
          70812    04      16      23   0  0              0                >NEW VALUE OF STACKER                   AUGMENT
          70813    10               0   0  0            £00                                                        SELECT LITERAL
    70837>70814    5       13       0   2  0              0                PARA FOR DELTA                          TRANSFER
          70815    80      714      2   0  0              0        714     WRITE                                   ENTER SUBROUTINE
          70816    85      100      2   0  0              0        100                                             SWITCH R
          70817    C       708     19   0  0              0        708     >PRINT                                  
          70818    C       683      2   0  0              0        683     >DON'T PRINT                            
    70817>70819    0       13       0   2  0              0                PARA                                    SELECT
          70820    5       13       6   0  0              0                                                        TRANSFER
          70821    0       13       2   2  0              0                VALUE                                   SELECT
          70822    5       13       4   0  0              0                                                        TRANSFER
          70823    10               0   0  0              1                                                        SELECT LITERAL
          70824    5       16       1   0  0              0                SET PRINT IND                           TRANSFER
          70825    52      5        4   0  8              0                                                        EDIT
          70826    C       737      2   0  0              0        737                                             
          70827    94      683      2   0  8             10        683                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70828    80      724      2   0  0              0        724     >PRINT                                  ENTER SUBROUTINE
          70829    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          70830    C                0   0  0             40                                                        
          70831    76      683      2   0  0              0        683                                             JUMP unconditional
    70804>70832    10               0   0  0              1                                                        SELECT LITERAL
          70833    04      16      23   0  0              0                AUGMENT LOCN COUNTER                    AUGMENT
          70834    00      11       6   2  0              0                                                        SELECT
          70835    5       13       2   2  0              0                VALUE                                   TRANSFER
          70836            11       4   2  0              0                PARA FOR VALUE                          SELECT
          70837    76      708     14   0  0              0        708                                             JUMP unconditional
                                                                                                                   
          70900    PROCR   709       709     PRINT CONVERT TABLES+TRANSLATOR'S CONSTS                              
          70902    81      709      2   0  0              0        709                                             START OF SUBROUTINE
          70903    10               0   0  0              1                                                        SELECT LITERAL
          70904    4       16      37   0  0              0                                                        AUGMENT
          70905    5       16       1   0  0              0                                                        TRANSFER
          70906    52      5        4   0  5              0                                                        EDIT
          70907    C       737      2   0  0              0        737                                             
          70908    94      709     10   0  5             10        709                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          70909    80      712      2   0  0              0        712     >O/P LINE                               ENTER SUBROUTINE
    70908>70910    82      709      2   0  0              0        709                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          71000    PROCR   710       710                                                                           
          71002    81      710      2   0  0              0        710                                             START OF SUBROUTINE
          71003    80      714      2   0  0              0        714     >WRITE                                  ENTER SUBROUTINE
          71004            13       2   2  0              0                                                        SELECT
          71005    5       13       4   0  0              0                                                        TRANSFER
          71006    5       13       6   0  0              0                                                        TRANSFER
          71007    85      100      2   0  0              0        100                                             SWITCH R
          71008    C       710     10   0  0              0        710     >PRINT                                  
          71009    C       710     11   0  0              0        710     >DON'T PRINT                            
    71008>71010    80      709      2   0  0              0        709     >PRINT                                  ENTER SUBROUTINE
    71009>71011    82      710      2   0  0              0        710                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000496.JPG
          71100    PROCR   711       711     GENERATE PTS(1)                                                       
    68775>71102    10               0   0  0     535851675+                (CHAP')                                 SELECT LITERAL
          71103    5       8       12   1  0              0                                                        TRANSFER
          71104    80      727      2   0  0              0        727     >WRITE                                  ENTER SUBROUTINE
          71105    124     741      2   0  2              0        741     ORDERS                                  select literal and division
          71106    91               0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          71107    124     716      2   0  2              0        716     FIRST LEVEL PARAS                       select literal and division
          71108    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          71109    124     720      2   0  2              0        720     SECOND LEVEL PARAS                      select literal and division
          71110    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          71111    0       716      2   0  0              0        716                                             SELECT
          71112    31               0   0  0              2                                                        SHIFT (A) BY BITS
          71113    5       713     11   0  0              0        713                                             TRANSFER
          71114    0       720      2   0  0              0        720                                             SELECT
          71115    31               0   0  0              2                                                        SHIFT (A) BY BITS
          71116    5       713     17   0  0              0        713                                             TRANSFER
          71117    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          71118    C                0   0  0              6                                                        
          71119    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          71120    C                0   0  0              3                                                        
          71121    96               0   0  2              0                STORE CHUNK START FOR PARAS 1 AND 5     SELECT MODIFIER
          71122    5       713      2   0  0              0        713                                             TRANSFER
          71123    124     713      2   0  1              0        713                                             modify address of next
          71124    101              0   1  3              0                                                        select literal address
          71125    5       713      6   0  0              0        713     CHUNK START                             TRANSFER
    71197>71126    124     999     19   1  2              0                SEC 8                                   modify address of next
          71127    124              0   0  2              0                                                        select literal and division
          71128    3       712      2   0  0              0        712     WL                                      COPY
          71129    101             48   1  1              0                                                        add literal address
          71130    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          71131    1       712      2   0  0              0        712     WL                                      ADD
          71132    91               0   0  4              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    71195>71133    124     713      4   0  3              0        713     STORE WORD                              modify address of next
          71134    106              0   0  2              0                                                        select (N)
          71135    5       713      7   0  0              0        713     STORE WORD                              TRANSFER
    71149>71136    34      713     10   1  0              0        713     FIRST LEVEL PARA WORD                   SET (N) IN B
          71137    33               0   0  0              3                NEXT ONE TO A                           SHIFT (AB) BY BITS
          71138    100     713      8   1  0              0        713     STORE (A) (B)                           copy registers
          71139    94      711     47   0  5              1        711     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          71140    90               0   0  5              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          71141    C                0   0  0              6                NEXT PARA WORD                          
          71142    124     713      4   0  3              0        713     STORE PARA WORD                         modify address of next
          71143    106              1   0  3              0                STORE PARA WORD                         select (N)
          71144    33               0   0  0              2                RIGHT ALIGN WORD                        SHIFT (AB) BY BITS
          71145    5       713     11   0  0              0        713                                             TRANSFER
          71146    94      711     47   0  3              1        711     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    71146>                                                                                                         
    71139>71147            713      8   0  0              0        713     TEST DUMMY PARA                         SELECT
          71148    12               0   0  0              6                                                        SUBTRACT LITERAL
          71149    70      711     36   0  0              0        711     >YES                                    JUMP IF A == 0
          71150    12               0   0  0              1                TEST SECOND LEVEL REQD                  SUBTRACT LITERAL
          71151    71      711     75   0  0              0        711     >NO                                     JUMP IF A != 0
    71165>71152    34      713     16   1  0              0        713     SECOND LEVEL PARA WORD                  SET (N) IN B
          71153    33               0   0  0              6                NEXT ONE TO A                           SHIFT (AB) BY BITS
          71154    100     713     14   1  0              0        713     STORE (A) (B)                           copy registers
          71155    94      711     63   0  8              1        711     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          71156    90               0   0  8              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          71157    C                0   0  0              3                NEXT PARA WORD                          
          71158    124     713      4   0  3              0        713     STORE PARA WORD                         modify address of next
          71159    106              1   0  1              0                                                        select (N)
  Source image: P1000497.JPG
          71160    33               0   0  0              2                RIGHT ALLIGN WORD                       SHIFT (AB) BY BITS
          71161    5       713     17   0  0              0        713                                             TRANSFER
          71162    94      711     63   0  1              1        711     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    71162>                                                                                                         
    71155>71163            713     14   0  0              0        713     TEST SECOND LEVEL                       SELECT
          71164    101             63   1  2              0                PARA = 63(DUMMY)                        subtract literal address
          71165    70      711     52   0  0              0        711     >YES                                    JUMP IF A == 0
          71166    101              1   1  1              0                TEST END SIGN(62)                       add literal address
          71167    71      711     73   0  0              0        711     >NO                                     JUMP IF A != 0
          71168            713      4   1  0              0        713     STORE END SIGN                          SELECT
          71169    5                4   1  4              0                                                        TRANSFER
          71170    5                6   1  4              0                                                        TRANSFER
          71171    80      727      2   0  0              0        727     >WRITE LAST BLOCK                       ENTER SUBROUTINE
          71172    76      680      2   0  0              0        680     >CALL PASS 5                            JUMP unconditional
    71167>71173            713     14   1  0              0        713     STORE ACTUAL PARA                       SELECT
          71174    5       713      8   1  0              0        713     VALUE                                   TRANSFER
    71151>71175            713      8   0  0              0        713     TEST PARA=1                             SELECT
          71176    12               0   0  0              1                                                        SUBTRACT LITERAL
          71177    70      711     80   0  0              0        711     >YES                                    JUMP IF A == 0
          71178    12               0   0  0              1                                                        SUBTRACT LITERAL
          71179    71      711     90   0  0              0        711     >NO                                     JUMP IF A != 0
    71177>71180    101           8191   1  3              0                                                        select literal address
          71181    32               0   0  0             10-               ADJUST ORDER BY                         SHIFT (AB) BY QUARTETS
          71182    36      713      7   0  0              0        713     CHUNK START                             COLLATE AND ADD
          71183    2       713      6   0  0              0        713                                             SUBTRACT
          71184    72      711     89   0  0              0        711     >THIS CHAP                              JUMP IF A >= 0
          71185    35               0   0  0          11111                ADJUST ORDER IN                         PREPARE FOR DIGIT COLLATION
          71186    10               0   0  0              0                PASS 1 OR 2 WHICH                       SELECT LITERAL
          71187    36      713      7   0  0              0        713     REFERS TO COMMON                        COLLATE AND ADD
          71188    101     757      2   1  2              0        757     CODING START                            subtract literal address
    71184>71189    37      713      7   0  0              0        713                                             REPLACE SELECTED BITS
    71179>71190            713      7   0  0              0        713                                             SELECT
          71191    5                6   2  4              0                VALUE                                   TRANSFER
          71192            713      8   0  0              0        713                                             SELECT
          71193    5                4   2  4              0                PARA                                    TRANSFER
          71194    94      711     95   0  2              1        711     WORD MR                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    71194>71195    94      711     33   0  4              4        711     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          71196    80      727      2   0  0              0        727     >WRITE                                  ENTER SUBROUTINE
          71197    76      711     26   0  0              0        711     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          71200    PROCR   712       712     PRINT LINE WHEN FULL,STEP SERIAL                                      
          71201     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          71202    81      712      2   0  0              0        712                                             START OF SUBROUTINE
          71203    0       16      28   0  0              0                SERIAL AT STARTOF LINE                  SELECT
          71204    80      729      2   0  0              0        729     >TO DEC                                 ENTER SUBROUTINE
          71205    5       731     40   0  0              0        731     WL                                      TRANSFER
          71206    52      5        2   0  0              0                EDIT SERIAL                             EDIT
          71207    C       738     52   0  0              0        738                                             
          71208    80      724      2   0  0              0        724     >PRINT                                  ENTER SUBROUTINE
          71209    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          71210    0       16      37   0  0              0                INCREMENT THIS LINE                     SELECT
          71211    4       16      28   0  0              0                UPDATE FOR NEXT                         AUGMENT
          71212    10               0   0  0              0                                                        SELECT LITERAL
          71213    5       16      37   0  0              0                                                        TRANSFER
          71214    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          71215    C                0   0  0             40                                                        
          71216    82      712      2   0  0              0        712                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          71300    CONST   713       713     1    CONSTANTS                                                        
          71302          (D);                                                                                      
  Source image: P1000498.JPG
          71304          (A)£    ;                                                                                 
          71306          (D)0;                                             CHUNK START/ORDER                       
          71308          0;                                                A                                       
          71310          0;                                                B                                       
          71312          0;                                                C                                       
          71314          0;                                                A                                       
          71316          0;                                                B                                       
          71318          0;                                                C                                       
                                                                                                                   
          71400    PROCR   714       714     GENERAL MAG-TAPE EDIT & OUTPUT                                        
          71401     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          71402    81      714      2   0  0              0        714                                             START OF SUBROUTINE
          71403    0       13       0   1  0              0                QUICKER THAN EDIT                       SELECT
          71404    5       8        4   1  1              0                                                        TRANSFER
          71405    0       13       2   1  0              0                                                        SELECT
          71406    5       8        6   1  1              0                                                        TRANSFER
          71407    94      714     11   0  1              4        714                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          71408    80      727      2   0  0              0        727     >WRITE BLOCK                            ENTER SUBROUTINE
          71409    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          71410    C                0   0  0             48                                                        
    71407>71411    82      714      2   0  0              0        714                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          71500    PROCR   715       715     READ A2                                                               
          71501     NOTES  715                                                                                     SELECT
          71502    81      715      2   0  0              0        715                                             START OF SUBROUTINE
          71503    42      A2       0   0  0              0                                                        INPUT
          71504    C       8        0   0  0              0                                                        
          71505    82      715      2   0  0              0        715                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          71600    CONST   716       716     0    FIRST LEVEL PARAS,GENERAL CODING                                 
          71602          (B5)1(B3)1(B3)1(B3)1(B6)9;                        1000/0                                  
          71603          1,1,1,1,0;                                        1001/5                                  
          71604          0,0,0,0,0;                                                                                
          71605          0,0,0,0,0;                                                                                
          71606          0,0,0,0,0;                                                                                
          71607          0,0,0,0,0;                                                                                
          71608          0,0,0,0,0;                                                                                
          71609          0,0,0,0,0;                                                                                
          71610          0,0,0,0,0;                                                                                
          71611          0,0,0,0,0;                                                                                
          71612          0,0,0,0,0;                                        1002/5                                  
          71613          0,0,0,0,0;                                                                                
          71614          0,0,0,0,0;                                                                                
          71615          0,0,0,0,0;                                                                                
          71616          0,0,0,0,0;                                                                                
          71617          0,0,0,0,0;                                                                                
          71618          0,0,0,0,0;                                                                                
          71619          0,0,0,0,0;                                                                                
          71620          0,0,0,0,0;                                                                                
          71621          0,0,0,0,1;                                        1003/5                                  
          71622          1,0,0,1,54;                                                                               
          71623          7,0,1,0,54;                                                                               
          71624          0,1,1,0,9;                                                                                
          71625          1,7,1,0,15;                                                                               
          71626          1,7,1,0,9;                                                                                
          71627          7,1,0,1,57;                                                                               
          71628          1,7,1,1,9;                                                                                
          71629          6,6,6,6,54;                                                                               
          71630          3,1,1,1,27;                                                                               
          71631          1,7,1,1,8;                                                                                
  Source image: P1000499.JPG
          71632          1,7,6,6,54;                                                                               
          71633          0,1,1,0,8;                                                                                
          71634          1,7,0,1,1;                                                                                
          71635          1,1,0,0,7;                                                                                
          71636          0,0,0,0,54;                                                                               
          71637          1,3,1,0,8;                                                                                
          71638          1,0,1,6,54;                                                                               
          71639          1,0,1,7,9;                                                                                
          71640          7,0,1,0,54;                                                                               
          71641          1,1,7,1,9;                                                                                
          71642          0,1,0,1,1;                                                                                
          71643          0,1,0,1,1;                                                                                
          71644          1,1,0,1,9;                                                                                
          71645          1,0,1,0,1;                                                                                
          71646          1,7,1,0,8;                                                                                
          71647          6,1,3,1,1;                                                                                
          71648          7,1,1,7,9;                                                                                
          71649          1,6,6,1,9;                                                                                
          71650          1,7,1,1,1;                                                                                
          71651          0,0,0,1,9;                                                                                
          71652          0,6,0,1,56;                                       1004/4                                  
          71653          1,0,1,1,31;                                                                               
          71654          1,0,1,1,54;                                                                               
          71655          7,0,0,6,54;                                       1005/2                                  
          71656          1,7,1,1,8;                                                                                
          71657          1,1,0,0,9;                                                                                
          71658          0,0,1,3,0;                                                                                
          71659          1,0,6,6,54;                                                                               
          71660          0,0,0,1,8;                                                                                
          71661          0,1,1,0,15;                                                                               
          71662          6,6,6,6,15;                                       1006/5                                  
          71663          1,1,1,7,57;                                                                               
          71664          7,1,0,1,1;                                                                                
          71665          0,1,0,1,15;                                                                               
          71666          1,7,0,0,56;                                       1007/3                                  
          71667          1,0,1,0,15;                                                                               
          71668          1,1,1,7,9;                                                                                
          71669          1,0,0,0,11;                                                                               
          71670          1,1,3,0,9;                                                                                
          71671          1,7,6,6,0;                                                                                
          71672          0,0,0,0,0;                                        1009/3                                  
          71673          0,0,0,0,0;                                                                                
          71674          0,0,0,0,0;                                                                                
          71675          0,0,0,0,0;                                                                                
          71676          0,0,0,0,0;                                                                                
          71677          0,0,0,0,0;                                                                                
          71678          0,0,0,0,0;                                                                                
          71679          0,0,0,0,0;                                        1010/5                                  
          71680          0,0,0,0,0;                                                                                
          71681          0,0,0,0,0;                                                                                
          71682          0,0,0,0,0;                                                                                
          71683          0,0,0,0,0;                                                                                
          71684          0,0,0,0,0;                                                                                
          71685          0,0,0,0,0;                                                                                
          71686          0,0,0,0,0;                                                                                
          71687          0,0,0,0,0;                                                                                
          71688          0,0,0,0,0;                                        1011/5                                  
          71689          0,0,0,0,0;                                                                                
                                                                                                                   
          71700    CONST   717       717     0    FIRST LEVEL PARAS PASS 1                                         
  Source image: P1000500.JPG
          71702          (B5)0(B3)0(B3)0(B3)0(B6)0;                                                                
          71703          0,0,0,0,0;                                                                                
          71704          0,0,0,0,0;                                                                                
          71705          0,0,0,0,0;                                                                                
          71706          0,0,0,0,0;                                        1012/5                                  
          71707          0,0,0,0,0;                                                                                
          71708          0,0,0,0,0;                                                                                
          71709          0,0,0,0,0;                                                                                
          71710          0,0,0,0,0;                                                                                
          71711          0,0,0,0,0;                                                                                
          71712          0,0,0,0,0;                                                                                
          71713          0,0,0,0,0;                                                                                
                                                                                                                   
          71800    CONST   718       718     0    FIRST LEVEL PARAS PASS 1                                         
          71802          (B5)0(B3)0(B3)0(B3)0(B6)0;                                                                
          71803          0,0,0,0,0;                                                                                
          71804          0,0,0,0,0;                                                                                
          71805          0,0,0,0,0;                                                                                
          71806          0,0,0,0,0;                                                                                
          71807          0,0,0,0,0;                                                                                
          71808          0,0,0,0,0;                                                                                
          71809          0,0,0,0,0;                                        1013/5                                  
          71810          0,0,0,0,0;                                                                                
          71811          0,0,0,0,54;                                                                               
          71812          (B5)1(B3)0(B3)1(B3)0(B6)9;                        1014/0                                  
          71813          3,1,1,0,9;                                                                                
          71814          1,0,1,0,9;                                                                                
          71815          1,0,1,1,9;                                                                                
          71816          0,1,1,0,9;                                                                                
          71817          0,1,1,0,1;                                                                                
          71818          1,1,0,1,9;                                                                                
          71819          1,1,6,6,54;                                                                               
          71820          6,6,6,6,54;                                       DUMMY WORD                              
          71821          0,1,1,1,9;                                                                                
          71822          0,1,1,0,9;                                        1015/3                                  
          71823          0,1,1,1,9;                                                                                
          71824          1,0,1,1,54;                                                                               
          71825          6,6,1,1,1;                                        1016/3                                  
          71826          1,0,0,1,0;                                                                                
          71827          1,0,0,0,8;                                                                                
          71828          1,1,1,0,0;                                                                                
          71829          1,0,1,0,9;                                                                                
          71830          0,0,1,1,8;                                        1017/4                                  
          71831          1,1,1,0,9;                                                                                
          71832          0,0,0,0,1;                                                                                
          71833          0,1,1,0,1;                                        1018/4                                  
          71834          1,0,0,1,8;                                                                                
          71835          0,0,1,0,9;                                                                                
          71836          0,1,1,0,9;                                                                                
          71837          0,1,1,1,9;                                        1019/4                                  
          71838          0,0,1,1,0;                                                                                
          71839          0,1,0,0,8;                                                                                
          71840          1,0,0,1,0;                                                                                
          71841          1,0,1,0,1;                                        1020/5                                  
          71842          1,1,1,1,0;                                                                                
          71843          1,1,1,1,1;                                                                                
          71844          1,1,0,0,8;                                                                                
          71845          0,0,0,0,8;                                                                                
          71846          1,0,1,0,9;                                                                                
          71847          1,0,0,1,0;                                                                                
  Source image: P1000501.JPG
          71848          1,1,0,1,9;                                                                                
          71849          1,1,0,0,9;                                                                                
          71850          1,0,1,1,8;                                        1021/4                                  
          71851          1,1,1,0,9;                                                                                
          71852          0,1,1,1,0;                                                                                
          71853          1,1,6,6,54;                                                                               
          71854          6,1,1,1,9;                                                                                
          71855          0,1,1,0,1;                                                                                
          71856          1,0,1,1,1;                                                                                
          71857          1,6,6,6,54;                                                                               
          71858          0,1,0,1,0;                                                                                
          71859          1,1,1,0,8;                                        1022/5                                  
          71860          1,1,1,0,9;                                                                                
          71861          1,0,0,1,9;                                                                                
          71862          0,0,0,1,0;                                                                                
          71863          1,0,1,1,1;                                                                                
          71864          1,1,0,0,8;                                                                                
          71865          0,1,1,0,9;                                                                                
          71866          0,1,1,0,8;                                                                                
          71867          1,7,1,0,9;                                        1023/4                                  
          71868          1,1,3,0,9;                                                                                
          71869          0,1,0,0,8;                                                                                
          71870          1,0,1,0,54;                                       1024/2                                  
          71871          1,1,0,0,8;                                        1025/6                                  
          71872          0,1,0,1,1;                                                                                
          71873          0,0,2,2,0;                                        1026/0 1027/5                           
          71874          0,0,0,0,0;                                                                                
          71875          0,0,0,0,0;                                                                                
          71876          0,0,0,0,0;                                        1028/5                                  
          71877          0,0,0,0,0;                                        1029/5                                  
          71878          0,0,0,0,0;                                        1030/3 1031/5                           
          71879          0,0,0,0,0;                                                                                
          71880          0,0,0,0,0;                                                                                
          71881          0,0,0,0,0;                                                                                
          71882          0,0,0,0,0;                                        1032/3                                  
          71883          0,0,7,6,54;                                                                               
                                                                                                                   
          71900    PROCR   719       719     CLOSE OUTPUT FILES                                                    
          71901     NOTES          RADIX                                                                           SELECT
          71902    81      719      2   0  0              0        719                                             START OF SUBROUTINE
    71906>71903    80      715      2   0  0              0        715                                             ENTER SUBROUTINE
          71904    0       8        4   1  0              0                                                        SELECT
          71905    12               0   0  0     5659655972                FINIS'                                  SUBTRACT LITERAL
          71906    71      719      3   0  0              0        719                                             JUMP IF A != 0
          71907    41      A2       0   0  0              1                CLOSE I/P                               CLOSE FILE
          71908    82      719      2   0  0              0        719                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72000    CONST   720       720     0    SECOND LEVEL PARAS                                               
          72002          (B8)24(B6)50(B6)51;                                                                       
          72003          24,24,7;                                                                                  
          72004          24,6,63;                                                                                  
          72005          51,38,24;                                                                                 
          72006          54,53,15;                                                                                 
          72007          50,34,15;                                                                                 
          72008          15,36,24;                                                                                 
          72009          37,36,52;                                                                                 
          72010          39,39,39;                                                                                 
          72011          18,39,41;                                                                                 
          72012          24,24,24;                                                                                 
          72013          24,16,62;                                                                                 
                                                                                                                   
  Source image: P1000698.JPG
          72100    PROCR   721       721     INPUT OFF PASS 2                                                      
          72101     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          72102    81      721      2   0  0              0        721                                             START OF SUBROUTINE
          72103    94      721      7   0  2              8        721     STANDARD INCREMENT                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    68606>72104    80      722      2   0  0              0        722     READ A6->SEC 9                          ENTER SUBROUTINE
          72105    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          72106    C                0   0  0            144                                                        
    72103>72107    82      721      2   0  0              0        721                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72200    PROCR   722       722     INPUT                                                                 
          72201     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          72202    81      722      2   0  0              0        722                                             START OF SUBROUTINE
          72203    42      A6       0   0  0              0                                                        INPUT
          72204    C       9        0   0  0              0                                                        
          72205    82      722      2   0  0              0        722                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72300    PROCR   723       723     WRITE ON WORKING TAPE                                                 
          72301     NOTES  723                                                                                     SELECT
          72302    81      723      2   0  0              0        723                                             START OF SUBROUTINE
          72303    55      8        4   1  0             50                COPY ANNEXES                            BULK COPY
          72304    C       9        4   1  0              0                                                        
          72305    0       731     20   1  0              0        731     BEW                                     SELECT
          72306    5       9       52   1  0              0                                                        TRANSFER
          72307    43      A6       0   0  0              0                                                        OUTPUT
          72308    C       9        0   0  0              0                                                        
          72309    54      9        0   0  0             52                                                        BULK CLEAR
          72310    82      723      2   0  0              0        723                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72400    PROCR   724       724     PRINT                                                                 
          72401     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          72402    81      724      2   0  0              0        724                                             START OF SUBROUTINE
          72403    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          72404            731     20   1  0              0        731                                             SELECT
          72405    5       5       52   1  0              0                BEW                                     TRANSFER
          72406    10               0   0  0              1                ALWAYS TRACK 1                          SELECT LITERAL
          72407    5       5        0   1  0              0                FUNCTION WORD                           TRANSFER
          72408            27       9   0  0              0                                                        SELECT
          72409    70      724     14   0  0              0        724     >PRINTER                                JUMP IF A == 0
          72410    55      5        0   1  0             50                                                        BULK COPY
          72411    C       10       4   1  6              0                                                        
          72412    80      725      2   0  0              0        725     >O/P                                    ENTER SUBROUTINE
          72413    76      724     36   0  0              0        724                                             JUMP unconditional
    72409>72414            27       8   0  0              0                PRINTER TYPE                            SELECT
          72415    12               0   0  0              9                                                        SUBTRACT LITERAL
          72416    70      724     32   0  0              0        724     >SPECIAL                                JUMP IF A == 0
          72417    10               0   0  0          80000                                                        SELECT LITERAL
          72418    5       5        1   0  0              0                BIT 40                                  TRANSFER
          72419    124     999     15   1  2              0                SEC 5                                   modify address of next
          72420    124              0   0  2              0                                                        select literal and division
          72421    124     999     13   1  2              0                SEC 10                                  modify address of next
          72422    129              0   0  1              0                                                        edit for anelex output
          72423    10               0   0  0              4                                                        SELECT LITERAL
    72435>72424    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          72425    1       999      7   0  0              0                ROUTE                                   ADD
          72426    34      999     12   0  0              0                                                        SET (N) IN B
          72427    125           4096   1  1              0                                                        clear indicators
          72428    124     999      0   0  3              0                                                        modify address of next
          72429    123            160   0  2              0                                                        enter master routine
          72430    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000699.JPG
          72431    76      724     36   0  0              0        724                                             JUMP unconditional
    72416>72432    55      5        0   1  0             54                                                        BULK COPY
          72433    C       10       0   1  0              0                                                        
          72434    10               0   0  0              9                                                        SELECT LITERAL
          72435    76      724     24   0  0              0        724                                             JUMP unconditional
    72431>                                                                                                         
    72413>72436    54      5        0   0  0             50                                                        BULK CLEAR
          72437    5       16       1   0  0              0                CLEAR INDICATORS                        TRANSFER
          72438    82      724      2   0  0              0        724                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72500    PROCR   725       725     O/P->A9                                                               
          72502    81      725      2   0  0              0        725                                             START OF SUBROUTINE
          72503    94      725      9   0  6             50        725                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          72504            731     20   1  0              0        731     BEW                                     SELECT
          72505    5       10     306   1  0              0                                                        TRANSFER
          72506    80      726      2   0  0              0        726     >O/P                                    ENTER SUBROUTINE
          72507    90               0   0  6              0                                                        SET MODIFICATION REGISTER AT LITERAL
          72508    C                0   0  0            300                                                        
    72503>72509    82      725      2   0  0              0        725                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72600    PROCR   726       726     WRITE A9                                                              
          72602    81      726      2   0  0              0        726                                             START OF SUBROUTINE
          72603    10               0   0  0         800000                                                        SELECT LITERAL
          72604    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          72605    125           4096   1  1              0                                                        clear indicators
          72606    1       999      7   0  0              0                D1/A9                                   ADD
          72607    124     999      0   0  3              0                                                        modify address of next
          72608    123            160   0  2              0                                                        enter master routine
          72609    82      726      2   0  0              0        726                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72700    PROCR   727       727     OUTPUT ON A2                                                          
          72701     NOTES          RADIX     B    SUB ROUTINE                                                      SELECT
          72702    81      727      2   0  0              0        727                                             START OF SUBROUTINE
          72703            731     20   1  0              0        731     BEW                                     SELECT
          72704    5       8       52   1  0              0                                                        TRANSFER
          72705    43      A2       0   0  0              0                OUTPUT                                  OUTPUT
          72706    C       8        0   0  0              0                                                        
          72707    54      8        0   0  0             52                CLEAR                                   BULK CLEAR
          72708    82      727      2   0  0              0        727                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72800    PROCR   728       728                                                                           
          72802    81      728      2   0  0              0        728                                             START OF SUBROUTINE
          72803    50      9        4   0  2              0                                                        UNPACK FIXED FIELD DATA
          72804    C       737     14   0  0              0        737     UNPACK NEXT ITEM                        
          72805    82      728      2   0  0              0        728                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          72900    PROCR   729       729     CONVERT (A) TO DECIMAL                                                
          72901     NOTES  729                                                                                     SELECT
          72902    81      729      2   0  0              0        729                                             START OF SUBROUTINE
          72903    5       733      4   1  0              0        733                                             TRANSFER
          72904    60               0   0  0              0                                                        SET DECIMAL RADIX
          72905    124     734     22   0  2              0        734                                             select literal and division
          72906    112     733      4   1  0              0        733                                             convert
          72907    82      729      2   0  0              0        729                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          73000    PROCR   730       730     CONVERT (A) TO BIN                                                    
          73001     NOTES  730                                                                                     SELECT
          73002    81      730      2   0  0              0        730                                             START OF SUBROUTINE
          73003    5       733      4   1  0              0        733                                             TRANSFER
          73004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000700.JPG
          73005    124     734      2   0  2              0        734                                             select literal and division
          73006    112     733      4   1  0              0        733                                             convert
          73007    82      730      2   0  0              0        730                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          73100    CONST   731       731     1                                                                     
          73102          (A)CHAPT;                                                                                 
          73104          TYPE£;                                                                                    
          73106          FILES;                                                                                    
          73108          TYPE;                                                                                     
          73110          ST.OF;                                                                                    
          73112          BLOCK;                                                                                    
          73114          SIZE;                                                                                     
          73116          SIT;                                                                                      
          73118          PREND;                                                                                    
          73120          (D)7.0000007.;                                                                            
          73122          (A)START;                                                                                 
          73124          NOTES;                                                                                    
          73126          SPOOL;                                                                                    
          73128          (A)PROC;                                                                                  
          73130          EDURE;                                                                                    
          73132          SEC;                                                                                      
          73134          TION ;                                                                                    
          73136          (D)6£6£6£6£6£;                                                                            
          73138          0;                                                                                        
          73140          0;                                                                                        
          73142          0;                                                                                        
          73144          (A)ON/=;                                                                                  
                                                                                                                   
          73200    CONST   732       732     1                                                                     
          73202          (A)EXTRA;                                                                                 
          73204           CHAP;                                                                                    
          73206          TER  ;                                                                                    
          73208          (D)7£££0003££;                                    BITS 1-10+25-39                         
          73210          5.5.;                                                                                     
          73212          (A)FIEND;                                                                                 
          73214          (A)INDEX;                                                                                 
          73216          CHAIN;                                                                                    
          73218          08000;                                                                                    
          73220          PROG;                                                                                     
          73222          OUT;                                                                                      
          73224          (D)5.5.;                                                                                  
                                                                                                                   
          73300    CONST   733       733     1    CONVERT TABLE                                                    
          73302          (D)1;                                             BIN->DEC                                
          73304          0;                                                (A) WL                                  
          73306          0;                                                CURRENT PROCR                           
                                                                                                                   
          73400    CONST   734       734     1    COMPILER'S CONVERT TABLES                                        
          73402          (D)1;                                             DEC->BIN                                
          73404          Ю;                                                                                        
          73406          64;                                                                                       
          73408          3.8;                                                                                      
          73410          2710;                                                                                     
          73412          186Ю0;                                                                                    
          73414          £4240;                                                                                    
          73416          989680;                                                                                   
          73418          5£5.100;                                                                                  
          73420          3‼9Ю+Ю00;                                                                                 
          73422          1;                                                BIN->DEC                                
          73424          16;                                                                                       
  Source image: P1000701.JPG
          73426          256;                                                                                      
          73428          4096;                                                                                     
          73430          65536;                                                                                    
          73432          1048576;                                                                                  
          73434          16777216;                                                                                 
          73436          268435456;                                                                                
          73438          4294967296;                                                                               
          73440          ££££££££££;                                                                               
                                                                                                                   
          73500    CONST   735       735     0                                                                     
          73502          (D)7;                                                                                     
          73503          1£££;                                                                                     
          73504          £.000-;                                                                                   
          73505          7£;                                                                                       
          73506          8000;                                                                                     
          73507          6000;                                                                                     
          73508          £000;                                                                                     
          73509          80000;                                                                                    
          73510          £0000;                                                                                    
          73511          80;                                                                                       
          73512          £0000-;                                                                                   
          73513          £;                                                                                        
          73514          3££;                                              BITS 1-10                               
          73515          0;                                                THIS IS A 0/1 FLIPFLOP FOR SC'S FWD     
          73516          3£;                                               BITS 1-6     75200                      
                                                                                                                   
          73600    TABLE   736       736     1    PRINT HEADING DATA                                               
          73601     NOTES                                                                                          
          73602    13     4     0     0  0  0   5   0   0   0  0  0  0                                             
          73604    13     3     0     0  0  0   5   0   0   0  0  0  0                                             
          73606    13     0     0     0  0  0   5   0   0   0  0  0  0                                             
          73608    13     2     0     0  0  0   5   0   0   0  0  0  1     75400                                   
          73610   729     2     0     0  0  0   3   2   0   2  0  0  0     REF----ACTIONS WITH NEGATIVE ADDRESSES  
          73612   724     2     0     0  0  0   5   0   2   4  0  0  1     PROCR                                   
          73614   732    18     0     0  2  0   5   0   0   0  0  0  0     08000'                                  
          73616   732    20     0     0  2  0   4   1   1   0  0  0  0     PROG'                                   
          73618   732    22     0     0  2  0   3   2   1   0  0  0  0     OUT'                                    
          73620    16     2     0     0  0  0   5   0   2   0  0  0  0     PROGM                                   
          73622    16     3     0     0  0  0   5   0   2   4  0  0  0     SERIAL                                  
          73624   732    24     0     0  2  0   2   3   0   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          73700    TABLE   737       737     1                                                                     
          73701     NOTES                                                                                          
          73702    13     4     0     0  0  0   5   0   7   4  2  0  0                                             
          73704    13     6     0     0  0  0   5   0   2   4  0  0  1                                             
          73706    13     4     0     0  0  0   5   0   7   4  2  0  0     CONST                                   
          73708    13     6     0     0  0  0   5   0   2   4  0  0  0     PARA                                    
          73710    13     8     0     0  0  0   5   0  12   4  2  0  0     CONST                                   
          73712    13    10     0     0  0  0   5   0   2   4  0  0  1                                             
          73714    11     0     0     0  2  0   5   0   0   0  0  0  0                                             
          73716    11     2     0     0  2  0   5   0   0   0  0  0  0                                             
          73718    11     4     0     0  2  0   5   0   0   0  0  0  0                                             
          73720    11     6     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          73800    TABLE   738       738     3                                                                     
          73801     NOTES                                                                                          
          73802    16    16     0     0  0  0   5   0   0   0  0  0  0                                             
          73804   735     2     0     0  0  0   5   0   0   0  0  0  0                                             
          73806    16     2     0     0  0  0   5   0   0   0  0  0  0                                             
          73808    16     3     0     0  0  0   5   0   0   0  0  0  0     SERIAL                                  
  Source image: P1000702.JPG
          73810   731     2     0     0  2  0   5   0   0   0  0  0  1     CHAPT'                                  
          73812   731     2     0     0  2  0   5   0   0   0  0  0  0                                             
          73814    16    16     0     0  0  0   5   0   3   4  0  0  1                                             
          73816    16    17     0     0  0  0   4   1   1   3  0  0  0     PROCR NUMBER                            
          73818   731    44     0     0  2  0   1   4   0   0  0  0  0     ='                                      
          73820    16    36     0     0  0  0   4   1   0   3  0  0  1     PROCR START                             
          73822    16    22     0     0  0  0   1   0   4   0  0  0  0     £ IND                                   
          73824    16    30     0     0  0  0   4   1   3   3  0  0  0     FIRST ADDRESS                           
          73826    16    22     0     0  0  0   2   3   2   1  0  0  0     PARA                                    
          73828   731    38     0     0  0  0   5   0   4   4  0  0  0     SECOND ADDRESS=Q1-4                     
          73830    13     0     0     0  0  0   2   3   2   1  0  0  0     Q5                                      
          73832    13     1     0     0  0  0   2   3   1   1  0  0  0     Q4                                      
          73834    13     2     0     0  0  0   2   3   1   1  0  0  0     Q3                                      
          73836    13     3     0     0  0  0   2   3   1   1  0  0  0     Q2                                      
          73838    13     4     0     0  0  0   2   3   1   1  0  0  0     Q1                                      
          73840    13    22     0     0  0  0   1   4   3   0  0  0  1     LTE                                     
          73842    16    18     0     0  2  0   5   0   0   0  0  0  0                                             
          73844    16    20     0     0  2  0   5   0   0   0  0  0  0                                             
          73846    16    17     0     0  0  0   4   1   1   3  0  0  1     PROCR NUMBER                            
          73848    13     0     0     0  2  0   5   0   0   0  0  0  0                                             
          73850    13     2     0     0  2  0   5   0   0   0  0  0  1                                             
          73852   731    40     0     0  0  0   5   0   0   4  0  0  1                                             
                                                                                                                   
          73900    TABLE   739       739     1                                                                     
          73902    13     0     0     0  0  0   2   3   6   1  0  0  0     A                                       
          73904    16    25     0     0  0  0   1   4   2   0  0  0  0     D                                       
          73906    16    26     0     0  0  0   1   4   2   0  0  0  0     M                                       
          73908    13     2     0     0  0  0   4   1   2   3  0  0  0     ADDR                                    
          73910    13     4     0     0  0  0   4   1   1   3  0  0  1     PARAMETER                               
                                                                                                                   
          74000    CONST   740       740     1                                                                     
          74002          (D)1;                                                                                     
          74004          2;                                                                                        
          74006          3;                                                                                        
          74008          4;                                                                                        
          74010          5;                                                                                        
          74012          6;                                                                                        
          74014          7;                                                                                        
          74016          8;                                                                                        
          74018          9;                                                                                        
          74020          0;                                                                                        
          74022          0;                                                                                        
          74024          0;                                                                                        
          74026          0;                                                                                        
          74028          0;                                                                                        
          74030          0;                                                                                        
          74032          0;                                                                                        
          74034          0;                                                                                        
          74036          0;                                                                                        
          74038          0;                                                                                        
          74040          0;                                                                                        
          74042          0;                                                                                        
          74044          0;                                                                                        
          74046          0;                                                                                        
          74048          0;                                                                                        
          74050          0;                                                                                        
          74052          0;                                                                                        
          74054          0;                                                                                        
          74056          0;                                                                                        
  Source image: P1000703.JPG
          74058          0;                                                                                        
                                                                                                                   
          74100    PROCR   741       741     1000 ENTRIES TO PTS                                                   
          74102    124     757      7   1  0              0        757     >FROM PROG UNLOAD                       unconditional jump
          74103    76      746      2   0  0              0        746     >FROM STORE DUMP START                  JUMP unconditional
          74104    124     747      2   1  0              0        747     >FROM STORE DUMP END ROUTINE            unconditional jump
          74105    124     748      2   1  0              0        748     >FROM TROFL                             unconditional jump
          74106    124     757      2   1  0              0        757     >FROM LOADER                            unconditional jump
          74107    124     757      3   1  0              0        757     >FROM PROGRAMME                         unconditional jump
          74108    76      745     63   0  0              0        745     >FROM'ABANDON VIA MASTER ALARM'         JUMP unconditional
          74109    124     757      5   1  0              0        757     >FROM OVERLAY(END)                      unconditional jump
          74110    124     757      6   1  0              0        757     >FROM OVERLAY(START)                    unconditional jump
          74111    76      745      2   0  0              0        745     >FROM'ABANDON BY 2/0/1 COMMAND'         JUMP unconditional
                                                                                                                   
          74200    CONST   742       742     1    1001 ANNEXE 1 FOR PASSES 1,2 AND 3                               
          74202          (D)0;                                                                                     
          74204          0;                                                                                        
          74206          0;                                                                                        
          74208          0;                                                                                        
          74210          0;                                                                                        
          74212          0;                                                                                        
          74214          0;                                                                                        
          74216          0;                                                                                        
          74218          0;                                                                                        
          74220          0;                                                                                        
          74222          0;                                                                                        
          74224          0;                                                                                        
          74226          0;                                                                                        
          74228          0;                                                                                        
          74230          0;                                                                                        
          74232          0;                                                                                        
          74234          0;                                                                                        
          74236          0;                                                                                        
          74238          0;                                                                                        
          74240          0;                                                                                        
          74242          0;                                                                                        
          74244          0;                                                                                        
          74246          0;                                                                                        
          74248          0;                                                                                        
          74250          0;                                                                                        
          74252          0;                                                                                        
          74254          0;                                                                                        
                                                                                                                   
          74300    CONST   743       743     1    1002 ANNEXE 2 FOR PASSES 1,2 AND 3                               
          74302          (D)0;                                                                                     
          74304          0;                                                                                        
          74306          0;                                                                                        
          74308          0;                                                                                        
          74310          0;                                                                                        
          74312          0;                                                                                        
          74314          0;                                                                                        
          74316          0;                                                                                        
          74318          0;                                                                                        
          74320          0;                                                                                        
          74322          0;                                                                                        
          74324          0;                                                                                        
          74326          0;                                                                                        
          74328          0;                                                                                        
          74330          0;                                                                                        
          74332          0;                                                                                        
  Source image: P1000704.JPG
          74334          0;                                                                                        
          74336          0;                                                                                        
          74338          0;                                                                                        
          74340          0;                                                                                        
          74342          0;                                                                                        
          74344          0;                                                                                        
          74346          0;                                                                                        
          74348          0;                                                                                        
          74350          0;                                                                                        
          74352          0;                                                                                        
          74354          0;                                                                                        
                                                                                                                   
          74400    PROCR   744       744     1003 OVERLAY FOR PTS(WL'S IN PASS 3)                                  
    75815>                                                                                                         
    93229>74402    125           4096   1  1              0                                                        clear indicators
          74403    126     749     21   0  0              0        749     SET(71)FOR MASTER                       enter subroutine
          74404    124     744     72   0  3              0        744     SET UP 64                               modify address of next
          74405    124              3   0  3              0                AND 124                                 modify address of next
          74406    106            198   1  0              0                                                        select (N)
          74407    124     744     72   0  3              0        744                                             modify address of next
          74408    103             64   0  0              0                (24)                                    copy (A) to N
          74409    30               0   0  0              5-                                                       SHIFT (A) BY QUARTETS
          74410    124     744     72   0  3              0        744                                             modify address of next
          74411    103            124   0  0              0                                                        copy (A) to N
          74412    101             40   1  3              0                                                        select literal address
          74413    34      744     70   0  0              0        744     1                                       SET (N) IN B
          74414    80      749      2   0  0              0        749     >BACK 1 I/P->I/P                        ENTER SUBROUTINE
          74415    125           4096   1  1              0                                                        clear indicators
          74416    124     744     72   1  1              0        744     MOD GROUP 0                             set modification group
          74417    91      755      2   0  1              0        755     PROG SWITCH                             SET MODIFICATION REGISTER AT VARIABLE
          74418    124     744     72   0  3              0        744                                             modify address of next
          74419    126              0   0  0              0                (50)REQUEST M/R,CLOSE PROGM SWITCH      enter subroutine
    93241>74420    91      751      6   0  1              0        751     MASTER SWITCH                           SET MODIFICATION REGISTER AT VARIABLE
          74421    10               0   0  0              7                                                        SELECT LITERAL
          74422    124     744     72   0  3              0        744                                             modify address of next
          74423    102              0   0  0              0                (51)SET'OPT A'SWITCH                    transfer (A) to N
          74424    124     744     72   0  3              0        744                                             modify address of next
          74425    106             64   0  0              0                (24)                                    select (N)
          74426    124     744     72   0  3              0        744                                             modify address of next
          74427    105            124   0  0              0                                                        subtract (N) from (A)
          74428    127     744     38   0  0              0        744     >YES,AVOID READ                         jump A = Z
          74429    124     744     72   0  3              0        744                                             modify address of next
          74430    106              0   0  0              0                (24)                                    select (N)
          74431    102     744     76   0  0              0        744                                             transfer (A) to N
          74432    101              0   1  3              0                                                        select literal address
          74433    124     744     72   0  3              0        744                                             modify address of next
          74434    126              0   0  0              0                (7) READ BLOCK TO MR ANNEXES            enter subroutine
          74435    106     744     76   0  0              0        744                                             select (N)
          74436    124     744     72   0  3              0        744                                             modify address of next
          74437    102              0   0  0              0                (24)                                    transfer (A) to N
    74428>74438    124     744     72   1  1              0        744     MG 0                                    set modification group
          74439    124     757      2   0  2              0        757                                             select literal and division
          74440    3       757      2   1  0              0        757                                             COPY
          74441    124     744     72   0  3              0        744                                             modify address of next
          74442    102              2   0  0              0                SET PARA 2                              transfer (A) to N
          74443    91      757      2   0  2              0        757     CHUNK START                             SET MODIFICATION REGISTER AT VARIABLE
          74444    101     757      2   1  3              0        757                                             select literal address
          74445    124     744     72   0  3              0        744                                             modify address of next
          74446    102              1   0  0              0                SET PARA 1                              transfer (A) to N
          74447    101              0   1  3              0                PARA TABLE START                        select literal address
  Source image: P1000705.JPG
          74448    124     744     72   0  3              0        744                                             modify address of next
          74449    123              0   0  2              0                (6) LOAD CHAP SR                        enter master routine
          74450    124     744     64   0  2              0        744                                             select literal and division
          74451    1       744     71   0  0              0        744     14 IN Q5                                ADD
          74452    124     755      2   0  3              0        755                                             modify address of next
          74453    102             44   0  0              0                SET LINK IN PROG SWITCH                 transfer (A) to N
          74454    124     744     72   0  3              0        744                                             modify address of next
          74455    102              0   0  0              0                (51)CLEAR 'OPT A' SWITCH                transfer (A) to N
          74456    10               0   0  0              1                                                        SELECT LITERAL
          74457    4       744     74   0  0              0        744     STEP PASS IND(-1->0    0->1)            AUGMENT
          74458    124     755      2   0  3              0        755     PROG SWITCH START                       modify address of next
          74459    106             35   0  0              0                SI+35                                   select (N)
          74460    124     755      2   0  3              0        755                                             modify address of next
          74461    102              7   0  0              0                >SI+7 (OPEN SWITCH)                     transfer (A) to N
          74462    124     744     72   0  3              0        744                                             modify address of next
          74463    124              0   1  0              0                >RELEASE MR SWITCH/ENTER PQ/RETURN(38)  unconditional jump
          74464    125           4096   1  1              0                                                        clear indicators
          74465    126     749     21   0  0              0        749     RESET (71) FOR MASTER                   enter subroutine
          74466    101             40   1  3              0                                                        select literal address
          74467    34      744     70   0  0              0        744                                             SET (N) IN B
          74468    80      749      2   0  0              0        749     >SETEP BACK 1 I/P->I/P                  ENTER SUBROUTINE
          74469    76      757      2   0  0              0        757     >ENTER PTS(2,3)                         JUMP unconditional
          74470    100              1   0  0              0                CONSTS                                  Halt
          74471    114              0   0  0              0                                                        replace selected bits
          74472    100              0   0  0              0                ZERO                                    Halt
          74473    100              0   0  0              0                (24)PTS CH/ROUTE NO                     Halt
          74474    116              1   0  0              0                1-=PASS1,0=PASS2,1+PASS3 IN STORE       Invalid
          74475    100              0   0  0              0                1=PROGM IN CONTROL,0=PTS IN CONTROL     Halt
          74476    100              0   0  0              0                STORE PARA 24                           Halt
          74477    100              0   0  0              0                SPARE                                   Halt
                                                                                                                   
          74500    PROCR   745       745     1003A=DISENTANGLE THE ABANDON COMMANDS                                
    74111>74502    124     744     72   0  3              0        744     SET MR3 FOR LOG      (2/0/1)COMMAND     modify address of next
          74503    126             53   1  3              0                (3)REQUEST QUEUE                        set modification register
    74510>74504    124     744     72   0  3              0        744     FIND POSITION OP                        modify address of next
          74505    106              2   0  0              0                THIS PROGRAMS LOG                       select (N)
          74506    124     744     72   0  3              0        744     REQUEST ENTRY                           modify address of next
          74507    105              2   0  3              0                                                        subtract (N) from (A)
          74508    127     745     11   0  0              0        745     >FOUND                                  jump A = Z
          74509    125              2   0  3              0                                                        step on and test
          74510    124     745      4   1  0              0        745     >NEXT ENTRY                             unconditional jump
    74508>74511    124     744     72   0  3              0        744                                             modify address of next
          74512    106              1   0  3              0                LINK IN LOG REQUEST QUEUE               select (N)
          74513    70      745     21   0  0              0        745     >THIS PROG NOT TRYING TO USE LOG        JUMP IF A == 0
          74514    101              0   1  2              0                (54)                                    subtract literal address
          74515    71      745     18   0  0              0        745     >THIS PROG NOT TRYING TO OFFER OPTIONS  JUMP IF A != 0
          74516    124     744     72   0  3              0        744                                             modify address of next
          74517    102              0   0  0              0                (53) DELETE'OPT OUTSTANDING'IND         transfer (A) to N
    74515>74518    10               0   0  0              0                                                        SELECT LITERAL
          74519    124     744     72   0  3              0        744                                             modify address of next
          74520    102              1   0  3              0                (53)DELETE LOG REQUEST                  transfer (A) to N
    74513>74521            744     74   0  0              0        744     PASS IND                                SELECT
          74522    71      745     53   0  0              0        745     >NOT PASS 2,ELSE SECOND ABDON           JUMP IF A != 0
          74523    101              0   1  3              0                (15)'RC'LINK                            select literal address
          74524    3       744     74   0  0              0        744     SET'PASS 3'                             COPY
          74525    3       745     49   0  0              0        745     SET'2/0/1 COMMAND IN PROGRESS'          COPY
          74526    124     744     72   0  3              0        744                                             modify address of next
          74527    102             42   0  1              0                >SI+42                                  transfer (A) to N
          74528    124     744     72   0  3              0        744     CLEAR ASSOC TIME                        modify address of next
          74529    102             45   0  1              0                (SI->45)                                transfer (A) to N
  Source image: P1000706.JPG
          74530    124     751      6   0  3              0        751     MASTER SWITCH START                     modify address of next
          74531    106              9   0  0              0                SM+9                                    select (N)
          74532    124     751      6   0  3              0        751     SET CLOSED+INTERRUPTIBLE                modify address of next
          74533    102              7   0  0              0                >SM+7                                   transfer (A) to N
          74534    124     751      6   0  3              0        751                                             modify address of next
          74535    106             57   0  0              0                SM+57=SP+9                              select (N)
          74536    124     751      6   0  3              0        751                                             modify address of next
          74537    102              6   0  0              0                >SM+6                                   transfer (A) to N
          74538    0       744     75   0  0              0        744                                             SELECT
          74539    71      745     79   0  0              0        745     >PROG IN CONTROL                        JUMP IF A != 0
          74540    124     744     72   0  3              0        744                                             modify address of next
          74541    106             44   0  1              0                PRESENT PTS LINK IN SI+44               select (N)
          74542    5       745     84   0  0              0        745                                             TRANSFER
          74543    124     745     79   0  2              0        745                                             select literal and division
          74544    1       744     71   0  0              0        744     14 IN Q5                                ADD
          74545    124     744     72   0  3              0        744                                             modify address of next
          74546    102             44   0  1              0                NEW LINK                                transfer (A) to N
          74547    124     755      2   0  3              0        755                                             modify address of next
          74548    124              7   1  0              0                >SI+7 TO CONTINUE THIS DUMP             unconditional jump
          74549    100              0   0  0              0                NONZERO='2/0/1 COMMAND IN PROGRESS'     Halt
    74567>                                                                                                         
    74570>                                                                                                         
    74572>                                                                                                         
    93123>                                                                                                         
    93126>                                                                                                         
    96320>                                                                                                         
    96323>74550    124     744     72   1  1              0        744     MSG 0                                   set modification group
          74551    124     744     72   0  3              0        744                                             modify address of next
          74552    126              0   0  0              0                (50)REQUEST MASTER                      enter subroutine
    74568>                                                                                                         
    93121>                                                                                                         
    74522>74553    124     751      6   0  3              0        751     SET MASTER SWITCH NON-INT               modify address of next
          74554    106             58   0  0              0                SM+58=SP+10                             select (N)
          74555    124     751      6   0  3              0        751                                             modify address of next
          74556    102              6   0  0              0                >SM+6                                   transfer (A) to N
          74557    124     744     72   0  3              0        744                                             modify address of next
          74558    102             44   0  0              0                (3)CLEAR'TRIAL'IND                      transfer (A) to N
          74559    124     744     72   1  1              0        744     MG 0                                    set modification group
          74560    10               0   0  0              0                *FORMED ORDER* 0/2='ABDON/END'          SELECT LITERAL
          74561    124     744     72   0  3              0        744     >RETURN TO'ABDON'COMMENT                modify address of next
          74562    124              0   1  0              0                (34)                                    unconditional jump
    74108>74563    0       745     49   0  0              0        745      '2/0/1'IND       (ABANDON OPTION)      SELECT
          74564    70      745     69   0  0              0        745     >NO                                     JUMP IF A == 0
          74565    101              1   1  3              0                (15)1*'RC' LINK                         select literal address
          74566    2       744     74   0  0              0        744                                             SUBTRACT
          74567    70      745     50   0  0              0        745     >DURING PASS 3                          JUMP IF A == 0
          74568    76      745     53   0  0              0        745     >SOMETIME IN PASS 2                     JUMP unconditional
    74564>74569    0       744     74   0  0              0        744     PASS IND                                SELECT
          74570    71      745     50   0  0              0        745     >1 OR 3                                 JUMP IF A != 0
          74571    0       744     75   0  0              0        744     CONTROL IND                             SELECT
          74572    70      745     50   0  0              0        745     >PTS IN CONTROL                         JUMP IF A == 0
          74573    101              0   1  3              0                (15)'RC' LINK                           select literal address
          74574    3       744     74   0  0              0        744     SET'PTS 3'                              COPY
          74575    124     744     72   0  3              0        744                                             modify address of next
          74576    102             42   0  1              0                >SI+42                                  transfer (A) to N
          74577    124     744     72   0  3              0        744                                             modify address of next
          74578    102             45   0  1              0                CLEAR ASSOC TIME                        transfer (A) to N
    74539>74579    10               0   0  0              0                                                        SELECT LITERAL
          74580    35               0   0  0            100                                                        PREPARE FOR DIGIT COLLATION
          74581    37      757     23   0  0              0        757     CLEAR Q3=DISCARDS (2001/23)             REPLACE SELECTED BITS
  Source image: P1000707.JPG
          74582    126     757     10   0  0              0        757     >TYPE'OP ABANDONS(PROG)'    (2001/10)   enter subroutine
          74583    126     745     84   0  1              0        745                                             leave subroutine
          74584    100              0   0  0              0                FORMED PASS 1=1014/4                    Halt
          74585    10               0   0  0              2                ORDER CONST                             SELECT LITERAL
                                                                                                                   
          74600    PROCR   746       746     1004 STORE DUMP (START)                                               
    74103>74602    124     744     73   0  3              0        744     TEST TAPE HAS JUST BEEN REWOUND         modify address of next
          74603    106              0   0  0              0                (36)                                    select (N)
          74604    118           4124   0  0              0                                    JUST BEEN REWOUND   shift logical
          74605    127     746      8   0  0              0        746     >NO                                     jump A = Z
          74606    125              0   1  2              0                                                        interrogate indicators
          74607    124     746     11   1  0              0        746     >                                       unconditional jump
    74605>74608    124     744     72   0  3              0        744                                             modify address of next
          74609    124             35   0  3              0                (3)BLOCK CTRS                           modify address of next
          74610    106              0   0  0              0                (24)PTS ROUTE                           select (N)
    74607>74611    102     750      5   0  0              0        750                         SERIAL NO           transfer (A) to N
          74612    101             27   1  3              0                                    CLOSE STORE         select literal address
          74613    80      749      2   0  0              0        749     .CLOSE I/P FILE                         ENTER SUBROUTINE
          74614    124     744     72   0  3              0        744                                             modify address of next
          74615    124              0   1  0              0                (37)                                    unconditional jump
                                                                                                                   
          74700    PROCR   747       747     1005 STORE DUMP (END)                                                 
    74104>74702    10               0   0  0              0                                                        SELECT LITERAL
          74703    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          74704    124     744     73   0  3              0        744     PROG ROUTE                              modify address of next
          74705    114              0   0  0              0                (36)CLEAR Q5='REWIND'IND                replace selected bits
          74706    106     750      5   0  0              0        750                         TEST PTS TAPE TO    select (N)
          74707    127     747     34   0  0              0        747     >NO                 BE REALIGNED        jump A = Z
          74708    34      751      2   1  0              0        751                                             SET (N) IN B
          74709    101             17   1  3              0                                                        select literal address
          74710    80      749      2   0  0              0        749     >OPEN I/P FILE                          ENTER SUBROUTINE
          74711    100     750      4   0  3              0        750     DEC                                     set radix
          74712    10               0   0  0              0                                                        SELECT LITERAL
          74713    12               0   0  0              1                                                        SUBTRACT LITERAL
          74714    4       750      5   0  0              0        750     STEP DOWN REQUIRED BLOCK                AUGMENT
          74715    100     744     72   0  3              0        744     BIN                                     set radix
          74716    101             10   1  3              0                WORD 10=IDENTIFIER LOCN                 select literal address
          74717    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          74718    124     744     72   0  3              0        744                                             modify address of next
          74719    104             55   0  0              0                (3)PARA 55=IDENTIFIER VALUE             add (N) to (A)
          74720    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          74721    101             37   1  3              0                                                        select literal address
          74722    80      749      2   0  0              0        749     >RUN FWD TO MACHINE CODE START          ENTER SUBROUTINE
          74723    10               0   0  0              0                DUMMY                                   SELECT LITERAL
    74732>74724    101             62   1  3              0                STORE DUMP PSEUDO                       select literal address
          74725    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          74726    101              7   1  3              0                                    REALIGN TAPE        select literal address
          74727    80      749      2   0  0              0        749     >READ               USING MR ANNEXES    ENTER SUBROUTINE
          74728    124     744     72   0  3              0        744                                             modify address of next
          74729    124            126   0  3              0                STORE PSEUDO                            modify address of next
          74730    106              1   1  0              0                                                        select (N)
          74731    2       750      5   0  0              0        750     REQUIRED BLOCK                          SUBTRACT
          74732    71      747     24   0  0              0        747     >NOT YET                                JUMP IF A != 0
          74733    125           4096   1  1              0                                                        clear indicators
    74707>74734    124     744     72   0  3              0        744                                             modify address of next
          74735    124              0   1  0              0                (52)                                    unconditional jump
                                                                                                                   
          74800    PROCR   748       748     1006 TRIAL OVER FLOW                                                  
    74105>74802    124     744     72   0  3              0        744     STORE POSN OF OFLOW CONSTANT            modify address of next
          74803    106              0   0  0              0                (39)                                    select (N)
  Source image: P1000708.JPG
          74804    102     750      5   0  0              0        750                                             transfer (A) to N
          74805    124     751      4   0  2              0        751     AMEND EDIT TABLE                        select literal and division
          74806    124     744     72   0  3              0        744     AMEND EDIT TABLE                        modify address of next
          74807    102              0   0  0              0                (39)                                    transfer (A) to N
          74808    101              0   1  3              0                (39)                                    select literal address
          74809    124     744     72   0  3              0        744                                             modify address of next
          74810    128              0   1  2              0                (10)                                    edit fixed field formats
          74811    124     744     72   0  3              0        744                                             modify address of next
          74812    106             38   0  1              0                MOVE (24)                               select (N)
          74813    124     744     72   0  3              0        744                                             modify address of next
          74814    102             44   0  1              0                                                        transfer (A) to N
          74815    124     744     72   0  3              0        744                                             modify address of next
          74816    106             35   0  1              0                SET S1=4                                select (N)
          74817    124     744     72   0  3              0        744                                             modify address of next
          74818    102              7   0  1              0                                                        transfer (A) to N
          74819    106     750      5   0  0              0        750     RESTORE EDIT TABLE                      select (N)
          74820    124     744     72   0  3              0        744     RESTORE EDIT TABLE                      modify address of next
          74821    102              0   0  0              0                (39)                                    transfer (A) to N
          74822    124     744     72   0  3              0        744                                             modify address of next
          74823    124              0   1  0              0                (41)                                    unconditional jump
                                                                                                                   
          74900    PROCR   749       749     1007 I/P O/P S/R RTE 7                                                
          74902    100              0   0  0              0                LINK                                    Halt
          74903    118              5   0  0              0                FORM PARAMETER                          shift logical
          74904    101              0   1  1              0                (24)                                    add literal address
          74905    125           4096   1  1              0                SET NON INT                             clear indicators
          74906    124     750      2   0  3              0        750     MODIFY DIVISION                         modify address of next
          74907    123            160   0  2              0                                                        enter master routine
          74908    126     749      2   0  1              0        749     >LEAVE S/R                              leave subroutine
          74909    100              0   0  0              0                                    SWOP 64*R S/R       Halt
          74910    124     744     72   0  3              0        744     STORE(64*R)                             modify address of next
          74911    106             64   0  0              0                                                        select (N)
          74912    102     749     19   0  0              0        749                                             transfer (A) to N
          74913    106     749     20   0  0              0        749     RESET(64*R)                             select (N)
          74914    124     744     72   0  3              0        744                                             modify address of next
          74915    102             64   0  0              0                                                        transfer (A) to N
          74916    106     749     19   0  0              0        749     STORE NEXT(64*R)                        select (N)
          74917    102     749     20   0  0              0        749                                             transfer (A) to N
          74918    126     749      9   0  1              0        749     >LEAVE S/R                              leave subroutine
          74919    100              0   0  0              0                STORES FOR (64*R)                       Halt
          74920    100              0   0  0              0                                                        Halt
          74921    100              0   0  0              0                                                        Halt
          74922    124     750      2   0  3              0        750     INTERCHANGE VALUES                      modify address of next
          74923    100             24   0  2              0                (3)OF PARAMETER 24                      replace (B) by (N)
          74924    106     749     31   0  0              0        749                                             select (N)
          74925    124     750      2   0  3              0        750                                             modify address of next
          74926    102             24   0  0              0                (3)                                     transfer (A) to N
          74927    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          74928    102     749     31   0  0              0        749                                             transfer (A) to N
          74929    126     749      9   0  0              0        749                                             enter subroutine
          74930    126     749     21   0  1              0        749     >LEAVE(S)                               leave subroutine
          74931    100              0   0  0              0                (24)                                    Halt
                                                                                                                   
          75000    CONST   750       750     0    1008 W/L'S USED BY GENERAL CODING                                
          75002          (D)00000;                                                                                 
          75003          00002;                                                                                    
          75004          66666;                                                                                    
          75005          00000;                                            O'LAY AND STORE DUMP W/L                
                                                                                                                   
          75100    CONST   751       751     1    1009 LONG CONSTANTS UDED BY GENERAL CODING                       
  Source image: P1000709.JPG
          75102          (D)0514808000;                                    STORE DUMP I/P O/P CST                  
          75104          (A)TROFL;                                                                                 
          75106          0;                                                WL FOR MASTER SWITCH START              
          75108          0;                                                8-31=UNPACK WL'S IN PASS 3              
          75110          0;                                                                                        
          75112          0;                                                                                        
          75114          0;                                                                                        
          75116          0;                                                                                        
          75118          0;                                                                                        
          75120          0;                                                                                        
          75122          0;                                                                                        
          75124          0;                                                                                        
          75126          0;                                                                                        
          75128          0;                                                                                        
          75130          0;                                                                                        
          75132          0;                                                                                        
          75134          0;                                                START OF 256-LOCN PRINT ANNEX PASS 3    
          75136          0;                                                                                        
          75138          0;                                                                                        
          75140          0;                                                                                        
          75142          0;                                                                                        
          75144          0;                                                                                        
                                                                                                                   
          75200    CONST   752       752     1    1010 LIST AND PRINTER ANNEXE                                     
          75202          (D)0;                                             I/O SERIAL                              
          75204          0;                                                REPLACED INSTRUCTIONS                   
          75206          0;                                                CHAP,24 IND,TYPE                        
          75208          0;                                                SEON START+LENGTH                       
          75210          0;                                                SEON NUMBER                             
          75212          0;                                                                                        
          75214          0;                                                SUBSEQUENT SECNS                        
          75216          0;                                                                                        
          75218          0;                                                                                        
          75220          0;                                                2ND PM POINT                            
          75222          0;                                                                                        
          75224          0;                                                                                        
          75226          0;                                                                                        
          75228          0;                                                                                        
          75230          0;                                                                                        
          75232          0;                                                                                        
          75234          0;                                                                                        
          75236          0;                                                                                        
          75238          0;                                                3RD PM POINT                            
          75240          0;                                                                                        
          75242          0;                                                                                        
          75244          0;                                                                                        
          75246          0;                                                                                        
          75248          0;                                                                                        
          75250          0;                                                                                        
          75252          0;                                                                                        
          75254          0;                                                                                        
                                                                                                                   
          75300    CONST   753       753     1    1011 UNPACKED I/P AND LIST                                       
          75302          (D)0;                                             4TH PM POINT                            
          75304          0;                                                                                        
          75306          0;                                                                                        
          75308          0;                                                                                        
          75310          0;                                                                                        
          75312          0;                                                                                        
          75314          0;                                                                                        
  Source image: P1000710.JPG
          75316          0;                                                                                        
          75318          0;                                                                                        
          75320          0;                                                5TH PM POINT                            
          75322          0;                                                                                        
          75324          0;                                                                                        
          75326          0;                                                                                        
          75328          0;                                                                                        
          75330          0;                                                                                        
          75332          0;                                                                                        
          75334          0;                                                                                        
          75336          0;                                                                                        
                                                                                                                   
          75400    CONST   754       754     1    1012 LIST CONTINUED                                              
          75402          (D)0;                                             6TH PM POINT                            
          75404          0;                                                                                        
          75406          0;                                                                                        
          75408          0;                                                                                        
          75410          0;                                                                                        
          75412          0;                                                                                        
          75414          0;                                                                                        
          75416          0;                                                                                        
          75418          0;                                                                                        
          75420          0;                                                7TH PM POINT                            
          75422          0;                                                                                        
          75424          0;                                                                                        
          75426          0;                                                                                        
          75428          0;                                                                                        
          75430          0;                                                                                        
          75432          0;                                                                                        
          75434          0;                                                                                        
          75436          0;                                                                                        
          75438          0;                                                8TH PM POINT                            
          75440          0;                                                                                        
          75442          0;                                                                                        
          75444          0;                                                                                        
          75446          0;                                                                                        
          75448          0;                                                                                        
          75450          0;                                                                                        
          75452          0;                                                                                        
          75454          0;                                                                                        
          75456          0;                                                9TH PM POINT                            
          75458          0;                                                                                        
          75460          0;                                                                                        
          75462          0;                                                                                        
          75464          0;                                                                                        
          75466          0;                                                                                        
          75468          0;                                                                                        
          75470          0;                                                                                        
          75472          0;                                                                                        
          75474          0;                                                10TH PM POINT                           
          75476          0;                                                                                        
          75478          0;                                                                                        
          75480          0;                                                                                        
          75482          0;                                                                                        
          75484          0;                                                                                        
          75486          0;                                                                                        
          75488          0;                                                                                        
          75490          0;                                                                                        
                                                                                                                   
          75500    CONST   755       755     0    1013 W/L'S COMMON TO PASSES 1 AND 2                              
  Source image: P1000711.JPG
          75502          (D)0;                                             START OF SWITCH OF TRIAL PROG           
          75503          0;                                                START OF SP CHAP OF TRIAL PROG          
          75504          0;                                                NO OF PARAMETERS+1                      
          75505          0;                                                NO OF INITIAL CHAPS                     
          75506          0;                                                MOD GROUPX8                             
          75507          ;                                                 PROG'S ENTRY POINT                      
          75508          ;                                                 (A)ON ENTRY TO PROG                     
          75509          ;                                                 (B) ON ENTRY TO PROG                    
          75510          ;                                                 (C) ON ENTRY TO PROG                    
          75511          0;                                                2ND HALF(B)                             
          75512          0;                                                (C)                                     
          75513          0;                                                SPARE                                   
                                                                                                                   
          75600    PROCR   756       756     ACHTUNG:IF THE NEXT PROCR IS ALTERED                                  
          75601     NOTES          RADIX          PROCR 1003 MUST BE CHANGED-IT ADDRESSES 2001 AS 1014             SELECT
                                                                                                                   
          75700    PROCR   757       757     1014 STORE DETAILS (1)                                                
    74469>                                                                                                         
    74106>75702    5       772      4   1  0              0        772     TRIAL DATA IND Q1-5,LOSE SIGN->WL       TRANSFER
    74107>75703    125           4096   1  1              0                SET NON INT                             clear indicators
          75704    124     770      8   0  3              0        770                                             modify address of next
    74109>75705    106              2   1  0              0                R1 OF MG 0                              select (N)
    74110>75706    5       751      6   1  0              0        751     MASTER PROG SWITCH                      TRANSFER
    74102>75707    124     770      8   0  3              0        770                                             modify address of next
          75708    106             44   0  0              0                (3)SWITCH START EX PLS PARAS            select (N)
          75709    102     755      2   0  0              0        755                                             transfer (A) to N
          75710    124     755      2   0  3              0        755     START OF SP CHAP                        modify address of next
          75711    106             37   0  0              0                                                        select (N)
          75712    102     755      3   0  0              0        755                                             transfer (A) to N
          75713    106     755      2   1  0              0        755     SET (MR1)(MG0)FOR PROG UNDER TRIAL      select (N)
          75714    124     770      8   0  3              0        770                                             modify address of next
          75715    102              2   1  0              0                                                        transfer (A) to N
          75716    124     755      2   0  3              0        755     STORE (A),(B),  ON ENTRY TO PROG        modify address of next
          75717    100             30   1  1              0                                                        replace registers
          75718    100     755      8   1  0              0        755                                             copy registers
          75719    100     744     72   0  3              0        744                                             set radix
          75720    124     755      2   0  3              0        755     STORE ENTRY POINT                       modify address of next
          75721    106             44   0  0              0                                                        select (N)
          75722    102     755      7   0  0              0        755                                             transfer (A) to N
          75723    106     775      2   1  0              0        775     CLEAR LIST                              select (N)
          75724    128     752      2   0  0              0        752                                             bulk copy short numeric
          75725    124     755      2   0  3              0        755     SET PROGS MOD GROUP                     modify address of next
          75726    124             29   1  1              0                                                        set modification group
          75727    126     755      3   1  2              0        755     SET (MR2)=SP CHAP START                 set modification register
          75728    124     744     72   0  3              0        744                                             modify address of next
          75729    106             14   0  2              0                STORE NO OF PARAMETERS+1                select (N)
          75730    102     755      4   0  0              0        755                                             transfer (A) to N
          75731    124     744     72   0  3              0        744                                             modify address of next
          75732    106              4   0  2              0                STORE NO OF INITIAL CHAPS               select (N)
          75733    102     755      5   0  0              0        755                                             transfer (A) to N
          75734    124     744     72   0  3              0        744                                             modify address of next
          75735    106              1   0  2              0                STORE 8XMOD GROUP                       select (N)
          75736    118              3   0  3              0                                                        shift binary
          75737    102     755      6   0  0              0        755                                             transfer (A) to N
          75738    124     757      4   0  2              0        757                                             select literal and division
          75739    5       745     84   0  0              0        745     SET LINK FOR'ABDON'                     TRANSFER
          75740    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
          75741    106     769      4   0  0              0        769                                             select (N)
          75742    102     749     20   0  0              0        749                                             transfer (A) to N
          75743    126     749      9   0  0              0        749     SET(71)FOR PTS                          enter subroutine
  Source image: P1000712.JPG
          75744    106     769      5   0  0              0        769                                             select (N)
          75745    124     744     72   0  3              0        744                                             modify address of next
          75746    102            123   0  0              0                                                        transfer (A) to N
          75747    101     752      2   1  3              0        752     SET MR1 AT                              select literal address
          75748    107     770     17   0  0              0        770     START AND END OF LIST                   augment (N) by (A)
          75749    102     770     16   0  0              0        770                                             transfer (A) to N
          75750    126     770     16   1  1              0        770                                             set modification register
          75751    100     771      6   0  2              0        771     STEP PROG TAPE                          replace (B) by (N)
          75752    101             40   1  3              0                BACK ONE BLOCK                          select literal address
          75753    126     749      2   0  0              0        749     >                                       enter subroutine
                                                                                                                   
          75800    PROCR   758       758     1015 TEST DIRECTIVE                                                   
    75814>                                                                                                         
    76350>                                                                                                         
    76351>                                                                                                         
    76407>                                                                                                         
    76418>                                                                                                         
    76548>75802    100     771      3   0  2              0        771     READ PROG TAPE                          replace (B) by (N)
          75803    101              7   1  3              0                                                        select literal address
          75804    126     749      2   0  0              0        749     >                                       enter subroutine
          75805    124     771      2   1  2              0        771                                             modify address of next
          75806    106              4   1  0              0                TEST=FILES                              select (N)
          75807    105     770      4   1  0              0        770                                             subtract (N) from (A)
          75808    127     759      2   0  0              0        759     >YES                                    jump A = Z
          75809    104     770      4   1  0              0        770     TEST=CHAPT                              add (N) to (A)
          75810    105     770      2   1  0              0        770                                             subtract (N) from (A)
          75811    127     764      2   0  0              0        764     TEST=''E''                              jump A = Z
          75812    104     770      2   1  0              0        770                                             add (N) to (A)
          75813    101             85   1  2              0                                                        subtract literal address
          75814    127     758      2   0  1              0        758                                             jump A != Z
          75815    76      744      2   0  0              0        744     >OLAY                                   JUMP unconditional
                                                                                                                   
          75900    PROCR   759       759     1016 STORE PM POINT INFORMATION                                       
    75808>75902    106     775      4   1  0              0        775     FORM UP BULK COPY                       select (N)
          75903    124     770      8   0  3              0        770     TABLE                                   modify address of next
          75904    104            123   0  0              0                                                        add (N) to (A)
          75905    128     774      2   1  0              0        774     COPY ALPHA->NUMERIC                     bulk copy alpha to short
          75906    106     774      2   0  0              0        774     STORE I/C SERIAL NO                     select (N)
          75907    102              1   0  1              0                                                        transfer (A) to N
          75908    101             24   0  1              0                                                        prepare for digit collation
          75909    115     774      5   0  0              0        774     COLLATE N1                              collate and add
          75910    118           4125   1  0              0                                                        shift logical
          75911    102              4   0  1              0                STORE N1                                transfer (A) to N
          75912    115     774      5   0  0              0        774     COLLATE N2                              collate and add
          75913    118              3   0  0              0                                                        shift logical
          75914    107              4   0  1              0                STORE N2                                augment (N) by (A)
          75915    101             23   0  1              0                                                        prepare for digit collation
          75916    124     755      6   0  3              0        755     8M                                      modify address of next
          75917    106              2   0  0              0                (MR1)                                   select (N)
          75918    102     773      2   0  0              0        773                                             transfer (A) to N
          75919    126     773      2   1  3              0        773     SET MODIFIER MR3=MODIFIER MR1           set modification register
          75920    115     774      4   0  0              0        774     COLLATE CHAP NO PM TYPE AND N3          collate and add
          75921    103              5   0  1              0                AND STORE                               copy (A) to N
          75922    118           4124   0  0              0                TEST PM TYPE                            shift logical
          75923    101              5   1  2              0                                                        subtract literal address
          75924    127     763      2   0  0              0        763     >TYPE 5                                 jump A = Z
          75925    101              4   1  2              0                                                        subtract literal address
          75926    127     762      2   0  0              0        762     >TYPE 9(CLEO 6)                         jump A = Z
          75927    101              3   1  1              0                                                        add literal address
          75928    127     762      2   0  0              0        762     >TYPE 6                                 jump A = Z
  Source image: P1000713.JPG
          75929    127     759     31   0  2              0        759     >TYPE>6   TYPE 7=CLEO 1                 jump A >= Z
          75930    101              5   1  1              0                                    TYPE 8=CLEO 3       add literal address
    75929>75931    101              1   1  1              0                                                        add literal address
          75932    102     772      5   0  0              0        772     W/L(FOR TYPE OR TYPE=5)                 transfer (A) to N
                                                                                                                   
          76000    PROCR   760       760     1017 CHAPTER PMS                                                      
          76002    126     770      8   1  2              0        770     SET(MR2)=16:0           TYPE 1,2,3,4,7,8set modification register
    76018>76003    106     772      5   0  0              0        772                                             select (N)
          76004    101              3   1  2              0                                    TEST CHAPTER DUMP   subtract literal address
          76005    127     761      2   0  2              0        761     >NO                                     jump A >= Z
          76006    106     774      6   0  2              0        774     CHAP NO                                 select (N)
          76007    127     763      2   0  0              0        763     >END OF CHAPS                           jump A = Z
          76008    103              8   0  3              0                STORE CHAP NO                           copy (A) to N
          76009    104     774      6   0  2              0        774                                             add (N) to (A)
          76010    126     766      2   0  0              0        766     >FORM UP CHAP DETAILS                   enter subroutine
          76011    103              6   0  3              0                STORE CHAP START                        copy (A) to N
          76012    118           4123   0  0              0                                                        shift logical
          76013    105              6   0  3              0                                                        subtract (N) from (A)
    76125>76014    102              7   0  3              0                STORE CHAP LENGTH                       transfer (A) to N
          76015    125              3   0  3              0                                                        step on and test
          76016    124     760     17   1  0              0        760     >                                       unconditional jump
    76016>76017    125              4   0  2              0                                    TEST FOUR CHAPS DEALstep on and test
          76018    124     760      3   1  0              0        760     >NO                 WITH                unconditional jump
          76019    124     763      2   1  0              0        763     >YES                                    unconditional jump
                                                                                                                   
          76100    PROCR   761       761     1018 SECTION PM'S                                                     
    76005>76102    125              0   1  2              0                                                        interrogate indicators
          76103    101              7   0  1              0                                                        prepare for digit collation
          76104    115     774      6   0  2              0        774     COLLATE OUT SECTION NO                  collate and add
          76105    127     763      2   0  0              0        763     >END OF SECNS                           jump A = Z
          76106    102              8   0  3              0                STORE SECN NO                           transfer (A) to N
          76107    101             16   0  1              0                                                        prepare for digit collation
          76108    115     774      7   0  2              0        774     COLLATE TA IND                          collate and add
          76109    127     761     17   0  0              0        761     >NOT TA IE SECN                         jump A = Z
          76110    107              8   0  3              0                T A IND                                 augment (N) by (A)
          76111    125              0   1  2              0                                                        interrogate indicators
          76112    101             24   0  1              0                                                        prepare for digit collation
          76113    115     774      6   0  2              0        774     COLLATE RTE PARAM                       collate and add
          76114    118           4125   0  0              0                2XRTE PARAM                             shift logical
          76115    126     767      2   0  0              0        767     >FORM UP -(64+P)                        enter subroutine
          76116    124     761     23   1  0              0        761     >                                       unconditional jump
    76109>76117    101              8   0  1              0                                                        prepare for digit collation
          76118    115     774      6   0  2              0        774     CHAP NO (Q4)                            collate and add
          76119    115     774      6   0  2              0        774                                             collate and add
          76120    118           4125   0  0              0                                                        shift logical
          76121    126     766      2   0  0              0        766     >FORM UP CHAP START                     enter subroutine
          76122    104     774      8   0  2              0        774     SECTION START                           add (N) to (A)
    76116>76123    102              6   0  3              0                SECTION START                           transfer (A) to N
          76124    106     774      9   0  2              0        774     SECTION LENGTH                          select (N)
          76125    124     760     14   1  0              0        760     >                                       unconditional jump
                                                                                                                   
          76200    PROCR   762       762     1019 TRACE POINTS PM'S                                                
    75928>                                                                                                         
    75926>76202    126     770     10   1  2              0        770     SET(MR2)=18:0                           set modification register
    76225>76203    106     774      6   0  2              0        774     CHAP NO AND REL ADD                     select (N)
          76204    127     763      2   0  0              0        763     END OF TRACE PTS                        jump A = Z
          76205    102              6   0  3              0                STORE                                   transfer (A) to N
          76206    101             16   0  1              0                                    TEST PT IN SECN     prepare for digit collation
          76207    115     774      7   0  2              0        774                                             collate and add
          76208    127     762     16   0  0              0        762     >NO,PROCR                               jump A = Z
  Source image: P1000714.JPG
          76209    118              3   0  3              0                                                        shift binary
          76210    102              7   0  3              0                SET BIT 20 (SECN IND)                   transfer (A) to N
          76211    101             15   0  1              0                                                        prepare for digit collation
          76212    115     774      7   0  2              0        774     REF                                     collate and add
          76213    118              3   0  0              0                SHIFT 13 BITS LEFT                      shift logical
          76214    118              1   0  3              0                                                        shift binary
          76215    124     762     19   1  0              0        762     >                                       unconditional jump
    76208>76216    101             15   0  1              0                                                        prepare for digit collation
          76217    115     774      7   0  2              0        774     REF                                     collate and add
          76218    118              2   0  0              0                                                        shift logical
    76215>76219    107              7   0  3              0                STORE                                   augment (N) by (A)
          76220    106     774      8   0  2              0        774     ITEM                                    select (N)
          76221    107              7   0  3              0                STORE                                   augment (N) by (A)
          76222    125              2   0  3              0                                                        step on and test
          76223    124     762     24   1  0              0        762                                             unconditional jump
    76223>76224    125              3   0  2              0                                                        step on and test
          76225    124     762      3   1  0              0        762     >NO                                     unconditional jump
          76226    125              0   1  2              0                                                        interrogate indicators
                                                                                                                   
          76300    PROCR   763       763     1020 STORE REPLACED INSTRUCTIONS                                      
    76204>                                                                                                         
    76105>                                                                                                         
    76019>                                                                                                         
    76007>                                                                                                         
    75924>76302    101              1   0  1              0                TYPE 5                                  prepare for digit collation
          76303    115     774      4   0  0              0        774     UNCORRECTED CHAP NO                     collate and add
          76304    105     755      5   0  0              0        755                                             subtract (N) from (A)
          76305    127     763     52   0  2              0        763     >NO                                     jump A >= Z
          76306    104     755      5   0  0              0        755                                             add (N) to (A)
          76307    103     772      3   0  0              0        772     W/L                                     copy (A) to N
          76308    118              2   0  0              0                                                        shift logical
          76309    107              4   0  1              0                STORE ALLOCATED CHAP NO                 augment (N) by (A)
          76310    106     772      3   0  0              0        772                                             select (N)
          76311    104     772      3   0  0              0        772                                             add (N) to (A)
          76312    126     766      2   0  0              0        766     >FORM UP CHAP START                     enter subroutine
          76313    104     774      3   0  0              0        774                                             add (N) to (A)
          76314    103              0   0  1              0                STORE ABS ADD                           copy (A) to N
          76315    102     773      2   0  0              0        773     W/L                                     transfer (A) to N
          76316    126     773      2   1  3              0        773     SET (MR3)=ABS ADD                       set modification register
          76317    124     744     72   0  3              0        744                                             modify address of next
          76318    106              0   0  3              0                                                        select (N)
          76319    103              2   0  1              0                                                        copy (A) to N
          76320    127     763     33   0  2              0        763     >YES                                    jump A >= Z
          76321    105              2   0  1              0                FORM COMPLEMENT OF ACTION               subtract (N) from (A)
          76322    105              2   0  1              0                                                        subtract (N) from (A)
          76323    118              3   0  3              0                ALIGN INSTRUCTION                       shift binary
          76324    118           4124   0  1              0                AT LEAST SIG END                        shift arithmetic
          76325    101             64   1  2              0                                                        subtract literal address
          76326    127     763     35   0  0              0        763     >24/0/0                                 jump A = Z
          76327    101              1   1  2              0                                                        subtract literal address
          76328    127     763     35   0  0              0        763     >24/0/1                                 jump A = Z
          76329    101              2   1  2              0                                                        subtract literal address
          76330    127     763     35   0  0              0        763     >24/0/3                                 jump A = Z
          76331    101              3   1  2              0                                                        subtract literal address
          76332    127     763     35   0  0              0        763     >24/1/2                                 jump A = Z
    76320>76333    106     769      2   0  0              0        769     25/1/0                                  select (N)
          76334    124     763     39   1  0              0        763                                             unconditional jump
    76332>                                                                                                         
    76330>                                                                                                         
    76328>                                                                                                         
  Source image: P1000715.JPG
    76326>76335    101           4096   1  3              0                                                        select literal address
          76336    107              5   0  1              0                STORE 24 ACTION IND                     augment (N) by (A)
          76337    124     744     72   0  3              0        744                                             modify address of next
          76338    106              1   0  3              0                                                        select (N)
    76334>76339    102              3   0  1              0                STORE 2ND INSTRUCTION                   transfer (A) to N
          76340    100     771      4   0  2              0        771                                             replace (B) by (N)
          76341    124     772      2   0  3              0        772                                             modify address of next
          76342    115             18   0  0              0                COLLATE 13 BIT CHAP START               collate and add
          76343    102     772      2   0  0              0        772     W/L                                     transfer (A) to N
          76344    105     772      2   0  0              0        772                                             subtract (N) from (A)
          76345    105     755      4   0  0              0        755     NO OF PARAMS+1                          subtract (N) from (A)
          76346    104     769      3   0  0              0        769     26/0/0                                  add (N) to (A)
          76347    124     744     72   0  3              0        744                                             modify address of next
          76348    102              0   0  3              0                INSERT IN PROG                          transfer (A) to N
    76354>76349    125             18   0  1              0                                                        step on and test
          76350    124     758      2   1  0              0        758     >                                       unconditional jump
          76351    124     758      2   1  0              0        758     >END OF 10 PM PTS                       unconditional jump
    76305>76352    106     774      3   0  0              0        774     STORE REL ADDRESS                       select (N)
          76353    102              0   0  1              0                                                        transfer (A) to N
          76354    124     763     49   1  0              0        763     >                                       unconditional jump
                                                                                                                   
          76400    PROCR   764       764     1021 OPEN TRIAL DATA FILE                                             
    75811>76402    0       775      6   1  0              0        775                                             SELECT
          76403    124     770      8   0  3              0        770                                             modify address of next
          76404    104            123   0  0              0                                                        add (N) to (A)
          76405    128     774      2   1  1              0        774     >UNPACK                                 bulk copy long numeric
          76406    0       774     14   2  0              0        774     MT SET NUMBER                           SELECT
          76407    70      758      2   0  0              0        758     >IGNORE SET                             JUMP IF A == 0
          76408    12               0   0  0              9                                                        SUBTRACT LITERAL
          76409    70      764     19   0  0              0        764     >ALWAYS ACCEPT                          JUMP IF A == 0
          76410    34      772      4   0  0              0        772     TRIAL DATA IND                          SET (N) IN B
          76411    10               0   0  0              0                                                        SELECT LITERAL
    76417>76412    36      771      7   0  0              0        771     Q1                                      COLLATE AND ADD
          76413    2       774     14   2  0              0        774                                             SUBTRACT
          76414    70      764     19   0  0              0        764     >ACCEPT                                 JUMP IF A == 0
          76415    10               0   0  0              0                                                        SELECT LITERAL
          76416    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          76417    75      764     12   0  0              0        764     >CONTINUE SEARCH                        JUMP IF AB != 0
          76418    76      758      2   0  0              0        758     >IGNORE SET                             JUMP unconditional
    76414>                                                                                                         
    76409>76419    106     774     11   1  0              0        774     PSEUDO RTE PARAMETER                    select (N)
          76420    126     767      2   0  0              0        767     >FORM UP=(64+R)                         enter subroutine
          76421    102     772      3   0  0              0        772     W/L                                     transfer (A) to N
          76422    106     774      5   1  0              0        774     RTE PARAMETER                           select (N)
          76423    126     767      2   0  0              0        767     >FORM UP=(64+R)                         enter subroutine
          76424    101             64   1  1              0                                                        add literal address
          76425    5       767      2   0  0              0        767     WL                                      TRANSFER
          76426    2       767      2   0  0              0        767                                             SUBTRACT
          76427    30               0   0  0              0                ///// DUMMY ORDERS                      SHIFT (A) BY QUARTETS
          76428    30               0   0  0              0                /////                                   SHIFT (A) BY QUARTETS
          76429    102     772      2   0  0              0        772     W/L                                     transfer (A) to N
          76430    124     755      2   0  3              0        755     STORE PROG RUN NO                       modify address of next
          76431    106             40   0  0              0                                                        select (N)
          76432    102     771      5   0  0              0        771                                             transfer (A) to N
          76433    0       774      8   2  0              0        774     MT RUN NUMBER                           SELECT
          76434    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          76435    1       774     14   2  0              0        774     SET NUMBER AS RERUN                     ADD
          76436    124     755      2   0  3              0        755                                             modify address of next
          76437    102             40   0  0              0                                                        transfer (A) to N
          76438    106     774      3   1  0              0        774     PROG ID                                 select (N)
  Source image: P1000716.JPG
          76439    118           4123   1  1              0                                                        shift arithmetic
          76440    104     774      6   1  0              0        774     FILE ID                                 add (N) to (A)
          76441    118           4123   1  1              0                                                        shift arithmetic
          76442    101             18   1  1              0                                                        add literal address
          76443    126     768      2   0  0              0        768     >I/P-O/P FOR TRIAL DATA                 enter subroutine
          76444    106     771      5   0  0              0        771     RESTORE RUN NO                          select (N)
          76445    124     755      2   0  3              0        755                                             modify address of next
          76446    102             40   0  0              0                                                        transfer (A) to N
                                                                                                                   
          76500    PROCR   765       765     1022 WRITE TRIAL DATA                                                 
          76502    106     774     13   1  0              0        774                                             select (N)
          76503    118              5   0  0              0                                                        shift logical
          76504    102     773      2   1  0              0        773                                             transfer (A) to N
          76505    126     773      2   1  3              0        773     SET (MR3)=TRANSIT ARLENGTH              set modification register
    76542>76506    100     771      3   0  2              0        771     READ PROG TAPE                          replace (B) by (N)
          76507    101              7   1  3              0                                                        select literal address
          76508    126     749      2   0  0              0        749     >                                       enter subroutine
          76509    126     770     12   1  2              0        770     SET (MR2) AT 48/0                       set modification register
    76541>76510    124     770      8   0  3              0        770                         TEST NEXT WORD      modify address of next
          76511    124            123   0  3              0                                    =FIEND              modify address of next
          76512    106              4   1  2              0                                    TEST NEXT WORD      select (N)
          76513    105     770      6   1  0              0        770                                             subtract (N) from (A)
          76514    127     765     43   0  0              0        765     >YES                                    jump A = Z
          76515    124     770      8   0  3              0        770     CONVERT WORD FROM                       modify address of next
          76516    124            123   0  3              0                DOUBLE ALPHA                            modify address of next
          76517    106              5   1  2              0                TO ALPHA                                select (N)
          76518    118              5   0  0              0                                                        shift logical
          76519    124     770      8   0  3              0        770                                             modify address of next
          76520    124            123   0  3              0                                                        modify address of next
          76521    104              7   1  2              0                                                        add (N) to (A)
          76522    124     772      3   1  2              0        772     STORE CONVERTED WORD                    modify address of next
          76523    103              4   1  3              0                                                        copy (A) to N
          76524    105     770     14   1  0              0        770                         TEST BLOCK END WORD subtract (N) from (A)
          76525    127     765     31   0  0              0        765     >YES                                    jump A = Z
          76526    125              2   0  3              0                                    TEST END OF TRANSIT step on and test
          76527    124     765     40   1  0              0        765     >NO                 AREA                unconditional jump
          76528    106     770     14   1  0              0        770     B/E WORD                                select (N)
          76529    124     772      3   1  2              0        772                                             modify address of next
          76530    102              4   1  3              0                                                        transfer (A) to N
    76525>76531    101             64   1  2              0                                                        subtract literal address
          76532    105     772      3   0  0              0        772                                             subtract (N) from (A)
          76533    118           4118   1  0              0                SET (B)=PSEUDO RTE                      shift logical
          76534    101              8   1  1              0                                                        add literal address
          76535    126     768      2   0  0              0        768     >I/P-O/P FOR TRIAL DATA                 enter subroutine
          76536    106     774     13   1  0              0        774     RESET (MR3) AT TRANSIT                  select (N)
          76537    118              5   0  0              0                AREA LENGTH                             shift logical
          76538    102     773      2   1  0              0        773                                             transfer (A) to N
          76539    126     773      2   1  3              0        773                                             set modification register
    76527>76540    125              4   0  2              0                                    TEST END OF INPUT   step on and test
          76541    124     765     10   1  0              0        765     >NO                 AREA                unconditional jump
          76542    124     765      6   1  0              0        765     >YES                                    unconditional jump
    76514>76543    101             33   1  3              0                                    REWIND FILE         select literal address
          76544    126     768      2   0  0              0        768     >I/P-O/P FOR TRIAL DATA                 enter subroutine
          76545    125              0   1  2              0                                                        interrogate indicators
          76546    124     772      2   0  3              0        772     ROUTE                                   modify address of next
          76547    102              0   0  0              0                -16                                     transfer (A) to N
          76548    124     758      2   1  0              0        758     >                                       unconditional jump
                                                                                                                   
          76600    PROCR   766       766     1023 FORM UP CHAPTER START & END S/R                                  
          76602    81      766      2   0  0              0        766                                             START OF SUBROUTINE
  Source image: P1000717.JPG
          76603    3       767      2   0  0              0        767     2X CHAP                                 COPY
          76604    1       755      3   0  0              0        755     SPECIAL CHAP START                      ADD
          76605    5       772      2   0  0              0        772                                             TRANSFER
          76606    124     770      8   0  3              0        770                                             modify address of next
          76607    106             43   0  0              0                (3)                                     select (N)
          76608    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          76609    2       767      2   0  0              0        767                                             SUBTRACT
          76610    70      766     13   0  0              0        766     >THIS CHAP CONTAINS PTS                 JUMP IF A == 0
          76611    10               0   0  0              0                                                        SELECT LITERAL
          76612    76      766     15   0  0              0        766                                             JUMP unconditional
    76610>76613    101           1500   1  2              0                (REDUCE CHAP END VALUE)                 subtract literal address
          76614    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    76612>76615    124     772      2   0  3              0        772                                             modify address of next
          76616    104             18   1  0              0                                                        add (N) to (A)
          76617    82      766      2   0  0              0        766                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          76700    PROCR   767       767     1024 FORM UP -(64+R)FROM RTE PARAMETER                                
          76702    100              0   0  0              0                                                        Halt
          76703    124     755      3   0  3              0        755                                             modify address of next
          76704    104             20   0  0              0                START OF 1ST CHAP (2XRTE PARAM IN A)    add (N) to (A)
          76705    102     772      2   0  0              0        772     W/L                                     transfer (A) to N
          76706    124     772      2   0  3              0        772                                             modify address of next
          76707    105              0   0  0              0                P                                       subtract (N) from (A)
          76708    101             64   1  2              0                                                        subtract literal address
          76709    126     767      2   0  1              0        767     >                                       leave subroutine
                                                                                                                   
          76800    PROCR   768       768     1025 I/P O/P FOR TRIAL DATA S/R                                       
          76802    100              0   0  0              0                                                        Halt
          76803    118              5   0  0              0                                                        shift logical
          76804    104     772      2   0  0              0        772                                             add (N) to (A)
          76805    125           4096   1  1              0                SET NON INT                             clear indicators
          76806    124     770      8   0  3              0        770                                             modify address of next
          76807    123            160   0  2              0                >ENTER M/R                              enter master routine
          76808    126     768      2   0  1              0        768                                             leave subroutine
                                                                                                                   
          76900    PROCR   769       769     1026 INSTRUCTION CONSTANTS FOR PASS 1                                 
          76902    125              0   1  0              0                                                        set indicators
          76903    126              0   0  0              0                                                        enter subroutine
          76904    114     742      2   0  0              0        742                                             replace selected bits
          76905    114     743      2   0  0              0        743                                             replace selected bits
                                                                                                                   
          77000    CONST   770       770     1    1027 CONSTANTS FOR PASS 1                                        
          77002          (A)CHAPT;                                                                                 
          77004          (A)FILES;                                                                                 
          77006          (A)FIEND;                                                                                 
          77008          (D)0001000000;                                    16:00                                   
          77010          0001200000;                                       18:00                                   
          77012          0003000000;                                       48:0                                    
          77014          7.0000007.;                                       B/E/WORD                                
          77016          000‼400000;                                       180:0                                   
          77018          0000500000;                                       MR CONST                                
                                                                                                                   
          77100    CONST   771       771     0    1028 CONSTANTS FOR PASS 1                                        
          77102          (D)0007‼-;                                        -123(P.RTE FOR RTE 0)                   
          77103          0003‼;                                            59 PRTE FOR RTE 0                       
          77104          01£££;                                            BITS 1-13                               
          77105          00000;                                            RUN NO                                  
          77106          00001;                                                                                    
          77107          £;                                                Q1                                      
                                                                                                                   
  Source image: P1000718.JPG
          77200    CONST   772       772     0    W/L'S FOR PASS 1 1029                                            
          77202          (D)0;                                             GENERAL W/L                             
          77203          0;                                                GENERAL W/L                             
          77204          ;                                                 TRIALS IND                              
          77205          0;                                                PM TYPE W/L                             
                                                                                                                   
          77300    CONST   773       773     1    1030 LONG W/L'S FOR PASS 1                                       
          77302          (D)0;                                             W/L                                     
                                                                                                                   
          77400    CONST   774       774     1    1031 UNPACKED I/P FOR PASS 1                                     
          77402          (D)0;                                                                                     
          77404          0;                                                                                        
          77406          0;                                                                                        
          77408          0;                                                                                        
          77410          0;                                                                                        
          77412          0;                                                                                        
          77414          0;                                                                                        
          77416          0;                                                                                        
          77418          0;                                                                                        
          77420          0;                                                                                        
          77422          0;                                                                                        
                                                                                                                   
          77500    CONST   775       775     1    1032 BULK CLEAR AND COPY CONSTS                                  
          77502          (D)200‼400000;                                    BULK CLEAR 180                          
          77504          0002+00007;                                       BULK CLEAR 44 FROM7                     
          77506          0000.00006;                                       BULK CLEAR 14 FROM6                     
                                                                                                                   
          77600    PROCR   776       776     START OF PASS 5                                                       
    77610>                                                                                                         
    77612>                                                                                                         
    77614>                                                                                                         
    88214>77602    152     152      4   0  0              0        152     CALL REST OF PTS                        OVERLAY
          77603    C       918      2   0  0              0        918                                             
          77604    0       27      13   0  0              0                                                        SELECT
          77605    71      777     18   0  0              0        777     >'TRAMDING'ONLY                         JUMP IF A != 0
          77606    76      777      2   0  0              0        777                                             JUMP unconditional
          77607    152     152      4   0  0              0        152                                             OVERLAY
          77608    C       994      2   0  0              0        994                                             
          77609    85      511      2   0  0              0        511                                             SWITCH R
          77610    C       776      2   0  0              0        776                                             
          77611    85      514      2   0  0              0        514                                             SWITCH R
          77612    C       776      2   0  0              0        776                                             
          77613    85      153      2   0  0              0        153                                             SWITCH R
          77614    C       776      2   0  0              0        776                                             
          77615    43      A1       0   0  0              0                SET UP SEC 5                            OUTPUT
          77616    C       5        0   0  0              0                                                        
                                                                                                                   
          77700    PROCR   777       777     PREPARE FOR 08005                                                     
    77705>                                                                                                         
    77606>77702    80      779      2   0  0              0        779     >READ A6                                ENTER SUBROUTINE
          77703            9        4   1  0              0                                                        SELECT
          77704    2       908     12   1  0              0        908     INDEX'                                  SUBTRACT
          77705    71      777      2   0  0              0        777                                             JUMP IF A != 0
          77706    84      352      2   0  0              0        352     CLEAR SWITCH                            SET SWITCH(ES) AT VARIABLE VALUE
          77707    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          77708    C                0   0  0           1010                                                        
    77717>77709    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          77710    C                0   0  0             48                                                        
          77711    80      779      2   0  0              0        779     >READ A6                                ENTER SUBROUTINE
    77716>77712            9        4   2  2              0                                                        SELECT
  Source image: P1000719.JPG
          77713    5       18      10-  0  1              0                                                        TRANSFER
          77714    94      777     16   0  1              1        777                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          77715    76      777     18   0  0              0        777     >END                                    JUMP unconditional
    77714>77716    94      777     12   0  2              2        777                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          77717    76      777      9   0  0              0        777                                             JUMP unconditional
    77715>                                                                                                         
    77605>77718    54      869      5   0  0              3        869     CLEAR CTRS                              BULK CLEAR
          77719            27       3   0  0              0                                                        SELECT
          77720    70      778      2   0  0              0        778     >NO B/FWD TRIAL DATA                    JUMP IF A == 0
          77721    48      A1       0   0  0              1                                                        STEP BACK
          77722    C                0   0  0              1                                                        
          77723    0       27      11   0  0              0                                                        SELECT
          77724    71      778      4   0  0              0        778     PT=TRAMD                                JUMP IF A != 0
          77725    10               0   0  0     5565540000                END  '                                  SELECT LITERAL
          77726    5       9        0   1  0              0                NO PT TRAMD,SET END                     TRANSFER
          77727    76      781      2   0  0              0        781                                             JUMP unconditional
                                                                                                                   
          77800    PROCR   778       778     ALIGN A1,CHECK FIRST P/T BLOCK                                        
          77801     NOTES          RADIX     B                                                                     SELECT
    77720>77802    0       27      11   0  0              0                                                        SELECT
          77803    70      882      2   0  0              0        882     >NO PT TRAMD OR MT TRIAL DATA           JUMP IF A == 0
    77807>                                                                                                         
    77724>77804    80      811      2   0  0              0        811     >READ P/T                               ENTER SUBROUTINE
          77805    0       9        0   1  0              0                                                        SELECT
          77806    2       870      2   1  0              0        870     TRAMD'                                  SUBTRACT
          77807    71      778      4   0  0              0        778     >NOT YET                                JUMP IF A != 0
          77808    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          77809    80      892      2   0  0              0        892     >3 BLANK LINES                          ENTER SUBROUTINE
          77810    80      892      2   0  0              0        892                                             ENTER SUBROUTINE
          77811    80      892      2   0  0              0        892                                             ENTER SUBROUTINE
          77812    76      781      2   0  0              0        781                                             JUMP unconditional
                                                                                                                   
          77900    PROCR   779       779     READ A6->9                                                            
          77902    81      779      2   0  0              0        779                                             START OF SUBROUTINE
          77903    42      A6       0   0  0              0                                                        INPUT
          77904    C       9        0   0  0              0                                                        
          77905    82      779      2   0  0              0        779                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          78000    PROCR   780       780     ADJUST INTERCODE ADDRESSES FOR DUMP POINTS                            
          78002    81      780      2   0  0              0        780     (A)=5-DIGIT SERIAL                      START OF SUBROUTINE
          78003    3       875      4   0  0              0        875     WL                                      COPY
          78004    12               0   0  0          10000                                                        SUBTRACT LITERAL
          78005    73      780     77   0  0              0        780     >REPORT REF<100                         JUMP IF A < 0
          78006    12               0   0  0          89899                                                        SUBTRACT LITERAL
          78007    72      780     77   0  0              0        780     >REPORT REF>998                         JUMP IF A >= 0
          78008    0       27      13   0  0              0                0                                       SELECT
          78009    70      780     12   0  0              0        780     >NOT TRAMDING ONLY                      JUMP IF A == 0
          78010    0       875      4   0  0              0        875                                             SELECT
          78011    82      780      2   0  0              0        780                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    78009>78012    0       875      4   0  0              0        875                                             SELECT
          78013    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          78014    5       875      4   0  0              0        875     REF                                     TRANSFER
          78015    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          78016    5       875      5   0  0              0        875     ITEM                                    TRANSFER
          78017            875      4   0  0              0        875     PROCR               REPLACE PROCR       SELECT
          78018    80      821      2   0  0              0        821     >BIN                                    ENTER SUBROUTINE
          78019    33               0   0  0              1-               HALVE                                   SHIFT (AB) BY BITS
          78020    5       875      2   1  0              0        875                                             TRANSFER
          78021    91      875      2   0  3              0        875                                             SET MODIFICATION REGISTER AT VARIABLE
          78022    74      780     26   0  0              0        780     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
  Source image: P1000720.JPG
          78023            18      60-  0  3              0                (STARTS 18/10-)                         SELECT
          78024    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          78025    76      780     28   0  0              0        780                                             JUMP unconditional
    78022>78026    34      868      6   0  0              0        868     BITS 1-10                               SET (N) IN B
          78027    36      18      60-  0  3              0                                                        COLLATE AND ADD
    78025>78028    80      822      2   0  0              0        822     >DEC                                    ENTER SUBROUTINE
          78029    60               0   0  0              0                                                        SET DECIMAL RADIX
          78030    70      780     66   0  0              0        780     >TRY UNIQUE REFS                        JUMP IF A == 0
          78031    5       875      4   0  0              0        875     NEW PROCR           ADJUST RESULT       TRANSFER
          78032    5       875      2   0  0              0        875     CLEAR WL                                TRANSFER
          78033    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          78034    C                0   0  0            460                                                        
    78047>78035            18     440   0  3              0                                                        SELECT
          78036    32               0   0  0              2-               PROCR                                   SHIFT (AB) BY QUARTETS
          78037    70      780     48   0  0              0        780     >END                                    JUMP IF A == 0
          78038    2       875      4   0  0              0        875     NEW PROCR                               SUBTRACT
          78039    73      780     47   0  0              0        780     >SEARCH                                 JUMP IF A < 0
          78040    71      780     48   0  0              0        780     >END(GREATER)                           JUMP IF A != 0
          78041    32               0   0  0              2                ITEM IN PROCR                           SHIFT (AB) BY QUARTETS
          78042    2       875      5   0  0              0        875     OLD ITEM                                SUBTRACT
          78043    70      780     45   0  0              0        780                                             JUMP IF A == 0
          78044    72      780     59   0  0              0        780     >NEXT ADJUST POINT IS LATER             JUMP IF A >= 0
    78043>78045            18     441   0  3              0                                                        SELECT
          78046    4       875      2   0  0              0        875     AUG TOTAL ADJUSTMENT                    AUGMENT
    78039>78047    94      780     35   0  3              2        780                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    78061>                                                                                                         
    78040>                                                                                                         
    78037>78048            875      2   0  0              0        875     TOTAL ADJUSTMENT                        SELECT
          78049    1       875      5   0  0              0        875     OLD ITEM                                ADD
          78050    3       875      5   0  0              0        875                                             COPY
          78051    12               0   0  0            100                                                        SUBTRACT LITERAL
          78052    72      780     64   0  0              0        780     >ITEM TOO LARGE                         JUMP IF A >= 0
          78053    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          78054            875      4   0  0              0        875     NEW REF                                 SELECT
          78055    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          78056    1       875      5   0  0              0        875     NEW ITEM                                ADD
          78057    82      780      2   0  0              0        780                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          78058    76      780     81   0  0              0        780     >EXIT                                   JUMP unconditional
    78044>78059    1       18     441   0  3              0                                                        ADD
          78060    70      780     62   0  0              0        780     >ADDRESS DELETED                        JUMP IF A == 0
          78061    72      780     48   0  0              0        780     >NEXT IS DELETION                       JUMP IF A >= 0
    78060>78062    10               0   0  0     5:5:5:5:7£                ????DELTA'                              SELECT LITERAL
          78063    76      805      3   0  0              0        805                                             JUMP unconditional
    78052>78064    10               0   0  0     5:5:5:5:59                ????I'                                  SELECT LITERAL
          78065    76      805      3   0  0              0        805                                             JUMP unconditional
    78030>78066            875      4   0  0              0        875     REF                 UNIQUE REFS         SELECT
          78067    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          78068    1       875      5   0  0              0        875     ITEM                                    ADD
          78069    5       875      2   0  0              0        875                                             TRANSFER
          78070    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          78071    C                0   0  0            100                                                        
    78076>78072            18     900   0  3              0                                                        SELECT
          78073    70      780     77   0  0              0        780     >END,REPORT                             JUMP IF A == 0
          78074    2       875      2   0  0              0        875                                             SUBTRACT
          78075    70      780     80   0  0              0        780     >MATCH                                  JUMP IF A == 0
          78076    94      780     72   0  3              2        780                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    78073>                                                                                                         
    78007>                                                                                                         
    78005>78077    10               0   0  0     5:5:5:5:69                ????R'                                  SELECT LITERAL
          78078    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000721.JPG
          78079    76      805      3   0  0              0        805                                             JUMP unconditional
    78075>78080            18     901   0  3              0                                                        SELECT
    78058>78081    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          78082    82      780      2   0  0              0        780                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          78100    PROCR   781       781     STORE TRANSLATOR'S INFORMATION                                        
          78101     NOTES          RADIX     B    COPY TAPE TO TRIALS INFORMATION                                  SELECT
    77812>                                                                                                         
    77727>78102    0       92      29   0  0              0                INITIAL CHAPS                           SELECT
          78103    5       869      3   0  0              0        869                                             TRANSFER
          78104    52      5        2   0  0              0                EDIT PRINTER HEADING                    EDIT
          78105    C       875      2   0  0              0        875                                             
          78106    00      872      6   1  0              0        872                                             SELECT
          78107    80      817      2   0  0              0        817     PRINT                                   ENTER SUBROUTINE
          78108    83      826      4   0  0              1        826                                             SET SWITCH(ES) AT LITERAL VALUE
          78109    83      129      2   0  0              2        129                                             SET SWITCH(ES) AT LITERAL VALUE
          78110    00      27       3   0  0              0                                                        SELECT
          78111    71      781     15   0  0              0        781     >NO                                     JUMP IF A != 0
          78112    00      870      8   1  0              0        870     PUT PREND IN ANNEXE                     SELECT
          78113    05      7        4   1  0              0                                                        TRANSFER
          78114    76      782      2   0  0              0        782                                             JUMP unconditional
    78111>78115    80      810      2   0  0              0        810     >READ A1                                ENTER SUBROUTINE
          78116    00      7        4   1  0              0                                                        SELECT
          78117    02      870      6   1  0              0        870                                             SUBTRACT
          78118    70      783      2   0  0              0        783     >YES                                    JUMP IF A == 0
          78119    80      841      2   0  0              0        841     >PRINT DUMPS HEADING                    ENTER SUBROUTINE
          78120    76      789      2   0  0              0        789                                             JUMP unconditional
                                                                                                                   
          78200    PROCR   782       782     INITIAL SUBMISSION OF DUMPS POINTS                                    
          78201     NOTES          RADIX     B    AND TRIAL DATA                                                   SELECT
    78214>                                                                                                         
    78114>78202    80      811      2   0  0              0        811     >READ B1                                ENTER SUBROUTINE
          78203    00      9        0   1  0              0                                                        SELECT
          78204    02      870     12   1  0              0        870                                             SUBTRACT
          78205    70      783     11   0  0              0        783     >YES                                    JUMP IF A == 0
          78206    01      870     12   1  0              0        870                                             ADD
          78207    02      870     10   1  0              0        870                                             SUBTRACT
          78208    70      782     15   0  0              0        782                                             JUMP IF A == 0
          78209    01      870     10   1  0              0        870                                             ADD
          78210    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          78211    12               0   0  0         556554                                                        SUBTRACT LITERAL
          78212    70      804      3   0  0              0        804     >YES                                    JUMP IF A == 0
          78213    80      820      2   0  0              0        820     >PRINT ERROR LINE                       ENTER SUBROUTINE
          78214    76      782      2   0  0              0        782     >                                       JUMP unconditional
    82618>                                                                                                         
    78208>78215    80      814      2   0  0              0        814     >UNPACK'FILES'                          ENTER SUBROUTINE
          78216    80      849      2   0  0              0        849                                             ENTER SUBROUTINE
          78217    80      848      2   0  0              0        848     >PROCESS/PRINT HEADING                  ENTER SUBROUTINE
    78222>78218    80      838      2   0  0              0        838     >SET PRINT MR+CTRS                      ENTER SUBROUTINE
          78219    10               0   0  0              1-                                                       SELECT LITERAL
          78220    5       833     12   0  0              0        833     SET IND                                 TRANSFER
          78221    80      784      2   0  0              0        784     >APPLY PT                               ENTER SUBROUTINE
          78222    71      782     18   0  0              0        782     >NOT NEW DATA TYPE                      JUMP IF A != 0
          78223    76      803     37   0  0              0        803     >TEST                                   JUMP unconditional
                                                                                                                   
          78300    PROCR   783       783     PROCESS P.M. POINTS                                                   
          78301     NOTES          RADIX     B                                                                     SELECT
    78118>78302    0       27      11   0  0              0                                                        SELECT
          78303    71      783      7   0  0              0        783     >PT=TRAMD                               JUMP IF A != 0
          78304    10               0   0  0     5565540000                SET PT='END  '                          SELECT LITERAL
  Source image: P1000722.JPG
          78305    5       9        0   1  0              0                                                        TRANSFER
          78306    76      803     37   0  0              0        803     >DEAL WITH MT TRIAL DATA                JUMP unconditional
    78303>78307    80      811      2   0  0              0        811                                             ENTER SUBROUTINE
          78308    0       9        0   1  0              0                                    TEST DUMPS BLOC     SELECT
          78309    2       870     12   1  0              0        870                         OF P/T              SUBTRACT
          78310    71      803     37   0  0              0        803     >NO                                     JUMP IF A != 0
    78205>78311    80      841      2   0  0              0        841     >PREPARE FOR DUMPS POINTS S/R           ENTER SUBROUTINE
    78316>78312    80      813      2   0  0              0        813     UNPACK P/T                              ENTER SUBROUTINE
          78313    80      842      2   0  0              0        842     PROCESS DUMPS POINT                     ENTER SUBROUTINE
          78314    80      811      2   0  0              0        811     >READ P/T                               ENTER SUBROUTINE
          78315    80      826      2   0  0              0        826     >TEST P/T S/R                           ENTER SUBROUTINE
          78316    76      783     12   0  0              0        783     >                                       JUMP unconditional
                                                                                                                   
          78400    PROCR   784       784     SR TO OUTPUT CURRENT BLOCK OF PT                                      
          78401     NOTES          RADIX     B                                                                     SELECT
          78402    81      784      2   0  0              0        784                                             START OF SUBROUTINE
    78703>78403    80      811      2   0  0              0        811     READ P/T                                ENTER SUBROUTINE
          78404    80      791      2   0  0              0        791     >TEST END OF DATA TYPE                  ENTER SUBROUTINE
          78405    71      823      2   0  0              0        823     >UNPACK PT                              JUMP IF A != 0
          78406            833     12   0  0              0        833                                             SELECT
          78407    70      787     19   0  0              0        787     >YES(EXIT WITH A ZERO)                  JUMP IF A == 0
          78408    86      786      2   0  0              0        786     BEW FOUND?                              SELECT SWITCH R
          78409    12               0   0  0              2                                                        SUBTRACT LITERAL
          78410    71      787     17   0  0              0        787     >YES                EXIT WITH ZERO      JUMP IF A != 0
          78411    83      352      2   0  0              1        352     SET NO                                  SET SWITCH(ES) AT LITERAL VALUE
          78412            872      4   1  0              0        872                                             SELECT
          78413    76      786     17   0  0              0        786     O/P IT                                  JUMP unconditional
    82553>78414    85      785      2   0  0              0        785                         TEST BLOCK AND      SWITCH R
          78415    C       785      2   0  0              0        785     >NO                 ITEM LENBTHS TO     
          78416    C       784     17   0  0              0        784     >YES                BE CHECKED          
    78416>78417    85      781      2   0  0              0        781                         TEST BEGINNING      SWITCH R
          78418    C       785      2   0  0              0        785     >NO                 OF TD BLOCK         
          78419    C       784     20   0  0              0        784     >YES                                    
    78419>78420    10               0   0  0              6                SET ITEM LGTH POSN                      SELECT LITERAL
          78421    3       32     165   0  0              0                AT 6                                    COPY
          78422    1       32      96   2  0              0                                                        ADD
          78423    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          78424    5       32     166   0  0              0                                                        TRANSFER
                                                                                                                   
          78500    PROCR   785       785     DEAL WITH BLANK LINES                                                 
          78501     NOTES          RADIX     B                                                                     SELECT
    78418>                                                                                                         
    78415>78502    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          78503    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          78504    36      32      92   2  0              0                Q1&2 OF PT LINE SERIAL                  COLLATE AND ADD
          78505    5       32      92   2  0              0                                                        TRANSFER
    78518>78506            32     139   0  0              0                LINE CTR                                SELECT
          78507    2       32      92   2  0              0                PT LINE SERIAL                          SUBTRACT
          78508    72      786      2   0  0              0        786     >NO                                     JUMP IF A >= 0
          78509    80      839      2   0  0              0        839     >STEP WORD NOS BY      14  S/R          ENTER SUBROUTINE
          78510    90               0   0 12              0                SET 7 ZERO WORDS                        SET MODIFICATION REGISTER AT LITERAL
          78511    C                0   0  0              7                                                        
    78513>78512    80      851      2   0  0              0        851     >STEP(MR1)S/R                           ENTER SUBROUTINE
          78513    94      785     12   0 12              1        785                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          78514    10               0   0  0              1                STEP LINE SERIAL CTR                    SELECT LITERAL
          78515    60               0   0  0              0                BY 1                                    SET DECIMAL RADIX
          78516    4       32     139   0  0              0                                                        AUGMENT
          78517    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          78518    76      785      6   0  0              0        785     >GENERATE MORE BLANK LINES              JUMP unconditional
                                                                                                                   
  Source image: P1000723.JPG
          78600    PROCR   786       786     PROCESS NEGATIVE WORDS                                                
          78601     NOTES          RADIX     B                                                                     SELECT
    78508>78602    60               0   0  0              0                                                        SET DECIMAL RADIX
          78603    00      32      92   2  0              0                SET LINE CTR=LINE                       SELECT
          78604    11               0   0  0              1                SERIAL+1                                ADD LITERAL
          78605    05      32     139   0  0              0                                                        TRANSFER
          78606    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    78706>                                                                                                         
    78713>78607    0       32      94   1  5              0                NEXT PT WORD                            SELECT
          78608    72      786     17   0  0              0        786     >NO                                     JUMP IF A >= 0
          78609    00      32      94   2  5              0                                                        SELECT
          78610    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          78611    05      32      22   2  2              0                                                        TRANSFER
          78612    10               0   0  0     5300000000                SET C SP SP SP SP                       SELECT LITERAL
          78613    35               0   0  0     1100000000                IN*WORD                                 PREPARE FOR DIGIT COLLATION
          78614    37      32      22   1  2              0                                                        REPLACE SELECTED BITS
          78615    83      787      4   0  0              2        787                                             SET SWITCH(ES) AT LITERAL VALUE
          78616    02      32      94   1  5              0                                                        SUBTRACT
    78608>                                                                                                         
    78413>78617    03      32      36   1  1              0                STORE FOR M/T                           COPY
          78618    3       32       0   1  2              0                                                        COPY
          78619            833     12   0  0              0        833                                             SELECT
          78620    71      786     34   0  0              0        786     >BLOCK AMENDMENT                        JUMP IF A != 0
          78621            32       0   1  2              0                                                        SELECT
          78622    85      781      2   0  0              0        781     FIRST WORD SWITCH                       SWITCH R
          78623    C       786     42   0  0              0        786     >NO                                     
          78624    C       786     25   0  0              0        786     >YES                                    
    78624>78625    5       32       2   1  2              0                PUT 1ST WORD IN WORD 4 POSITION         TRANSFER
          78626    5       32       0   1  2              0                                                        TRANSFER
          78627    10               0   0  0              6                                                        SELECT LITERAL
          78628    3       32     165   0  0              0                SET                                     COPY
          78629    1       32       2   2  2              0                ADD BLOCK LENGTH                        ADD
          78630    80      822      2   0  0              0        822     >DEC                                    ENTER SUBROUTINE
          78631    5       32     166   0  0              0                SET AS NEW BLOCK LENGTH                 TRANSFER
          78632    83      781      2   0  0              1        781     RESET SWITCH                            SET SWITCH(ES) AT LITERAL VALUE
          78633    94      786     42   0  2              2        786     >(UNCONDITIONAL)                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    78620>78634    86      849      2   0  0              0        849                         BLOCK AMEND         SELECT SWITCH R
          78635    12               0   0  0              2                                                        SUBTRACT LITERAL
          78636    71      786     40   0  0              0        786     >NOT FIRST PRINTED LINE OF BLOCK        JUMP IF A != 0
          78637    10               0   0  0          10000                                                        SELECT LITERAL
          78638    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          78639    37      32      14   0  0              0                SET'>>'IND                              REPLACE SELECTED BITS
    78636>78640    80      858      2   0  0              0        858     >PROCESS WORD                           ENTER SUBROUTINE
          78641    76      786     57   0  0              0        786                                             JUMP unconditional
    78633>                                                                                                         
    78623>78642    80      788      2   0  0              0        788     >SET'AMEND'IND,PROCESS WORD             ENTER SUBROUTINE
          78643    86      830      2   0  0              0        830                                             SELECT SWITCH R
          78644    12               0   0  0              2                                                        SUBTRACT LITERAL
          78645    71      786     53   0  0              0        786     >INSERTING,NOT REPLACING WORDS          JUMP IF A != 0
          78646            32     140   1  8              0                WORD BEING REPLACED                     SELECT
          78647    5       875      4   1  0              0        875     WL                                      TRANSFER
          78648    80      861      2   0  0              0        861     STEP (MR8) S/R                          ENTER SUBROUTINE
          78649    80      840      2   0  0              0        840     STEP WORD CTR S/R                       ENTER SUBROUTINE
          78650            875      4   1  0              0        875     WORD JUST REPLACED                      SELECT
          78651    2       872      4   1  0              0        872     BEW                                     SUBTRACT
          78652    70      786     57   0  0              0        786     >OK,BEW REPLACED BEW                    JUMP IF A == 0
    78645>78653    86      786      2   0  0              0        786     BEW FOUND'SWITCH                        SELECT SWITCH R
          78654    12               0   0  0              1                                                        SUBTRACT LITERAL
          78655    70      787      2   0  0              0        787     >BEW NOT OUTPUT                         JUMP IF A == 0
          78656    80      862      2   0  0              0        862     >DRAIN REST OF M/T BLOCK BEING AMENDED  ENTER SUBROUTINE
    78652>                                                                                                         
  Source image: P1000724.JPG
    78641>78657    85      786      4   0  0              0        786                         TEST B/E FOUND      SWITCH R
          78658    C       787      2   0  0              0        787     >NO                                     
          78659    C       787     14   0  0              0        787     >YES                                    
          78660    C       787     15   0  0              0        787     >YES AT END OF LINE                     
                                                                                                                   
          78700    PROCR   787       787     PREPARE FOR NEXT BLOCK                                                
          78701     NOTES          RADIX     B                                                                     SELECT
    78658>                                                                                                         
    78655>78702    94      787      4   0  5              2        787     >NOT END OF THIS PT BLOCK               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          78703    76      784      3   0  0              0        784     >READ MORE PT                           JUMP unconditional
    78702>78704    00      32      94   1  5              0                NEXT PT WORD                            SELECT
          78705    02      872      8   1  0              0        872      'SXBE'=END SIGN                        SUBTRACT
          78706    71      786      7   0  0              0        786     >NO                                     JUMP IF A != 0
          78707            833     12   0  0              0        833                                             SELECT
          78708    73      787     11   0  0              0        787     >INSERTING ENTIRE TD SET                JUMP IF A < 0
          78709    10               0   0  0              1-                                                       SELECT LITERAL
          78710    82      784      2   0  0              0        784     (A)<0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
    78708>78711    10               0   0  0              0                DELETE END SIGN                         SELECT LITERAL
          78712    5       32      94   1  5              0                                                        TRANSFER
          78713    76      786      7   0  0              0        786                                             JUMP unconditional
    78659>78714    80      853      2   0  0              0        853     >END OF TRIAL DATA BLOCK S/R            ENTER SUBROUTINE
    78660>78715    86      352      2   0  0              0        352                                             SELECT SWITCH R
          78716    70      787     20   0  0              0        787     >EXIT WITH 1                            JUMP IF A == 0
    78410>78717    10               0   0  0              0                                                        SELECT LITERAL
          78718    84      352      2   0  0              0        352     CLEAR SWITCH(EXIT WITH 0)               SET SWITCH(ES) AT VARIABLE VALUE
    78407>78719    82      784      2   0  0              0        784                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    78716>78720    10               0   0  0              1                EXIT WITH 1                             SELECT LITERAL
          78721    82      784      2   0  0              0        784                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          78800    PROCR   788       788     PROCESS WORD EXPT AND SET'->'IND                                      
          78802    81      788      2   0  0              0        788                                             START OF SUBROUTINE
          78803    96               0   0  2              0                                                        SELECT MODIFIER
          78804    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          78805    5       858      2   0  0              0        858     WL                                      TRANSFER
          78806    124     858      2   0  1              0        858                                             modify address of next
          78807    2       32      15   0  0              0                                                        SUBTRACT
          78808    124     858      2   0  1              0        858                                             modify address of next
          78809    5       32      15   0  0              0                SET NEGATIVE                            TRANSFER
          78810    80      858      2   0  0              0        858     >PROCESS WORD                           ENTER SUBROUTINE
          78811    82      788      2   0  0              0        788                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          78900    PROCR   789       789     PRINT DUMP POINT IF NOT TO BE AMENDED                                 
          78901     NOTES          RADIX     B                                                                     SELECT
    78910>                                                                                                         
    78923>                                                                                                         
    78120>78902    80      791      2   0  0              0        791     >TEST PT=END                            ENTER SUBROUTINE
          78903    70      789     21   0  0              0        789     >YES,REST OF MT DUMPS                   JUMP IF A == 0
          78904    0       9        0   1  0              0                                                        SELECT
          78905    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          78906    12               0   0  0       54746467                 'DUMP'                                 SUBTRACT LITERAL
          78907    70      789     11   0  0              0        789     >YES                                    JUMP IF A == 0
    78920>                                                                                                         
    79009>78908    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
          78909    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          78910    76      789      2   0  0              0        789                                             JUMP unconditional
    78907>78911    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          78912    12               0   0  0             59                 'I'                                    SUBTRACT LITERAL
          78913    71      789     17   0  0              0        789     >NO                                     JUMP IF A != 0
          78914    10               0   0  0             41                REPLACE 'DUMPI' BY 'DUMP1'              SELECT LITERAL
  Source image: P1000727.JPG
          78915    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          78916    37      9        0   1  0              0                                                        REPLACE SELECTED BITS
    79016>                                                                                                         
    79030>                                                                                                         
    78913>78917    0       9        0   1  0              0                                    TEST AMENDMENT TO THSELECT
          78918    02      7       50   1  0              0                                    DUMPS POINT         SUBTRACT
          78919    70      790      2   0  0              0        790     >YES                                    JUMP IF A == 0
          78920    73      789      8   0  0              0        789     >REPORT PT                              JUMP IF A < 0
    79012>                                                                                                         
    79026>                                                                                                         
    78903>78921    76      854      2   0  0              0        854     >OUTPUT DUMPS POINT EX MT               JUMP unconditional
    79034>                                                                                                         
    79038>                                                                                                         
    79042>                                                                                                         
    79049>                                                                                                         
    85537>78922    80      857      2   0  0              0        857     >READ A1,TEST'CHART/PREND/E'            ENTER SUBROUTINE
          78923    71      789      2   0  0              0        789     >NO,TEST PT                             JUMP IF A != 0
    78928>                                                                                                         
    79024>78924    80      791      2   0  0              0        791     >TEST PT=END                            ENTER SUBROUTINE
          78925    70      803     37   0  0              0        803     >YES                                    JUMP IF A == 0
    79044>78926    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
          78927    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          78928    76      789     24   0  0              0        789     >LOOP TO PT END                         JUMP unconditional
                                                                                                                   
          79000    PROCR   790       790     IMPLEMENT DUMPS POINT AMDTS                                           
          79001     NOTES          RADIX     B                                                                     SELECT
    78919>79002    00      9        2   1  0              0                                    TEST DIRECTIVE      SELECT
          79003    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          79004    12               0   0  0             54                                                        SUBTRACT LITERAL
          79005    70      790     32   0  0              0        790     >DELETE                                 JUMP IF A == 0
          79006    12               0   0  0             15                                                        SUBTRACT LITERAL
          79007    70      790     20   0  0              0        790     >REPLACE                                JUMP IF A == 0
          79008    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          79009    71      789      8   0  0              0        789     >NOT INSERT,REPORT                      JUMP IF A != 0
    79019>79010    80      811      2   0  0              0        811     >READ PT            INSERTION           ENTER SUBROUTINE
          79011    80      791      2   0  0              0        791     >TEST END                               ENTER SUBROUTINE
          79012    70      789     21   0  0              0        789     >YES,FINISH MT                          JUMP IF A == 0
          79013    0       9        0   1  0              0                                                        SELECT
          79014    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          79015    12               0   0  0       54746467                 'DUMP'                                 SUBTRACT LITERAL
          79016    70      789     17   0  0              0        789     >END OF INSERTION                       JUMP IF A == 0
          79017    80      813      2   0  0              0        813     >UNPACK PT                              ENTER SUBROUTINE
          79018    80      842      2   0  0              0        842     >PROCESS PT                             ENTER SUBROUTINE
          79019    76      790     10   0  0              0        790                                             JUMP unconditional
    79031>                                                                                                         
    79007>79020    80      813      2   0  0              0        813     >UNPACK PT          REPLACEMENT         ENTER SUBROUTINE
          79021    80      842      2   0  0              0        842     >PROCESS PT                             ENTER SUBROUTINE
          79022    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          79023    80      857      2   0  0              0        857     >READ MT,TEST END                       ENTER SUBROUTINE
          79024    70      789     24   0  0              0        789     >YES                                    JUMP IF A == 0
          79025    80      791      2   0  0              0        791     >TEST PT=END                            ENTER SUBROUTINE
          79026    70      789     21   0  0              0        789     >YES,FINISH MT                          JUMP IF A == 0
          79027    0       9        0   1  0              0                                                        SELECT
          79028    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          79029    12               0   0  0       54746467                 'DUMP'                                 SUBTRACT LITERAL
          79030    70      789     17   0  0              0        789     >NEW DIRECTIVE                          JUMP IF A == 0
          79031    76      790     20   0  0              0        790     >ASSUME REPLACES NEXT LINE              JUMP unconditional
    79005>79032    80      811      2   0  0              0        811     >READ PT            DELETIONS           ENTER SUBROUTINE
          79033    80      791      2   0  0              0        791     >TEST END                               ENTER SUBROUTINE
          79034    70      789     22   0  0              0        789     >YES DELETION ENDED                     JUMP IF A == 0
  Source image: P1000728.JPG
          79035    0       9        0   1  0              0                                                        SELECT
          79036    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          79037    12               0   0  0       54746467                 'DUMP'                                 SUBTRACT LITERAL
          79038    71      789     22   0  0              0        789     >NO,READ MT,PREPARE TO REPORT PT        JUMP IF A != 0
          79039    0       9        3   0  0              0                                                        SELECT
          79040    70      790     43   0  0              0        790     >OK MULTIPLE DELETION                   JUMP IF A == 0
          79041    2       872      5   0  0              0        872                                             SUBTRACT
          79042    71      789     22   0  0              0        789     >NOT MULTIPLE DELETION                  JUMP IF A != 0
    79047>                                                                                                         
    79040>79043    80      857      2   0  0              0        857     >READ MT,TEST END                       ENTER SUBROUTINE
          79044    70      789     26   0  0              0        789     >YES,PRINT REPORT                       JUMP IF A == 0
          79045    0       7       50   1  0              0                                                        SELECT
          79046    2       9        0   1  0              0                                                        SUBTRACT
          79047    71      790     43   0  0              0        790     >DELETION NOT FINISHED                  JUMP IF A != 0
          79048    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          79049    76      789     22   0  0              0        789                                             JUMP unconditional
                                                                                                                   
          79100    PROCR   791       791     TEST PT=END OF DUMPS DATA                                             
          79102    81      791      2   0  0              0        791                                             START OF SUBROUTINE
          79103    0       9        0   1  0              0                                                        SELECT
          79104    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          79105    12               0   0  0       56596355                 'FILE'                                 SUBTRACT LITERAL
          79106    70      791     10   0  0              0        791     >YES                                    JUMP IF A == 0
          79107    0       9        0   1  0              0                                                        SELECT
          79108    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          79109    12               0   0  0         556554                 'END'                                  SUBTRACT LITERAL
    79106>79110    82      791      2   0  0              0        791                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          79200    PROCR   792       792     'FILER'AND'FILED'DATA TYPES=REPLACEMENT/DELETION OF WHOLESET          
          79201     NOTES          RADIX     B    WHOLE TD SET                                                     SELECT
    79214>                                                                                                         
    82620>79202    00      7        4   1  0              0                                    TEST CHAPT BLOCK    SELECT
          79203    02      870      6   1  0              0        870                                             SUBTRACT
          79204    71      804      2   0  0              0        804     >NO,ERROR                               JUMP IF A != 0
          79205    80      814      2   0  0              0        814     UNPACK                                  ENTER SUBROUTINE
          79206    0       30       2   1  0              0                ROUTE IDENTIFIER                        SELECT
          79207    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          79208    02      7       26   1  0              0                                    TEST RIGHT FILE     SUBTRACT
          79209    70      792     15   0  0              0        792     >YES                                    JUMP IF A == 0
    79222>79210            7       26   1  0              0                                                        SELECT
          79211    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          79212    5       30       2   1  0              0                                                        TRANSFER
          79213    80      856      2   0  0              0        856     >PRINT'FILE UNALTERED'                  ENTER SUBROUTINE
          79214    76      792      2   0  0              0        792     >                                       JUMP unconditional
    79209>79215    0       7       18   2  0              0                                                        SELECT
          79216    30               0   0  0              7                LOSE POSSIBLE ££ IN Q4 AND Q5           SHIFT (A) BY QUARTETS
          79217    30               0   0  0              7-                                                       SHIFT (A) BY QUARTETS
          79218    5       869      8   0  0              0        869                                             TRANSFER
          79219    0       30      10   2  0              0                SET EX PT                               SELECT
          79220    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          79221    2       869      8   0  0              0        869                         TEST RIGHT SET      SUBTRACT
          79222    71      792     10   0  0              0        792     >NO                                     JUMP IF A != 0
    79224>79223    80      857      2   0  0              0        857     >READ,TEST PREND,CHAPT OR E             ENTER SUBROUTINE
          79224    71      792     23   0  0              0        792     >NO                                     JUMP IF A != 0
          79225    76      797     17   0  0              0        797     >                                       JUMP unconditional
                                                                                                                   
          79300    PROCR   793       793     'FILEA'DATA TYPE=FIND FILE BEING AMENDED                              
          79301     NOTES          RADIX     B                                                                     SELECT
    79724>                                                                                                         
    82611>79302    80      829      2   0  0              0        829     >UNPACK PT                              ENTER SUBROUTINE
  Source image: P1000729.JPG
          79303    0       833      2   1  0              0        833     PT FILE                                 SELECT
          79304    2       32     126   1  0              0                MT FILE                                 SUBTRACT
          79305    71      793     16   0  0              0        793     >NOT THIS                               JUMP IF A != 0
          79306    0       833      4   0  0              0        833     PT SET                                  SELECT
          79307    2       32     125   0  0              0                MT SET                                  SUBTRACT
          79308    71      793     16   0  0              0        793     >NO                                     JUMP IF A != 0
          79309    80      799      2   0  0              0        799     >TEST'FIEND'        REPORT IF SO        ENTER SUBROUTINE
          79310    0       833     12   0  0              0        833     NEXT IS BLOCK AMEND?                    SELECT
          79311    71      796      3   0  0              0        796     >YES,FINISH THIS BLOCK                  JUMP IF A != 0
    79738>79312    0       833      6   0  0              0        833     PT BLOCK            (WORD AMEND)        SELECT
          79313    2       32     138   0  0              0                PT BLOCK                                SUBTRACT
          79314    71      796      3   0  0              0        796     >DIFFERENT BLOCK,FINISH THIS ONE        JUMP IF A != 0
          79315    76      798      2   0  0              0        798     >APPLY                                  JUMP unconditional
    79727>                                                                                                         
    79730>                                                                                                         
    79308>                                                                                                         
    79305>79316    80      864      2   0  0              0        864     >WRITE AND PRINT TO FIEND               ENTER SUBROUTINE
    79331>79317    00      7        4   1  0              0                                    TEST CHAPT BLOCK    SELECT
          79318    02      870      6   1  0              0        870                                             SUBTRACT
          79319    71      804      2   0  0              0        804     >NO ERROR                               JUMP IF A != 0
          79320    0       833      2   1  0              0        833     PT FILE                                 SELECT
          79321    2       7       26   1  0              0                MT FILE                                 SUBTRACT
          79322    71      793     27   0  0              0        793     >NO                                     JUMP IF A != 0
          79323    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          79324    36      7       18   2  0              0                MT SET                                  COLLATE AND ADD
          79325    2       833      4   0  0              0        833     PT SET                                  SUBTRACT
          79326    70      795      2   0  0              0        795     >YES                                    JUMP IF A == 0
    79322>79327    0       7       26   1  0              0                ROUTE IDENTIFIER                        SELECT
          79328    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          79329    5       30       2   1  0              0                                                        TRANSFER
          79330    80      856      2   0  0              0        856     >PRINT'FILE UNALTERED'                  ENTER SUBROUTINE
          79331    76      793     17   0  0              0        793     >                                       JUMP unconditional
                                                                                                                   
          79400    PROCR   794       794     PREPARE TO APPLY AMENDMENTS                                           
          79401     NOTES          RADIX     B                                                                     SELECT
          79402    81      794      2   0  0              0        794                                             START OF SUBROUTINE
          79403    00      7       12   2  0              0                RUN NO                                  SELECT
          79404    05      30       4   0  0              0                                                        TRANSFER
          79405    00      7       22   2  0              0                BLOCK SIZE                              SELECT
          79406    05      30       5   0  0              0                                                        TRANSFER
          79407    00      7       20   2  0              0                SECN NO                                 SELECT
          79408    05      30       6   0  0              0                                                        TRANSFER
          79409    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          79410    36      7       18   2  0              0                 'CLEAN'SET NO                          COLLATE AND ADD
          79411    05      30       7   0  0              0                                                        TRANSFER
          79412    00      7       24   2  0              0                IND                                     SELECT
          79413    05      30       8   0  0              0                                                        TRANSFER
          79414    00      7       10   1  0              0                FILE ID                                 SELECT
          79415    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          79416    05      30      10   1  0              0                                                        TRANSFER
          79417    80      849      2   0  0              0        849     >PROCESS TD HEADING                     ENTER SUBROUTINE
          79418    82      794      2   0  0              0        794                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          79500    PROCR   795       795     ALIGN ON FIRST BLOCK TO BE AMENDED                                    
          79501     NOTES          RADIX     B                                                                     SELECT
    79326>79502    00      7       26   1  0              0                                                        SELECT
          79503    03      32     126   1  0              0                STORE FILE ID                           COPY
          79504    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          79505    05      30       2   1  0              0                                                        TRANSFER
          79506    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
  Source image: P1000730.JPG
          79507    36      7       18   2  0              0                CLEAN SET NO                            COLLATE AND ADD
          79508    05      32     125   0  0              0                                                        TRANSFER
          79509            833     12   0  0              0        833                                             SELECT
          79510    70      795     14   0  0              0        795     >WORD AMEND OF THIS BLOCK               JUMP IF A == 0
          79511    0       833      6   0  0              0        833     BLOCK NUMBER                            SELECT
          79512    12               0   0  0              7                                                        SUBTRACT LITERAL
          79513    70      797      2   0  0              0        797     >REPLACING FILE HEADING                 JUMP IF A == 0
    79510>79514    80      794      2   0  0              0        794                                             ENTER SUBROUTINE
          79515    80      848      2   0  0              0        848     >PROCESS AND PRINT HEADING              ENTER SUBROUTINE
          79516    10               0   0  0              8                SET BLOCK CTRS AT 8                     SELECT LITERAL
          79517    05      32     138   0  0              0                                                        TRANSFER
          79518    90               0   0  8             22                SET(MR8)=24:22                          SET MODIFICATION REGISTER AT LITERAL
          79519    C                0   0  0             24                                                        
          79520    80      861      2   0  0              0        861     >READ AND STORE BLOCK                   ENTER SUBROUTINE
    79613>79521    80      838      2   0  0              0        838     >SET SWITCHES AND WORD NOS              ENTER SUBROUTINE
    79739>79522    0       833      6   0  0              0        833     PT BLOCK NO                             SELECT
          79523    2       32     138   0  0              0                MT BLOCK NO                             SUBTRACT
          79524    73      796     24   0  0              0        796     >MISALIGNED                             JUMP IF A < 0
          79525    70      798      2   0  0              0        798     >OPERATE ON THIS BLOCK                  JUMP IF A == 0
          79526    85      785      2   0  0              0        785                         TEST BLOCK AND      SWITCH R
          79527    C       796      2   0  0              0        796     >NO                 ITEM LENGTHS TO BE  
          79528    C       795     29   0  0              0        795     >YES                CHECKED             
    79528>79529    00      32     140   2  0              0                STORE POSN OF B/E WORD                  SELECT
          79530    11               0   0  0              6                                                        ADD LITERAL
          79531    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          79532    05      32     166   0  0              0                                                        TRANSFER
          79533    10               0   0  0              6                SET ITEM LENGTH POSN                    SELECT LITERAL
          79534    05      32     165   0  0              0                =WORD 6                                 TRANSFER
                                                                                                                   
          79600    PROCR   796       796     ALIGN ON REQD BLOCK(2)                                                
          79601     NOTES          RADIX     B                                                                     SELECT
    79604>                                                                                                         
    79527>79602    80      860      2   0  0              0        860     >PROCESS WORD                           ENTER SUBROUTINE
    79314>                                                                                                         
    79311>79603    85      786      4   0  0              0        786                         TEST B/E FOUND      SWITCH R
          79604    C       796      2   0  0              0        796     >NO                                     
          79605    C       796      7   0  0              0        796     >YES                                    
          79606    C       796      8   0  0              0        796     >YES,AT END OF LINE                     
    79605>79607    80      853      2   0  0              0        853     >PRINT REST OF LINE                     ENTER SUBROUTINE
    80329>                                                                                                         
    80335>                                                                                                         
    79606>79608    96               0   0  8              0                                    TEST FIEND          SELECT MODIFIER
          79609    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          79610    92               0   0  3              0                                                        SET MODIFIER AT VARIABLE
          79611    00      7        4   1  3              0                                                        SELECT
          79612    02      870      4   1  0              0        870                                             SUBTRACT
          79613    71      795     21   0  0              0        795     >NO                                     JUMP IF A != 0
          79614    0       833      6   0  0              0        833     PT BLOCK                                SELECT
          79615    2       32     138   0  0              0                PRESENT MT BLOCK                        SUBTRACT
          79616    71      796     24   0  0              0        796     >ERROR                                  JUMP IF A != 0
          79617    0       833     12   0  0              0        833                                             SELECT
          79618    70      796     24   0  0              0        796     >ERROR,WORD AMEND                       JUMP IF A == 0
          79619    86      830      2   0  0              0        830                                             SELECT SWITCH R
          79620    12               0   0  0              3                                                        SUBTRACT LITERAL
          79621    71      796     24   0  0              0        796     >ERROR,NOT INSERTING BLOCK              JUMP IF A != 0
          79622    83      129      2   0  0              1        129     SET INSERTING BEFORE FIEND SWITCH       SET SWITCH(ES) AT LITERAL VALUE
          79623    76      798      2   0  0              0        798                                             JUMP unconditional
    79904>                                                                                                         
    80010>                                                                                                         
    80117>                                                                                                         
    79621>                                                                                                         
    79618>                                                                                                         
    79616>                                                                                                         
  Source image: P1000731.JPG
    79524>79624    80      820      2   0  0              0        820     >REPORT PT                              ENTER SUBROUTINE
          79625    76      803     39   0  0              0        803     >                                       JUMP unconditional
                                                                                                                   
          79700    PROCR   797       797     'FILEA' FOR BLOCK 7-PROCESS FOLLOWING'FILES'BLOCK                     
          79701     NOTES          RADIX     B                                                                     SELECT
    79513>79702    80      811      2   0  0              0        811     >READ B1                                ENTER SUBROUTINE
          79703    80      814      2   0  0              0        814     UNPACK P/T                              ENTER SUBROUTINE
          79704    80      849      2   0  0              0        849                                             ENTER SUBROUTINE
          79705    80      848      2   0  0              0        848     >PROCESS AND PRINT HEADING              ENTER SUBROUTINE
          79706    0       7       26   1  0              0                STORE FILE ID                           SELECT
          79707    5       32     126   1  0              0                                                        TRANSFER
          79708    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          79709    36      7       18   2  0              0                                                        COLLATE AND ADD
          79710    5       32     125   0  0              0                                                        TRANSFER
          79711    10               0   0  0              8                SET BLOCK CTRS AT 8                     SELECT LITERAL
          79712    5       32     138   0  0              0                                                        TRANSFER
          79713    80      838      2   0  0              0        838     >SET UP WORD NOS                        ENTER SUBROUTINE
          79714    90               0   0  8             22                SET (MR8) AT 22:24                      SET MODIFICATION REGISTER AT LITERAL
          79715    C                0   0  0             24                                                        
          79716    80      861      2   0  0              0        861     >READ AND STORE BLOCK                   ENTER SUBROUTINE
    79816>                                                                                                         
    79225>79717    80      811      2   0  0              0        811     >READ B1                                ENTER SUBROUTINE
          79718            9        0   1  0              0                                                        SELECT
          79719    12               0   0  0     5659635551                 'FILEA'                                SUBTRACT LITERAL
          79720    71      803     37   0  0              0        803     >NO                                     JUMP IF A != 0
          79721    80      829      2   0  0              0        829     UNPACK                                  ENTER SUBROUTINE
          79722            833      6   0  0              0        833     BLOCK NO                                SELECT
          79723    2       32     138   0  0              0                                                        SUBTRACT
          79724    71      793      2   0  0              0        793     >NOT THIS                               JUMP IF A != 0
          79725            833      2   1  0              0        833     FILE ID                                 SELECT
          79726    2       32     126   1  0              0                                                        SUBTRACT
          79727    71      793     16   0  0              0        793     >NO                                     JUMP IF A != 0
          79728            833      4   1  0              0        833     SET NO                                  SELECT
          79729    2       32     125   0  0              0                                                        SUBTRACT
          79730    71      793     16   0  0              0        793     >NO                                     JUMP IF A != 0
          79731    85      129      2   0  0              0        129     HAVE WE INSERTED BEFORE FIEND?          SWITCH R
          79732    C       797     34   0  0              0        797     YES                                     
          79733    C       797     36   0  0              0        797     NO                                      
    79732>79734    83      129      2   0  0              2        129     RESET SWITCH                            SET SWITCH(ES) AT LITERAL VALUE
          79735    76      797     37   0  0              0        797                                             JUMP unconditional
    79733>79736    80      799      2   0  0              0        799     TEST FIEND                              ENTER SUBROUTINE
    79735>79737            833     12   0  0              0        833                                             SELECT
          79738    70      793     12   0  0              0        793     >WORD AMDT                              JUMP IF A == 0
          79739    76      795     22   0  0              0        795     >                                       JUMP unconditional
                                                                                                                   
          79800    PROCR   798       798     'FILEA'FOR DELETION/REPLACEMENT/INSERTION OF WHOLE BLOCKS             
          79801     NOTES          RADIX     B                                                                     SELECT
    80331>                                                                                                         
    79623>                                                                                                         
    79525>                                                                                                         
    79315>79802    0       833     12   0  0              0        833     IND                                     SELECT
          79803    70      800      2   0  0              0        800     >WORD AMDT                              JUMP IF A == 0
          79804    85      830      4   0  0              0        830     AMDT TYPE SWITCH                        SWITCH R
          79805    C       798      8   0  0              0        798     >D                                      
          79806    C       798     22   0  0              0        798     >R                                      
          79807    C       798     24   0  0              0        798     >T                                      
    79805>79808    0       833      8   0  0              0        833     LAST BLOCK NO       DELETE BLOCK(S)     SELECT
  Source image: P1000732.JPG
          79809    71      798     12   0  0              0        798     >DELETING SEVERAL                       JUMP IF A != 0
          79810    0       833      6   0  0              0        833     FIRST                                   SELECT
          79811    5       833      8   0  0              0        833     SET AS LAST                             TRANSFER
    79821>                                                                                                         
    79809>79812    80      799      2   0  0              0        799     >TEST'FIEND'                            ENTER SUBROUTINE
          79813    80      862      2   0  0              0        862     >READ TO END OF BLOCK                   ENTER SUBROUTINE
          79814    0       833      6   0  0              0        833     FIRST                                   SELECT
          79815    2       833      8   0  0              0        833     =LAST?                                  SUBTRACT
          79816    70      797     17   0  0              0        797     >YES                                    JUMP IF A == 0
          79817    60               0   0  0              0                                                        SET DECIMAL RADIX
          79818    10               0   0  0              1-               STEP BLOCK W/L 2                        SELECT LITERAL
          79819    4       833      8   0  0              0        833     REDUCE LAST                             AUGMENT
          79820    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          79821    76      798     12   0  0              0        798     >                                       JUMP unconditional
    79806>79822    80      799      2   0  0              0        799     >TEST'FIEND'                            ENTER SUBROUTINE
          79823    80      862      2   0  0              0        862     >READ TO END OF BLOCK                   ENTER SUBROUTINE
    79807>79824    80      838      2   0  0              0        838     >NEW O/P BLOCK PRELIMS                  ENTER SUBROUTINE
    79826>79825    80      784      2   0  0              0        784     >READ/APPLY PT                          ENTER SUBROUTINE
          79826    73      798     25   0  0              0        798     >NOT END OF MT BLOCK                    JUMP IF A < 0
          79827    70      798     38   0  0              0        798     >NEW DT                                 JUMP IF A == 0
          79828    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          79829    80      791      2   0  0              0        791     >TEST NEW DT?                           ENTER SUBROUTINE
          79830    70      798     38   0  0              0        798     >YES                                    JUMP IF A == 0
          79831    86      830      2   0  0              0        830     AMDT TYPE SWITCH                        SELECT SWITCH R
          79832    12               0   0  0              3                                                        SUBTRACT LITERAL
          79833    70      798     36   0  0              0        798     >INSERTION                              JUMP IF A == 0
          79834    80      799      2   0  0              0        799     >TEST'FIEND'        REPLACEMENT         ENTER SUBROUTINE
          79835    80      862      2   0  0              0        862     >READ TO END OF BLOCK BEING REPLACED    ENTER SUBROUTINE
    79833>79836    80      838      2   0  0              0        838     >NEW O/P BLOCK PRELIMS                  ENTER SUBROUTINE
          79837    76      823      2   0  0              0        823     >UNPACK PT AND RETURN VIA S/R 768       JUMP unconditional
    79830>                                                                                                         
    79827>79838    85      786      4   0  0              0        786     DID LAST BLOCK HAVE BEN?                SWITCH R
          79839    C       798     42   0  0              0        798     >NO                                     
          79840    C       803      2   0  0              0        803     >YES                                    
          79841    C       803      2   0  0              0        803     >YES                                    
    79839>79842            872      4   1  0              0        872     BEW                                     SELECT
          79843    3       32      36   1  1              0                FOR MT                                  COPY
          79844    5       32       0   1  2              0                AND PRINTER                             TRANSFER
          79845    80      788      2   0  0              0        788     >SET AMENDIND,PROCESS WORD              ENTER SUBROUTINE
          79846    94      798     48   0  2              0        798     /////               END OF LINE         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          79847    76      803      2   0  0              0        803                                             JUMP unconditional
    79846>79848    80      853      2   0  0              0        853     >END OF BLOCK S/R                       ENTER SUBROUTINE
          79849    76      803      2   0  0              0        803                                             JUMP unconditional
                                                                                                                   
          79900    PROCR   799       799     TEST I/P AT'FIEND'                                                    
          79902    81      799      2   0  0              0        799                                             START OF SUBROUTINE
          79903    80      802      2   0  0              0        802     >                                       ENTER SUBROUTINE
          79904    70      796     24   0  0              0        796     >REPORT                                 JUMP IF A == 0
          79905    82      799      2   0  0              0        799                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          80000    PROCR   800       800     ALIGN ON REQUIRED WORD                                                
          80001     NOTES          RADIX     B                                                                     SELECT
    79803>80002    85      781      2   0  0              0        781     FIRST WORD?                             SWITCH R
          80003    C       800      7   0  0              0        800     >NO                                     
          80004    C       800      5   0  0              0        800     >YES                                    
    80004>80005    10               0   0  0              4                START AT WORD 4                         SELECT LITERAL
          80006    5       32     164   0  0              0                                                        TRANSFER
    80017>                                                                                                         
    80003>80007    0       833      8   0  0              0        833     WORD                                    SELECT
          80008    2       32     164   0  0              0                                    REQD WORD           SUBTRACT
  Source image: P1000733.JPG
          80009    70      801      2   0  0              0        801     >YES                                    JUMP IF A == 0
          80010    73      796     24   0  0              0        796     >YES                TEST ALIGNED AFTER  JUMP IF A < 0
          80011    80      860      2   0  0              0        860     >PROCESS WORD                           ENTER SUBROUTINE
          80012    85      786      4   0  0              0        786                         TEST B/E WORD       SWITCH R
          80013    C       800     16   0  0              0        800     >NO                                     
          80014    C       800     18   0  0              0        800                                             
          80015    C       800     19   0  0              0        800                                             
    80013>80016    80      840      2   0  0              0        840     STEP WORD CTR BY 2                      ENTER SUBROUTINE
          80017    76      800      7   0  0              0        800     >                                       JUMP unconditional
    80014>80018    80      853      2   0  0              0        853     >FINISH PRINTING BLOCK                  ENTER SUBROUTINE
    80015>80019    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
          80020    80      838      2   0  0              0        838     >PREP FOR NEW BLOCK                     ENTER SUBROUTINE
          80021    76      803     39   0  0              0        803     >READ                                   JUMP unconditional
                                                                                                                   
          80100    PROCR   801       801     'FILEA' FOR DELETION/REPLACEMENT/INSERTION OF WORDS WITHIN CURREN     
          80101     NOTES          RADIX     B                                                                     SELECT
    80009>80102    85      830      4   0  0              0        830     AMDT TYPE SWITCH                        SWITCH R
          80103    C       801      6   0  0              0        801     >D                                      
          80104    C       801     28   0  0              0        801     >R                                      
          80105    C       801     28   0  0              0        801     >T                                      
    80103>80106    0       833     10   0  0              0        833     LAST WORD           DELETE WORD(S)      SELECT
          80107    71      801     10   0  0              0        801     >NO                 TO BE DELETED       JUMP IF A != 0
          80108    0       833      8   0  0              0        833     FRST                                    SELECT
          80109    5       833     10   0  0              0        833     SET AS LAST                             TRANSFER
    80107>80110    60               0   0  0              0                                                        SET DECIMAL RADIX
          80111            833     10   0  0              0        833     LAST                                    SELECT
          80112    11               0   0  0              2                                                        ADD LITERAL
          80113    5       833     10   0  0              0        833                                             TRANSFER
          80114    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    80122>80115            32     140   1  8              0                CURRENT MT WORD                         SELECT
          80116    2       872      4   1  0              0        872                                             SUBTRACT
          80117    70      796     24   0  0              0        796     >DELETING BEW, REPORT                   JUMP IF A == 0
          80118    80      861      2   0  0              0        861     >STEP(MR8)S/R                           ENTER SUBROUTINE
          80119    80      840      2   0  0              0        840     STEP WORD CTR BY 2                      ENTER SUBROUTINE
          80120    00      32     164   0  0              0                                    TEST LAST WORD      SELECT
          80121    2       833     10   0  0              0        833     >NO                                     SUBTRACT
          80122    71      801     15   0  0              0        801                                             JUMP IF A != 0
    80127>                                                                                                         
    80131>80123    80      811      2   0  0              0        811     >READ PT                                ENTER SUBROUTINE
          80124    80      791      2   0  0              0        791     >TEST RECOGNISABLE                      ENTER SUBROUTINE
          80125    70      803      8   0  0              0        803     >YES                                    JUMP IF A == 0
          80126    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
          80127    76      801     23   0  0              0        801                                             JUMP unconditional
    80130>                                                                                                         
    80105>                                                                                                         
    80104>80128    80      784      2   0  0              0        784     >READ/APPLY PT                          ENTER SUBROUTINE
          80129    70      803      8   0  0              0        803     >NEW DATA TYPE                          JUMP IF A == 0
          80130    73      801     28   0  0              0        801     >NOT TD BLOCK END                       JUMP IF A < 0
          80131    76      801     23   0  0              0        801     >EXPECT A NEW DATA TYPE                 JUMP unconditional
                                                                                                                   
          80200    PROCR   802       802     TEST FIEND                                                            
          80202    81      802      2   0  0              0        802                                             START OF SUBROUTINE
          80203    96               0   0  8              0                                                        SELECT MODIFIER
          80204    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          80205    92               0   0  3              0                                                        SET MODIFIER AT VARIABLE
          80206            7        4   1  3              0                                                        SELECT
          80207    2       870      4   1  0              0        870                                             SUBTRACT
          80208    82      802      2   0  0              0        802                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          80300    PROCR   803       803     TEST NEXT PT DIRECTIVE FOR SAME FILE/BOCK                             
  Source image: P1000734.JPG
          80301     NOTES          RADIX     B                                                                     SELECT
    79849>                                                                                                         
    79847>                                                                                                         
    79841>                                                                                                         
    79840>80302    85      129      2   0  0              0        129     HAVE WE INSERTED BEFORE FIEND           SWITCH R
          80303    C       803      5   0  0              0        803                                             
          80304    C       803      7   0  0              0        803                                             
    80303>80305    83      129      2   0  0              2        129     RESET SWITCH                            SET SWITCH(ES) AT LITERAL VALUE
          80306    76      803     37   0  0              0        803                                             JUMP unconditional
    80304>80307    80      838      2   0  0              0        838                                             ENTER SUBROUTINE
    80129>                                                                                                         
    80125>80308    0       9        0   1  0              0                                                        SELECT
          80309    12               0   0  0     5659635551                'FILEA'                                 SUBTRACT LITERAL
          80310    70      803     15   0  0              0        803                                             JUMP IF A == 0
          80311    80      802      2   0  0              0        802     TEST FIEND                              ENTER SUBROUTINE
          80312    71      803     36   0  0              0        803     >NO                                     JUMP IF A != 0
          80313    80      864      2   0  0              0        864     WRITE & PRINT TO FIEND                  ENTER SUBROUTINE
          80314    76      803     37   0  0              0        803     >                                       JUMP unconditional
    80310>80315    80      829      2   0  0              0        829     >UNPACK                                 ENTER SUBROUTINE
          80316            833      2   1  0              0        833     PT FILE                                 SELECT
          80317    2       32     126   1  0              0                MT FILE                                 SUBTRACT
          80318    70      803     22   0  0              0        803                                             JUMP IF A == 0
    80324>80319    80      802      2   0  0              0        802     >TEST FIEND                             ENTER SUBROUTINE
          80320    70      803     37   0  0              0        803     >YES                                    JUMP IF A == 0
          80321    76      803     36   0  0              0        803     >NO                                     JUMP unconditional
    80318>80322            833      4   0  0              0        833     PT SET                                  SELECT
          80323    2       32     125   0  0              0                MT SET                                  SUBTRACT
          80324    71      803     19   0  0              0        803                                             JUMP IF A != 0
          80325            833      6   0  0              0        833     PT BLOCK                                SELECT
          80326    2       32     138   0  0              0                MT BLOCK                                SUBTRACT
          80327    71      803     32   0  0              0        803                                             JUMP IF A != 0
          80328            833     12   0  0              0        833                                             SELECT
          80329    71      796      8   0  0              0        796     >BLOCK AMDT                             JUMP IF A != 0
          80330    80      799      2   0  0              0        799     >REPORT IF AT FIEND                     ENTER SUBROUTINE
          80331    76      798      2   0  0              0        798     >WORD AMDT TO SAME BLOCK                JUMP unconditional
    80327>80332    80      799      2   0  0              0        799     >REPORT IF AT FIEND                     ENTER SUBROUTINE
          80333    80      863      2   0  0              0        863     >FINISH BLOCK                           ENTER SUBROUTINE
          80334    80      838      2   0  0              0        838     >RESET SWITCHES                         ENTER SUBROUTINE
          80335    76      796      8   0  0              0        796     >                                       JUMP unconditional
    80321>                                                                                                         
    80312>80336    80      863      2   0  0              0        863     >PROCESS TO END OF BLOCK S/R            ENTER SUBROUTINE
    80320>                                                                                                         
    80314>                                                                                                         
    80306>                                                                                                         
    79720>                                                                                                         
    78925>                                                                                                         
    78310>                                                                                                         
    78306>                                                                                                         
    78223>80337    80      826      2   0  0              0        826     TEST P/T                                ENTER SUBROUTINE
    80341>                                                                                                         
    85827>                                                                                                         
    85915>80338    80      820      2   0  0              0        820     >PRINT ERROR LINE                       ENTER SUBROUTINE
    83021>                                                                                                         
    80021>                                                                                                         
    79625>80339    80      811      2   0  0              0        811     >READ P/T                               ENTER SUBROUTINE
          80340    80      826      2   0  0              0        826     >TEST P/T                               ENTER SUBROUTINE
          80341    76      803     38   0  0              0        803     >PRINT UNTIL RECOGNISED                 JUMP unconditional
                                                                                                                   
          80400    PROCR   804       804     END ROUTINE                                                           
          80401     NOTES          RADIX     B                                                                     SELECT
    79319>                                                                                                         
  Source image: P1000735.JPG
    79204>80402    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
    80410>                                                                                                         
    82622>                                                                                                         
    78212>80403            7        4   1  0              0                                                        SELECT
          80404    02      870      6   1  0              0        870                                             SUBTRACT
          80405    71      882      2   0  0              0        882     >NO, MUST BE PREND OR E                 JUMP IF A != 0
          80406    0       7       26   1  0              0                                                        SELECT
          80407    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          80408    5       30       2   1  0              0                                                        TRANSFER
          80409    80      856      2   0  0              0        856     >PRINT 'FILE UNALTERED LINE             ENTER SUBROUTINE
          80410    76      804      3   0  0              0        804                                             JUMP unconditional
                                                                                                                   
          80500    PROCR   805       805     DUMP TYPE NOT IN RANGE OR TOO MANY POINTS                             
          80501     NOTES          RADIX     B                                                                     SELECT
    84303>                                                                                                         
    84304>                                                                                                         
    84306>80502    0       872     20   1  0              0        872     '?????'                                 SELECT
    78079>                                                                                                         
    78065>                                                                                                         
    78063>80503    5       5       48   1  0              0                                                        TRANSFER
          80504    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          80505    52      5        2   0  0              0                                                        EDIT
          80506    C       877      2   0  0              0        877                                             
          80507    54      5       12   1  0             36                                                        BULK CLEAR
    80519>80508    00      872     18   1  0              0        872     REPLACE DUMPX BY SQUARES                SELECT
          80509    05      5        4   1  0              0                                                        TRANSFER
          80510    80      866      2   0  0              0        866     >ADD ONE TO DISASTROUS CTR              ENTER SUBROUTINE
          80511    94               0   0  4              1-                                                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          80512    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          80513    82      842      2   0  0              0        842     >LEAVE DUMPS POIT S/R                   END OF SUBROUTINE / LEAVE SUBROUTINE
    84204>                                                                                                         
    84214>80514    52      5        2   0  0              0                EDIT DUMP POINT                         EDIT
          80515    C       877      2   0  0              0        877                                             
          80516            872     20   1  0              0        872     '?????'                                 SELECT
          80517    5       5       48   1  0              0                                                        TRANSFER
          80518    54      5       10   1  0             38                                                        BULK CLEAR
          80519    76      805      8   0  0              0        805                                             JUMP unconditional
                                                                                                                   
          80600    PROCR   806       806     N1,N2 OR N3 OUT OF RANGE S/R                                          
          80601     NOTES          RADIX                                                                           SELECT
          80602    81      806      2   0  0              0        806                                             START OF SUBROUTINE
          80603    80      867      2   0  0              0        867     >ADD ONE TO OTHERS CTR                  ENTER SUBROUTINE
          80604    10               0   0  0         414243                                                        SELECT LITERAL
          80605    37      871     40   1  0              0        871     PACK IN NO                              REPLACE SELECTED BITS
          80606    10               0   0  0              0                                                        SELECT LITERAL
          80607    35               0   0  0     1111000000                                                        PREPARE FOR DIGIT COLLATION
          80608    36      871     30   1  0              0        871     PACK IN*N                               COLLATE AND ADD
          80609    37      871     40   1  0              0        871                                             REPLACE SELECTED BITS
          80610    101            255   1  3              0                                                        select literal address
          80611    82      806      2   0  0              0        806     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    84314>80612    35               0   0  0         110000                                                        PREPARE FOR DIGIT COLLATION
          80613    80      806      2   0  0              0        806                                             ENTER SUBROUTINE
          80614    76      843     17   0  0              0        843     >                                       JUMP unconditional
    84321>80615    35               0   0  0           1100                                                        PREPARE FOR DIGIT COLLATION
          80616    80      806      2   0  0              0        806                                             ENTER SUBROUTINE
          80617    76      843     24   0  0              0        843     >                                       JUMP unconditional
    84326>                                                                                                         
    84328>80618    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          80619    80      806      2   0  0              0        806                                             ENTER SUBROUTINE
  Source image: P1000736.JPG
          80620    76      843     31   0  0              0        843                                             JUMP unconditional
                                                                                                                   
          80700    PROCR   807       807     SECOND ERROR WORD S/R                                                 
          80701     NOTES          RADIX     B                                                                     SELECT
          80702    81      807      2   0  0              0        807                                             START OF SUBROUTINE
          80703    35               0   0  0         111100                                                        PREPARE FOR DIGIT COLLATION
          80704    37      871     42   1  0              0        871     PACK IN *C S OR P                       REPLACE SELECTED BITS
          80705    80      867      2   0  0              0        867     >ADD ONE TO 'OTHERS' CTR                ENTER SUBROUTINE
          80706    96               0   0  1              0                                                        SELECT MODIFIER
          80707    71      807     12   0  0              0        807     >NO                                     JUMP IF A != 0
          80708    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          80709    10               0   0  0             41                PACK IN ONE                             SELECT LITERAL
          80710    37      871     42   1  0              0        871                                             REPLACE SELECTED BITS
          80711    10               0   0  0              0                                                        SELECT LITERAL
    80707>80712    82      807      2   0  0              0        807     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          80800    PROCR   808       808     THIRD ERROR WORD S/R                                                  
          80801     NOTES          RADIX     B                                                                     SELECT
          80802    81      808      2   0  0              0        808                                             START OF SUBROUTINE
          80803    35               0   0  0     1100000000                                                        PREPARE FOR DIGIT COLLATION
          80804    12               0   0  0              1                                                        SUBTRACT LITERAL
          80805    70      808     16   0  0              0        808     >2ND CHAP                               JUMP IF A == 0
          80806    12               0   0  0              1                                                        SUBTRACT LITERAL
          80807    70      808     15   0  0              0        808     >3RD CHAP                               JUMP IF A == 0
          80808    12               0   0  0              1                                                        SUBTRACT LITERAL
          80809    70      808     14   0  0              0        808     >4TH CHAP                               JUMP IF A == 0
          80810    12               0   0  0              1                                                        SUBTRACT LITERAL
          80811    70      808     13   0  0              0        808     >5TH CHAP                               JUMP IF A == 0
          80812    32               0   0  0              2-               6TH CHAP                                SHIFT (AB) BY QUARTETS
    80811>80813    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
    80809>80814    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
    80807>80815    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
    80805>80816    10               0   0  0     4243444546                                                        SELECT LITERAL
          80817    37      871     44   1  0              0        871     PACK IN NO                              REPLACE SELECTED BITS
          80818    82      808      2   0  0              0        808     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          80900    PROCR   809       809     IGNORE T D FILE ERROR S/R                                             
          80901     NOTES          RADIX     B                                                                     SELECT
          80902    81      809      2   0  0              0        809                                             START OF SUBROUTINE
          80903    0       871     42   1  0              0        871     ALREADY DONE?                           SELECT
          80904    2       872     20   1  0              0        872     '?????'                                 SUBTRACT
          80905    70      809     12   0  0              0        809     >YES                                    JUMP IF A == 0
          80906            872     20   1  0              0        872     '?????'                                 SELECT
          80907    05      871     42   1  0              0        871                                             TRANSFER
          80908    0       868      2   0  0              0        868     '£££££'                                 SELECT
          80909    35               0   0  0          11000                PACK ££ IN SET NUMBER                   PREPARE FOR DIGIT COLLATION
          80910    37      31      12   2  0              0                AS 'IGNORE' IND                         REPLACE SELECTED BITS
          80911    80      866      2   0  0              0        866     >ADD ONE TO 'DISASTROUS' CTR            ENTER SUBROUTINE
    80905>80912    82      809      2   0  0              0        809                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81000    PROCR   810       810     READ A1 S/R                                                           
          81001     NOTES          RADIX     B                                                                     SELECT
          81002    81      810      2   0  0              0        810                                             START OF SUBROUTINE
          81003    42      A1       0   0  0              0                                                        INPUT
          81004    C       7        0   0  0              0                                                        
          81005    82      810      2   0  0              0        810                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81100    PROCR   811       811     READ B1 S/R                                                           
          81101     NOTES          RADIX     B                                                                     SELECT
          81102    81      811      2   0  0              0        811                                             START OF SUBROUTINE
  Source image: P1000737.JPG
          81103    80      779      2   0  0              0        779     >READ                                   ENTER SUBROUTINE
          81104    34      9       48   2  0              0                                                        SET (N) IN B
          81105    10               0   0  0              0                                                        SELECT LITERAL
          81106    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          81107    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          81108    10               0   0  0              0                                                        SELECT LITERAL
          81109    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          81110    05      869      2   0  0              0        869                                             TRANSFER
          81111    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          81112    10               0   0  0             7.                                                        SELECT LITERAL
          81113    124     869      2   0  1              0        869                                             modify address of next
          81114    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          81115    37      9        0   1  3              0                                                        REPLACE SELECTED BITS
          81116    55      9        4   1  0             44                                                        BULK COPY
          81117    C       9        0   1  0              0                                                        
          81118    82      811      2   0  0              0        811                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81200    PROCR   812       812     RIGHT-ALIGN(A) SR                                                     
          81202    81      812      2   0  0              0        812                                             START OF SUBROUTINE
          81203    32               0   0  0             10-               N->B                                    SHIFT (AB) BY QUARTETS
          81204    5       869     14   1  0              0        869     CLEAR WL                                TRANSFER
    81208>81205    0       869     14   1  0              0        869                                             SELECT
          81206    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          81207    5       869     14   1  0              0        869                                             TRANSFER
          81208    75      812      5   0  0              0        812     >NOT END                                JUMP IF AB != 0
          81209    0       869     14   1  0              0        869                                             SELECT
          81210    82      812      2   0  0              0        812                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81300    PROCR   813       813     UNPACK DUMPS POINT P/T SR                                             
          81301     NOTES          RADIX     B                                                                     SELECT
          81302    81      813      2   0  0              0        813                                             START OF SUBROUTINE
          81303    54      30       0   0  0             18                                                        BULK CLEAR
          81304    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          81305    C       813     10   0  0              0        813     P/T                                     
          81306    C       813      7   0  0              0        813     CARD                                    
    81306>81307    50      9        0   0  0              0                UNPACK CARD                             UNPACK FIXED FIELD DATA
          81308    C       874     10   0  0              0        874                                             
          81309    76      813     13   0  0              0        813                                             JUMP unconditional
    81305>81310    124     873     14   0  2              0        873                                             select literal and division
          81311    124     999     21   1  2              0                SEC 9                                   modify address of next
          81312    128              0   0  3              0                UNPACK                                  unpack variable field data
    81309>81313            92      30   0  0              0                                                        SELECT
          81314    70      813     16   0  0              0        813     >INITIAL TRANSLATION                    JUMP IF A == 0
          81315    82      813      2   0  0              0        813                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    81314>81316    60               0   0  0              0                                                        SET DECIMAL RADIX
          81317    10               0   0  0              2                                                        SELECT LITERAL
          81318    4       30       0   0  0              0                STEP LINE SERIAL                        AUGMENT
          81319            30       1   0  0              0                PM TYPE                                 SELECT
          81320    12               0   0  0              6                                                        SUBTRACT LITERAL
          81321    71      813     31   0  0              0        813     >NOT LOCATION DUMP                      JUMP IF A != 0
          81322    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          81323    C                0   0  0             12                                                        
    81330>81324            30       5   0  3              0                REF                                     SELECT
          81325    70      813     31   0  0              0        813     >END                                    JUMP IF A == 0
          81326    12               0   0  0            100                                                        SUBTRACT LITERAL
          81327    73      813     30   0  0              0        813     >NOT PROCR                              JUMP IF A < 0
          81328    10               0   0  0              2                                                        SELECT LITERAL
          81329    4       30       6   0  3              0                STEP ITEM                               AUGMENT
    81327>81330    94      813     24   0  3              2        813                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    81325>                                                                                                         
  Source image: P1000738.JPG
    81321>81331    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          81332    82      813      2   0  0              0        813                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81400    PROCR   814       814     UNPACK TD HEADING P/T S/R                                             
          81401     NOTES          RADIX     B                                                                     SELECT
          81402    81      814      2   0  0              0        814                                             START OF SUBROUTINE
          81403    54      30       0   0  0             18                                                        BULK CLEAR
          81404    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          81405    C       814     16   0  0              0        814     P/T                                     
          81406    C       814      7   0  0              0        814     CARD                                    
    81406>81407    50      9        0   0  0              0                UNPACK CARD                             UNPACK FIXED FIELD DATA
          81408    C       874     48   0  0              0        874                                             
          81409            30       2   1  0              0                L-ALIGN ALPHA DATA                      SELECT
          81410    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          81411    5       30       2   1  0              0                                                        TRANSFER
          81412            30      10   1  0              0                                                        SELECT
          81413    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          81414    5       30      10   1  0              0                                                        TRANSFER
          81415    82      814      2   0  0              0        814     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    81405>81416    124     873      6   0  2              0        873                                             select literal and division
          81417    124     999     21   1  2              0                SEC 9                                   modify address of next
          81418    128              0   0  3              0                UNPACK                                  unpack variable field data
          81419    82      814      2   0  0              0        814                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81500    PROCR   815       815     WRITE A2 FROM SECTION 1 S/R                                           
          81501     NOTES          RADIX     B                                                                     SELECT
          81502    81      815      2   0  0              0        815                                             START OF SUBROUTINE
          81503    55      7        4   1  0             50                                                        BULK COPY
          81504    C       8        4   1  0              0                                                        
          81505    43      A2       0   0  0              0                                                        OUTPUT
          81506    C       8        0   0  0              0                                                        
          81507    82      815      2   0  0              0        815                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81600    PROCR   816       816     WRITE A2 FROM SECTION 4 S/R                                           
          81601     NOTES          RADIX     B                                                                     SELECT
          81602    81      816      2   0  0              0        816                                             START OF SUBROUTINE
          81603    80      890      2   0  0              0        890                                             ENTER SUBROUTINE
          81604    82      816      2   0  0              0        816                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81700    PROCR   817       817     PRINT S/R                                                             
          81701     NOTES          RADIX     B                                                                     SELECT
          81702    81      817      2   0  0              0        817                                             START OF SUBROUTINE
          81703    05      5        0   1  0              0                SET UP FUNCTION WORD                    TRANSFER
          81704    80      892      2   0  0              0        892                                             ENTER SUBROUTINE
          81705    82      817      2   0  0              0        817                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81800    PROCR   818       818     PRINT BLANK LINE                                                      
          81801     NOTES          RADIX     B                                                                     SELECT
          81802    81      818      2   0  0              0        818                                             START OF SUBROUTINE
          81803            27       9   0  0              0                ON LINE                                 SELECT
          81804    70      818      7   0  0              0        818     >YES                                    JUMP IF A == 0
          81805    54      5        0   1  0             50                BLANK LINE                              BULK CLEAR
          81806    76      818      9   0  0              0        818                                             JUMP unconditional
    81804>81807            872      4   1  0              0        872     BEW                                     SELECT
          81808    5       5        2   1  0              0                                                        TRANSFER
    81806>81809    80      817      2   0  0              0        817                                             ENTER SUBROUTINE
          81810    82      818      2   0  0              0        818                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          81900    PROCR   819       819     CLEAR 1ST 2 WORDS OF ANNEXE                                           
          81901     NOTES          RADIX                                                                           SELECT
  Source image: P1000739.JPG
          81902    81      819      2   0  0              0        819                                             START OF SUBROUTINE
          81903    10               0   0  0              0                                                        SELECT LITERAL
          81904    05      5        2   1  0              0                                                        TRANSFER
          81905    05      5        4   1  0              0                                                        TRANSFER
          81906    82      819      2   0  0              0        819                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          82000    PROCR   820       820     PRINT UNRECOGNISABLE P/T LINE S/R                                     
          82001     NOTES          RADIX     B                                                                     SELECT
          82002    81      820      2   0  0              0        820                                             START OF SUBROUTINE
          82003    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          82004    80      865      2   0  0              0        865     >STEP'PT OMITTED'                       ENTER SUBROUTINE
          82005    00      871     46   1  0              0        871      'P/T?  '                               SELECT
          82006    05      5        2   1  0              0                                                        TRANSFER
          82007            9       48   2  0              0                                                        SELECT
          82008    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          82009    12               0   0  0              4                                                        SUBTRACT LITERAL
          82010    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          82011    10               0   0  0              0                CLEAR                                   SELECT LITERAL
          82012    35               0   0  0             11                (FOR ONE CHAR)                          PREPARE FOR DIGIT COLLATION
          82013    36      9       48   2  0              0                                                        COLLATE AND ADD
          82014    5       821      2   0  0              0        821     WL                                      TRANSFER
          82015    124     821      2   0  1              0        821                                             modify address of next
          82016    32               0   0  0              0                ///// SHIFT PACKING BITS OVER BE CHAR   SHIFT (AB) BY QUARTETS
          82017    37      9        0   1  3              0                CLEAR BE CHAR                           REPLACE SELECTED BITS
          82018    55      9        0   1  0             32                                                        BULK COPY
          82019    C       5        4   1  0              0                                                        
          82020    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          82021    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          82022    82      820      2   0  0              0        820     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          82100    PROCR   821       821     CONVERT TO BINARY S/R                                                 
          82101     NOTES          RADIX     B                                                                     SELECT
          82102    81      821      2   0  0              0        821                                             START OF SUBROUTINE
          82103    5       908     54   1  0              0        908                                             TRANSFER
          82104    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          82105    124     909      2   0  2              0        909                                             select literal and division
          82106    112     908     54   1  0              0        908                                             convert
          82107    82      821      2   0  0              0        821                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          82200    PROCR   822       822     CONVERT TO DECIMAL S/R                                                
          82201     NOTES          RADIX     B                                                                     SELECT
          82202    81      822      2   0  0              0        822                                             START OF SUBROUTINE
          82203    5       908     54   1  0              0        908                                             TRANSFER
          82204    60               0   0  0              0                                                        SET DECIMAL RADIX
          82205    124     909     22   0  2              0        909                                             select literal and division
          82206    112     908     54   1  0              0        908                                             convert
          82207    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          82208    82      822      2   0  0              0        822                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          82300    PROCR   823       823     UNPACK THIS PT/CARD BLOCK CHARACTER-BY-CHARACTER                      
          82301     NOTES          RADIX     B                                                                     SELECT
    79837>                                                                                                         
    78405>82302    91      872      2   0  3              0        872     SET (MR3)=0:0                           SET MODIFICATION REGISTER AT VARIABLE
          82303    90               0   0  4              0                SET (MR4)=14:0                          SET MODIFICATION REGISTER AT LITERAL
          82304    C                0   0  0             14                                                        
          82305    90               0   0  5              0                SET (MRS)=5:0                           SET MODIFICATION REGISTER AT LITERAL
          82306    C                0   0  0              5                                                        
          82307    54      32      60   0  0             64                CLEAR W/L'S                             BULK CLEAR
          82308    55      9        0   0  0             32                                                        BULK COPY
          82309    C       32      60   0  0              0                                                        
  Source image: P1000740.JPG
          82310    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          82311    C       823     13   0  0              0        823     P/T                                     
          82312    C       823     27   0  0              0        823     CARD                                    
    82311>82313    34      32      60   1  3              0                SET(B)AT 1ST WORD                       SET (N) IN B
          82314    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
    82326>82315    12               0   0  0             7:                                                        SUBTRACT LITERAL
          82316    70      824      2   0  0              0        824     >YES                                    JUMP IF A == 0
          82317    12               0   0  0              1                TEST BE                                 SUBTRACT LITERAL
          82318    70      825     47   0  0              0        825     >YES                                    JUMP IF A == 0
          82319    11               0   0  0             7.                                                        ADD LITERAL
          82320    05      32     124   0  0              0                W/L 2                                   TRANSFER
          82321    00      32      92   1  0              0                LINE SERIAL SO FAR                      SELECT
          82322    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          82323    01      32     124   0  0              0                                                        ADD
          82324    05      32      92   1  0              0                                                        TRANSFER
          82325    80      827      2   0  0              0        827     >S/R A                                  ENTER SUBROUTINE
          82326    76      823     15   0  0              0        823     >                                       JUMP unconditional
    82312>82327    00      32      60   1  0              0                STORE LINE SERIAL                       SELECT
          82328    05      32      92   1  0              0                                                        TRANSFER
          82329    05      32     121   0  0              0                CLEAR CARD IND                          TRANSFER
          82330    94      823     31   0  3              2        823                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    82330>82331    34      32      60   1  3              0                SET(B) AT NEXT WORD                     SET (N) IN B
          82332    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          82333    76      824      3   0  0              0        824     >                                       JUMP unconditional
                                                                                                                   
          82400    PROCR   824       824     PSEUDO UNPACK-MAIN LOOP(1)                                            
          82401     NOTES          RADIX          B                                                                SELECT
    82417>                                                                                                         
    82422>                                                                                                         
    82556>                                                                                                         
    82316>82402    80      827      2   0  0              0        827     >S/R A                                  ENTER SUBROUTINE
    82333>82403    12               0   0  0             7:                                                        SUBTRACT LITERAL
          82404    70      824     18   0  0              0        824     >YES                                    JUMP IF A == 0
          82405    12               0   0  0              1                                                        SUBTRACT LITERAL
          82406    70      825     47   0  0              0        825     >YES                                    JUMP IF A == 0
          82407    11               0   0  0             1                                                         ADD LITERAL
          82408    70      825     57   0  0              0        825     >YES                                    JUMP IF A == 0
          82409    11               0   0  0              4                                                        ADD LITERAL
          82410    70      825      2   0  0              0        825     >YES                                    JUMP IF A == 0
          82411    11               0   0  0             5‼                                                        ADD LITERAL
    82534>                                                                                                         
    82536>                                                                                                         
    82538>                                                                                                         
    82540>                                                                                                         
    82542>                                                                                                         
    82544>                                                                                                         
    82546>82412    05      32     124   0  0              0                W/L 2                                   TRANSFER
          82413    00      32     122   1  0              0                W/L 1                                   SELECT
          82414    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          82415    01      32     124   0  0              0                                                        ADD
          82416    05      32     122   1  0              0                                                        TRANSFER
          82417    76      824      2   0  0              0        824     >                                       JUMP unconditional
    82723>                                                                                                         
    82404>82418    80      828      2   0  0              0        828     >S/R B                                  ENTER SUBROUTINE
    82523>82419    05      32      94   1  4              0                STORE WORD IN LIST                      TRANSFER
          82420    05      32     120   0  0              0                CLEAR*C IND                             TRANSFER
          82421    05      32     122   1  0              0                CLEAR W/L 1                             TRANSFER
          82422    94      824      2   0  4              2        824     STEP(MR4)                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          82423    76      825     51   0  0              0        825     >                                       JUMP unconditional
                                                                                                                   
  Source image: P1000741.JPG
          82500    PROCR   825       825                                                                           
          82501     NOTES          RADIX     B                                                                     SELECT
    82410>82502    80      827      2   0  0              0        827     >S/R A                                  ENTER SUBROUTINE
          82503    12               0   0  0             51                                                        SUBTRACT LITERAL
          82504    70      825     45   0  0              0        825     >YES                                    JUMP IF A == 0
          82505    12               0   0  0              1                                                        SUBTRACT LITERAL
          82506    70      825     43   0  0              0        825     >YES                                    JUMP IF A == 0
          82507    12               0   0  0              1                                                        SUBTRACT LITERAL
          82508    70      825     54   0  0              0        825     >YES                                    JUMP IF A == 0
          82509    12               0   0  0              1                                                        SUBTRACT LITERAL
          82510    70      825     41   0  0              0        825     >YES                                    JUMP IF A == 0
          82511    12               0   0  0              7                                                        SUBTRACT LITERAL
          82512    70      825     39   0  0              0        825     >YES                                    JUMP IF A == 0
          82513    12               0   0  0              8                                                        SUBTRACT LITERAL
          82514    70      825     37   0  0              0        825     >YES                                    JUMP IF A == 0
          82515    12               0   0  0              2                                                        SUBTRACT LITERAL
          82516    70      825     35   0  0              0        825     >YES                                    JUMP IF A == 0
          82517    12               0   0  0              :                                                        SUBTRACT LITERAL
          82518    70      825     33   0  0              0        825     >YES                                    JUMP IF A == 0
          82519    12               0   0  0              ‼                                                        SUBTRACT LITERAL
    82532>82520    71      825     24   0  0              0        825     >NO                                     JUMP IF A != 0
          82521    80      867      2   0  0              0        867     >STEP'OTHERS'                           ENTER SUBROUTINE
          82522    00      872     16   1  0              0        872     *****                                   SELECT
          82523    76      824     19   0  0              0        824     >                                       JUMP unconditional
    82520>82524    12               0   0  0              1                                                        SUBTRACT LITERAL
          82525    71      825     29   0  0              0        825     >NO                                     JUMP IF A != 0
          82526    80      867      2   0  0              0        867     >STEP'OTHERS'                           ENTER SUBROUTINE
          82527    00      872     16   1  0              0        872     *****                                   SELECT
          82528    76      825     48   0  0              0        825     >                                       JUMP unconditional
    82525>82529    10               0   0  0              0                                                        SELECT LITERAL
          82530    80      827      2   0  0              0        827     >S/R A                                  ENTER SUBROUTINE
          82531    12               0   0  0             7:                                                        SUBTRACT LITERAL
          82532    76      825     20   0  0              0        825     >                                       JUMP unconditional
    82518>82533    10               0   0  0             5£                SQUARE                                  SELECT LITERAL
          82534    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82516>82535    10               0   0  0             7:                NUMBER END                              SELECT LITERAL
          82536    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82514>82537    10               0   0  0             5.                LINE END                                SELECT LITERAL
          82538    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82512>82539    10               0   0  0             5‼                STAR                                    SELECT LITERAL
          82540    76      824     12   0  0              0        824                                             JUMP unconditional
    82510>82541    10               0   0  0             7£                TRIANGLE                                SELECT LITERAL
          82542    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82506>82543    10               0   0  0             7.                BLOCK END                               SELECT LITERAL
          82544    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82504>82545    10               0   0  0             6£                ALIGNMENT MARK                          SELECT LITERAL
          82546    76      824     12   0  0              0        824     >                                       JUMP unconditional
    82406>                                                                                                         
    82318>82547    80      828      2   0  0              0        828     >S/R B                                  ENTER SUBROUTINE
    82528>82548    05      32      94   1  4              0                STORE WORD IN LIST                      TRANSFER
          82549    00      872      8   1  0              0        872     SET END SIGN IN LIST                    SELECT
          82550    05      32      96   1  4              0                                                        TRANSFER
    82559>                                                                                                         
    82423>82551    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          82552    C                0   0  0             14                                                        
          82553    76      784     14   0  0              0        784     >                                       JUMP unconditional
    82508>82554    10               0   0  0              1                SET*C ID                                SELECT LITERAL
          82555    05      32     120   0  0              0                                                        TRANSFER
          82556    76      824      2   0  0              0        824     >                                       JUMP unconditional
    82408>82557    0       872      8   1  0              0        872     SET END SIGN IN LIST                    SELECT
  Source image: P1000742.JPG
          82558    5       32      94   1  4              0                                                        TRANSFER
          82559    76      825     51   0  0              0        825                                             JUMP unconditional
                                                                                                                   
          82600    PROCR   826       826     TEST P/T S/R                                                          
          82601     NOTES          RADIX     B                                                                     SELECT
          82602    81      826      2   0  0              0        826                                             START OF SUBROUTINE
          82603    00      9        0   1  0              0                                                        SELECT
          82604    2       870     10   1  0              0        870      'FILES''                               SUBTRACT
          82605    70      826     17   0  0              0        826     >INSERTION                              JUMP IF A == 0
          82606    11               0   0  0             1.                                                        ADD LITERAL
          82607    70      826     19   0  0              0        826     >'FILED' (DELETION)                     JUMP IF A == 0
          82608    12               0   0  0             15                                                        SUBTRACT LITERAL
          82609    70      826     19   0  0              0        826     >'FILER' (REPLACEMENT)                  JUMP IF A == 0
          82610    11               0   0  0             18                                                        ADD LITERAL
          82611    70      793      2   0  0              0        793     >'FILEA' (BLOCK/WORD AMENDMENT)         JUMP IF A == 0
          82612            9        0   1  0              0                                                        SELECT
          82613    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          82614    12               0   0  0         556554                 'END'                                  SUBTRACT LITERAL
          82615    70      826     21   0  0              0        826     >YES                                    JUMP IF A == 0
          82616    82      826      2   0  0              0        826     (REPORT)                                END OF SUBROUTINE / LEAVE SUBROUTINE
    82605>82617    80      864      2   0  0              0        864     FILE PREP                               ENTER SUBROUTINE
          82618    76      782     15   0  0              0        782                                             JUMP unconditional
    82609>                                                                                                         
    82607>82619    80      864      2   0  0              0        864     FILE PREP                               ENTER SUBROUTINE
          82620    76      792      2   0  0              0        792                                             JUMP unconditional
    82615>82621    80      864      2   0  0              0        864                                             ENTER SUBROUTINE
          82622    76      804      3   0  0              0        804                                             JUMP unconditional
                                                                                                                   
          82700    PROCR   827       827     PSEUDO UNPACK S/R A                                                   
          82701     NOTES          RADIX     B                                                                     SELECT
          82702    81      827      2   0  0              0        827                                             START OF SUBROUTINE
          82703    94      827     15   0  5              1        827     STEP (MR5)                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          82704    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          82705    C       827     11   0  0              0        827     P/T                                     
          82706    C       827      7   0  0              0        827     CARD                                    
    82706>82707    00      32     121   0  0              0                                                        SELECT
          82708    71      827     17   0  0              0        827     >YES                                    JUMP IF A != 0
          82709    10               0   0  0              1                SET CARD IND                            SELECT LITERAL
          82710    05      32     121   0  0              0                                                        TRANSFER
    82705>82711    90               0   0  5              0                RESET (MR5)                             SET MODIFICATION REGISTER AT LITERAL
          82712    C                0   0  0              5                                                        
          82713    94      827     14   0  3              2        827     STEP (MR3)                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    82713>82714    34      32      60   1  3              0                SET(B)AT NEXT WORD                      SET (N) IN B
    82703>82715    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          82716    82      827      2   0  0              0        827                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    82708>82717    10               0   0  0              0                                                        SELECT LITERAL
          82718    05      32     121   0  0              0                CLEAR CARD IND                          TRANSFER
          82719    90               0   0  5              1-               SET(MR5)AT-1:5                          SET MODIFICATION REGISTER AT LITERAL
          82720    C                0   0  0              5                                                        
          82721    94      827     22   0  3              2        827     STEP(MR3)                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    82721>82722    34      32      60   1  3              0                SET(B)AT NEXT WORD                      SET (N) IN B
          82723    76      824     18   0  0              0        824     >                                       JUMP unconditional
                                                                                                                   
          82800    PROCR   828       828     PSEUDO UNPACK S/R B                                                   
          82801     NOTES          RADIX     B                                                                     SELECT
          82802    81      828      2   0  0              0        828                                             START OF SUBROUTINE
          82803    00      32     120   0  0              0                                                        SELECT
          82804    70      828     13   0  0              0        828     >NO                                     JUMP IF A == 0
          82805    32               0   0  0             10                STORE(B)                                SHIFT (AB) BY QUARTETS
          82806    05      32     128   1  0              0                                                        TRANSFER
  Source image: P1000743.JPG
          82807    00      32     122   2  0              0                                                        SELECT
          82808    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          82809    05      32     122   2  0              0                                                        TRANSFER
          82810    34      32     128   1  0              0                RESTORE(B)                              SET (N) IN B
          82811    02      32     122   1  0              0                                                        SUBTRACT
          82812    76      828     14   0  0              0        828     >                                       JUMP unconditional
    82804>82813    00      32     122   1  0              0                                                        SELECT
    82812>82814    82      828      2   0  0              0        828     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          82900    PROCR   829       829     UNPACK'FILEA'BLOCK                                                    
          82901     NOTES          RADIX     B                                                                     SELECT
          82902    81      829      2   0  0              0        829                                             START OF SUBROUTINE
          82903    54      833      2   1  0             10        833                                             BULK CLEAR
          82904    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          82905    C       829      7   0  0              0        829     >PT                                     
          82906    C       832      2   0  0              0        832     >CARDS                                  
    82905>82907    124     873     18   0  2              0        873                                             select literal and division
          82908    124     999     21   1  2              0                SEC 9                                   modify address of next
          82909    128              0   0  3              0                                                        unpack variable field data
    83204>82910    0       833      2   1  0              0        833     FILE ID                                 SELECT
          82911    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          82912    5       833      2   1  0              0        833                                             TRANSFER
          82913    0       833      6   1  0              0        833                                             SELECT
          82914    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          82915    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          82916    5       869     14   1  0              0        869     WL                                      TRANSFER
          82917    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          82918    12               0   0  0             54                                                        SUBTRACT LITERAL
          82919    70      831      4   0  0              0        831     >'D' DELETE BLOCK(S)                    JUMP IF A == 0
          82920    12               0   0  0             15                                                        SUBTRACT LITERAL
          82921    70      831      3   0  0              0        831     >'R' REPLACE BLOCK                      JUMP IF A == 0
          82922    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          82923    70      831      2   0  0              0        831     >'T' INSERT BLOCK                       JUMP IF A == 0
          82924    0       833      6   1  0              0        833     (ASSUME WORD AMEND                      SELECT
          82925    80      812      2   0  0              0        812     >R-ALIGN BLOCK NUMBER                   ENTER SUBROUTINE
          82926    0       869     14   2  0              0        869                                             SELECT
          82927    73      830     20   0  0              0        830     >REJECT                                 JUMP IF A < 0
          82928    5       833      6   1  0              0        833     DEC BLOCK NUMBER                        TRANSFER
          82929    0       833      8   1  0              0        833     FIRST WORD NUMBER                       SELECT
          82930    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          82931    3       869     14   1  0              0        869     WL                                      COPY
          82932    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          82933    10               0   0  0              0                                                        SELECT LITERAL
          82934    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          82935    12               0   0  0             54                 'D'                                    SUBTRACT LITERAL
          82936    70      830      4   0  0              0        830     >DELETE WORD(S)                         JUMP IF A == 0
          82937    12               0   0  0             15                                                        SUBTRACT LITERAL
          82938    70      830      3   0  0              0        830     >'R' REPLACE WORD(S)                    JUMP IF A == 0
          82939    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          82940    71      830     20   0  0              0        830     >NOT'T'             REJECT              JUMP IF A != 0
                                                                                                                   
          83000    PROCR   830       830     UNPACK P/T TD AMDTS (2)                                               
          83001     NOTES          RADIX     B                                                                     SELECT
          83002    10               0   0  0              1                3=T                                     SELECT LITERAL
    82938>83003    11               0   0  0              1                2=R                                     ADD LITERAL
    82936>83004    11               0   0  0              1                1=D                                     ADD LITERAL
          83005    84      830      2   0  0              0        830     SET WORD AMEND SWITCH                   SET SWITCH(ES) AT VARIABLE VALUE
          83006    0       869     14   1  0              0        869                                             SELECT
          83007    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          83008    5       833      8   1  0              0        833                                             TRANSFER
  Source image: P1000744.JPG
          83009    0       833      8   2  0              0        833                                             SELECT
          83010    73      830     20   0  0              0        830     >REJECT                                 JUMP IF A < 0
          83011    5       833      8   1  0              0        833     NUMERIC FIRST WORD NUMBER               TRANSFER
          83012    0       833     10   1  0              0        833     LAST WORD(DELETIONS)                    SELECT
          83013    70      831     20   0  0              0        831     >OK                                     JUMP IF A == 0
          83014    73      830     20   0  0              0        830     >REJECT                                 JUMP IF A < 0
          83015            833      8   0  0              0        833     FIRST                                   SELECT
          83016    2       833     10   0  0              0        833     LAST                                    SUBTRACT
          83017    72      830     20   0  0              0        830     >REJECT                                 JUMP IF A >= 0
          83018    10               0   0  0              0                                                        SELECT LITERAL
          83019    76      831     20   0  0              0        831                                             JUMP unconditional
    83107>                                                                                                         
    83113>                                                                                                         
    83118>                                                                                                         
    83017>                                                                                                         
    83014>                                                                                                         
    83010>                                                                                                         
    82940>                                                                                                         
    82927>83020    80      820      2   0  0              0        820     >PRINT PT                               ENTER SUBROUTINE
          83021    76      803     39   0  0              0        803     >READ PT UNTIL DT RECOGNISED            JUMP unconditional
                                                                                                                   
          83100    PROCR   831       831     UNPACK P/T TO AMDTS (3)                                               
          83101     NOTES          RADIX     B                                                                     SELECT
    82923>83102    10               0   0  0              1                3=T                                     SELECT LITERAL
    82921>83103    11               0   0  0              1                2=R                                     ADD LITERAL
    82919>83104    11               0   0  0              1                1=D                                     ADD LITERAL
          83105    84      830      2   0  0              0        830     SET BLOCK AMEND SWITCH                  SET SWITCH(ES) AT VARIABLE VALUE
          83106    0       869     14   2  0              0        869                                             SELECT
          83107    73      830     20   0  0              0        830     >REJECT                                 JUMP IF A < 0
          83108    5       833      6   1  0              0        833     STORE BLOCK NUMBER                      TRANSFER
          83109    0       833      8   1  0              0        833                                             SELECT
          83110    80      812      2   0  0              0        812     >R-ALIGN                                ENTER SUBROUTINE
          83111    5       869     14   1  0              0        869                                             TRANSFER
          83112    0       869     14   2  0              0        869                                             SELECT
          83113    73      830     20   0  0              0        830     >REJECT                                 JUMP IF A < 0
          83114    3       833      8   1  0              0        833     LAST BLOCK(DELETIONS)                   COPY
          83115    70      831     19   0  0              0        831     >OK                                     JUMP IF A == 0
          83116            833      6   0  0              0        833     FIRST                                   SELECT
          83117    2       833      8   0  0              0        833     LAST                                    SUBTRACT
          83118    72      830     20   0  0              0        830     >REJECT                                 JUMP IF A >= 0
    83115>83119    10               0   0  0              1                                                        SELECT LITERAL
    83019>                                                                                                         
    83013>83120    5       833     12   0  0              0        833     ZERO=WORD AMEND     NONZERO=BLOCK AMEND TRANSFER
          83121    82      829      2   0  0              0        829                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          83200    PROCR   832       832     UNPACK CARD TD AMDTS                                                  
          83201     NOTES          RADIX     B                                                                     SELECT
    82906>83202    50      9        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          83203    C       874     64   0  0              0        874                                             
          83204    76      829     10   0  0              0        829                                             JUMP unconditional
                                                                                                                   
          83300    CONST   833       833     1    UNPACKED PT FOR 'FILEA' DATA                                     
          83302          (D)0;                                             'FILEA'/FILE ID R-ALIGNED               
          83304          0;                                                SET(NUMERIC)                            
          83306          0;                                                BLOCK NUMBER(DEC NUMERIC)               
          83308          0;                                                START WORD/LAST BLOCK(DEC NUMERIC)      
          83310          0;                                                END WORD(DEC NUMERIC)                   
          83312          ;                                                 ZERO=WORD AMEND                         
                                                                                                                   
          83400    PROCR   834       834     FORM UP RELATIVE ADDRESS S/R                                          
  Source image: P1000745.JPG
          83401     NOTES          RADIX     B                                                                     SELECT
          83402    81      834      2   0  0              0        834                                             START OF SUBROUTINE
          83403    05      869      2   0  0              0        869     STORE I/C SERIAL                        TRANSFER
          83404    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          83405    36      869      2   0  0              0        869     COLLARE PROCR NO                        COLLATE AND ADD
          83406    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          83407    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          83408    92               0   0  5              0                SET (MR5)=PROCR NO                      SET MODIFIER AT VARIABLE
          83409    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          83410    C                0   0  0             40                                                        
    83414>83411    00      25       2   0  3              0                                                        SELECT
          83412    02      869      2   0  0              0        869                                             SUBTRACT
          83413    70      834     27   0  0              0        834     >YES                                    JUMP IF A == 0
          83414    94      834     11   0  3              2        834     >NO                                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          83415            18    1000   0  5              0                PROCR START                             SELECT
          83416    3       822      2   0  0              0        822     PROCR START                             COPY
          83417    70      834     28   0  0              0        834     >PROCR NOT THERE, LEAVE SR (A)=0        JUMP IF A == 0
          83418    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          83419    35               0   0  0             11                COLLATE ITEM NO                         PREPARE FOR DIGIT COLLATION
          83420    36      869      2   0  0              0        869                                             COLLATE AND ADD
          83421    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          83422    12               0   0  0              2                BIN ITEM-2                              SUBTRACT LITERAL
          83423    3       821      2   0  0              0        821     WL                                      COPY
          83424    71      834     29   0  0              0        834     >IGNORE=LINE SERIAL, ACCEPT=PM 6 DATA   JUMP IF A != 0
          83425            822      2   0  0              0        822     PROCR=START                             SELECT
          83426    76      834     28   0  0              0        834     >                                       JUMP unconditional
    83413>83427    00      25       3   0  3              0                                                        SELECT
    83426>                                                                                                         
    83417>83428    82      834      2   0  0              0        834                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    83424>83429    10               0   0  0              0                                                        SELECT LITERAL
          83430    82      834      2   0  0              0        834                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          83500    PROCR   835       835     FORM UP CHAPTER NO S/R                                                
          83501     NOTES          RADIX     B                                                                     SELECT
          83502    81      835      2   0  0              0        835                                             START OF SUBROUTINE
          83503    05      869      2   0  0              0        869     STORE PROCR NO                          TRANSFER
          83504    90               0   0  3              1                                                        SET MODIFICATION REGISTER AT LITERAL
          83505    C                0   0  0             15                                                        
          83506    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
    83512>83507    10               0   0  0              0                                                        SELECT LITERAL
          83508    36      92       9   0  3              0                LAST PROCR IN CHAP                      COLLATE AND ADD
          83509    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          83510    02      869      2   0  0              0        869                                             SUBTRACT
          83511    72      835     13   0  0              0        835     >                                       JUMP IF A >= 0
          83512    94      835      7   0  3              1        835     >NO                                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    83511>83513    10               0   0  0              0                                                        SELECT LITERAL
          83514    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          83515    36      92       9   0  3              0                CORRECTED CHAP NO                       COLLATE AND ADD
          83516    82      835      2   0  0              0        835                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          83600    PROCR   836       836     FORM UP CHAPTER NO OF SECN                                            
          83601     NOTES          RADIX     B                                                                     SELECT
          83602    81      836      2   0  0              0        836                                             START OF SUBROUTINE
          83603    35               0   0  0              1                (A)=0                                   PREPARE FOR DIGIT COLLATION
          83604    36      15       0   0  3              0                                                        COLLATE AND ADD
          83605    92               0   0  5              0                                                        SET MODIFIER AT VARIABLE
          83606    10               0   0  0              0                                                        SELECT LITERAL
          83607    36      92       9   0  5              0                CORRECTED CHAP                          COLLATE AND ADD
          83608    82      836      2   0  0              0        836                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000746.JPG
          83700    PROCR   837       837     FORM UP TRANSIT AREA PARAMETER S/R                                    
          83701     NOTES          RADIX     B                                                                     SELECT
          83702    81      837      2   0  0              0        837                                             START OF SUBROUTINE
          83703    05      869      2   0  0              0        869     STORE SECN NO                           TRANSFER
          83704    91      24       2   0  3              0                SET(MR3)=2(R+T)/2R                      SET MODIFICATION REGISTER AT VARIABLE
          83705    94      837      7   0  3              0        837     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          83706    76      837     13   0  0              0        837     >NO TX AREAS                            JUMP unconditional
    83705>83707    35               0   0  0            111-                                                       PREPARE FOR DIGIT COLLATION
    83712>83708    36      24       4   0  3              0                SECN NO                                 COLLATE AND ADD
          83709    02      869      2   0  0              0        869                                             SUBTRACT
          83710    70      837     14   0  0              0        837     >                                       JUMP IF A == 0
          83711    10               0   0  0              0                                                        SELECT LITERAL
          83712    94      837      8   0  3              2        837     >                                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    83706>83713    82      837      2   0  0              0        837     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    83710>83714    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          83715    36      24       4   0  3              0                TA PARAMETER                            COLLATE AND ADD
          83716    82      837      2   0  0              0        837     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          83800    PROCR   838       838     SET UP COUNTERS AT START OF NEW TRIAL DATA BLOCK                      
          83801     NOTES          RADIX     B                                                                     SELECT
          83802    81      838      2   0  0              0        838                                             START OF SUBROUTINE
          83803    60               0   0  0              0                SET DECIMAL                             SET DECIMAL RADIX
          83804    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          83805    C                0   0  0              7                                                        
          83806    10               0   0  0              2                                                        SELECT LITERAL
    83809>83807    03      32      15   0  3              0                FOR PRINTING                            COPY
          83808    11               0   0  0              2                                                        ADD LITERAL
          83809    94      838      7   0  3              1        838                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          83810    62               0   0  0              0                SET BINARY                              SET EXCESS CONSTANTS
          83811    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          83812    C                0   0  0             14                                                        
          83813    83      787      4   0  0              1        787     SET*SWITCH AT 1                         SET SWITCH(ES) AT LITERAL VALUE
          83814    83      786      4   0  0              1        786     SET B/E SWITCH AT 1                     SET SWITCH(ES) AT LITERAL VALUE
          83815    83      849      4   0  0              2        849     SET BLOCK NO SWITCH AT 2                SET SWITCH(ES) AT LITERAL VALUE
          83816    83      781      2   0  0              2        781     SET FIRST WORD SWITCH AT 2              SET SWITCH(ES) AT LITERAL VALUE
          83817    05      871     42   1  0              0        871     CLEAR ERROR WORD                        TRANSFER
          83818    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          83819    82      838      2   0  0              0        838     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          83900    PROCR   839       839     STEP WORD NUMBERS FOR PRINTED LINE BY 14                              
          83901     NOTES          RADIX     B                                                                     SELECT
          83902    81      839      2   0  0              0        839                                             START OF SUBROUTINE
          83903    60               0   0  0              0                                                        SET DECIMAL RADIX
          83904    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          83905    C                0   0  0              7                                                        
          83906    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
    83910>83907    10               0   0  0             14                                                        SELECT LITERAL
          83908    36      32      15   0  3              0                                                        COLLATE AND ADD
          83909    5       32      15   0  3              0                (CLEAR PREVIOUS SIGN)                   TRANSFER
          83910    94      839      7   0  3              1        839                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          83911    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          83912    82      839      2   0  0              0        839                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          84000    PROCR   840       840     STEP WORD COUNTER BY 2                                                
          84001     NOTES          RADIX     B                                                                     SELECT
          84002    81      840      2   0  0              0        840                                             START OF SUBROUTINE
          84003    10               0   0  0              2                                                        SELECT LITERAL
          84004    60               0   0  0              0                                                        SET DECIMAL RADIX
          84005    04      32     164   0  0              0                                                        AUGMENT
          84006    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000747.JPG
          84007    82      840      2   0  0              0        840                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          84100    PROCR   841       841     PREPARE FOR DUMPS POINTS S/R                                          
          84101     NOTES          RADIX     B                                                                     SELECT
          84102    81      841      2   0  0              0        841                                             START OF SUBROUTINE
          84103    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          84104    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          84105    90               0   0  4              0                SET(MR4)=11:0                           SET MODIFICATION REGISTER AT LITERAL
          84106    C                0   0  0             11                                                        
          84107    52      5        2   0  0              0                EDIT PM POINT HEADING                   EDIT
          84108    C       876      2   0  0              0        876                                             
          84109    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          84110            9        0   1  0              0                                                        SELECT
          84111    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          84112    12               0   0  0         556554                 'END'                                  SUBTRACT LITERAL
          84113    70      841     15   0  0              0        841     >ALREADY AT END                         JUMP IF A == 0
          84114    80      811      2   0  0              0        811     >READ P/T                               ENTER SUBROUTINE
    84113>84115    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          84116    82      841      2   0  0              0        841     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          84200    PROCR   842       842     PROCESS DUMPS POINT S/R                                               
          84201     NOTES          RADIX     B                                                                     SELECT
          84202    81      842      2   0  0              0        842                                             START OF SUBROUTINE
          84203    94      842      5   0  4              1        842     STEP(MR4)                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          84204    76      805     14   0  0              0        805     >TOO MANY DUMPS POINTS                  JUMP unconditional
    84203>84205    54      31       0   1  0             22                                                        BULK CLEAR
          84206    5       871     40   1  0              0        871     CLEAR ERROR WORDS                       TRANSFER
          84207    5       871     42   1  0              0        871                                             TRANSFER
          84208    5       871     44   1  0              0        871                                             TRANSFER
          84209    0       30       0   0  0              0                STORE I/C SERIAL                        SELECT
          84210    80      780      2   0  0              0        780     >UPDATE ADDRESS                         ENTER SUBROUTINE
          84211    3       30       0   0  0              0                NEW SERIAL                              COPY
          84212    3       31       0   0  0              0                                                        COPY
          84213    80      834      2   0  0              0        834     >FORM UP REL ADD S/R                    ENTER SUBROUTINE
          84214    70      805     14   0  0              0        805     >NOT PROCR START OR 'TRACE' ,REJECT     JUMP IF A == 0
          84215    5       31       1   0  0              0                                                        TRANSFER
          84216    96               0   0  5              0                BINARY PROCR NO                         SELECT MODIFIER
          84217    80      835      2   0  0              0        835     >FORM UP CHAP NO                        ENTER SUBROUTINE
          84218    96               0   0  3              0                UNCORRECTED CHAP                        SELECT MODIFIER
          84219    5       31       2   0  0              0                                                        TRANSFER
                                                                                                                   
          84300    PROCR   843       843     PROCESS TYPE N1 N2 AND N3                                             
          84301     NOTES          RADIX     B                                                                     SELECT
          84302    0       30       1   0  0              0                                                        SELECT
          84303    70      805      2   0  0              0        805     >REJECT                                 JUMP IF A == 0
          84304    73      805      2   0  0              0        805                                             JUMP IF A < 0
          84305    12               0   0  0              7                                                        SUBTRACT LITERAL
          84306    72      805      2   0  0              0        805     >NO,ERROR                               JUMP IF A >= 0
          84307    11               0   0  0              7                                                        ADD LITERAL
          84308    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          84309    4       31       2   0  0              0                                                        AUGMENT
          84310    84      780     17   0  0              0        780     SET SWITCH 2 BY TYPE                    SET SWITCH(ES) AT VARIABLE VALUE
          84311    C       30       1   0  0              0                                                        
          84312    0       30       2   0  0              0                                                        SELECT
          84313    12               0   0  0            256                                                        SUBTRACT LITERAL
          84314    72      806     12   0  0              0        806     >NO                                     JUMP IF A >= 0
          84315    11               0   0  0            256                                                        ADD LITERAL
          84316    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
    80614>84317    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          84318    5       31       3   0  0              0                                                        TRANSFER
  Source image: P1000748.JPG
          84319    0       30       3   0  0              0                                                        SELECT
          84320    12               0   0  0            256                                                        SUBTRACT LITERAL
          84321    72      806     15   0  0              0        806     >NO                                     JUMP IF A >= 0
          84322    11               0   0  0            256                                                        ADD LITERAL
          84323    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
    80617>84324    4       31       3   0  0              0                                                        AUGMENT
          84325    0       30       4   0  0              0                                                        SELECT
          84326    70      806     18   0  0              0        806     >NO                                     JUMP IF A == 0
          84327    12               0   0  0            256                                                        SUBTRACT LITERAL
          84328    72      806     18   0  0              0        806     >NO                                     JUMP IF A >= 0
          84329    11               0   0  0            256                                                        ADD LITERAL
          84330    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
    80620>84331    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          84332    4       31       2   0  0              0                                                        AUGMENT
          84333    91      872      2   0  2              0        872     SET(MR2)=0:0                            SET MODIFICATION REGISTER AT VARIABLE
          84334    90               0   0  1              0                SET(MR1)=4:0                            SET MODIFICATION REGISTER AT LITERAL
          84335    C                0   0  0              4                                                        
                                                                                                                   
          84400    PROCR   844       844     PM TYPE SWITCH,DEAL WITH TYPES 1 &2                                   
          84401     NOTES          RADIX     B                                                                     SELECT
          84402    85      780     17   0  0              0        780     SWITCH 2,PM TYPE                        SWITCH R
          84403    C       844      9   0  0              0        844     (1)                                     
          84404    C       844      9   0  0              0        844     (2)                                     
          84405    C       845      2   0  0              0        845     (3)                                     
          84406    C       845      2   0  0              0        845     (4)                                     
          84407    C       847      2   0  0              0        847     (5)                                     
          84408    C       846      2   0  0              0        846     (6)                                     
    84417>                                                                                                         
    84404>                                                                                                         
    84403>84409    0       30       5   0  1              0                CHAP NO                                 SELECT
          84410    70      847      2   0  0              0        847     >END OF CHAPS                           JUMP IF A == 0
          84411    2       869      3   0  0              0        869                                             SUBTRACT
          84412    70      844     14   0  0              0        844     >YES                                    JUMP IF A == 0
          84413    72      845     44   0  0              0        845     >NO ERROR                               JUMP IF A >= 0
    84412>84414    1       869      3   0  0              0        869                                             ADD
          84415    5       31       4   0  2              0                                                        TRANSFER
          84416    94      844     17   0  2              4        844                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    84546>                                                                                                         
    84548>                                                                                                         
    84416>84417    94      844      9   0  1              1        844     >NO                                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          84418    76      847      2   0  0              0        847     >YES                                    JUMP unconditional
                                                                                                                   
          84500    PROCR   845       845     DEAL WITH TYPES 3 & 4                                                 
          84501     NOTES          RADIX     B                                                                     SELECT
    84542>                                                                                                         
    84406>                                                                                                         
    84405>84502    0       30       5   0  1              0                SECN NO                                 SELECT
          84503    70      847      2   0  0              0        847     >END OF SECNS                           JUMP IF A == 0
          84504    73      845     49   0  0              0        845     >SECN<0                                 JUMP IF A < 0
          84505    12               0   0  0            100                                                        SUBTRACT LITERAL
          84506    72      845     49   0  0              0        845     >SECN>99                                JUMP IF A >= 0
          84507            30       5   0  1              0                SECN NO                                 SELECT
          84508    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          84509    3       31       4   0  2              0                                                        COPY
          84510    92               0   0  3              0                SET (MR3)=SECN NO                       SET MODIFIER AT VARIABLE
          84511    0       15       0   0  3              0                                                        SELECT
          84512    70      845     49   0  0              0        845     >NO ERROR                               JUMP IF A == 0
          84513    0       27       4   0  0              0                COMPILER?                               SELECT
          84514    70      845     22   0  0              0        845     NO->                                    JUMP IF A == 0
          84515    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
  Source image: P1000749.JPG
          84516    3       875      2   1  0              0        875     WL                                      COPY
          84517    124     999     24   0  3              0                                                        modify address of next
          84518    107              0   0  0              0                DOUBLE MR 2                             augment (N) by (A)
          84519    0       7       20   2  2              0                CLEO LENGTH                             SELECT
          84520    91      875      2   0  2              0        875     RESET                                   SET MODIFICATION REGISTER AT VARIABLE
          84521    76      845     25   0  0              0        845                                             JUMP unconditional
    84514>84522    34      868      3   0  0              0        868     BITS 5->19                              SET (N) IN B
          84523    36      15       0   0  3              0                SECN LGTH                               COLLATE AND ADD
          84524    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
    84521>84525    70      845     49   0  0              0        845     LENGTH ZERO                             JUMP IF A == 0
          84526    5       31       7   0  2              0                                                        TRANSFER
          84527    34      868      4   0  0              0        868     BIT 20                                  SET (N) IN B
          84528    36      15       0   0  3              0                                                        COLLATE AND ADD
          84529    71      845     35   0  0              0        845     >YES                                    JUMP IF A != 0
          84530            18    1000   0  3              0                PROCR START                             SELECT
          84531    5       31       6   0  2              0                                                        TRANSFER
          84532    80      836      2   0  0              0        836     FORM UP CHAP NO                         ENTER SUBROUTINE
          84533    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          84534    76      845     40   0  0              0        845     >                                       JUMP unconditional
    84529>84535    31               0   0  0              3-                                                       SHIFT (A) BY BITS
          84536    5       31       5   0  2              0                STORE TA IND                            TRANSFER
          84537    0       31       4   0  2              0                SECN NO                                 SELECT
          84538    80      837      2   0  0              0        837     >FORM UP TA PARAMETER                   ENTER SUBROUTINE
          84539    70      845     49   0  0              0        845     >T A PARAM NOT FOUND                    JUMP IF A == 0
    84534>84540    4       31       4   0  2              0                                                        AUGMENT
          84541    94      845     42   0  2              4        845                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    84551>                                                                                                         
    84553>                                                                                                         
    84541>84542    94      845      2   0  1              1        845     >NEXT SECN                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          84543    76      847      2   0  0              0        847     >                                       JUMP unconditional
    84413>84544    10               0   0  0         5‼5300                *C                                      SELECT LITERAL
          84545    80      807      2   0  0              0        807     >                                       ENTER SUBROUTINE
          84546    70      844     17   0  0              0        844     >                                       JUMP IF A == 0
          84547    80      808      2   0  0              0        808     >                                       ENTER SUBROUTINE
          84548    76      844     17   0  0              0        844     >                                       JUMP unconditional
    84539>                                                                                                         
    84525>                                                                                                         
    84512>                                                                                                         
    84506>                                                                                                         
    84504>84549    10               0   0  0         5‼7200                *S                                      SELECT LITERAL
          84550    80      807      2   0  0              0        807     >                                       ENTER SUBROUTINE
          84551    70      845     42   0  0              0        845     >                                       JUMP IF A == 0
          84552    80      808      2   0  0              0        808     >                                       ENTER SUBROUTINE
          84553    76      845     42   0  0              0        845     >                                       JUMP unconditional
    84605>                                                                                                         
    84610>                                                                                                         
    84612>                                                                                                         
    84621>                                                                                                         
    84634>                                                                                                         
    84636>                                                                                                         
    84652>84554    10               0   0  0         5‼6700                *P                                      SELECT LITERAL
          84555    80      807      2   0  0              0        807     >                                       ENTER SUBROUTINE
          84556    70      846     60   0  0              0        846                                             JUMP IF A == 0
          84557    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          84558    80      808      2   0  0              0        808     >                                       ENTER SUBROUTINE
          84559    76      846     60   0  0              0        846     >                                       JUMP unconditional
                                                                                                                   
          84600    PROCR   846       846     DEAL WITH TYPE 6                                                      
          84601     NOTES          RADIX     B                                                                     SELECT
    84408>84602    90               0   0  1              0                SET(MR1)=6:0                            SET MODIFICATION REGISTER AT LITERAL
  Source image: P1000750.JPG
          84603    C                0   0  0             12                                                        
    84660>84604    0       30       6   0  1              0                ITEM                                    SELECT
          84605    73      845     54   0  0              0        845     >REPORT NEG ITEM                        JUMP IF A < 0
          84606    80      821      2   0  0              0        821     >CONVERT                                ENTER SUBROUTINE
          84607    5       31       6   0  2              0                                                        TRANSFER
          84608    0       30       5   0  1              0                REF                                     SELECT
          84609    70      847      2   0  0              0        847     >ASSUME END OF DETAILS                  JUMP IF A == 0
          84610    73      845     54   0  0              0        845     >REPORT NEG                             JUMP IF A < 0
          84611    12               0   0  0            999                                                        SUBTRACT LITERAL
          84612    72      845     54   0  0              0        845     >REPORT >998                            JUMP IF A >= 0
          84613    0       30       5   0  1              0                                                        SELECT
          84614    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          84615    71      846     29   0  0              0        846     >PROCR                                  JUMP IF A != 0
          84616    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          84617    80      821      2   0  0              0        821     >CONVERT REF                            ENTER SUBROUTINE
          84618    3       31       5   0  2              0                                                        COPY
          84619    92               0   0  3              0                SET(MR3)=BIN SECN                       SET MODIFIER AT VARIABLE
          84620            18    1000   0  3              0                PROCR START                             SELECT
          84621    70      845     54   0  0              0        845     >NON-EXISTANT SECN                      JUMP IF A == 0
          84622    1       31       6   0  2              0                ITEM                                    ADD
          84623    5       31       4   0  2              0                                                        TRANSFER
          84624    10               0   0  0          10000                SET SEC IND                             SELECT LITERAL
          84625    4       31       5   0  2              0                                                        AUGMENT
          84626    10               0   0  0              0                                                        SELECT LITERAL
          84627    80      836      2   0  0              0        836     >FORM UP CHAP NO                        ENTER SUBROUTINE
          84628    76      846     57   0  0              0        846     >                                       JUMP unconditional
    84615>84629    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          84630    80      821      2   0  0              0        821     >CONVERT REF                            ENTER SUBROUTINE
          84631    5       31       5   0  2              0                                                        TRANSFER
          84632    0       30       6   0  1              0                ITEM(3-DIGIT REF)                       SELECT
          84633    12               0   0  0              2                                                        SUBTRACT LITERAL
          84634    73      845     54   0  0              0        845     >REPORT<2                               JUMP IF A < 0
          84635    12               0   0  0             98                                                        SUBTRACT LITERAL
          84636    72      845     54   0  0              0        845     >REPORT>99                              JUMP IF A >= 0
          84637    0       30       5   0  1              0                REF                                     SELECT
          84638    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          84639    60               0   0  0              0                SET DECIMAL                             SET DECIMAL RADIX
          84640    1       30       6   0  1              0                ITEM                                    ADD
          84641    62               0   0  0              0                RESET BINARY                            SET EXCESS CONSTANTS
          84642    80      780      2   0  0              0        780     >UPDATE ADDRESS                         ENTER SUBROUTINE
          84643    3       834      2   0  0              0        834                                             COPY
          84644    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          84645    5       30       5   0  1              0                NEW REF                                 TRANSFER
          84646    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          84647    5       30       6   0  1              0                NEW ITEM                                TRANSFER
          84648            834      2   0  0              0        834                                             SELECT
          84649    80      834      2   0  0              0        834     >FORM UP REL ADD                        ENTER SUBROUTINE
          84650    71      846     54   0  0              0        846     >OK                                     JUMP IF A != 0
          84651    0       822      2   0  0              0        822     PROCR START                             SELECT
          84652    70      845     54   0  0              0        845     >REJECT                                 JUMP IF A == 0
          84653    1       821      2   0  0              0        821     (BIN ITEM=2)                            ADD
    84650>84654    5       31       4   0  2              0                                                        TRANSFER
          84655    95               0   0  5              0                                                        SELECT MODIFICATION REGISTER
          84656    80      835      2   0  0              0        835     >FORM UP CHAP NO                        ENTER SUBROUTINE
    84628>84657    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          84658    4       31       4   0  2              0                                                        AUGMENT
          84659    94      846     60   0  2              3        846                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    84659>                                                                                                         
    84559>                                                                                                         
    84556>84660    94      846      4   0  1              2        846     >NEXT TRACE POINT                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
  Source image: P1000751.JPG
          84700    PROCR   847       847     FORM UP M/T BLOCK AND PRINT                                           
          84701     NOTES          RADIX     B                                                                     SELECT
    84609>                                                                                                         
    84543>                                                                                                         
    84503>                                                                                                         
    84418>                                                                                                         
    84410>                                                                                                         
    84407>84702    96               0   0  4              0                DUMP POINT NUMBER                       SELECT MODIFIER
          84703    3       869      4   0  0              0        869                                             COPY
          84704    11               0   0  0             40                CONVERT TO ALPHA                        ADD LITERAL
          84705    1       870     14   1  0              0        870     DDUMP SP                                ADD
          84706    5       8       50   1  0              0                                                        TRANSFER
          84707    0       870     10   1  0              0        870     FILES                                   SELECT
          84708    5       8        4   1  0              0                                                        TRANSFER
          84709    55      31       0   0  0             22                                                        BULK COPY
          84710    C       8        6   1  0              0                                                        
          84711    80      816      2   0  0              0        816     WRITE                                   ENTER SUBROUTINE
          84712    52      5        2   0  0              0                                                        EDIT
          84713    C       877      2   0  0              0        877                                             
          84714    0       30       1   0  0              0                TEST TYPE 6                             SELECT
          84715    12               0   0  0              6                                                        SUBTRACT LITERAL
          84716    70      847     20   0  0              0        847     >YES                                    JUMP IF A == 0
          84717    52      5       18   0  0              0                                                        EDIT
          84718    C       877     16   0  0              0        877                                             
          84719    76      847     31   0  0              0        847                                             JUMP unconditional
    84716>84720    52      5       18   0  0              0                                                        EDIT
          84721    C       877     34   0  0              0        877                                             
          84722    90               0   0  3              0                LEFT ALIGN ITEMS                        SET MODIFICATION REGISTER AT LITERAL
          84723    C                0   0  0             24                                                        
          84724    10               0   0  0              0                                                        SELECT LITERAL
    84730>84725    34      5       22   1  3              0                                                        SET (N) IN B
    84727>84726    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          84727    70      847     26   0  0              0        847                                             JUMP IF A == 0
          84728    32               0   0  0              8                                                        SHIFT (AB) BY QUARTETS
          84729    5       5       22   1  3              0                                                        TRANSFER
          84730    94      847     25   0  3              4        847                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    84719>84731    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          84732    82      842      2   0  0              0        842     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          84800    PROCR   848       848     PROCESS AND PRINT T.D. HEADING                                        
          84801     NOTES          RADIX     B                                                                     SELECT
          84802    81      848      2   0  0              0        848                                             START OF SUBROUTINE
          84803    52      5        2   0  0              0                EDIT                                    EDIT
          84804    C       878      2   0  0              0        878                                             
          84805    0       872      6   1  0              0        872     HEAD OF FORM                            SELECT
          84806    80      817      2   0  0              0        817     PRINT                                   ENTER SUBROUTINE
          84807    83      826      4   0  0              2        826     SET FIEND SWITCH                        SET SWITCH(ES) AT LITERAL VALUE
          84808    82      848      2   0  0              0        848                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          84900    PROCR   849       849     PROCESS TRIAL DATA HEADING S/R (1)                                    
          84901     NOTES          RADIX     B                                                                     SELECT
          84902    81      849      2   0  0              0        849                                             START OF SUBROUTINE
          84903    0       16       2   0  0              0                PROG ID                                 SELECT
          84904    5       31       0   2  0              0                                                        TRANSFER
          84905    5       871     42   1  0              0        871     CLEAR ERROR W/L                         TRANSFER
          84906    0       30       4   0  0              0                RUN NO                                  SELECT
          84907    3       32     167   0  0              0                                                        COPY
          84908    5       31       6   2  0              0                                                        TRANSFER
          84909    0       30       7   0  0              0                T D SET NO                              SELECT
  Source image: P1000752.JPG
          84910    71      849     17   0  0              0        849     >NON-ZERO                               JUMP IF A != 0
          84911    80      867      2   0  0              0        867     >STEP'OTHERS'                           ENTER SUBROUTINE
          84912    0       871     12   1  0              0        871     SET ERROR WORD=SET                      SELECT
          84913    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          84914    5       871     42   1  0              0        871                                             TRANSFER
          84915    10               0   0  0              9                SET T D SET=9                           SELECT LITERAL
          84916    3       30       7   0  0              0                                                        COPY
    84910>84917    3       31      12   2  0              0                STORE FOR O/P                           COPY
          84918    0       30       5   0  0              0                MAX BLOCK SIZE                          SELECT
          84919    12               0   0  0           1001                TEST>1000                               SUBTRACT LITERAL
          84920    73      849     26   0  0              0        849     >NO                                     JUMP IF A < 0
          84921    0       871     32   1  0              0        871     SET UP ERROR REPORT                     SELECT
          84922    5       871     42   1  0              0        871                                             TRANSFER
          84923    80      867      2   0  0              0        867     >STEP'OTHERS'                           ENTER SUBROUTINE
          84924    0       30       5   0  0              0                                                        SELECT
          84925    12               0   0  0           1001                                                        SUBTRACT LITERAL
    84920>84926    11               0   0  0           1001                                                        ADD LITERAL
          84927    3       32     168   0  0              0                                                        COPY
          84928    3       31      16   2  0              0                                                        COPY
          84929    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          84930    31               0   0  0              1                FORM(2N-4)                              SHIFT (A) BY BITS
          84931    12               0   0  0              4                                                        SUBTRACT LITERAL
          84932    5       31      10   2  0              0                                                        TRANSFER
          84933    0       30       8   0  0              0                FIXED/VARIABLE IND                      SELECT
          84934    3       31      18   2  0              0                                                        COPY
          84935    70      849     41   0  0              0        849     >FIXED     SET UP IND IN                JUMP IF A == 0
          84936    10               0   0  0              1                                                        SELECT LITERAL
          84937    3       30       8   0  0              0                                                        COPY
          84938    5       31      18   2  0              0                                                        TRANSFER
          84939    0       871     38   1  0              0        871          TD HEADING                         SELECT
          84940    76      849     42   0  0              0        849     >VAR                                    JUMP unconditional
    84935>84941    0       871     36   1  0              0        871                                             SELECT
    84940>84942    5       871     40   1  0              0        871                                             TRANSFER
                                                                                                                   
          85000    PROCR   850       850     PROCESS TRIAL DATA HEADING (2)                                        
          85001     NOTES          RADIX     B                                                                     SELECT
          85002    0       30      11   0  0              0                TEST TRUE FILE ID ZERO                  SELECT
          85003    70      850     13   0  0              0        850     >YES                                    JUMP IF A == 0
          85004    32               0   0  0              3-                                                       SHIFT (AB) BY QUARTETS
          85005    5       869      2   0  0              0        869     COPY ALPHA PART TO W/L                  TRANSFER
          85006    0       30       3   0  0              0                TEST ALPHA PART OF                      SELECT
          85007    32               0   0  0              3-               RTE IDENTIFIER=                         SHIFT (AB) BY QUARTETS
          85008    2       869      2   0  0              0        869     STORED ALPHA VALUE                      SUBTRACT
          85009    70      850     11   0  0              0        850     >YES                                    JUMP IF A == 0
          85010    80      809      2   0  0              0        809     >ERROR S/R                              ENTER SUBROUTINE
    85009>85011    0       30      10   1  0              0                                                        SELECT
          85012    76      850     15   0  0              0        850     >                                       JUMP unconditional
    85003>85013    0       30       2   1  0              0                SET TRUE FILE ID=                       SELECT
          85014    3       30      10   1  0              0                ROUTE IDENTIFIER                        COPY
    85012>85015    30               0   0  0              6-                                                       SHIFT (A) BY QUARTETS
          85016    5       31       4   1  0              0                                                        TRANSFER
          85017    0       30       2   1  0              0                STORE RTE IDENTIFIER                    SELECT
          85018    30               0   0  0              6-                                                       SHIFT (A) BY QUARTETS
          85019    5       31      20   1  0              0                                                        TRANSFER
          85020    0       24       1   0  0              0                                                        SELECT
          85021    70      850     30   0  0              0        850     >NO FILES                               JUMP IF A == 0
          85022    91      24       0   0  1              0                SET(MR1)=2R/0                           SET MODIFICATION REGISTER AT VARIABLE
    85029>85023            24       5   0  1              0                B7-20=FILE ID                           SELECT
          85024    31               0   0  0              6-                                                       SHIFT (A) BY BITS
          85025    11               0   0  0           4000                                                        ADD LITERAL
  Source image: P1000753.JPG
          85026    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          85027    2       30       3   0  0              0                                                        SUBTRACT
          85028    70      850     35   0  0              0        850     >YES                                    JUMP IF A == 0
          85029    94      850     23   0  1              2        850                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    85021>85030    10               0   0  0           7777                DUMMY FILE IDENTY'XX'                   SELECT LITERAL
          85031    3       31      20   1  0              0                ON MAG TAPE                             COPY
          85032    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          85033    5       30       2   1  0              0                AND PRINTER                             TRANSFER
          85034    80      809      2   0  0              0        809     >ERROR S/R                              ENTER SUBROUTINE
    85028>85035    10               0   0  0             3£                BITS 1-6                                SELECT LITERAL
          85036    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          85037    36      24       5   0  1              0                                                        COLLATE AND ADD
          85038    12               0   0  0              7                                                        SUBTRACT LITERAL
          85039    70      850     45   0  0              0        850     >YES 7                                  JUMP IF A == 0
          85040    12               0   0  0              1                                                        SUBTRACT LITERAL
          85041    70      850     45   0  0              0        850     >YES 8                                  JUMP IF A == 0
          85042    12               0   0  0              3                                                        SUBTRACT LITERAL
          85043    70      850     45   0  0              0        850     >YES 11                                 JUMP IF A == 0
          85044    80      809      2   0  0              0        809     >ERROR S/R                              ENTER SUBROUTINE
    85043>                                                                                                         
    85041>                                                                                                         
    85039>85045    95               0   0  1              0                FORM UP RTE PARAM                       SELECT MODIFICATION REGISTER
          85046    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          85047    11               0   0  0              1                                                        ADD LITERAL
          85048    1       869      3   0  0              0        869     NO OF INITIAL CHAPS                     ADD
          85049    1       869      3   0  0              0        869                                             ADD
          85050    5       31       2   2  0              0                                                        TRANSFER
          85051    0       30       6   0  0              0                SECN NO                                 SELECT
          85052    3       32     169   0  0              0                                                        COPY
          85053    3       31      14   2  0              0                                                        COPY
          85054    80      821      2   0  0              0        821     >CONVERT TO BINARY                      ENTER SUBROUTINE
          85055    80      837      2   0  0              0        837     >FORM UP PARAMETER                      ENTER SUBROUTINE
          85056    71      850     58   0  0              0        850     >T.A.PARAMETER FOUND                    JUMP IF A != 0
          85057    80      809      2   0  0              0        809     >ERROR S/R                              ENTER SUBROUTINE
    85056>85058    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          85059    5       31       8   2  0              0                                                        TRANSFER
          85060    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          85061    80      818      2   0  0              0        818     >LINE FEED S/R                          ENTER SUBROUTINE
          85062    54      8        0   0  0             54                                                        BULK CLEAR
          85063    0       870      6   1  0              0        870     CHAPT                                   SELECT
          85064    5       8        4   1  0              0                                                        TRANSFER
          85065    55      31       0   1  0             22                                                        BULK COPY
          85066    C       8        6   1  0              0                                                        
          85067    80      816      2   0  0              0        816     WRITE                                   ENTER SUBROUTINE
          85068    54      32       0   0  0             60                CLEAR W/L'S                             BULK CLEAR
          85069    10               0   0  0              8                SET BLOCK CTR AT 8                      SELECT LITERAL
          85070    5       32      14   0  0              0                                                        TRANSFER
          85071    90               0   0  1              0                SET (MR1) AT 24:0                       SET MODIFICATION REGISTER AT LITERAL
          85072    C                0   0  0             24                                                        
          85073    0       30       8   0  0              0                FIXED/VARIABLE IND                      SELECT
          85074    11               0   0  0              1                                                        ADD LITERAL
          85075    84      785      2   0  0              0        785     SET BLOCK LGTH SWITCH                   SET SWITCH(ES) AT VARIABLE VALUE
          85076    82      849      2   0  0              0        849                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          85100    PROCR   851       851     OUTPUT M/T BLOCK S/R                                                  
          85101     NOTES          RADIX     B                                                                     SELECT
          85102    81      851      2   0  0              0        851                                             START OF SUBROUTINE
          85103    85      781      2   0  0              0        781     TEST THIS IS FIRST WORD OF TD BLOCK     SWITCH R
          85104    C       851      8   0  0              0        851     >NO                                     
          85105    C       851      6   0  0              0        851     >YES                                    
  Source image: P1000754.JPG
    85105>85106    83      781      2   0  0              1        781     SET FIRST WORD SWITCH AT 1              SET SWITCH(ES) AT LITERAL VALUE
          85107    76      851     23   0  0              0        851                                             JUMP unconditional
    85104>85108    94      851     23   0  1              2        851     >NO    TEST END OF BLOCK                STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85109    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          85110    C                0   0  0             24                                                        
          85111    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          85112    C                0   0  0             48                                                        
    85118>85113    0       32      37   0  3              0                                                        SELECT
          85114    5       8        4   2  1              0                                                        TRANSFER
          85115    0       32      36   0  3              0                                                        SELECT
          85116    5       8        6   2  1              0                                                        TRANSFER
          85117    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85118    94      851     13   0  3              2        851                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85119    80      816      2   0  0              0        816     >WRITE                                  ENTER SUBROUTINE
          85120    90               0   0  1              0                RESET (MR1)                             SET MODIFICATION REGISTER AT LITERAL
          85121    C                0   0  0             24                                                        
          85122    54      32      36   0  0             24                CLEAR W/L'S                             BULK CLEAR
    85108>                                                                                                         
    85107>85123    82      851      2   0  0              0        851                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          85200    PROCR   852       852     EDIT NEXT PRINTER TRIAL DATA LINE+BLOCK NUMBER IF REQUIRED            
          85201     NOTES          RADIX     B                                                                     SELECT
          85202    81      852      2   0  0              0        852                                             START OF SUBROUTINE
          85203    85      849      4   0  0              0        849     TEST BLOCK TO BE EDITED                 SWITCH R
          85204    C       852     21   0  0              0        852     >NO                                     
          85205    C       852      6   0  0              0        852     >YES                                    
    85205>85206    52      5        2   0  0              0                EDIT BLOCK NO                           EDIT
          85207    C       879      2   0  0              0        879                                             
          85208    60               0   0  0              0                                                        SET DECIMAL RADIX
          85209    10               0   0  0              1                                                        SELECT LITERAL
          85210    4       32      14   0  0              0                STEP IT READY FOR NEXT BLOCK            AUGMENT
          85211    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          85212    83      849      2   0  0              1        849     SET BLOCK NO SWITCH                     SET SWITCH(ES) AT LITERAL VALUE
          85213    0       32      14   0  0              0                                                        SELECT
          85214    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          85215    70      852     20   0  0              0        852     >NOT EX PT                              JUMP IF A == 0
          85216    10               0   0  0          2+2+0                >>'                                     SELECT LITERAL
          85217    5       5        3   0  0              0                                                        TRANSFER
          85218    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          85219    5       32      14   0  0              0                CLEAR IND                               TRANSFER
    85215>85220    76      852     22   0  0              0        852                                             JUMP unconditional
    85204>85221    80      819      2   0  0              0        819     CLEAR ANNEXE START                      ENTER SUBROUTINE
    85220>85222    52      5        6   0  0              0                EDIT LINE                               EDIT
          85223    C       879      8   0  0              0        879                                             
          85224    95               0   0  1              0                SET 'EX PT' INDS                        SELECT MODIFICATION REGISTER
          85225    5       869     14   1  0              0        869     WL                                      TRANSFER
          85226    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          85227    5       908     54   1  0              0        908     WL                                      TRANSFER
          85228    90               0   0  1              0                SCAN WORD NUMBERS                       SET MODIFICATION REGISTER AT LITERAL
          85229    C                0   0  0              7                                                        
          85230    90               0   0  2              0                SCAN SEC 5                              SET MODIFICATION REGISTER AT LITERAL
          85231    C                0   0  0             42                                                        
    85238>85232            32      15   0  1              0                                                        SELECT
          85233    72      852     37   0  0              0        852     >NORMAL                                 JUMP IF A >= 0
          85234    35               0   0  0            110                                                        PREPARE FOR DIGIT COLLATION
          85235    10               0   0  0            2Ю0                '->'                                    SELECT LITERAL
          85236    37      5        7   0  2              0                                                        REPLACE SELECTED BITS
    85233>85237    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85238    94      852     32   0  2              6        852                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85239    91      869     14   0  1              0        869     RESTORE                                 SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1000755.JPG
          85240    91      908     54   0  2              0        908                                             SET MODIFICATION REGISTER AT VARIABLE
          85241    82      852      2   0  0              0        852                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          85300    PROCR   853       853     END OF TRIAL DATA BLOCK S/R                                           
          85301     NOTES          RADIX     B                                                                     SELECT
          85302    81      853      2   0  0              0        853                                             START OF SUBROUTINE
          85303    80      852      2   0  0              0        852     >EDIT BLOCK NO IF REQD                  ENTER SUBROUTINE
          85304    10               0   0  0             2Ю                SET(MR3)=42/3XMR                        SELECT LITERAL
          85305    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          85306    98               0   0  2              0                                                        ADD MODIFICATION REGISTER TO A
          85307    98               0   0  2              0                                                        ADD MODIFICATION REGISTER TO A
          85308    98               0   0  2              0                                                        ADD MODIFICATION REGISTER TO A
          85309    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    85311>85310    54      5        6   0  3              6                CLEAR REST OF ANNEXE                    BULK CLEAR
          85311    94      853     10   0  3              6        853                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85312    5       32     139   0  0              0                CLEAR LINE CTR                          TRANSFER
          85313    80      817      2   0  0              0        817     PRINT                                   ENTER SUBROUTINE
          85314    85      787      4   0  0              0        787                                             SWITCH R
          85315    C       853     22   0  0              0        853     >NO                                     
          85316    C       853     17   0  0              0        853     >YES                                    
    85316>85317    52      5        6   0  0              0                EDIT LINE                               EDIT
          85318    C       880      2   0  0              0        880                                             
          85319    80      819      2   0  0              0        819     CLEAR ANNEXE START                      ENTER SUBROUTINE
          85320    80      817      2   0  0              0        817     PRINT                                   ENTER SUBROUTINE
          85321    54      32      22   0  0             14                                                        BULK CLEAR
    85315>85322    83      786      4   0  0              3        786                                             SET SWITCH(ES) AT LITERAL VALUE
          85323    82      853      2   0  0              0        853                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          85400    PROCR   854       854     PROCESS DUMP POINT FROM MT                                            
          85401     NOTES          RADIX     B                                                                     SELECT
    78921>85402    00      7        6   2  0              0                I/C SERIAL                              SELECT
          85403    05      30       0   0  0              0                                                        TRANSFER
          85404    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          85405    36      7       10   2  0              0                PM TYPE                                 COLLATE AND ADD
          85406    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          85407    05      30       1   0  0              0                                                        TRANSFER
          85408    35               0   0  0          11000                N1                                      PREPARE FOR DIGIT COLLATION
          85409    36      7       12   2  0              0                                                        COLLATE AND ADD
          85410    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          85411    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85412    05      30       2   0  0              0                                                        TRANSFER
          85413    35               0   0  0             11                N2                                      PREPARE FOR DIGIT COLLATION
          85414    36      7       12   2  0              0                                                        COLLATE AND ADD
          85415    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85416    05      30       3   0  0              0                                                        TRANSFER
          85417    35               0   0  0            110                N3                                      PREPARE FOR DIGIT COLLATION
          85418    36      7       10   2  0              0                                                        COLLATE AND ADD
          85419    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          85420    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85421    05      30       4   0  0              0                                                        TRANSFER
                                                                                                                   
          85500    PROCR   855       855     -2                                                                    
          85501     NOTES          RADIX     B                                                                     SELECT
          85502    00      30       1   0  0              0                                                        SELECT
          85503    12               0   0  0              6                                                        SUBTRACT LITERAL
          85504    71      855     19   0  0              0        855     >NO                                     JUMP IF A != 0
          85505    90               0   0  1              0                SET (MR1)=6:0                           SET MODIFICATION REGISTER AT LITERAL
          85506    C                0   0  0             12                                                        
          85507    91      872      2   0  2              0        872     SET (MR2)=0:0                           SET MODIFICATION REGISTER AT VARIABLE
    85517>85508    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1000756.JPG
          85509    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          85510    36      7       16   2  2              0                REF                                     COLLATE AND ADD
          85511    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85512    5       30       5   0  1              0                                                        TRANSFER
          85513    0       7       18   2  2              0                ITEM                                    SELECT
          85514    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85515    5       30       6   0  1              0                                                        TRANSFER
          85516    94      855     17   0  2              6        855                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    85516>85517    94      855      8   0  1              2        855     >NEXT ONE                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85518    76      855     36   0  0              0        855     >                                       JUMP unconditional
    85504>85519    0       30       1   0  0              0                                    TEST TYPE 5         SELECT
          85520    12               0   0  0              5                                                        SUBTRACT LITERAL
          85521    71      855     26   0  0              0        855     >NO                                     JUMP IF A != 0
          85522    5       30       5   0  0              0                CLEAR W/L'S                             TRANSFER
          85523    5       30       6   1  0              0                                                        TRANSFER
          85524    5       30       8   1  0              0                                                        TRANSFER
          85525    76      855     36   0  0              0        855     >                                       JUMP unconditional
    85521>85526    90               0   0  1              0                SET (MR1)=4:0                           SET MODIFICATION REGISTER AT LITERAL
          85527    C                0   0  0              4                                                        
          85528    91      872      2   0  2              0        872     SET (MR2)=0:0                           SET MODIFICATION REGISTER AT VARIABLE
    85535>85529    10               0   0  0              0                                                        SELECT LITERAL
          85530    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          85531    36      7       14   2  2              0                CHAP OR SECN NO                         COLLATE AND ADD
          85532    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          85533    5       30       5   0  1              0                                                        TRANSFER
          85534    94      855     35   0  2              8        855                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    85534>85535    94      855     29   0  1              1        855     >NEXT ONE                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    85525>                                                                                                         
    85518>85536    80      842      2   0  0              0        842     >PROCESS DUMPS POINT                    ENTER SUBROUTINE
          85537    76      789     22   0  0              0        789                                             JUMP unconditional
                                                                                                                   
          85600    PROCR   856       856     PRINT FILE UNALTERED S/R                                              
          85601     NOTES          RADIX     B                                                                     SELECT
          85602    81      856      2   0  0              0        856                                             START OF SUBROUTINE
          85603    0       27       0   0  0              0                                    TEST ISSUE 6 OR     SELECT
          85604    30               0   0  0              4-                                   EARLIER             SHIFT (A) BY QUARTETS
          85605    12               0   0  0              7                                                        SUBTRACT LITERAL
          85606    72      856     55   0  0              0        856     >NO                                     JUMP IF A >= 0
          85607    0       7       10   1  0              0                FILE ID                                 SELECT
          85608    5       30      10   1  0              0                                                        TRANSFER
          85609    0       7       12   2  0              0                RUN NO                                  SELECT
          85610    5       30       4   0  0              0                                                        TRANSFER
          85611    5       30       7   0  0              0                SET NO                                  TRANSFER
          85612    5       30       8   0  0              0                IND                                     TRANSFER
          85613    0       7       16   2  0              0                TA LGTH                                 SELECT
          85614    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          85615    80      822      2   0  0              0        822     >TO DEC                                 ENTER SUBROUTINE
          85616    5       30       5   0  0              0                                                        TRANSFER
          85617    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          85618    0       7       14   2  0              0                P RTE PARAM                             SELECT
          85619    30               0   0  0              3                                    SEARCH LIST FOR     SHIFT (A) BY QUARTETS
          85620    5       869      2   0  0              0        869     W/L                 SECN ASSOCIATED     TRANSFER
          85621    91      24       2   0  3              0                2(R+T):2R           WITH THIS P RTE     SET MODIFICATION REGISTER AT VARIABLE
          85622    94      856     24   0  3              0        856     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85623    76      856     30   0  0              0        856     >NO TX AREAS                            JUMP unconditional
    85629>                                                                                                         
    85622>85624    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          85625    36      24       4   0  3              0                                                        COLLATE AND ADD
          85626    2       869      2   0  0              0        869                                             SUBTRACT
          85627    70      856     31   0  0              0        856     >SECN FOUND                             JUMP IF A == 0
  Source image: P1000757.JPG
          85628    10               0   0  0              0                                                        SELECT LITERAL
          85629    94      856     24   0  3              2        856                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    85623>85630    80      809      2   0  0              0        809     NOT FOUND ERROR S/R                     ENTER SUBROUTINE
    85627>85631    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          85632    36      24       4   0  3              0                SECN NO                                 COLLATE AND ADD
          85633    80      821      2   0  0              0        821     >TO BIN                                 ENTER SUBROUTINE
          85634    5       30       6   0  0              0                                                        TRANSFER
          85635    0       7        8   2  0              0                RTE PARAM                               SELECT
          85636    2       869      3   0  0              0        869     NO OF CHAPS                             SUBTRACT
          85637    2       869      3   0  0              0        869                                             SUBTRACT
          85638    12               0   0  0              1                                                        SUBTRACT LITERAL
          85639    31               0   0  0              1                                                        SHIFT (A) BY BITS
          85640    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          85641            24       5   0  3              0                FILE ID BITS 7-20                       SELECT
          85642    31               0   0  0              6-                                                       SHIFT (A) BY BITS
          85643    11               0   0  0           4000                RESTORE TOP CONTROL                     ADD LITERAL
          85644    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          85645    5       30       2   1  0              0                TRUE FILE ID OF TRIAL DATA SET          TRANSFER
          85646    80      849      2   0  0              0        849     >PROCESS T D HEADING                    ENTER SUBROUTINE
    85657>                                                                                                         
    85659>85647    80      848      2   0  0              0        848     >PRINT T D HEADING                      ENTER SUBROUTINE
          85648    10               0   0  0              8                SET BLOCK CTR 2 AT 8                    SELECT LITERAL
          85649    5       32     138   0  0              0                                                        TRANSFER
          85650    90               0   0  8             22                SET(MR8)=24:22                          SET MODIFICATION REGISTER AT LITERAL
          85651    C                0   0  0             24                                                        
          85652    80      861      2   0  0              0        861     >READ AND STORE BLOCK                   ENTER SUBROUTINE
          85653    80      864      2   0  0              0        864     >PRINT T D SET                          ENTER SUBROUTINE
          85654    82      856      2   0  0              0        856     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
    85606>85655    80      794      2   0  0              0        794     >PROCESS T D        HEADING             ENTER SUBROUTINE
          85656            23      46   0  0              0                 'PRINTOUT'INDICATOR                    SELECT
          85657    71      856     47   0  0              0        856     >PRINT ALL B/FWD DATA                   JUMP IF A != 0
          85658    0       871     42   1  0              0        871     ERROR WORD                              SELECT
          85659    71      856     47   0  0              0        856     >HEADING REPORTED   PRINT WHOLE SET     JUMP IF A != 0
          85660    0       7       26   1  0              0                STORE FILE ID                           SELECT
          85661    5       871     44   0  0              0        871                                             TRANSFER
          85662    52      5        2   0  0              0                EDIT 'FILE UNALTERED' LINE              EDIT
          85663    C       881      2   0  0              0        881                                             
          85664    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
    85668>85665    80      857      2   0  0              0        857     >READ,TEST CHAPT,PREND OR E             ENTER SUBROUTINE
          85666    70      856     69   0  0              0        856     >YES                                    JUMP IF A == 0
          85667    80      815      2   0  0              0        815     >WRITE A2                               ENTER SUBROUTINE
          85668    76      856     65   0  0              0        856     >                                       JUMP unconditional
    85666>85669    83      826      4   0  0              1        826     SET FIEND SWITCH AT 1                   SET SWITCH(ES) AT LITERAL VALUE
          85670    82      856      2   0  0              0        856                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          85700    PROCR   857       857     READ A1,TEST CHAPT PREND OR E                                         
          85701     NOTES          RADIX     B                                                                     SELECT
          85702    81      857      2   0  0              0        857                                             START OF SUBROUTINE
          85703    80      810      2   0  0              0        810     >READ A1                                ENTER SUBROUTINE
          85704    0       7        4   1  0              0                                                        SELECT
          85705    2       870      8   1  0              0        870                                             SUBTRACT
          85706    70      857     12   0  0              0        857     >YES                                    JUMP IF A == 0
          85707    1       870      8   1  0              0        870                                             ADD
          85708    2       870      6   1  0              0        870                                             SUBTRACT
          85709    70      857     12   0  0              0        857     >YES                                    JUMP IF A == 0
          85710    1       870      6   1  0              0        870                                             ADD
          85711    12               0   0  0             55                                                        SUBTRACT LITERAL
    85709>                                                                                                         
    85706>85712    82      857      2   0  0              0        857                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000758.JPG
          85800    PROCR   858       858     FORM TD WORD FOR PRINTING S/R                                         
          85801     NOTES          RADIX     B                                                                     SELECT
          85802    81      858      2   0  0              0        858                                             START OF SUBROUTINE
          85803    00      32       0   1  2              0                TEST ERROR WORD                         SELECT
          85804    02      872     16   1  0              0        872                                             SUBTRACT
          85805    71      858     10   0  0              0        858     >NO                                     JUMP IF A != 0
          85806    00      872     16   1  0              0        872                                             SELECT
          85807    05      32      22   1  2              0                                                        TRANSFER
          85808    83      787      4   0  0              2        787     SET -LINE SWITCH AT 2                   SET SWITCH(ES) AT LITERAL VALUE
          85809    76      858     71   0  0              0        858                                             JUMP unconditional
    85805>85810    10               0   0  0             3£                SET (B)=63                              SELECT LITERAL
          85811    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
    85823>85812    36      32       0   1  2              0                TEST WORD CONTAINS                      COLLATE AND ADD
          85813    05      32     122   1  0              0                W/L                                     TRANSFER
          85814    36      872      8   1  0              0        872                                             COLLATE AND ADD
          85815    02      32     122   1  0              0                                                        SUBTRACT
          85816    70      858     62   0  0              0        858     >YES                                    JUMP IF A == 0
          85817    10               0   0  0              0                                                        SELECT LITERAL
          85818    36      872     10   1  0              0        872     TEST WORD CONTAINS                      COLLATE AND ADD
          85819    02      32     122   1  0              0                                                        SUBTRACT
          85820    70      858     69   0  0              0        858     >YES                                    JUMP IF A == 0
    85868>85821    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          85822    10               0   0  0              0                TEST END OF WORD                        SELECT LITERAL
          85823    75      858     12   0  0              0        858     >NO                                     JUMP IF AB != 0
          85824    85      786      4   0  0              0        786     TEST B/E FOUND                          SWITCH R
          85825    C       858     71   0  0              0        858     >NO                                     
          85826    C       858     28   0  0              0        858     >YES                                    
          85827    C       803     38   0  0              0        803     GHASTLY MISTAKE                         
    85826>85828            872      4   1  0              0        872     SAFETY                                  SELECT
          85829    5       32      36   1  1              0                                                        TRANSFER
          85830    0       32       0   1  2              0                                                        SELECT
          85831    12               0   0  0     5200000052                                                        SUBTRACT LITERAL
          85832    70      858     37   0  0              0        858     >YES                                    JUMP IF A == 0
          85833    35               0   0  0         110000                ERROR REPORT B                          PREPARE FOR DIGIT COLLATION
          85834    10               0   0  0         525963                BIL                                     SELECT LITERAL
          85835    37      871     42   1  0              0        871                                             REPLACE SELECTED BITS
          85836    80      867      2   0  0              0        867     >ADD ONE TO OTHERS CTR                  ENTER SUBROUTINE
    85832>85837    85      785      2   0  0              0        785                         TEST BLOCK AND ITEM SWITCH R
          85838    C       858     87   0  0              0        858     >NO                 LGHS BEING CHECKED  
          85839    C       858     40   0  0              0        858     >YES                                    
    85839>85840    96               0   0  2              0                                    FORM UP WORD NO     SELECT MODIFIER
          85841    31               0   0  0              1-                                   OF B/E WORD         SHIFT (A) BY BITS
          85842    92               0   0  3              0                                                        SET MODIFIER AT VARIABLE
          85843    10               0   0  0              0                                                        SELECT LITERAL
          85844    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          85845    36      32      15   0  3              0                                                        COLLATE AND ADD
          85846    02      32     166   0  0              0                                    WORD CORRECT        SUBTRACT
          85847    70      858     52   0  0              0        858     >YES                                    JUMP IF A == 0
          85848    35               0   0  0             11                ERROR REPORT L                          PREPARE FOR DIGIT COLLATION
          85849    10               0   0  0         525963                                                        SELECT LITERAL
          85850    37      871     42   1  0              0        871                                             REPLACE SELECTED BITS
          85851    80      867      2   0  0              0        867     >ADD ONE TO OTHERS CTR                  ENTER SUBROUTINE
    85847>85852    10               0   0  0              0                                                        SELECT LITERAL
          85853    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          85854    36      32      15   0  3              0                                                        COLLATE AND ADD
          85855    02      32     165   0  0              0                                    LGTHS CORRECT       SUBTRACT
          85856    70      858     74   0  0              0        858     >OK                                     JUMP IF A == 0
          85857    35               0   0  0           1100                ERROR REPORT 1                          PREPARE FOR DIGIT COLLATION
          85858    10               0   0  0         525963                                                        SELECT LITERAL
          85859    37      871     42   1  0              0        871                                             REPLACE SELECTED BITS
  Source image: P1000759.JPG
          85860    80      867      2   0  0              0        867     >ADD ONE TO 'OTHERS'CTR                 ENTER SUBROUTINE
          85861    76      858     74   0  0              0        858                                             JUMP unconditional
    85816>85862    83      786      4   0  0              2        786     SET B/E FOUND SWITCH AT 2               SET SWITCH(ES) AT LITERAL VALUE
          85863    0       872     12   1  0              0        872     REPLACE B/E BY B                        SELECT
    85870>85864    37      32       0   1  2              0                                                        REPLACE SELECTED BITS
          85865    0       872     16   1  0              0        872     SET UP *                                SELECT
          85866    37      32      22   1  2              0                                                        REPLACE SELECTED BITS
          85867    83      787      4   0  0              2        787     SET*LINE SWITCH AT 2                    SET SWITCH(ES) AT LITERAL VALUE
          85868    76      858     21   0  0              0        858     >                                       JUMP unconditional
    85820>85869    0       872     14   1  0              0        872     REPLACE L/E BY L                        SELECT
          85870    76      858     64   0  0              0        858     >                                       JUMP unconditional
    85825>                                                                                                         
    85809>85871    85      785      2   0  0              0        785     CHECK BLOCK AND ITEM LENGTH'            SWITCH R
          85872    C       858     87   0  0              0        858     >NO                                     
          85873    C       858     74   0  0              0        858     >YES                                    
    85873>                                                                                                         
    85861>                                                                                                         
    85856>85874    96               0   0  2              0                                                        SELECT MODIFIER
          85875    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          85876    5       839      2   0  0              0        839     WL                                      TRANSFER
          85877    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          85878    124     839      2   0  1              0        839                                             modify address of next
          85879    36      32      15   0  0              0                PRINTER WORD NUMBER                     COLLATE AND ADD
          85880    2       32     165   0  0              0                POSITION OF NEXT ITEM LENGTH WORD       SUBTRACT
          85881    71      858     87   0  0              0        858     >NOT ITEM LENGTH POSITION               JUMP IF A != 0
          85882            32      36   2  1              0                ITEM LENGTH                             SELECT
          85883    80      822      2   0  0              0        822     >DEC                                    ENTER SUBROUTINE
          85884    60               0   0  0              0                                                        SET DECIMAL RADIX
          85885    4       32     165   0  0              0                EXPECTED POSITION NEXT ITEM LENGTH WORD AUGMENT
          85886    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    85881>                                                                                                         
    85872>                                                                                                         
    85838>85887    80      851      2   0  0              0        851     >WRITE O/P IF FULL                      ENTER SUBROUTINE
          85888    94      859     22   0  2              2        859     PRINTER LINE N OT FULL                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85889    90               0   0  3              0                TEST ZERO ANNEX                         SET MODIFICATION REGISTER AT LITERAL
          85890    C                0   0  0             14                                                        
    85893>85891            32       0   1  3              0                                                        SELECT
          85892    71      859      2   0  0              0        859     >SOMETHING TO PRINT                     JUMP IF A != 0
          85893    94      858     91   0  3              2        858                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          85894    76      859     16   0  0              0        859     >NOTHING TO PRINT                       JUMP unconditional
                                                                                                                   
          85900    PROCR   859       859     PRINT LINE OF TRIAL DATA                                              
    85892>85902    80      852      2   0  0              0        852     >EDIT BLOCK NUMBER                      ENTER SUBROUTINE
          85903    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          85904    85      787      2   0  0              0        787     LAST LINE CONTAINED FUNNIES'            SWITCH R
          85905    C       859     16   0  0              0        859     >NO                                     
          85906    C       859      7   0  0              0        859     >YES                                    
    85906>85907    80      819      2   0  0              0        819     >CLEAR FRONT OF ANNEX                   ENTER SUBROUTINE
          85908    52      5        6   0  0              0                EDIT WEIRD LINE                         EDIT
          85909    C       880      2   0  0              0        880                                             
          85910    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          85911    54      32      22   1  0             14                                                        BULK CLEAR
          85912    85      786      2   0  0              0        786     BEW FOUND IN MT TRIAL DATA'             SWITCH R
          85913    C       859     16   0  0              0        859     >NO                                     
          85914    C       859     21   0  0              0        859     >YES                                    
          85915    C       803     38   0  0              0        803     >GHASTLY MISTAKE                        
    85913>                                                                                                         
    85905>                                                                                                         
    85894>85916    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          85917    C                0   0  0             14                                                        
  Source image: P1000760.JPG
          85918    80      839      2   0  0              0        839     >STEP MT WORD NUMBERS                   ENTER SUBROUTINE
          85919    83      787      2   0  0              1        787     CLEAR'FUNNY LINE'IND                    SET SWITCH(ES) AT LITERAL VALUE
          85920    82      858      2   0  0              0        858                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    85914>85921    83      786      2   0  0              3        786     SET'BEW FOUND AND PRINTED'              SET SWITCH(ES) AT LITERAL VALUE
    85888>85922    82      858      2   0  0              0        858                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86000    PROCR   860       860     PROCESS UNAMENDED TRIAL DATA WORD EX MT                               
          86001     NOTES          RADIX     B                                                                     SELECT
          86002    81      860      2   0  0              0        860                                             START OF SUBROUTINE
          86003    0       32     140   1  8              0                NEXT I/P MT WORD                        SELECT
          86004    3       32      36   1  1              0                STORE FOR MT O/P                        COPY
          86005    5       32       0   1  2              0                STORE FOR PRINTING                      TRANSFER
          86006    85      781      2   0  0              0        781     TEST 1ST WORD OF BLOCK                  SWITCH R
          86007    C       860     22   0  0              0        860     >NO                                     
          86008    C       860      9   0  0              0        860     >YES                                    
    86008>86009    85      785      2   0  0              0        785     TEST BLOCK AND ITEM LGTHS TO BE CHECKED SWITCH R
          86010    C       860     17   0  0              0        860     >NO                                     
          86011    C       860     12   0  0              0        860     >YES                                    
    86011>86012    10               0   0  0              6                SET ITEM LGTH POSN=6                    SELECT LITERAL
          86013    3       32     165   0  0              0                                                        COPY
          86014    1       32       0   2  2              0                FORM AND STORE POSN OF B/E WORD         ADD
          86015    80      822      2   0  0              0        822     >CONVERT TO DEC                         ENTER SUBROUTINE
          86016    5       32     166   0  0              0                                                        TRANSFER
    86010>86017    83      781      2   0  0              1        781     SET SWITCH AT 1                         SET SWITCH(ES) AT LITERAL VALUE
          86018    0       32       0   1  2              0                (DON'T PRINT FIRST WORD IN'WORD 2'POSITISELECT
          86019    5       32       2   1  2              0                NEXT POSN                               TRANSFER
          86020    5       32       0   1  2              0                                                        TRANSFER
          86021    94      860     22   0  2              2        860     STEP(MR2)                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    86021>                                                                                                         
    86007>86022    80      858      2   0  0              0        858     >PROCESS WORD                           ENTER SUBROUTINE
          86023    80      861      2   0  0              0        861     >ADDRESS NEXT I/P MT WORD               ENTER SUBROUTINE
          86024    82      860      2   0  0              0        860     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86100    PROCR   861       861     ADDRESS NEXT I/P TRIAL DATA WORD EX MT                                
          86101     NOTES          RADIX     B                                                                     SELECT
          86102    81      861      2   0  0              0        861                                             START OF SUBROUTINE
          86103            32     140   1  8              0                LAST MT WORD                            SELECT
          86104    2       872      4   1  0              0        872     BEW                                     SUBTRACT
          86105    71      861     10   0  0              0        861     >NO                                     JUMP IF A != 0
          86106    60               0   0  0              0                                                        SET DECIMAL RADIX
          86107    10               0   0  0              1                                                        SELECT LITERAL
          86108    4       32     138   0  0              0                                                        AUGMENT
          86109    62               0   0  0              0                STEP I/P BLOCK CTR                      SET EXCESS CONSTANTS
    86105>86110    94      861     27   0  8              2        861                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          86111    80      810      2   0  0              0        810     >READ A1                                ENTER SUBROUTINE
          86112    95               0   0  1              0                PRESERVE                                SELECT MODIFICATION REGISTER
          86113    5       875      2   1  0              0        875                                             TRANSFER
          86114    90               0   0  1              0                COPY NEXT I/P BLOCK                     SET MODIFICATION REGISTER AT LITERAL
          86115    C                0   0  0             48                                                        
          86116    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          86117    C                0   0  0             24                                                        
    86123>86118    0       7        4   2  1              0                                                        SELECT
          86119    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          86120    1       7        6   2  1              0                                                        ADD
          86121    5       32     140   1  3              0                                                        TRANSFER
          86122    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          86123    94      861     18   0  3              2        861                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          86124    91      875      2   0  1              0        875     RESTORE MR1                             SET MODIFICATION REGISTER AT VARIABLE
          86125    90               0   0  8              0                RESET (MR8)                             SET MODIFICATION REGISTER AT LITERAL
          86126    C                0   0  0             24                                                        
  Source image: P1000761.JPG
    86110>86127    82      861      2   0  0              0        861                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86200    PROCR   862       862     READ TO END OF BLOCK S/R                                              
          86201     NOTES          RADIX     B                                                                     SELECT
          86202    81      862      2   0  0              0        862                                             START OF SUBROUTINE
    86207>86203    00      32     140   1  8              0                                    TEST B/E WORD       SELECT
          86204    02      872      4   1  0              0        872                                             SUBTRACT
          86205    70      862      8   0  0              0        862     >YES LEAVE S/R                          JUMP IF A == 0
          86206    80      861      2   0  0              0        861     >STEP MR8 S/R                           ENTER SUBROUTINE
          86207    76      862      3   0  0              0        862     >                                       JUMP unconditional
    86205>86208    80      861      2   0  0              0        861     >ADDRESS NEXT I/P MT WORD S/R           ENTER SUBROUTINE
          86209    82      862      2   0  0              0        862     >                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86300    PROCR   863       863     PROCESS TO END OF TD BLOCK S/R                                        
          86301     NOTES          RADIX     B                                                                     SELECT
          86302    81      863      2   0  0              0        863                                             START OF SUBROUTINE
    86308>86303    85      786      4   0  0              0        786     B/E SWITCH                              SWITCH R
          86304    C       863      7   0  0              0        863     >NO                                     
          86305    C       863      9   0  0              0        863     >YES                                    
          86306    C       863     10   0  0              0        863     >YES                                    
    86304>86307    80      860      2   0  0              0        860     >PROCESS WORD                           ENTER SUBROUTINE
          86308    76      863      3   0  0              0        863     >                                       JUMP unconditional
    86305>86309    80      853      2   0  0              0        853     >END OF TRIAL DATA BLOCK S/R            ENTER SUBROUTINE
    86306>86310    82      863      2   0  0              0        863                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86400    PROCR   864       864     WRITE AND PRINT TO FIEND S/R                                          
          86401     NOTES          RADIX     B                                                                     SELECT
          86402    81      864      2   0  0              0        864                                             START OF SUBROUTINE
          86403    00      7        4   1  0              0                                    TEST PREND OR       SELECT
          86404    02      870      8   1  0              0        870                         E BLOCK IN ANNEXE   SUBTRACT
          86405    70      864     22   0  0              0        864     >YES                                    JUMP IF A == 0
          86406    01      870      8   1  0              0        870                                             ADD
          86407    12               0   0  0             55                                                        SUBTRACT LITERAL
          86408    70      864     22   0  0              0        864     >YES                                    JUMP IF A == 0
          86409    11               0   0  0             55                                    TEST CHAPT          ADD LITERAL
          86410    02      870      6   1  0              0        870                                             SUBTRACT
          86411    70      864     22   0  0              0        864     >YES                                    JUMP IF A == 0
    86420>86412    96               0   0  8              0                                    TEST FIEND REACHED  SELECT MODIFIER
          86413    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          86414    92               0   0  2              0                                                        SET MODIFIER AT VARIABLE
          86415    00      7        4   1  2              0                                                        SELECT
          86416    02      870      4   1  0              0        870                                             SUBTRACT
          86417    70      864     21   0  0              0        864     >YES                                    JUMP IF A == 0
          86418    80      838      2   0  0              0        838     >RESET WORD NOS,MR2 AND SWITCHES        ENTER SUBROUTINE
          86419    80      863      2   0  0              0        863     >PROCESS TO END OF T.D.BLOCK            ENTER SUBROUTINE
          86420    76      864     12   0  0              0        864                                             JUMP unconditional
    86417>86421    80      810      2   0  0              0        810     READ A1                                 ENTER SUBROUTINE
    86411>                                                                                                         
    86408>                                                                                                         
    86405>86422    85      826      4   0  0              0        826     FIEND SWITCH                            SWITCH R
          86423    C       864     53   0  0              0        864                                             
          86424    C       864     25   0  0              0        864                                             
    86424>86425    90               0   0 12              0                                                        SET MODIFICATION REGISTER AT LITERAL
          86426    C                0   0  0             24                                                        
          86427    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          86428    C                0   0  0             48                                                        
    86434>86429    00      32      37   0 12              0                                                        SELECT
          86430    05      8        4   2  3              0                                                        TRANSFER
          86431    00      32      36   0 12              0                                                        SELECT
          86432    05      8        6   2  3              0                                                        TRANSFER
  Source image: P1000762.JPG
          86433    94               0   0  3              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          86434    94      864     29   0 12              2        864                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          86435    96               0   0  1              0                                                        SELECT MODIFIER
          86436    98               0   0  1              0                                                        ADD MODIFICATION REGISTER TO A
          86437    92               0   0  1              0                                                        SET MODIFIER AT VARIABLE
          86438    00      870      4   1  0              0        870     FIEND                                   SELECT
          86439    05      8        4   1  1              0                                                        TRANSFER
          86440    80      816      2   0  0              0        816     WRITE                                   ENTER SUBROUTINE
          86441    52      5        2   0  0              0                                                        EDIT
          86442    C       879      2   0  0              0        879     EDIT BLOCK NUMBER                       
          86443    10               0   0  0     5659655972                FINIS'                                  SELECT LITERAL
          86444    5       5        8   1  0              0                                                        TRANSFER
          86445            27       9   0  0              0                                                        SELECT
          86446    70      864     49   0  0              0        864     >YES                                    JUMP IF A == 0
          86447    54      5       10   0  0             40                CLEAR REST OF LINE                      BULK CLEAR
          86448    76      864     51   0  0              0        864     >PRINT                                  JUMP unconditional
    86446>86449    0       872      4   1  0              0        872     BEW                                     SELECT
          86450    5       5       10   1  0              0                                                        TRANSFER
    86448>86451    80      817      2   0  0              0        817     >PRINT                                  ENTER SUBROUTINE
          86452    83      826      4   0  0              1        826     RESET FIEND SWITCH                      SET SWITCH(ES) AT LITERAL VALUE
    86423>86453    82      864      2   0  0              0        864                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86500    PROCR   865       865     ADD ONE TO P/T OMITTED COUNTER                                        
          86502    81      865      2   0  0              0        865                                             START OF SUBROUTINE
          86503    10               0   0  0              1                                                        SELECT LITERAL
          86504    60               0   0  0              0                                                        SET DECIMAL RADIX
          86505    04      869      5   0  0              0        869                                             AUGMENT
          86506    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          86507    82      865      2   0  0              0        865                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86600    PROCR   866       866     ADD ONE TO DISASTROUS COUNTER                                         
          86602    81      866      2   0  0              0        866                                             START OF SUBROUTINE
          86603    10               0   0  0              1                                                        SELECT LITERAL
          86604    60               0   0  0              0                                                        SET DECIMAL RADIX
          86605    04      869      6   0  0              0        869                                             AUGMENT
          86606    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          86607    82      866      2   0  0              0        866                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86700    PROCR   867       867     ADD ONE TO OTHERS COUNTER                                             
          86702    81      867      2   0  0              0        867                                             START OF SUBROUTINE
          86703    10               0   0  0              1                                                        SELECT LITERAL
          86704    60               0   0  0              0                                                        SET DECIMAL RADIX
          86705    04      869      7   0  0              0        869                                             AUGMENT
          86706    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          86707    82      867      2   0  0              0        867                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          86800    CONST   868       868     0                                                                     
          86802          (D)£££££;                                                                                 
          86803          3£££0;                                            BITS 5-18                               
          86804          80000;                                            BIT 20                                  
          86805          123.:;                                            PRINTING                                
          86806          3££;                                              BITS 1-10                               
                                                                                                                   
          86900    CONST   869       869     0                                                                     
          86902          (D)0;                                             GENERAL W/L                             
          86903          0;                                                NO OF CHAPS INITIALLY                   
          86904          0;                                                W/L FOR PRINTING                        
          86905          0;                                                P/T OMITTED                             
          86906          0;                                                DISASTROUS                              
          86907          0;                                                OTHERS                                  
  Source image: P1000763.JPG
          86908          ;                                                 ACTUAL SET NUMBER IN Q1                 
          86909          ;                                                                                         
          86910          ;                                                 FILE                                    
          86911          ;                                                                                         
          86912          ;                                                 SET NUMBER                              
          86913          ;                                                                                         
          86914          ;                                                 WL FOR R-ALIGN SR                       
          86915          ;                                                                                         
                                                                                                                   
          87000    CONST   870       870     1    ALPHA CONSTANTS                                                  
          87002          (A)TRAMD;                                                                                 
          87004          FIEND;                                                                                    
          87006          CHAPT;                                                                                    
          87008          PREND;                                                                                    
          87010          (A)FILES;                                                                                 
          87012          (A)DUMPS;                                                                                 
          87014          (A)DUMP ;                                                                                 
          87016          PROG ;                                                                                    
          87018          IND  ;                                                                                    
                                                                                                                   
          87100    CONST   871       871     1    PRINTING CONSTANTS                                               
          87102          (A)ERIAL;                                                                                 
          87104          TYPE;                                                                                     
          87106          CHAPS;                                                                                    
          87108          SECNS;                                                                                    
          87110          POINT;                                                                                    
          87112          SETOR;                                                                                    
          87114          BLOCK;                                                                                    
          87116          LGTH;                                                                                     
          87118          (A)RUN(D)7Ю7‼;                                                                            
          87120          UNALT;                                                                                    
          87122          ERED ;                                                                                    
          87124          RAMME;                                                                                    
          87126          TRIAL;                                                                                    
          87128          DATA ;                                                                                    
          87130          *NAND;                                                                                    
          87132            MBS;                                                                                    
          87134          ORDER;                                                                                    
          87136          = FIX;                                                                                    
          87138          = VAR;                                                                                    
          87140          ;                                                 PRINTER W/L                             
          87142          ;                                                 ERROR W/L                               
          87144          ;                                                 ERROR W/L                               
          87146          (D)5:677173  ;                                    ?P/T                                    
                                                                                                                   
          87200    CONST   872       872     1    DECIMAL CONSTANTS                                                
          87202          (D)0;                                                                                     
          87204          7.0000007.;                                       B/E WORD                                
          87206          0000000800;                                       HEAD OF FORM FUNCTION WD                
          87208          7.7.7.7.7.;                                       BLOCK ENDS                              
          87210          5.5.5.5.5.;                                       LINE ENDS                               
          87212          5252525252;                                       B'S                                     
          87214          6363636363;                                       L'S                                     
          87216          5‼5‼5‼5‼5‼;                                       ASTERISKS                               
          87218          5£5£5£5£5£;                                       SQUARES                                 
          87220          5:5:5:5:5:;                                       QUESTION MARKS                          
                                                                                                                   
          87300    TABLE   873       873     4    VARIOUS UNPACK TABLES                                            
          87301     NOTES                                                                                          
          87302    30     0     0     0  2  0   0   0   0   0  0  0  0     TRAMD                                   
  Source image: P1000764.JPG
          87304    30     2     0     0  0  1   0   0   0   0  0  0  1     SUITE JOB SERIAL                        
          87306    30     0     0     0  2  0   0   0   0   0  0  0  0     FILES                                   
          87308    30     2     0     0  2  0   0   0   0   0  0  0  0     ROUTE IDENTIFIER                        
          87310    30    10     0     0  2  0   0   0   0   0  0  0  0     FILE ID                                 
          87312    30     4     0     0  0  1   0   0   0   0  0  0  1     RUN NO , BLOCK SIZE, SECN, SET,IND      
          87314   869     2     0     0  0  0   0   0   0   0  0  0  0     LINE SERIAL                             
          87316    30     0     0     0  0  1   0   0   0   0  0  0  1     P M POINT                               
          87318   833     2     0     0  2  0   0   0   0   0  0  0  0     FILEA'                                  
          87320   833     2     0     0  2  0   0   0   0   0  0  0  0     FILE                                    
          87322   833     4     0     0  1  0   0   0   0   0  0  0  0     SET                                     
          87324   833     6     0     0  2  0   0   0   0   0  0  0  0     BLOCK (+LETTER ?)                       
          87326   833     8     0     0  2  0   0   0   0   0  0  0  0     FIRST WORD/LAST BLOCK (+LETTER ?)       
          87328   833    10     0     0  1  0   0   0   0   0  0  0  1     LAST WORD                               
                                                                                                                   
          87400    TABLE   874       874     3    UNPACK TABLES FOR CARDS                                          
          87401     NOTES                                                                                          
          87402    30     0     0     0  2  0   5   0   0   0  0  0  0     TRAMD                                   
          87404    30     2     0     0  0  0   3   0   0   0  0  0  0     SUITE                                   
          87406    30     3     0     0  0  0   2   0   0   0  0  0  0     JOB                                     
          87408    30     4     0     0  0  0   5   0   0   0  0  0  1     SERIAL                                  
          87410    30     0     0     0  0  0   6   0   0   0  0  0  0     /////LINE SERIAL                        
          87412    30     0     0     0  0  0   5   0   0   0  0  0  0     I/O SERIAL                              
          87414    30     1     0     0  0  0   1   0   0   0  0  0  0     TYPE                                    
          87416    30     2     0     0  0  0   3   0   0   0  0  0  0     N1                                      
          87418    30     3     0     0  0  0   3   0   0   0  0  0  0     N2                                      
          87420    30     4     0     0  0  0   3   0   0   0  0  0  0     N3                                      
          87422    30     5     0     0  0  0   4   0   0   0  0  0  0     DETAILS                                 
          87424    30     6     0     0  0  0   4   0   0   0  0  0  0                                             
          87426    30     7     0     0  0  0   4   0   0   0  0  0  0                                             
          87428    30     8     0     0  0  0   4   0   0   0  0  0  0                                             
          87430    30     9     0     0  0  0   4   0   0   0  0  0  0                                             
          87432    30    10     0     0  0  0   4   0   0   0  0  0  0                                             
          87434    30    11     0     0  0  0   4   0   0   0  0  0  0                                             
          87436    30    12     0     0  0  0   4   0   0   0  0  0  0                                             
          87438    30    13     0     0  0  0   4   0   0   0  0  0  0                                             
          87440    30    14     0     0  0  0   4   0   0   0  0  0  0                                             
          87442    30    15     0     0  0  0   4   0   0   0  0  0  0                                             
          87444    30    16     0     0  0  0   4   0   0   0  0  0  0                                             
          87446    30    17     0     0  0  0   4   0   0   0  0  0  1                                             
          87448    30     0     0     0  2  0   5   0   0   0  0  0  0     FILES                                   
          87450    30     2     0     0  2  0   2   0   0   0  0  0  0     RTE IDENT                               
          87452    30    10     0     0  2  0   2   0   0   0  0  0  0     FILE ID                                 
          87454    30     4     0     0  0  0   4   0   0   0  0  0  0     RUN NO                                  
          87456    30     5     0     0  0  0   4   0   0   0  0  0  0     BLOCK LGTH                              
          87458    30     6     0     0  0  0   2   0   0   0  0  0  0     SECN NO                                 
          87460    30     7     0     0  0  0   1   0   0   0  0  0  0     SET NO                                  
          87462    30     8     0     0  0  0   1   0   0   0  0  0  1     IND                                     
          87464   833     2     0     0  2  0   5   0   0   0  0  0  0     FILEA'                                  
          87466   833     2     0     0  2  0   2   0   0   0  0  0  0     FILE ID                                 
          87468   833     4     0     0  1  0   1   0   0   0  0  0  0     SET                                     
          87470   833     6     0     0  2  0   5   0   0   0  0  0  0                                             
          87472   833     8     0     0  2  0   5   0   0   0  0  0  0                                             
          87474   833    10     0     0  1  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          87500    TABLE   875       875     1    PRINTER HEADING                                                  
          87501     NOTES                                                                                          
          87502   870    16     0     0  2  0   4   0   5   0  0  0  0     PROG'                                   
          87504   871    24     0     0  2  0   5   0   0   0  0  0  0     RAMME                                   
          87506    16     2     0     0  0  0   5   0   1   0  0  0  0     PROG ID                                 
          87508   870    10     0     0  2  0   1   4   2   0  0  0  0     2 SP S                                  
  Source image: P1000765.JPG
          87510   871     2     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          87512    16     3     0     0  0  0   5   0   1   4  0  0  0     PROG SERIAL                             
          87514   871    26     0     0  2  0   5   0   2   0  0  0  0     2 SP TRIAL                              
          87516   871    28     0     0  2  0   4   0   1   0  0  0  0     SP DATA                                 
          87518   871    30     0     0  2  0   3   2   1   0  0  0  0     SP AND                                  
          87520   870    12     0     0  2  0   5   0   1   0  0  0  0     SP DUMPS                                
          87522   871    10     0     0  2  0   5   0   1   0  0  0  0     SP POINT                                
          87524   870    10     0     0  2  0   1   4   0   0  0  0  0     S                                       
          87526   872     4     0     0  2  0   1   1   1   0  0  0  1                                             
                                                                                                                   
          87600    TABLE   876       876     1    PM POINT HEADING LINE                                            
          87601     NOTES                                                                                          
          87602   871     8     0     0  2  0   1   0  13   0  0  0  0     13 SP S                                 
          87604   871     2     0     0  2  0   5   0   0   0  0  0  0     ERIAL                                   
          87606   871     4     0     0  2  0   4   1   2   0  0  0  0     2SP TYPE                                
          87608   871     8     0     0  2  0   1   3   2   0  0  0  0     2SPN                                    
          87610   868     5     0     0  0  0   1   0   0   0  0  0  0     1                                       
          87612   871     8     0     0  2  0   1   3   3   0  0  0  0     3 SP N                                  
          87614   868     5     0     0  0  0   1   1   0   0  0  0  0     2                                       
          87616   871     8     0     0  2  0   1   3   3   0  0  0  0     3 SP N                                  
          87618   868     5     0     0  0  0   1   2   0   0  0  0  0     3                                       
          87620   871     6     0     0  2  0   5   0   5   0  0  0  0     5 SP CHAPS                              
          87622   871     8     0     0  2  0   5   0   1   0  0  0  0     SP SECNS                                
          87624   871    12     0     0  2  0   2   3   1   0  0  0  0     SP OR                                   
          87626   871    10     0     0  2  0   5   0   1   0  0  0  0     SP POINT                                
          87628   871     8     0     0  2  0   1   0   0   0  0  0  0     S                                       
          87630   872     4     0     0  2  0   1   1   4   0  0  0  1     B/E                                     
                                                                                                                   
          87700    TABLE   877       877     1    PRINT PM POINT LINE                                              
          87701     NOTES                                                                                          
          87702   870    12     0     0  2  0   4   0   5   0  0  0  0     DUMP                                    
          87704   869     4     0     0  0  0   1   4   0   0  0  0  0     DUMP NO                                 
          87706    30     0     0     0  0  0   5   0   3   0  0  0  0     3 SP R/C SERIAL                         
          87708    30     1     0     0  0  0   2   3   4   1  2  0  0     4SP TYPE                                
          87710    30     2     0     0  0  0   3   2   1   2  2  0  0     1SP TYPE*****                           
          87712    30     3     0     0  0  0   3   2   1   2  2  0  0     1SP N2                                  
          87714    30     4     0     0  0  0   3   2   1   2  2  0  1     1SP N3                                  
          87716    30     5     0     0  0  0   3   2   6   3  2  0  0     IST CHAP OR SECN                        
          87718    30     6     0     0  0  0   3   2   6   3  2  0  0     2ND CHAP OR SECN                        
          87720    30     7     0     0  0  0   3   2   6   3  2  0  0     3RD CHAP OR SECN                        
          87722    30     8     0     0  0  0   3   2   6   3  2  0  0     4TH CHAP OR SECN                        
          87724   872     2     0     0  1  0  10   0   0  10  0  0  0     10 SP                                   
          87726   871    40     0     0  2  0   5   0  15   0  0  0  0     14 SP ERROR REPORT                      
          87728   871    42     0     0  2  0   5   0   0   0  0  0  0     15 SP ERROR REPORT                      
          87730   871    44     0     0  2  0   5   0   0   0  0  0  0     MORE                                    
          87732   872     4     0     0  2  0   5   0   0   0  0  0  1                                             
          87734    30     5     0     0  0  0   3   2   6   2  0  0  0     6SP FIRST REF                           
          87736   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
          87738    30     6     0     0  0  0   4   1   0   3  2  0  0     1ST ITEM                                
          87740    30     7     0     0  0  0   3   2   1   2  0  0  0     1SP 2ND REF                             
          87742   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
          87744    30     8     0     0  0  0   4   1   0   3  2  0  0     2ND ITEM                                
          87746    30     9     0     0  0  0   3   2   1   2  0  0  0     1SP 3RD REF                             
          87748   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
          87750    30    10     0     0  0  0   4   1   0   3  2  0  0     3RD ITEM                                
          87752    30    11     0     0  0  0   3   2   1   2  0  0  0     1SP 4TH REF                             
          87754   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
          87756    30    12     0     0  0  0   4   1   0   3  2  0  0     4TH ITEM                                
          87758    30    13     0     0  0  0   3   2   1   2  0  0  0     1SP 5TH REF                             
          87760   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
  Source image: P1000766.JPG
          87762    30    14     0     0  0  0   4   1   0   3  2  0  0     5TH ITEM                                
          87764    30    15     0     0  0  0   3   2   1   2  0  0  0     1SP 6TH REF                             
          87766   868     5     0     0  0  0   1   4   0   0  0  0  0     :                                       
          87768    30    16     0     0  0  0   4   1   0   3  2  0  0     6TH ITEM                                
          87770   871    40     0     0  2  0   5   0   0   0  0  0  0     ERROR REPORTS                           
          87772   871    42     0     0  2  0   5   0   0   0  0  0  0                                             
          87774   871    44     0     0  2  0   5   0   0   0  0  0  0                                             
          87776   872     4     0     0  2  0   5   0   0   0  0  0  1     8/E                                     
                                                                                                                   
          87800    TABLE   878       878     1    TRIAL DATA HEADING LINE                                          
          87801     NOTES                                                                                          
          87802   870    10     0     0  2  0   4   0   5   0  0  0  0     FILE                                    
          87804    30     2     0     0  2  0   2   0   1   0  0  0  0     SP FILE ID                              
          87806   871    18     0     0  2  0   1   3   1   0  0  0  0     SP (                                    
          87808    30    10     0     0  2  0   2   0   0   0  0  0  0     OTHER FILE ID                           
          87810   871    18     0     0  2  0   1   4   0   0  0  0  0     )                                       
          87812   871    18     0     0  2  0   3   0   2   0  0  0  0     ZSP RUN                                 
          87814    32   167     0     0  0  0   4   1   1   3  0  0  0     SP RUN NO                               
          87816   871    14     0     0  2  0   5   0   2   0  0  0  0     2SP BLOCK                               
          87818   871    16     0     0  2  0   4   1   1   0  0  0  0     SP LGTH                                 
          87820    32   168     0     0  0  0   4   1   1   3  0  0  0     SP LENGTH                               
          87822   871     8     0     0  2  0   4   0   2   0  0  0  0     2SP SECN                                
          87824    32   169     0     0  0  0   2   3   1   1  0  0  0                                             
          87826   871    12     0     0  2  0   3   0   2   0  0  0  0     2SP SET                                 
          87828    30     7     0     0  0  0   2   3   1   1  0  0  0                                             
          87830   870    18     0     0  2  0   3   0   2   0  0  0  0     'IND'                                   
          87832    30     8     0     0  0  0   1   4   1   0  0  0  0                                             
          87834   871    40     0     0  2  0   5   0   1   0  0  0  0     SP IND                                  
          87836   872     2     0     0  1  0  10   0  15  10  0  0  0     25 SPACES                               
          87838   871    42     0     0  2  0   5   0  10   0  0  0  0     10 SP ERROR REPORT                      
          87840   872     4     0     0  2  0   1   1   0   0  0  0  1                                             
                                                                                                                   
          87900    TABLE   879       879     1    EDIT LINE OF TRIAL DATA                                          
          87901     NOTES                                                                                          
          87902   868     5     0     0  0  0   1   3   3   0  0  0  0     3SP.                                    
          87904    32    14     0     0  0  0   4   1   1   3  0  0  0     BLOCK NO                                
          87906   868     5     0     0  0  0   1   3   0   0  0  0  1     .                                       
          87908    32    15     0     0  0  0   4   1   2   3  0  0  0     2 SP WORD NO                            
          87910   868     5     0     0  0  0   1   3   2   0  0  0  0     2SP.                                    
          87912    32     0     0     0  2  0   5   0   0   0  0  0  0     1ST WORD                                
          87914   868     5     0     0  0  0   1   3   0   0  0  0  0     .                                       
          87916    32    16     0     0  0  0   4   1   2   3  0  0  0                                             
          87918   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87920    32     2     0     0  2  0   5   0   0   0  0  0  0                                             
          87922   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87924    32    17     0     0  0  0   4   1   2   3  0  0  0                                             
          87926   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87928    32     4     0     0  2  0   5   0   0   0  0  0  0                                             
          87930   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87932    32    18     0     0  0  0   4   1   2   3  0  0  0                                             
          87934   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87936    32     6     0     0  2  0   5   0   0   0  0  0  0                                             
          87938   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87940    32    19     0     0  0  0   4   1   2   3  0  0  0                                             
          87942   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87944    32     8     0     0  2  0   5   0   0   0  0  0  0                                             
          87946   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87948    32    20     0     0  0  0   4   1   2   3  0  0  0                                             
          87950   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87952    32    10     0     0  2  0   5   0   0   0  0  0  0                                             
  Source image: P1000767.JPG
          87954   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87956    32    21     0     0  0  0   4   1   2   3  0  0  0                                             
          87958   868     5     0     0  0  0   1   3   2   0  0  0  0                                             
          87960    32    12     0     0  2  0   5   0   0   0  0  0  0                                             
          87962   868     5     0     0  0  0   1   3   0   0  0  0  0                                             
          87964   871    42     0     0  2  0   3   2   2   0  0  0  0     2SP ERROR INDS                          
          87966   872     4     0     0  2  0   5   0   0   0  0  0  1     B/E                                     
                                                                                                                   
          88000    TABLE   880       880     1    EDIT + LINE                                                      
          88001     NOTES                                                                                          
          88002    32    22     0     0  2  0   5   0   9   0  0  0  0                                             
          88004    32    24     0     0  2  0   5   0  10   0  0  0  0                                             
          88006    32    26     0     0  2  0   5   0  10   0  0  0  0                                             
          88008    32    28     0     0  2  0   5   0  10   0  0  0  0                                             
          88010    32    30     0     0  2  0   5   0  10   0  0  0  0                                             
          88012    32    32     0     0  2  0   5   0  10   0  0  0  0                                             
          88014    32    34     0     0  2  0   5   0  10   0  0  0  0                                             
          88016   872     4     0     0  2  0   1   1   0   0  0  0  1                                             
                                                                                                                   
          88100    TABLE   881       881     1    FILE UNALTERED LINE                                              
          88101     NOTES                                                                                          
          88102   870    10     0     0  2  0   4   0  15   0  0  0  0     15SP FILE                               
          88104   871    44     0     0  2  0   2   3   2   0  0  0  0     2SP FILE ID                             
          88106   871    12     0     0  2  0   1   2   3   0  0  0  0     3SP T                                   
          88108   870     2     0     0  2  0   1   4   1   0  0  0  0     'D'                                     
          88110   871    12     0     0  2  0   3   0   1   0  0  0  0     SP SET                                  
          88112    30     7     0     0  0  0   2   3   1   1  0  0  0     SP SET NO                               
          88114   871    20     0     0  2  0   5   0   3   0  0  0  0     3SP UNALT                               
          88116   871    22     0     0  2  0   4   0   0   0  0  0  0     ERED                                    
          88118   872     4     0     0  2  0   1   1   1   0  0  0  1                                             
                                                                                                                   
          88200    PROCR   882       882     08005 INSERTED BEFORE HERE-FINAL ROUTINES                             
    80405>                                                                                                         
    77803>88202    0       27       3   0  0              0                                                        SELECT
          88203    70      882      9   0  0              0        882                                             JUMP IF A == 0
          88204            27       4   0  0              0                COMPILER CALLED TRANSLATOR?             SELECT
          88205    70      882      8   0  0              0        882     >NO                                     JUMP IF A == 0
          88206    45      A1       0   0  0              1                REWIND                                  REWIND
          88207    76      882      9   0  0              0        882                                             JUMP unconditional
    88205>88208    41      A1       0   0  0              1                                                        CLOSE FILE
    88207>                                                                                                         
    88203>88209    54      8        4   1  0             48                                                        BULK CLEAR
          88210    10               0   0  0             55                                                        SELECT LITERAL
          88211    5       8        4   1  0              0                                                        TRANSFER
          88212    80      890      2   0  0              0        890     >WRITE'E'                               ENTER SUBROUTINE
          88213            27      12   0  0              0                                                        SELECT
          88214    71      776      2   0  0              0        776     >CALL PASS 6,WRITE PTS(2)AND(3)         JUMP IF A != 0
    91825>88215            908      2   1  0              0        908     'PREND'                                 SELECT
          88216    5       8        4   1  0              0                                                        TRANSFER
          88217            16       2   0  0              0                PROG ID                                 SELECT
          88218    5       8        6   2  0              0                                                        TRANSFER
          88219    80      890      2   0  0              0        890     >WRITE'PREND'                           ENTER SUBROUTINE
          88220            908     12   1  0              0        908     'INDEX'   'INDEX'BLOX                   SELECT
          88221    5       8        6   1  0              0                                                        TRANSFER
          88222            908     26   2  0              0        908     '£££££'                                 SELECT
          88223    5       8        8   2  0              0                                                        TRANSFER
          88224    10               0   0  0              4                                                        SELECT LITERAL
          88225    5       8       10   1  0              0                                                        TRANSFER
          88226            908     26   1  0              0        908     ALIGNMENT MARKS                         SELECT
          88227    5       8        4   1  0              0                                                        TRANSFER
  Source image: P1000768.JPG
          88228    80      890      2   0  0              0        890     >WRITE                                  ENTER SUBROUTINE
          88229            16       2   0  0              0                PROG IDENTITY                           SELECT
          88230    3       8        4   2  0              0                                                        COPY
          88231    5       8       12   2  0              0                                                        TRANSFER
          88232            16       3   0  0              0                PROG SERIAL                             SELECT
          88233    3       8        6   2  0              0                                                        COPY
          88234    5       8       14   2  0              0                                                        TRANSFER
          88235    10               0   0  0              2                                                        SELECT LITERAL
          88236    5       8       10   2  0              0                                                        TRANSFER
          88237    10               0   0  0              3                                                        SELECT LITERAL
          88238    3       8       18   2  0              0                                                        COPY
          88239    10               0   0  0              2                                                        SELECT LITERAL
          88240    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
          88241    5       8       16   2  0              0                                                        TRANSFER
          88242            908     26   2  0              0        908      '£££££'                                SELECT
          88243    5       8       20   2  0              0                                                        TRANSFER
          88244    80      890      2   0  0              0        890     >WRITE'INDEX'DATA                       ENTER SUBROUTINE
          88245    45      A6       0   0  0              1                                                        REWIND
          88246    54      5        0   1  0             48                                                        BULK CLEAR
          88247    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          88248    C                0   0  0              5                                                        
    88250>88249    80      892      2   0  0              0        892     >PRINT 5 BLANK LINES                    ENTER SUBROUTINE
          88250    94      882     49   0  1              1        882                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          88251    55      908     78   1  0             26        908                                             BULK COPY
          88252    C       5       10   1  0              0                                                        
          88253    80      888      2   0  0              0        888     >SUPPRESS I/C IF TRAMD ONLY             ENTER SUBROUTINE
          88254    80      892      2   0  0              0        892     >PRINT                                  ENTER SUBROUTINE
                                                                                                                   
          88300    PROCR   883       883     PRINT FINAL LINE, TEST FOR PASS 3 COPY                                
          88302    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          88303    C                0   0  0             13                                                        
          88304            27       6   0  0              0                 'PT OMITTED'                           SELECT
          88305    70      883      8   0  0              0        883     >NO                                     JUMP IF A == 0
          88306            908     74   1  0              0        908      'YES'                                  SELECT
          88307    76      883      9   0  0              0        883                                             JUMP unconditional
    88305>88308            908     76   1  0              0        908      'NO'                                   SELECT
    88307>88309    5       5       12   1  0              0                                                        TRANSFER
          88310    0       869      5   0  0              0        869     TRIAL DATA PT IND                       SELECT
          88311    70      883     14   0  0              0        883                                             JUMP IF A == 0
          88312    0       908     74   1  0              0        908      'YES'                                  SELECT
          88313    76      883     15   0  0              0        883                                             JUMP unconditional
    88311>88314    0       908     76   1  0              0        908      'NO'                                   SELECT
    88313>88315    5       5       18   1  0              0                                                        TRANSFER
          88316    80      915      2   0  0              0        915     PRINT                                   ENTER SUBROUTINE
          88317    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          88318            869      6   0  0              0        869     TD'DISASTEROUS'                         SELECT
          88319    5       908     56   0  0              0        908                                             TRANSFER
          88320    86      511      2   0  0              0        511     SERIOUS ERRORS CTR                      SELECT SWITCH R
          88321    80      912      2   0  0              0        912     CONVERT                                 ENTER SUBROUTINE
          88322    80      916      2   0  0              0        916     EDIT                                    ENTER SUBROUTINE
          88323    80      915      2   0  0              0        915     PRINT                                   ENTER SUBROUTINE
          88324    94               0   0  1              4                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          88325            869      7   0  0              0        869     TD'OTHERS'                              SELECT
          88326    5       908     56   0  0              0        908                                             TRANSFER
          88327    86      514      2   0  0              0        514     OTHER ERRORS CTR                        SELECT SWITCH R
          88328    80      912      2   0  0              0        912     CONVERT                                 ENTER SUBROUTINE
          88329    80      916      2   0  0              0        916     EDIT                                    ENTER SUBROUTINE
          88330    80      915      2   0  0              0        915     PRINT                                   ENTER SUBROUTINE
          88331    54      40       0   0  0             20                                                        BULK CLEAR
          88332    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000769.JPG
    88334>88333    80      892      2   0  0              0        892     >MORE BLANK LINES                       ENTER SUBROUTINE
          88334    94      883     33   0  1              1        883                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          88335    155              0   0  0              0                TRANSLATOR SERIAL                       SELECT PROGRAM SERIAL TO A
          88336    5       908     40   1  0              0        908                                             TRANSFER
          88337    55      908     28   1  0             14        908                                             BULK COPY
          88338    C       5        6   1  0              0                                                        
          88339    153              0   0  0              0                DATE                                    SELECT DATE TO A, TIME TO B
          88340    5       908     40   1  0              0        908                                             TRANSFER
          88341    86      153      2   0  0              0        153     A2 SPOOL NUMBER                         SELECT SWITCH R
          88342    5       908     22   0  0              0        908                                             TRANSFER
          88343    52      5       20   0  0              0                                                        EDIT
          88344    C       910     18   0  0              0        910                                             
          88345    80      892      2   0  0              0        892     PRINT 'MADE BY'                         ENTER SUBROUTINE
          88346            27       9   0  0              0                                                        SELECT
          88347    71      883     55   0  0              0        883     >OFF-LINE PRINT                         JUMP IF A != 0
          88348            27       8   0  0              0                PRINTER TYPE                            SELECT
          88349    11               0   0  0             14                                                        ADD LITERAL
          88350    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          88351    1       999      7   0  0              0                                                        ADD
          88352    125           4096   1  1              0                                                        clear indicators
          88353    124     999      0   0  3              0                                                        modify address of next
          88354    123            160   0  2              0                CLOSE PRINTER                           enter master routine
    88347>88355    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          88356    46      A2      10   0  0              0                RUN BACK TO SECOND'INDEX'BLOCK          RUN BACK
          88357    C                0   0  0              3                                                        
          88358    10               0   0  0              1                                                        SELECT LITERAL
          88359    5       908     60   0  0              0        908     SET IND                                 TRANSFER
          88360            16       2   0  0              0                PROGM BEING TRANSLATED                  SELECT
          88361    12               0   0  0           8000                                                        SUBTRACT LITERAL
          88362    70      883     74   0  0              0        883     >TRANSLATOR                             JUMP IF A == 0
          88363            16       2   0  0              0                                                        SELECT
          88364    12               0   0  0           9001                                                        SUBTRACT LITERAL
          88365    70      883     74   0  0              0        883     >MASTER                                 JUMP IF A == 0
          88366            16       2   0  0              0                                                        SELECT
          88367    12               0   0  0           8060                                                        SUBTRACT LITERAL
          88368    70      897      5   0  0              0        897     >COMPILER           ALARM 5             JUMP IF A == 0
          88369    12               0   0  0              1                                                        SUBTRACT LITERAL
          88370    70      897      3   0  0              0        897     >BIG COMPILER                           JUMP IF A == 0
          88371    12               0   0  0              5                                                        SUBTRACT LITERAL
          88372    70      897      2   0  0              0        897     >CHAR HANDLING COMP                     JUMP IF A == 0
          88373    76      884     40   0  0              0        884     >ORDINARY PROGMS                        JUMP unconditional
    88481>                                                                                                         
    89707>                                                                                                         
    88365>                                                                                                         
    88362>88374    10               0   0  0              0                                                        SELECT LITERAL
          88375    5       908     60   0  0              0        908     CLEAR IND                               TRANSFER
          88376    0       27       4   0  0              0                COMPILER?                               SELECT
          88377    70      883     83   0  0              0        883     >NO                                     JUMP IF A == 0
          88378    34      999      9   0  0              0                A1 ROUTE---INTERCHANGE A1,A6            SET (N) IN B
          88379    0       999     11   0  0              0                A6 ROUTE                                SELECT
          88380    5       999      9   0  0              0                >A1                                     TRANSFER
          88381    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          88382    5       999     11   0  0              0                >A6                                     TRANSFER
    88377>88383    40      A6       0   0  0              0                                                        OPEN FILE
          88384    100     908     54   1  0              0        908     SPOOL NUMBER->66                        copy registers
          88385    52      9        4   0  0              0                                                        EDIT
          88386    C       910     34   0  0              0        910                                             
          88387    154     9        4   0  0              0                TYPE COMMENT                            COMMENT IN LOG
          88388    80      893      2   0  0              0        893     >WRITE BLANKS                           ENTER SUBROUTINE
          88389    80      893      2   0  0              0        893     >WRITE 2 BLANK BLOCKS->A6               ENTER SUBROUTINE
  Source image: P1000770.JPG
          88390    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          88391    10               0   0  0              2                                                        SELECT LITERAL
          88392    5       8       10   2  0              0                                                        TRANSFER
          88393            908      4   1  0              0        908      'CHAIN'                                SELECT
          88394    5       8       12   1  0              0                                                        TRANSFER
          88395    80      893      2   0  0              0        893     >A6                                     ENTER SUBROUTINE
          88396    80      894      2   0  0              0        894     A2->                                    ENTER SUBROUTINE
                                                                                                                   
          88400    PROCR   884       884     ALARM 6    7                                                          
          88402            27       4   0  0              0                COMPILER?                               SELECT
          88403    70      884      6   0  0              0        884     >NO                                     JUMP IF A == 0
          88404    10               0   0  0              2                                                        SELECT LITERAL
          88405    76      884      8   0  0              0        884                                             JUMP unconditional
    88403>88406    10               0   0  0              2                                                        SELECT LITERAL
          88407    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
    88405>88408    5       8        8   2  0              0                                                        TRANSFER
          88409    10               0   0  0                                                                       SELECT LITERAL
          88410    5       8       12   2  0              0                                                        TRANSFER
          88411    80      893      2   0  0              0        893     >A6                                     ENTER SUBROUTINE
    88417>88412    80      894      2   0  0              0        894     A2->                                    ENTER SUBROUTINE
          88413    0       8        6   1  0              0                                                        SELECT
          88414    2       908     12   1  0              0        908      'INDEX'                                SUBTRACT
          88415    70      884     18   0  0              0        884     >YES                                    JUMP IF A == 0
          88416    80      893      2   0  0              0        893     >WRITE                                  ENTER SUBROUTINE
          88417    76      884     12   0  0              0        884                                             JUMP unconditional
    88415>88418    80      893      2   0  0              0        893     >WRITE 'INDEX'                          ENTER SUBROUTINE
          88419    80      894      2   0  0              0        894     >READ                                   ENTER SUBROUTINE
          88420            27       4   0  0              0                COMPILER?                               SELECT
          88421    70      884     24   0  0              0        884     >NO                                     JUMP IF A == 0
          88422    10               0   0  0              2                                                        SELECT LITERAL
          88423    76      884     26   0  0              0        884                                             JUMP unconditional
    88421>88424    10               0   0  0              2                                                        SELECT LITERAL
          88425    1       27      12   0  0              0                0/2=PTS NO/YES                          ADD
    88423>88426    5       8        8   2  0              0                                                        TRANSFER
          88427    10               0   0  0                                                                       SELECT LITERAL
          88428    5       8       12   2  0              0                                                        TRANSFER
          88429    80      893      2   0  0              0        893     >WRITE                                  ENTER SUBROUTINE
          88430    41      A6       0   0  0              0                                                        CLOSE FILE
          88431    0       27       4   0  0              0                COMPILER?                               SELECT
          88432    70      884     38   0  0              0        884     >NO                                     JUMP IF A == 0
          88433    34      999      9   0  0              0                RESTORE A1,A6 ROUTE NUMBERS             SET (N) IN B
          88434    0       999     11   0  0              0                                                        SELECT
          88435    5       999      9   0  0              0                                                        TRANSFER
          88436    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          88437    5       999     11   0  0              0                                                        TRANSFER
    88432>88438    46      A2      10   0  0              1                RUN BACK TO SECOND 'INDEX' BLOCK        RUN BACK
          88439    C                0   0  0              3                                                        
    89926>                                                                                                         
    90609>                                                                                                         
    88373>88440    90               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT LITERAL
          88441    C                0   0  0              0                /////                                   
          88442    10               0   0  0              6                                                        SELECT LITERAL
          88443    5       908     22   0  0              0        908                                             TRANSFER
          88444    0       27       9   0  0              0                                                        SELECT
          88445    70      884     52   0  0              0        884     >ON-LINE PRINT                          JUMP IF A == 0
          88446    86      511      2   0  0              0        511      'DISASTEROUS'                          SELECT SWITCH R
          88447    1       869      6   0  0              0        869     (TD)                                    ADD
          88448    71      884     56   0  0              0        884                                             JUMP IF A != 0
          88449    0       27       6   0  0              0                 'PT OMITTED'                           SELECT
          88450    1       869      5   0  0              0        869     (TD)                                    ADD
  Source image: P1000771.JPG
          88451    71      884     56   0  0              0        884                                             JUMP IF A != 0
    88445>88452            27       7   0  0              0                                                        SELECT
          88453    71      884     56   0  0              0        884     >REF/PROCR REPORT                       JUMP IF A != 0
          88454            27       5   0  0              0                25?'S IND                               SELECT
          88455    70      884     58   0  0              0        884                                             JUMP IF A == 0
    88453>                                                                                                         
    88451>                                                                                                         
    88448>88456    10               0   0  0              7                                                        SELECT LITERAL
          88457    5       908     22   0  0              0        908                                             TRANSFER
    88455>88458            27       9   0  0              0                                                        SELECT
          88459    70      884     78   0  0              0        884     >ON                                     JUMP IF A == 0
          88460    101            300   1  3              0                                                        select literal address
          88461    99               0   0  6              0                                                        SUBTRACT MODIFICATION REGISTER FROM A
          88462    5       890      2   0  0              0        890                                             TRANSFER
          88463    54      10       4   0  6              0                CLEAR REST OF ANNEX                     BULK CLEAR
          88464    C       890      2   0  0              0        890                                             
          88465            908     24   1  0              0        908                                             SELECT
          88466    5       10     306   1  0              0                                                        TRANSFER
          88467    80      914      2   0  0              0        914     WRITE LAST BLOCK                        ENTER SUBROUTINE
          88468    54      10       0   1  0            306                                                        BULK CLEAR
          88469            908     24   1  0              0        908     BEW                                     SELECT
          88470    5       10     306   1  0              0                                                        TRANSFER
          88471    80      914      2   0  0              0        914     WRITE BLANK BLOCK                       ENTER SUBROUTINE
          88472    34      909      2   0  0              0        909     STEP BACK A9                            SET (N) IN B
          88473    10               0   0  0        2700000                O/P->O/P 1 BLOCK                        SELECT LITERAL
          88474    1       999      7   0  0              0                                                        ADD
          88475    125           4096   1  1              0                                                        clear indicators
          88476    124     999      0   0  3              0                                                        modify address of next
          88477    123            160   0  2              0                                                        enter master routine
    88459>88478    150     908     22   0  0              0        908     ALARM 6    7                            OFFER OPTIONS
          88479    C       884     85   0  0              0        884     >END                                    
          88480    C       884     99   0  0              0        884     >CLOSE FILES:REENTER TO PRINT           
          88481    C       883     74   0  0              0        883     >COPY TO PASS 3 O/P TO A6               
          88482    C       885     24   0  0              0        885                                             
          88483    C       885     43   0  0              0        885                                             
          88484    C       885     28   0  0              0        885                                             
    88479>88485    80      911      2   0  0              0        911                                             ENTER SUBROUTINE
          88486    80      889      2   0  0              0        889     >CLOSE A9                               ENTER SUBROUTINE
          88487            908     60   0  0              0        908                                             SELECT
          88488    71      884     93   0  0              0        884                                             JUMP IF A != 0
          88489            27       4   0  0              0                                                        SELECT
          88490    70      884     98   0  0              0        884                                             JUMP IF A == 0
          88491    80      891      2   0  0              0        891     CLOSE A6                                ENTER SUBROUTINE
          88492    76      884     98   0  0              0        884                                             JUMP unconditional
    88488>88493            27       4   0  0              0                                                        SELECT
          88494    70      884     97   0  0              0        884     >NO                                     JUMP IF A == 0
          88495    40      A1       0   0  0              1                                                        OPEN FILE
          88496    41      A1       0   0  0              1                                                        CLOSE FILE
    88494>88497    80      891      2   0  0              0        891     >OPEN AND CLOSE A6                      ENTER SUBROUTINE
    88492>                                                                                                         
    88490>88498    151              0   0  0              0                                                        UNLOAD PROGRAMME
    88480>88499    80      911      2   0  0              0        911                                             ENTER SUBROUTINE
                                                                                                                   
          88500    PROCR   885       885     IF AMEND BEWARE ADDRESSES OF 23/0/2'S                                 
          88502    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          88503    C                0   0  0              2                                                        
          88504    80      889      2   0  0              0        889     CLOSE A9 OR PRINTER                     ENTER SUBROUTINE
          88505            27       9   0  0              0                                                        SELECT
          88506    70      885      9   0  0              0        885     >ON                                     JUMP IF A == 0
          88507    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
  Source image: P1000773.JPG
          88508    C                0   0  0              4                                                        
    88536>                                                                                                         
    88542>                                                                                                         
    88549>                                                                                                         
    88506>88509            27       4   0  0              0                                                        SELECT
          88510    71      885     13   0  0              0        885                                             JUMP IF A != 0
          88511            893      2   0  0              0        893                                             SELECT
          88512    76      100      2   0  0              0        100     >CALL TRANSLATOR PASS 0                 JUMP unconditional
    88510>88513    80      891      2   0  0              0        891     OPEN AND CLOSE A6                       ENTER SUBROUTINE
          88514    125           4096   1  1              0                                                        clear indicators
          88515    123     895      2   0  2              0        895                                             enter master routine
          88516    124     909      2   0  2              0        909                                             select literal and division
          88517    32               0   0  0              5-                                                       SHIFT (AB) BY QUARTETS
          88518    101             80   1  3              0                                                        select literal address
          88519    32               0   0  0              5                ESTORE COMPILER                         SHIFT (AB) BY QUARTETS
          88520    124     999      5   0  3              0                                                        modify address of next
          88521    128            204   1  1              0                                                        bulk copy long numeric
          88522            893      2   0  0              0        893                                             SELECT
          88523    76      100      2   0  0              0        100     >CALL COMPILER PASS 1                   JUMP unconditional
    88544>                                                                                                         
    88482>88524    80      886      2   0  0              0        886     IS MATCH HD?        OPT 4               ENTER SUBROUTINE
          88525    70      885     32   0  0              0        885     >NO                                     JUMP IF A == 0
          88526    10               0   0  0              0                                                        SELECT LITERAL
          88527    76      887      2   0  0              0        887                                             JUMP unconditional
    88484>88528    80      886      2   0  0              0        886     IS MATCH HD?        OPT 6               ENTER SUBROUTINE
          88529    70      885     32   0  0              0        885     >NO                                     JUMP IF A == 0
          88530    10               0   0  0             58                H                                       SELECT LITERAL
          88531    76      887      2   0  0              0        887                                             JUMP unconditional
    88704>                                                                                                         
    88529>                                                                                                         
    88525>88532    80      911      2   0  0              0        911                                             ENTER SUBROUTINE
          88533    90               0   0  3              1                                                        SET MODIFICATION REGISTER AT LITERAL
          88534    C                0   0  0              2                                                        
          88535            27       9   0  0              0                OFF?                                    SELECT
CONST                                                                                                              
          88536    70      885      9   0  0              0        885                                             JUMP IF A == 0
          88537    84      787      2   0  0              0        787     CLEAR,A9 NOW CLOSED                     SET SWITCH(ES) AT VARIABLE VALUE
          88538    C       999      0   0  0              0                                                        
          88539    80      889      2   0  0              0        889     CLOSE A9 OR PRINTER                     ENTER SUBROUTINE
          88540    90               0   0  3              1                                                        SET MODIFICATION REGISTER AT LITERAL
          88541    C                0   0  0              4                                                        
          88542    76      885      9   0  0              0        885                                             JUMP unconditional
    88483>88543            27       9   0  0              0                                                        SELECT
          88544    70      885     24   0  0              0        885     >AS OPT 4                               JUMP IF A == 0
          88545    83      787      2   0  0              1        787                                             SET SWITCH(ES) AT LITERAL VALUE
          88546    80      911      2   0  0              0        911     >CLOSE A2                               ENTER SUBROUTINE
          88547    90               0   0  3              1                                                        SET MODIFICATION REGISTER AT LITERAL
          88548    C                0   0  0              3                                                        
          88549    76      885      9   0  0              0        885                                             JUMP unconditional
                                                                                                                   
          88600    PROCR   886       886     TEST IF MACHINE IS HIGH DENSITY                                       
          88602    81      886      2   0  0              0        886                                             START OF SUBROUTINE
          88603    123     886      5   0  2              0        886                                             enter master routine
          88604    82      886      2   0  0              0        886                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          88605    100              0   0  0              0                                                        Halt
          88606    124     999      5   0  3              0                                                        modify address of next
          88607    124             32   0  3              0                                                        modify address of next
          88608    106             21   0  0              0                                                        select (N)
          88609    126     886      5   0  3              0        886                                             leave master routine
                                                                                                                   
  Source image: P1000774.JPG
          88700    PROCR   887       887     INFORM MASTER OF DENSITY REQUIRED                                     
    88531>                                                                                                         
    88527>88702    5       893      2   0  0              0        893                                             TRANSFER
          88703    123     887      5   0  2              0        887                                             enter master routine
          88704    76      885     32   0  0              0        885                                             JUMP unconditional
          88705    100              0   0  0              0                                                        Halt
          88706    124     999      5   0  3              0                                                        modify address of next
          88707    124             32   0  3              0                                                        modify address of next
          88708    106             22   0  0              0                                                        select (N)
          88709    1       999      7   0  0              0                                                        ADD
          88710    5       891      2   0  0              0        891                                             TRANSFER
          88711            893      2   0  0              0        893                                             SELECT
          88712    124     891      2   0  3              0        891                                             modify address of next
          88713    102              0   0  0              0                                                        transfer (A) to N
          88714    126     887      5   0  3              0        887                                             leave master routine
                                                                                                                   
          88800    PROCR   888       888                                                                           
          88802    81      888     14   0  0              0        888                                             START OF SUBROUTINE
          88803    34      27      13   0  0              0                (DONT SPOIL CLEARNESS OF A)             SET (N) IN B
          88804    74      888      9   0  0              0        888     >NOT TRAMD ONLY                         JUMP IF AB == 0        // 27, 1, 0
          88805    5       5       10   1  0              0                CLEAR                                   TRANSFER
          88806    5       5       12   1  0              0                                                        TRANSFER
          88807    5       5       14   1  0              0                                                        TRANSFER
          88808    54      5       22   1  0             14                                                        BULK CLEAR
    88804>88809    82      888      2   0  0              0        888                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          88900    PROCR   889       889     CLOSE A9                                                              
          88902    81      889      2   0  0              0        889                                             START OF SUBROUTINE
          88903            27       9   0  0              0                >PRINTING                               SELECT
          88904    70      889     12   0  0              0        889                                             JUMP IF A == 0
          88905    84      787      2   0  0              0        787     CLEAR'DONT OPEN A9' IND                 SET SWITCH(ES) AT VARIABLE VALUE
          88906    C       999      0   0  0              0                                                        
          88907    10               0   0  0        1+00000                                                        SELECT LITERAL
          88908    1       999      7   0  0              0                                                        ADD
          88909    125           4096   1  1              0                                                        clear indicators
          88910    124     999      0   0  3              0                                                        modify address of next
          88911    123            160   0  2              0                                                        enter master routine
    88904>88912    82      889      2   0  0              0        889                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89000    PROCR   890       890     WRITE->A2                                                             
          89002    81      890      2   0  0              0        890                                             START OF SUBROUTINE
          89003            908     24   1  0              0        908                                             SELECT
          89004    5       8       52   1  0              0                                                        TRANSFER
          89005    43      A2       0   0  0              0                                                        OUTPUT
          89006    C       8        0   0  0              0                                                        
          89007    54      8        0   1  0             52                                                        BULK CLEAR
          89008    82      890      2   0  0              0        890                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89100    PROCR   891       891     OPEN & CLOSE A6                                                       
          89102    81      891      2   0  0              0        891                                             START OF SUBROUTINE
          89103    40      A6       0   0  0              1                                                        OPEN FILE
          89104    41      A6       0   0  0              1                                                        CLOSE FILE
          89105    82      891      2   0  0              0        891                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89200    PROCR   892       892     PRINT SR                                                              
          89202    81      892      2   0  0              0        892                                             START OF SUBROUTINE
          89203    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          89204            908     24   1  0              0        908                                             SELECT
          89205    5       5       52   1  0              0                                                        TRANSFER
          89206            908     60   0  0              0        908     HEAD OF FORM OR TRACK 1                 SELECT
  Source image: P1000775.JPG
          89207    5       5        0   2  0              0                                                        TRANSFER
          89208    10               0   0  0              1                                                        SELECT LITERAL
          89209    5       908     60   0  0              0        908                                             TRANSFER
          89210            27       9   0  0              0                                                        SELECT
          89211    70      892     16   0  0              0        892     >PRINTER                                JUMP IF A == 0
          89212    55      5        0   1  0             50                                                        BULK COPY
          89213    C       10       4   1  6              0                                                        
          89214    80      913      2   0  0              0        913     O/P->A9                                 ENTER SUBROUTINE
          89215    76      892     38   0  0              0        892                                             JUMP unconditional
    89211>89216            27       8   0  0              0                PRINTER TYPE                            SELECT
          89217    12               0   0  0              9                                                        SUBTRACT LITERAL
          89218    70      892     34   0  0              0        892     >SPECIAL PRINTER                        JUMP IF A == 0
          89219    10               0   0  0          80000                                                        SELECT LITERAL
          89220    5       5        1   0  0              0                                                        TRANSFER
          89221    124     999     15   1  2              0                                                        modify address of next
          89222    124              0   0  2              0                                                        select literal and division
          89223    124     999     13   1  2              0                                                        modify address of next
          89224    129              0   0  1              0                                                        edit for anelex output
          89225    10               0   0  0              4                                                        SELECT LITERAL
    89237>89226    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          89227    1       999      7   0  0              0                                                        ADD
          89228    34      999     12   0  0              0                                                        SET (N) IN B
          89229    125           4096   1  1              0                                                        clear indicators
          89230    124     999      0   0  3              0                                                        modify address of next
          89231    123            160   0  2              0                                                        enter master routine
          89232    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          89233    76      892     38   0  0              0        892                                             JUMP unconditional
    89218>89234    55      5        0   1  0             54                                                        BULK COPY
          89235    C       10       0   1  0              0                                                        
          89236    10               0   0  0              9                                                        SELECT LITERAL
          89237    76      892     26   0  0              0        892                                             JUMP unconditional
    89233>                                                                                                         
    89215>89238    54      5        0   1  0             50                                                        BULK CLEAR
          89239    82      892      2   0  0              0        892                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89300    PROCR   893       893     WRITE ON A6                                                           
          89302    81      893      2   0  0              0        893                                             START OF SUBROUTINE
          89303    55      8        4   1  0             50                                                        BULK COPY
          89304    C       9        4   1  0              0                                                        
          89305            908     24   1  0              0        908     BEW                                     SELECT
          89306    5       9       52   1  0              0                                                        TRANSFER
          89307    43      A6       0   0  0              0                                                        OUTPUT
          89308    C       9        0   0  0              0                                                        
          89309    54      9        0   1  0             52                                                        BULK CLEAR
          89310    82      893      2   0  0              0        893                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89400    PROCR   894       894     READ A2                                                               
          89402    81      894      2   0  0              0        894                                             START OF SUBROUTINE
          89403    42      A2       0   0  0              0                                                        INPUT
          89404    C       8        0   0  0              0                                                        
          89405    82      894      2   0  0              0        894                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89500    PROCR   895       895     DELETE GUARD WORDS                                                    
          89502    81      895      2   0  0              0        895                                             START OF SUBROUTINE
          89503    124     999      5   0  3              0                                                        modify address of next
          89504    126             20   1  2              0                                                        set modification register
          89505    80      896      2   0  0              0        896                                             ENTER SUBROUTINE
          89506    124     999      5   0  3              0                                                        modify address of next
          89507    126             22   1  2              0                                                        set modification register
          89508    80      896      2   0  0              0        896                                             ENTER SUBROUTINE
  Source image: P1000776.JPG
          89509    124     999      5   0  3              0                                                        modify address of next
          89510    126             24   1  2              0                                                        set modification register
          89511    125            204   0  2              0                                                        step on and test
          89512    80      896      2   0  0              0        896                                             ENTER SUBROUTINE
          89513    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          89514    C                0   0  0              0                /////                                   
          89515    126     895      2   0  3              0        895                                             leave master routine
                                                                                                                   
          89600    PROCR   896       896     STACK TAG SR                                                          
          89602    81      896      2   0  0              0        896                                             START OF SUBROUTINE
          89603    123     909      2   0  3              0        909     PROG TAG                                select tag
    89606>89604    124     999      0   0  3              0                                                        modify address of next
          89605    123              0   1  2              0                                                        copy into tag
          89606    94      896      4   0  2              2        896                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          89607    82      896      2   0  0              0        896                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          89700    PROCR   897       897                                                                           
    88372>89702    10               0   0  0              5                                                        SELECT LITERAL
    88370>89703    11               0   0  0             11                                                        ADD LITERAL
          89704    4       908     14   0  0              0        908                                             AUGMENT
    89733>                                                                                                         
    90112>                                                                                                         
    88368>89705    150              0   0  0              5                PAUSE TO PUT TRANSLATOR ON A1 ROUTE     OFFER OPTIONS
          89706    C       897      9   0  0              0        897                                             
          89707    C       883     74   0  0              0        883                                             
          89708    C       898     32   0  0              0        898                                             
    89706>89709            16       2   0  0              0                ARE WE 08066?                           SELECT
          89710    12               0   0  0           8066                                                        SUBTRACT LITERAL
          89711    71      897     27   0  0              0        897     >NO                                     JUMP IF A != 0
          89712    10               0   0  0              9                                                        SELECT LITERAL
          89713    5       909     98   0  0              0        909                                             TRANSFER
          89714    80      900      2   0  0              0        900     MERGE S/R                               ENTER SUBROUTINE
    89861>                                                                                                         
    89884>89715    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          89716    C                0   0  0              6                                                        
    89719>89717            870      4   0  1              0        870                                             SELECT
          89718    80      899      2   0  0              0        899     CONVERT TO DEC                          ENTER SUBROUTINE
          89719    94      897     17   0  1              2        897                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          89720    52      870     10   0  0              0        870     EDIT CHAP LENGTHS                       EDIT
          89721    C       910      2   0  0              0        910     FOR TYPING                              
          89722    154     870     10   0  0              0        870     TYPE                                    COMMENT IN LOG
          89723    10               0   0  0           4630                                                        SELECT LITERAL
          89724    5       908     14   0  0              0        908                                             TRANSFER
          89725    91      16      10   0  1              0                SET M/R AT NO OFCHAPS                   SET MODIFICATION REGISTER AT VARIABLE
          89726    76      898     11   0  0              0        898     >COPY TRANSLATOR                        JUMP unconditional
    89711>89727    40      A1       0   0  0              1                                                        OPEN FILE
    89736>                                                                                                         
    89740>                                                                                                         
    89743>89728    80      903      2   0  0              0        903     >READ A1 TO SEC 7                       ENTER SUBROUTINE
          89729            7        4   1  0              0                                                        SELECT
          89730    2       908      6   1  0              0        908      'FINIS'                                SUBTRACT
          89731    71      897     34   0  0              0        897                                             JUMP IF A != 0
          89732    41      A1       0   0  0              1                                                        CLOSE FILE
          89733    76      897      5   0  0              0        897                                             JUMP unconditional
    89731>89734            7        4   2  0              0                                                        SELECT
          89735    12               0   0  0                                                                       SUBTRACT LITERAL
          89736    71      897     28   0  0              0        897                                             JUMP IF A != 0
          89737    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          89738    36      7        6   2  0              0                                                        COLLATE AND ADD
          89739    12               0   0  0              5                                                        SUBTRACT LITERAL
  Source image: P1000777.JPG
          89740    71      897     28   0  0              0        897     >NOT SENTINEL 5                         JUMP IF A != 0
          89741            7        8   2  0              0                                                        SELECT
          89742    12               0   0  0           8000                                                        SUBTRACT LITERAL
          89743    71      897     28   0  0              0        897     > NOT TRANSLATOR                        JUMP IF A != 0
    89747>89744    80      903      2   0  0              0        903                                             ENTER SUBROUTINE
          89745            7       42   1  0              0                                                        SELECT
          89746    2       908     10   1  0              0        908      'ALLOC'                                SUBTRACT
          89747    71      897     44   0  0              0        897                                             JUMP IF A != 0
          89748    40      A6       0   0  0              0                OPEN FOR FINAL PROGM                    OPEN FILE
          89749    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          89750    5       869     14   0  0              0        869     SPOOL NUMBER                            TRANSFER
          89751    80      904      2   0  0              0        904     WRITE 2 ZERO BLOX                       ENTER SUBROUTINE
          89752    80      904      2   0  0              0        904                                             ENTER SUBROUTINE
          89753    80      894      2   0  0              0        894     >READ A2                                ENTER SUBROUTINE
          89754    10               0   0  0              2                INDEX IDENTIFIER                        SELECT LITERAL
          89755    5       8       10   2  0              0                                                        TRANSFER
          89756            908      4   1  0              0        908                                             SELECT
          89757    5       8       12   1  0              0                                                        TRANSFER
          89758    80      904      2   0  0              0        904     >WRITE                                  ENTER SUBROUTINE
          89759    80      894      2   0  0              0        894     >READ A2                                ENTER SUBROUTINE
          89760    10               0   0  0              2                                                        SELECT LITERAL
          89761    5       8        8   2  0              0                                                        TRANSFER
          89762    10               0   0  0                                                                       SELECT LITERAL
          89763    5       8       12   2  0              0                                                        TRANSFER
          89764    80      904      2   0  0              0        904     >WRITE                                  ENTER SUBROUTINE
    89770>89765    80      894      2   0  0              0        894     >READ A2                                ENTER SUBROUTINE
          89766            8       42   1  0              0                                                        SELECT
          89767    2       908     10   1  0              0        908      'ALLOC'                                SUBTRACT
          89768    70      897     71   0  0              0        897                                             JUMP IF A == 0
          89769    80      904      2   0  0              0        904     >WRITE SEC 8 TO A6                      ENTER SUBROUTINE
          89770    76      897     65   0  0              0        897                                             JUMP unconditional
    89768>89771    90               0   0  1              0                REFORM ALLOC DATA                       SET MODIFICATION REGISTER AT LITERAL
          89772    C                0   0  0              6                                                        
    89779>89773            7       24   2  1              0                MAXAMISE ALL 3 CHAP LENGTHS             SELECT
          89774    2       8       24   2  1              0                                                        SUBTRACT
          89775    73      897     77   0  0              0        897                                             JUMP IF A < 0
          89776    4       8       24   2  1              0                                                        AUGMENT
    89775>89777    0       8       24   2  1              0                                                        SELECT
          89778    80      899      2   0  0              0        899     CONVERT TO DEC                          ENTER SUBROUTINE
          89779    94      897     73   0  1              2        897                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          89780    52      870     10   0  0              0        870                                             EDIT
          89781    C       910      2   0  0              0        910                                             
          89782    154     870     10   0  0              0        870     TYPE COMBINED CHAP LENGTHS              COMMENT IN LOG
          89783    10               0   0  0           4630                                                        SELECT LITERAL
          89784    5       908     14   0  0              0        908                                             TRANSFER
          89785    0       8       10   2  0              0                TOTAL CHAPS IN OBJECT PROGRAM           SELECT
          89786    5       16      10   1  0              0                                                        TRANSFER
          89787    91      16      10   0  1              0                0:X                                     SET MODIFICATION REGISTER AT VARIABLE
          89788    10               0   0  0              4                                                        SELECT LITERAL
          89789    4       8       10   2  0              0                                                        AUGMENT
          89790    80      904      2   0  0              0        904     >WRITE                                  ENTER SUBROUTINE
                                                                                                                   
          89800    PROCR   898       898     COPY OBJECT PROGRAM: JOIN ON TRANSLATOR                               
    89809>89802    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          89803            8        4   1  0              0                                                        SELECT
          89804    2       908      2   1  0              0        908      'PREND'                                SUBTRACT
          89805    71      898      8   0  0              0        898     >NO                                     JUMP IF A != 0
          89806    41      A2       0   0  0              1                CSE                                     CLOSE FILE
          89807    76      898     10   0  0              0        898                                             JUMP unconditional
    89805>89808    80      904      2   0  0              0        904     >WRITE A6                               ENTER SUBROUTINE
  Source image: P1000778.JPG
          89809    76      898      2   0  0              0        898                                             JUMP unconditional
    89812>                                                                                                         
    89807>89810    80      905      2   0  0              0        905     >READ A1 TO SEC 8 OF TRANSLATOR         ENTER SUBROUTINE
    89726>89811    80      907      2   0  0              0        907     'CHAPT' SR                              ENTER SUBROUTINE
          89812    71      898     10   0  0              0        898     >NOT START                              JUMP IF A != 0
          89813    76      898     17   0  0              0        898     >(AT START OF PASS 1 NOW)               JUMP unconditional
    89831>89814    80      905      2   0  0              0        905     >READ A1                                ENTER SUBROUTINE
          89815    80      907      2   0  0              0        907     >'CHAPT' SR                             ENTER SUBROUTINE
          89816    71      898     27   0  0              0        898     >NO                                     JUMP IF A != 0
    89813>89817    80      905      2   0  0              0        905     READ/WRITE FIRST BLOCK                  ENTER SUBROUTINE
          89818    80      904      2   0  0              0        904                                             ENTER SUBROUTINE
          89819    80      905      2   0  0              0        905     READ/WRITE SECOND BLOCK                 ENTER SUBROUTINE
          89820    80      904      2   0  0              0        904                                             ENTER SUBROUTINE
          89821    80      905      2   0  0              0        905     READ BLOCK WITH LOCN 35=1/1/3 N         ENTER SUBROUTINE
          89822    0       16      10   0  0              0                X=TOT CHAPS IN OBJECT PROGM             SELECT
          89823    11               0   0  0          1.001                1/1/3 1                                 ADD LITERAL
          89824    5       8       50   2  0              0                                                        TRANSFER
          89825    10               0   0  0              1                                                        SELECT LITERAL
          89826    4       16      10   0  0              0                STEP CTR                                AUGMENT
    89816>89827            8        4   1  0              0                                                        SELECT
          89828    2       908      2   1  0              0        908     'PREND'                                 SUBTRACT
          89829    70      899     10   0  0              0        899     >YES                                    JUMP IF A == 0
          89830    80      904      2   0  0              0        904     >WRITE A6                               ENTER SUBROUTINE
          89831    76      898     14   0  0              0        898     >LOOP                                   JUMP unconditional
    89708>89832    80      900      2   0  0              0        900     MERGE S/R                               ENTER SUBROUTINE
          89833    41      A1       0   0  0              1                                                        CLOSE FILE
          89834    40      A1       0   0  0              1                                                        OPEN FILE
    89840>                                                                                                         
    89844>                                                                                                         
    89848>89835    80      903      2   0  0              0        903     READ A1 TO SECN 7                       ENTER SUBROUTINE
          89836    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          89837    C       909     83   0  0              0        909                                             
          89838            7        6   1  0              0                                                        SELECT
          89839    2       908     12   1  0              0        908     'INDEX'                                 SUBTRACT
          89840    71      898     35   0  0              0        898     >GET TO INDEX BLOCK                     JUMP IF A != 0
          89841    80      903      2   0  0              0        903                                             ENTER SUBROUTINE
          89842            7        4   2  0              0                                                        SELECT
          89843    12               0   0  0           8000                                                        SUBTRACT LITERAL
          89844    71      898     35   0  0              0        898     >GET TO TRANS                           JUMP IF A != 0
          89845            7        6   2  0              0                                                        SELECT
          89846    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          89847    12               0   0  0            899                                                        SUBTRACT LITERAL
          89848    71      898     35   0  0              0        898     >GET TO 899 VERSION                     JUMP IF A != 0
    89854>89849    80      903      2   0  0              0        903     READ                                    ENTER SUBROUTINE
          89850    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          89851    C       909     83   0  0              0        909                                             
          89852            7       42   1  0              0                                                        SELECT
          89853    2       908     10   1  0              0        908     'ALLOC'                                 SUBTRACT
          89854    71      898     49   0  0              0        898     >GET TO ALLOC BLOCK                     JUMP IF A != 0
          89855    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          89856    C                0   0  0              6                                                        
    89860>89857            870      4   0  1              0        870                                             SELECT
          89858    2       7       24   2  1              0                                                        SUBTRACT
          89859    73      898     62   0  0              0        898                                             JUMP IF A < 0
          89860    94      898     57   0  1              2        898                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          89861    76      897     15   0  0              0        897     >ALL CHAPS OK                           JUMP unconditional
    89859>89862    46      A6      10   0  0              0                RUN BACK TO PASS 3 START                RUN BACK
          89863    C                0   0  0              2                                                        
    89868>89864    42      A6       0   0  0              0                READ                                    INPUT
          89865    C       8        0   0  0              0                                                        
  Source image: P1000779.JPG
          89866            8       42   1  0              0                                                        SELECT
          89867    2       908     10   1  0              0        908     ALLOC'                                  SUBTRACT
          89868    71      898     64   0  0              0        898     >GET TO ALLOC BLOCK                     JUMP IF A != 0
          89869    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          89870    C                0   0  0              6                                                        
    89876>89871            7       24   2  1              0                                                        SELECT
          89872    2       870      4   0  1              0        870                                             SUBTRACT
          89873    73      898     76   0  0              0        898     >CHAP NOT BIGGER                        JUMP IF A < 0
          89874    4       8       24   2  1              0                                                        AUGMENT
          89875    4       870      4   0  1              0        870                                             AUGMENT
    89873>89876    94      898     71   0  1              2        898                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          89877    48      A6       0   0  0              3                                                        STEP BACK
          89878    C                0   0  0              1                                                        
          89879    80      904      2   0  0              0        904     REWRITE ALLOC BLOCK                     ENTER SUBROUTINE
          89880    47      A6       2   0  0              0                                                        RUN ON
          89881    C                0   0  0                                                                       
          89882    48      A6       0   0  0              0                                                        STEP BACK
          89883    C                0   0  0              1                                                        
          89884    76      897     15   0  0              0        897     >JOIN UP                                JUMP unconditional
                                                                                                                   
          89900    PROCR   899       899     END ROUTINE                                                           
          89902    81      899      2   0  0              0        899     CONVERT S/R                             START OF SUBROUTINE
          89903    5       870      2   0  0              0        870                                             TRANSFER
          89904    60               0   0  0              0                                                        SET DECIMAL RADIX
          89905    124     909     22   0  2              0        909                                             select literal and division
          89906    112     870      2   0  0              0        870                                             convert
          89907    5       870      4   0  1              0        870                                             TRANSFER
          89908    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          89909    82      899      2   0  0              0        899                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    89829>89910    80      904      2   0  0              0        904     > WRITE 'PREND'                         ENTER SUBROUTINE
          89911            908     26   1  0              0        908                                             SELECT
          89912    5       8        4   1  0              0                                                        TRANSFER
          89913    0       908     12   1  0              0        908     INDEX'                                  SELECT
          89914    5       8        6   1  0              0                                                        TRANSFER
          89915    10               0   0  0                                                                       SELECT LITERAL
          89916    5       8        8   2  0              0                                                        TRANSFER
          89917    10               0   0  0              3                                                        SELECT LITERAL
          89918    5       8       10   1  0              0                                                        TRANSFER
          89919    80      904      2   0  0              0        904     > WRITE 2ND INDEX BLOCK                 ENTER SUBROUTINE
          89920    80      902      2   0  0              0        902                                             ENTER SUBROUTINE
          89921    41      A1       0   0  0              1                                                        CLOSE FILE
          89922    41      A6       0   0  0              0                                                        CLOSE FILE
          89923    125              0   1  2              0                CLEAR                                   interrogate indicators
          89924    5       908     60   0  0              0        908                                             TRANSFER
          89925    5       909     98   0  0              0        909                                             TRANSFER
          89926    76      884     40   0  0              0        884                                             JUMP unconditional
                                                                                                                   
          90000    PROCR   900       900     S/R TO MERGE 08066 AND 08061                                          
          90002    81      900      2   0  0              0        900                                             START OF SUBROUTINE
          90003    40      A6       0   0  0              0                                                        OPEN FILE
          90004    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          90005    5       869     14   0  0              0        869     SPOOL NUMBER                            TRANSFER
          90006    80      904      2   0  0              0        904     WRITE 2 BLANK BLOCKS                    ENTER SUBROUTINE
          90007    80      904      2   0  0              0        904                                             ENTER SUBROUTINE
          90008            908     26   1  0              0        908     ALIGNMENT MARKS                         SELECT
          90009    5       8        4   1  0              0                                                        TRANSFER
          90010            908     12   1  0              0        908                                             SELECT
          90011    5       8        6   1  0              0                INDEX'                                  TRANSFER
          90012    10               0   0  0                                                                       SELECT LITERAL
          90013    5       8        8   2  0              0                                                        TRANSFER
  Source image: P1000780.JPG
          90014    10               0   0  0              2                                                        SELECT LITERAL
          90015    5       8       10   2  0              0                                                        TRANSFER
          90016    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90017    80      902      2   0  0              0        902     WRITE 2ND INDEX BLOCK                   ENTER SUBROUTINE
          90018    47      A2      10   0  0              0                                                        RUN ON
          90019    C                0   0  0              2                                                        
    90025>90020    80      894      2   0  0              0        894     READ A2 TO SCN 8                        ENTER SUBROUTINE
          90021    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90022    C       909     82   0  0              0        909                                             
          90023            8       12   1  0              0                                                        SELECT
          90024    12               0   0  0     6751727243                 'PASS 3'                               SUBTRACT LITERAL
          90025    71      900     20   0  0              0        900     >READ TILL PASS 3                       JUMP IF A != 0
    90032>90026    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90027    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          90028    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90029    C       909     82   0  0              0        909                                             
          90030            8       42   1  0              0                                                        SELECT
          90031    2       908     10   1  0              0        908      'ALLOC'                                SUBTRACT
          90032    71      900     26   0  0              0        900     >COPY BLOCKS TILL 'ALLOC'               JUMP IF A != 0
          90033            8       10   2  0              0                                                        SELECT
          90034    5       16      10   1  0              0                                                        TRANSFER
          90035    90               0   0  1              0                                    STORE CHAP LENGHTS  SET MODIFICATION REGISTER AT LITERAL
          90036    C                0   0  0              6                                                        
    90039>90037            8       24   2  1              0                                                        SELECT
          90038    5       870      4   0  1              0        870                                             TRANSFER
          90039    94      900     37   0  1              2        900                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    90046>90040    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90041    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          90042    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90043    C       909     82   0  0              0        909                                             
          90044            8       12   1  0              0                                                        SELECT
          90045    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90046    71      900     40   0  0              0        900     WRITE UNTIL CHAPT                       JUMP IF A != 0
                                                                                                                   
          90100    PROCR   901       901                                                                           
          90102    40      A1       0   0  0              1                                                        OPEN FILE
    90108>90103    80      905      2   0  0              0        905     READ A1                                 ENTER SUBROUTINE
          90104    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90105    C       909     83   0  0              0        909                                             
          90106            8        6   1  0              0                                                        SELECT
          90107    2       908     12   1  0              0        908      'INDEX'                                SUBTRACT
          90108    71      901      3   0  0              0        901     >GET TO INDEX                           JUMP IF A != 0
          90109    80      905      2   0  0              0        905     READ NEXT BLOCK                         ENTER SUBROUTINE
          90110            8        4   2  0              0                                                        SELECT
          90111    12               0   0  0           8061                HAS CORR PROG BEEN LOADED?              SUBTRACT LITERAL
          90112    71      897      5   0  0              0        897     >NO, RETURN TO *05                      JUMP IF A != 0
    90118>90113    80      905      2   0  0              0        905     READ A1                                 ENTER SUBROUTINE
          90114    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90115    C       909     83   0  0              0        909                                             
          90116    0       8       42   1  0              0                                                        SELECT
          90117    2       908     10   1  0              0        908      'ALLOC'                                SUBTRACT
          90118    71      901     13   0  0              0        901     >GET TO ALLOC                           JUMP IF A != 0
          90119    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          90120    C                0   0  0              6                                    COMPARE CHAP LENGHTS
    90125>90121            8       24   2  1              0                                    08066 AND 08061     SELECT
          90122    2       870      4   0  1              0        870                                             SUBTRACT
          90123    73      901     25   0  0              0        901                                             JUMP IF A < 0
          90124    4       870      4   0  1              0        870                                             AUGMENT
    90123>90125    94      901     21   0  1              2        901                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    90131>90126    80      905      2   0  0              0        905     READ A1 TO SECN 8                       ENTER SUBROUTINE
  Source image: P1000781.JPG
          90127    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90128    C       909     83   0  0              0        909                                             
          90129            8       12   1  0              0                                                        SELECT
          90130    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90131    71      901     26   0  0              0        901     >GET TO'CHAPT'                          JUMP IF A != 0
          90132    90               0   0  1              1                                                        SET MODIFICATION REGISTER AT LITERAL
          90133    C                0   0  0              5                                                        
    90145>90134            16       2   0  0              0                PROG ID 08066                           SELECT
          90135    5       8        8   2  0              0                                                        TRANSFER
          90136            16       3   0  0              0                SERIAL                                  SELECT
          90137    5       8       10   2  0              0                                                        TRANSFER
    90144>90138    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90139    80      905      2   0  0              0        905     READ                                    ENTER SUBROUTINE
          90140    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90141    C       909     83   0  0              0        909                                             
          90142            8       12   1  0              0                                                        SELECT
          90143    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90144    71      901     38   0  0              0        901     >WRITE CONTENTS                         JUMP IF A != 0
          90145    94      901     34   0  1              1        901     >WRITE CHAPT BLOCK                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    90151>                                                                                                         
    90154>90146    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          90147    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90148    C       909     82   0  0              0        909                                             
          90149            8       12   1  0              0                                                        SELECT
          90150    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90151    71      901     46   0  0              0        901     >GET TO CHAPT                           JUMP IF A != 0
          90152            8        4   2  0              0                                                        SELECT
          90153    12               0   0  0              5                                                        SUBTRACT LITERAL
          90154    71      901     46   0  0              0        901     >GET TO CHAPT 5                         JUMP IF A != 0
          90155    90               0   0  1              5                                                        SET MODIFICATION REGISTER AT LITERAL
          90156    C                0   0  0             10                                                        
    90163>                                                                                                         
    90164>90157    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90158    80      894      2   0  0              0        894     READ A2                                 ENTER SUBROUTINE
          90159    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90160    C       909     82   0  0              0        909                                             
          90161            8       12   1  0              0                                                        SELECT
          90162    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90163    71      901     57   0  0              0        901     >WRITE CONTENTS                         JUMP IF A != 0
          90164    94      901     57   0  1              1        901     >WRITE CHAPT BLOCK                      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    90170>                                                                                                         
    90173>90165    80      905      2   0  0              0        905     READ A1                                 ENTER SUBROUTINE
          90166    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90167    C       909     83   0  0              0        909                                             
          90168            8       12   1  0              0                                                        SELECT
          90169    2       908      8   1  0              0        908      'CHAPT'                                SUBTRACT
          90170    71      901     65   0  0              0        901     GET TO CHAPT                            JUMP IF A != 0
          90171            8        4   2  0              0                                                        SELECT
          90172    101             10   1  2              0                                                        subtract literal address
          90173    71      901     65   0  0              0        901     >GET TO CHAPT 10                        JUMP IF A != 0
    90190>90174            16       2   0  0              0                PROG ID 08066                           SELECT
          90175    5       8        8   2  0              0                                                        TRANSFER
          90176            16       3   0  0              0                SERIAL                                  SELECT
          90177    5       8       10   2  0              0                                                        TRANSFER
    90187>90178    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90179    80      905      2   0  0              0        905     READ A1                                 ENTER SUBROUTINE
          90180    80      906      2   0  0              0        906                                             ENTER SUBROUTINE
          90181    C       909     83   0  0              0        909                                             
          90182            8        4   1  0              0                                                        SELECT
          90183    2       908      2   1  0              0        908      'PREND'                                SUBTRACT
  Source image: P1000782.JPG
          90184    70      901     91   0  0              0        901                                             JUMP IF A == 0
          90185            8       12   1  0              0                                                        SELECT
          90186    2       908      8   1  0              0        908     'CHAPT'                                 SUBTRACT
          90187    71      901     78   0  0              0        901     >WRITE CONTENTS                         JUMP IF A != 0
          90188            8        4   2  0              0                                                        SELECT
          90189    101             13   1  2              0                                                        subtract literal address
          90190    71      901     74   0  0              0        901     >WRITE CHAPT BLOCK                      JUMP IF A != 0
    90184>90191    41      A2       0   0  0              1                                                        CLOSE FILE
          90192    82      900      2   0  0              0        900                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90200    PROCR   902       902     WRITE 2ND INDEX BLOCK S/R                                             
          90202    81      902      2   0  0              0        902                                             START OF SUBROUTINE
          90203            16       2   0  0              0                PROG ID                                 SELECT
          90204    5       8        4   2  0              0                                                        TRANSFER
          90205            16       3   0  0              0                SERIAL                                  SELECT
          90206    5       8        6   2  0              0                                                        TRANSFER
          90207    10               0   0  0              2                                                        SELECT LITERAL
          90208    3       8        8   2  0              0                                                        COPY
          90209    5       8       10   2  0              0                                                        TRANSFER
          90210    10               0   0  0                                                                       SELECT LITERAL
          90211    5       8       12   2  0              0                                                        TRANSFER
          90212    80      904      2   0  0              0        904     WRITE                                   ENTER SUBROUTINE
          90213    82      902      2   0  0              0        902                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90300    PROCR   903       903     READ A1>SEC 7                                                         
          90302    81      903      2   0  0              0        903                                             START OF SUBROUTINE
          90303    42      A1       0   0  0              0                                                        INPUT
          90304    C       7        0   0  0              0                                                        
          90305    82      903      2   0  0              0        903                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90400    PROCR   904       904     WRITE SEC 8>A6                                                        
          90402    81      904      2   0  0              0        904                                             START OF SUBROUTINE
          90403    55      8        4   1  0             50                                                        BULK COPY
          90404    C       9        4   1  0              0                                                        
          90405            908     24   1  0              0        908     BEW                                     SELECT
          90406    5       9       52   1  0              0                                                        TRANSFER
          90407    54      8        4   1  0             50                                                        BULK CLEAR
          90408    43      A6       0   0  0              0                                                        OUTPUT
          90409    C       9        0   0  0              0                                                        
          90410    82      904      2   0  0              0        904                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90500    PROCR   905       905     READ A1>SEC 8                                                         
          90502    81      905      2   0  0              0        905                                             START OF SUBROUTINE
          90503    42      A1       0   0  0              0                                                        INPUT
          90504    C       8        0   0  0              0                                                        
          90505    82      905      2   0  0              0        905                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90600    PROCR   906       906     TEST FINIS ON A2 AND A1 (08066 ONLY)                                  
          90602    81      906      2   0  0              0        906                                             START OF SUBROUTINE
          90603            8        4   1  0              0                                                        SELECT
          90604    2       908      6   1  0              0        908     'FINIS'                                 SUBTRACT
          90605    71      906     10   0  0              0        906     >NO                                     JUMP IF A != 0
          90606            1001     0   0  0              0                                                        SELECT
          90607    5       909     94   0  0              0        909                                             TRANSFER
          90608    154     909     84   0  0              0        909                                             COMMENT IN LOG
          90609    76      884     40   0  0              0        884                                             JUMP unconditional
    90605>90610    82      906      2   0  0              0        906                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90700    PROCR   907       907     'CHAPT' SR                                                            
          90702    81      907      2   0  0              0        907                                             START OF SUBROUTINE
  Source image: P1000783.JPG
          90703            8       12   1  0              0                                                        SELECT
          90704    2       908      8   1  0              0        908     'CHAPT'                                 SUBTRACT
          90705    71      907     24   0  0              0        907     >NO                                     JUMP IF A != 0
    90715>90706    0       8        4   2  0              0                CHAP NUMBER                             SELECT
          90707    12               0   0  0              4                                                        SUBTRACT LITERAL
          90708    2       909     98   0  0              0        909     0 OR 9                                  SUBTRACT
          90709    73      907     11   0  0              0        907     >CHAP 1, PASS 0, SPECIAL                JUMP IF A < 0
          90710    76      907     16   0  0              0        907                                             JUMP unconditional
    90714>                                                                                                         
    90709>90711    80      905      2   0  0              0        905     >READ                                   ENTER SUBROUTINE
          90712    0       8       12   1  0              0                                                        SELECT
          90713    2       908      8   1  0              0        908     'CHAPT'                                 SUBTRACT
          90714    71      907     11   0  0              0        907     >DRAIN TO NEXT CHAP START               JUMP IF A != 0
          90715    76      907      6   0  0              0        907                                             JUMP unconditional
    90710>90716    125              1   0  1              0                STEP CTR                                step on and test
          90717    96               0   0  1              0                                                        SELECT MODIFIER
          90718    5       8        4   2  0              0                SET CHAP NUMBER                         TRANSFER
          90719            16       2   0  0              0                OBJECT PROG ID                          SELECT
          90720    5       8        8   2  0              0                                                        TRANSFER
          90721            16       3   0  0              0                SERIAL                                  SELECT
          90722    5       8       10   2  0              0                                                        TRANSFER
          90723    80      904      2   0  0              0        904     >WRITE A6                               ENTER SUBROUTINE
    90705>90724    82      907      2   0  0              0        907     A CLEAR IF WAS 'CHAPT'                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          90800    CONST   908       908     1                                                                     
          90802          (A)PREND;                                                                                 
          90804          CHAIN;                                                                                    
          90806          FINIS;                                                                                    
          90808          CHAPT;                                                                                    
          90810          ALLOC;                                                                                    
          90812          INDEX;                                                                                    
          90814          (A)08060;                                                                                 
          90816          CHAPS;                                                                                    
          90818             ON;                                                                                    
          90820          (D)5.5.;                                                                                  
          90822          (A)0;                                                                                     
          90824          (D)7.0000007.;                                                                            
          90826          6£6£6£6£6£;                                                                               
          90828          (A)MADE ;                                                                                 
          90830          BY 08;                                                                                    
          90832          000 I;                                                                                    
          90834          SSUE ;                                                                                    
          90836          8  SE;                                                                                    
          90838          RIAL ;                                                                                    
          90840          70000;                                                                                    
          90842          /;                                                                                        
          90844          SPOOL;                                                                                    
          90846          08000;                                                                                    
          90848          MAKES;                                                                                    
          90850          COPY ;                                                                                    
          90852          PASS3;                                                                                    
          90854          0;                                                WL'S                                    
          90856          0;                                                WL'S                                    
          90858          0;                                                WL'S                                    
          90860          0;                                                IND                                     
          90862          (A)PT OM;                                                                                 
          90864          ITTED;                                                                                    
          90866          DISAS;                                                                                    
          90868          TROUS;                                                                                    
          90870          OTHER;                                                                                    
  Source image: P1000784.JPG
          90872          S    ;                                                                                    
          90874          YES;                                                                                      
          90876          NO;                                                                                       
          90878             IN;                                                                                    
          90880          TERCO;                                                                                    
          90882          DE   ;                                                                                    
          90884            TRI;                                                                                    
          90886          AL DA;                                                                                    
          90888          TA   ;                                                                                    
          90890          SERIA;                                                                                    
          90892          L NUM;                                                                                    
          90894          BERS ;                                                                                    
          90896          OF IN;                                                                                    
          90898          TERCO;                                                                                    
          90898          DE RE;                                            /////                                   
          90898          PORTS;                                            /////                                   
                                                                                                                   
          90900    CONST   909       909     1    COMPILER'S CONVERT TABLES                                        
          90902          (D)1;                                             DEC->BIN                                
          90904          Ю;                                                                                        
          90906          64;                                                                                       
          90908          3.8;                                                                                      
          90910          2710;                                                                                     
          90912          186Ю0;                                                                                    
          90914          £4240;                                                                                    
          90916          989680;                                                                                   
          90918          5£5.100;                                                                                  
          90920          3‼9Ю+Ю00;                                                                                 
          90922          1;                                                BIN->DEC                                
          90924          16;                                                                                       
          90926          256;                                                                                      
          90928          4096;                                                                                     
          90930          65536;                                                                                    
          90932          1048576;                                                                                  
          90934          16777216;                                                                                 
          90936          268435456;                                                                                
          90938          4294967296;                                                                               
          90940          ££££££££££;                                                                               
          90942          1;                                                STERLING>BIN                            
          90944          +;                                                                                        
          90946          78;                                                                                       
          90948          £0;                                                                                       
          90950          960;                                                                                      
          90952          5:+0;                                                                                     
          90954          3Ю980;                                                                                    
          90956          249£00;                                                                                   
          90958          16.3600;                                                                                  
          90960          .4.1+00;                                                                                  
          90962          1;                                                BIN>STERLING                            
          90964          14;                                                                                       
          90966          1014;                                                                                     
          90968          17014;                                                                                    
          90970          273014;                                                                                   
          90972          4369014;                                                                                  
          90974          69905014;                                                                                 
          90976          1118481014;                                                                               
          90978          ££££££££££;                                                                               
          90980          ££££££££££;                                                                               
          90982          1000020000;                                                                               
          90984          (A)08000;                                                                                 
  Source image: P1000785.JPG
          90986           UNEX;                                                                                    
          90988          PECTE;                                                                                    
          90990          D FIN;                                                                                    
          90992          IS ON;                                                                                    
          90994           A   ;                                                                                    
          90996          (D)5.5.;                                                                                  
          90998          0;                                                N.B. THIS IS NOT SPARE                  
                                                                                                                   
          91000    TABLE   910       910     1                                                                     
          91002   908    14     0     0  2  0   5   0   0   0  0  0  0     08060'                                  
          91004   908    16     0     0  2  0   5   0   1   0  0  0  0     CHAPS'                                  
          91006   870     4     0     0  0  0   5   0   1   4  0  0  0     LENGTHS                                 
          91008   870     6     0     0  0  0   5   0   1   4  0  0  0                                             
          91010   870     8     0     0  0  0   5   0   0   4  0  0  0                                             
          91012   908    18     0     0  2  0   2   3   2   0  0  0  0     ON'                                     
          91014   869    14     0     0  0  0   5   0   1   0  0  0  0     SPOOL NUMBER                            
          91016   908    20     0     0  2  0   2   3   0   0  0  0  1     DOUBLE LE                               
          91018   908    18     0     0  2  0   2   3   1   0  0  0  0     ON'                                     
          91020   908    40     0     0  1  0   2   4   1   2  0  0  0     DAY                                     
          91022   908    42     0     0  2  0   1   4   0   0  0  0  0     /'                                      
          91024   908    40     0     0  0  0   2   1   0   2  0  0  0     MONTH                                   
          91026   908    42     0     0  2  0   1   4   0   0  0  0  0     /'                                      
          91028   908    40     0     0  0  0   2   3   0   2  0  0  0     YEAR                                    
          91030   908    44     0     0  2  0   5   0   2   0  0  0  0     SPOOL'                                  
          91032   908    22     0     0  0  0   5   0   1   5  0  0  1     NUMBER                                  
          91034   908    46     0     0  2  0   5   0   2   0  0  0  0     08000'                                  
          91036   908    48     0     0  2  0   5   0   1   0  0  0  0     MAKES                                   
          91038   908    52     0     0  2  0   5   0   1   0  0  0  0     PASS5                                   
          91040   908    50     0     0  2  0   5   0   1   0  0  0  0     COPY'                                   
          91042   908    18     0     0  2  0   2   3   0   0  0  0  0     ON'                                     
          91044   908    56     0     0  0  0   5   0   1   5  0  0  0     SPOOL NUMBER                            
          91046   908    20     0     0  2  0   2   3   0   0  0  0  1     DOUBLE LINE END                         
          91048   905     2     0     0  0  0   3   2   0   2  0  0  0     REF----ACTIONS WITH NEG ADDRESS         
          91050   904     2     0     0  0  0   5   0   2   4  0  0  1     PROCR                                   
          91052   908    54     0     0  0  0   4   1   1   3  0  0  0     TRANSLATOR REPORTS                      
          91054   908    56     0     0  0  0   5   0  10   4  0  0  0     08005 REPORTS                           
          91056    40     0     0     0  0  0   5   0   6   5  0  0  0     SERIAL NUMBERS OF                       
          91058    40     1     0     0  0  0   5   0   1   5  0  0  0     INTERCODE REPORTS                       
          91060    40     2     0     0  0  0   5   0   1   5  0  0  0                                             
          91062    40     3     0     0  0  0   5   0   1   5  0  0  0                                             
          91064    40     4     0     0  0  0   5   0   1   5  0  0  0                                             
          91066    40     5     0     0  0  0   5   0   1   5  0  0  0                                             
          91068    40     6     0     0  0  0   5   0   1   5  0  0  0                                             
          91070    40     7     0     0  0  0   5   0   1   5  0  0  0                                             
          91072    40     8     0     0  0  0   5   0   1   5  0  0  0                                             
          91074    40     9     0     0  0  0   5   0   1   5  0  0  1                                             
                                                                                                                   
          91100    PROCR   911       911     CLOSE I/P FILE                                                        
          91102    81      911      2   0  0              0        911                                             START OF SUBROUTINE
          91103    0       908      6   1  0              0        908     FINIS'                                  SELECT
          91104    124     999     10   0  3              0                                                        modify address of next
          91105    124             64   1  2              0                                                        modify address of next
          91106    102              4   1  0              0                PLANT                                   transfer (A) to N
          91107    41      A2       0   0  0              1                                                        CLOSE FILE
          91108    82      911      2   0  0              0        911                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91200    PROCR   912       912     CONVERT TO DEC                                                        
          91202    81      912      2   0  0              0        912                                             START OF SUBROUTINE
          91203    5       911      2   0  0              0        911                                             TRANSFER
          91204    60               0   0  0              0                                                        SET DECIMAL RADIX
  Source image: P1000786.JPG
          91205    124     909     22   0  2              0        909                                             select literal and division
          91206    112     911      2   0  0              0        911                                             convert
          91207    82      912      2   0  0              0        912                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91300    PROCR   913       913     O/P->A9                                                               
          91302    81      913      2   0  0              0        913                                             START OF SUBROUTINE
          91303    94      913      9   0  6             50        913                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          91304            908     24   1  0              0        908                                             SELECT
          91305    5       10     306   1  0              0                                                        TRANSFER
          91306    80      914      2   0  0              0        914                                             ENTER SUBROUTINE
          91307    90               0   0  6              0                                                        SET MODIFICATION REGISTER AT LITERAL
          91308    C                0   0  0            300                                                        
    91303>91309    82      913      2   0  0              0        913                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91400    PROCR   914       914     WRITE A9                                                              
          91402    81      914      2   0  0              0        914                                             START OF SUBROUTINE
          91403    10               0   0  0         800000                                                        SELECT LITERAL
          91404    34      999     12   0  0              0                SEC 10                                  SET (N) IN B
          91405    125           4096   1  1              0                                                        clear indicators
          91406    1       999      7   0  0              0                D1/A9                                   ADD
          91407    124     999      0   0  3              0                                                        modify address of next
          91408    123            160   0  2              0                                                        enter master routine
          91409    82      914      2   0  0              0        914                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91500    PROCR   915       915     COPY WORDS FOR ERROR TOTALS REPORTS                                   
          91502    81      915      2   0  0              0        915                                             START OF SUBROUTINE
          91503            908     62   1  1              0        908                                             SELECT
          91504    5       5        6   1  0              0                                                        TRANSFER
          91505            908     64   1  1              0        908                                             SELECT
          91506    5       5        8   1  0              0                                                        TRANSFER
          91507    80      888      2   0  0              0        888     >SUPPRESS I/C IF TRAMD ONLY             ENTER SUBROUTINE
          91508    80      892      2   0  0              0        892     PRINT                                   ENTER SUBROUTINE
          91509    82      915      2   0  0              0        915                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91600    PROCR   916       916     EDIT NUMBER OF REPORTS                                                
          91602    81      916      2   0  0              0        916                                             START OF SUBROUTINE
          91603    5       908     54   0  0              0        908                                             TRANSFER
          91604    52      5       12   0  0              0                                                        EDIT
          91605    C       910     52   0  0              0        910                                             
          91606    55      40      10   0  0             10                COPY'OTHERS'SERIAL NOS                  BULK COPY
          91607    C       40       0   0  0              0                                                        
          91608    82      916      2   0  0              0        916                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          91700    CONST   917       917     1    BLISTER SPACE PASS 5                                             
          91702          (D)0;                                                                                     
          91704          0;                                                                                        
          91706          0;                                                                                        
          91708          0;                                                                                        
          91710          0;                                                                                        
          91712          0;                                                                                        
          91714          0;                                                                                        
          91716          0;                                                                                        
          91718          0;                                                                                        
          91720          0;                                                                                        
          91722          0;                                                                                        
          91724          0;                                                                                        
          91726          0;                                                                                        
          91728          0;                                                                                        
          91730          0;                                                                                        
          91732          0;                                                                                        
  Source image: P1000787.JPG
          91734          0;                                                                                        
          91736          0;                                                                                        
          91738          0;                                                                                        
          91740          0;                                                                                        
          91742          0;                                                                                        
          91744          0;                                                                                        
          91746          0;                                                                                        
          91748          0;                                                                                        
          91750          0;                                                                                        
          91752          0;                                                                                        
          91754          0;                                                                                        
          91756          0;                                                                                        
          91758          0;                                                                                        
          91760          0;                                                                                        
                                                                                                                   
          91800    PROCR   918       918     PASS 6=REMAINDER OF PTS                                               
          91802    152     101      2   0  0              0        101                                             OVERLAY
          91803    C       995      0   0  0              0        995                                             
          91804    124     992      2   0  2              0        992     SECOND LEVEL PARAS                      select literal and division
          91805    91               0   0  1              0                SECOND LEVEL PARAS                      SET MODIFICATION REGISTER AT VARIABLE
          91806    124     922      2   0  2              0        922                                             select literal and division
          91807    91               0   0  2              0                ORDERS                                  SET MODIFICATION REGISTER AT VARIABLE
          91808    124     987      2   0  2              0        987                                             select literal and division
          91809    91               0   0  3              0                FIRST LEVEL PARAS                       SET MODIFICATION REGISTER AT VARIABLE
          91810    0       987      2   0  0              0        987                                             SELECT
          91811    31               0   0  0              2                                                        SHIFT (A) BY BITS
          91812    5       921     11   0  0              0        921                                             TRANSFER
          91813    0       992      2   0  0              0        992                                             SELECT
          91814    31               0   0  0              2                                                        SHIFT (A) BY BITS
          91815    5       921     17   0  0              0        921                                             TRANSFER
          91816    90               0   0  5              0                                                        SET MODIFICATION REGISTER AT LITERAL
          91817    C                0   0  0              6                                                        
          91818    90               0   0  8              0                                                        SET MODIFICATION REGISTER AT LITERAL
          91819    C                0   0  0              3                                                        
          91820    80      920      2   0  0              0        920     >O/P PTS(2)                             ENTER SUBROUTINE
          91821    10               0   0  0     5358596773                CHIPT'                                  SELECT LITERAL
          91822    5       8       12   1  0              0                                                        TRANSFER
          91823    80      919      2   0  0              0        919     >WRITE                                  ENTER SUBROUTINE
          91824    80      920      2   0  0              0        920     >O/P PTS(3)                             ENTER SUBROUTINE
          91825    76      882     15   0  0              0        882     >O/P'PREND'                             JUMP unconditional
                                                                                                                   
          91900    PROCR   919       919     WRITE8->A2                                                            
          91902    81      919      2   0  0              0        919                                             START OF SUBROUTINE
          91903    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          91904    5       8       52   1  0              0                                                        TRANSFER
          91905    43      A2       0   0  0              0                                                        OUTPUT
          91906    C       8        0   0  0              0                                                        
          91907    54      8        4   1  0             50                                                        BULK CLEAR
          91908    82      919      2   0  0              0        919                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          92000    PROCR   920       920     WRITE CHUNK.SR                                                        
          92002    81      920      2   0  0              0        920                                             START OF SUBROUTINE
          92003    96               0   0  2              0                STORE CHUNK START FOR PARAS 1 AND 5     SELECT MODIFIER
          92004    5       921      2   0  0              0        921                                             TRANSFER
          92005    124     921      2   0  1              0        921                                             modify address of next
          92006    101              0   1  3              0                                                        select literal address
          92007    5       921      6   0  0              0        921     CHUNK START                             TRANSFER
    92079>92008    124     999     19   1  2              0                                                        modify address of next
          92009    124              0   0  2              0                                                        select literal and division
          92010    3       919      2   0  0              0        919                                             COPY
  Source image: P1000788.JPG
          92011    101             48   1  1              0                                                        add literal address
          92012    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          92013    1       919      2   0  0              0        919                                             ADD
          92014    91               0   0  4              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    92077>92015    124     921      4   0  3              0        921     STORE WORD                              modify address of next
          92016    106              0   0  2              0                                                        select (N)
          92017    5       921      7   0  0              0        921     STORE WORD                              TRANSFER
    92031>92018    34      921     10   1  0              0        921     FIRST LEVEL PARA WORD                   SET (N) IN B
          92019    33               0   0  0              3                NEXT ONE TO A                           SHIFT (AB) BY BITS
          92020    100     921      8   1  0              0        921     STORE (A) (B) ( C)                      copy registers
          92021    94      920     29   0  5              1        920     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          92022    90               0   0  5              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          92023    C                0   0  0              6                NEXT PARA WORD                          
          92024    124     921      4   0  3              0        921     STORE PARA WORD                         modify address of next
          92025    106              1   0  3              0                STORE PARA WORD                         select (N)
          92026    33               0   0  0              2                RIGHT ALIGN WORD                        SHIFT (AB) BY BITS
          92027    5       921     11   0  0              0        921                                             TRANSFER
          92028    94      920     29   0  3              1        920     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    92028>                                                                                                         
    92021>92029            921      8   0  0              0        921     TEST DUMMY PARA                         SELECT
          92030    12               0   0  0              6                                                        SUBTRACT LITERAL
          92031    70      920     18   0  0              0        920     >YES                                    JUMP IF A == 0
          92032    12               0   0  0              1                TEST SECOND LEVEL REQD                  SUBTRACT LITERAL
          92033    71      920     57   0  0              0        920     >NO                                     JUMP IF A != 0
    92047>92034    34      921     16   1  0              0        921     SECOND LEVEL PARA WORD                  SET (N) IN B
          92035    33               0   0  0              6                NEXT ONE TO A                           SHIFT (AB) BY BITS
          92036    100     921     14   1  0              0        921     STORE (A) (B) ( C)                      copy registers
          92037    94      920     45   0  8              1        920     TEST END OF PARA WORD                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          92038    90               0   0  8              0                SET UP MR FOR                           SET MODIFICATION REGISTER AT LITERAL
          92039    C                0   0  0              3                NEXT PARA WORD                          
          92040    124     921      4   0  3              0        921     STORE PARA WORD                         modify address of next
          92041    106              1   0  1              0                                                        select (N)
          92042    33               0   0  0              2                RIGHT ALIGN WORD                        SHIFT (AB) BY BITS
          92043    5       921     17   0  0              0        921                                             TRANSFER
          92044    94      920     45   0  1              1        920     STEP PARAS MR                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    92044>                                                                                                         
    92037>92045            921     14   0  0              0        921     TEST SECOND LEVEL                       SELECT
          92046    101             63   1  2              0                PARA=63(DUMMY)                          subtract literal address
          92047    70      920     34   0  0              0        920     >YES                                    JUMP IF A == 0
          92048    101              1   1  1              0                TEST END SIGN(62)                       add literal address
          92049    71      920     55   0  0              0        920     >NO                                     JUMP IF A != 0
          92050            921      4   1  0              0        921     STORE END SIGN                          SELECT
          92051    5                4   1  4              0                                                        TRANSFER
          92052    5                6   1  4              0                                                        TRANSFER
          92053    80      919      2   0  0              0        919     >WRITE LAST BLOCK                       ENTER SUBROUTINE
          92054    82      920      2   0  0              0        920     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    92049>92055            921     14   1  0              0        921     STORE ACTUAL PARA                       SELECT
          92056    5       921      8   1  0              0        921     VALUE                                   TRANSFER
    92033>92057            921      8   0  0              0        921     TEST PARA=1                             SELECT
          92058    12               0   0  0              1                                                        SUBTRACT LITERAL
          92059    70      920     62   0  0              0        920     >YES                                    JUMP IF A == 0
          92060    12               0   0  0              1                                                        SUBTRACT LITERAL
          92061    71      920     72   0  0              0        920     >NO                                     JUMP IF A != 0
    92059>92062    101           8191   1  3              0                                                        select literal address
          92063    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          92064    36      921      7   0  0              0        921     INSTRUCTION 13-BIT ADDRESS              COLLATE AND ADD
          92065    101     987      2   1  2              0        987     PTS(2,3)END                             subtract literal address
          92066    73      920     80   0  0              0        920     >NORMAL ORDER NOT ADDRESSING PTS(1)     JUMP IF A < 0
          92067    35               0   0  0          11111                                                        PREPARE FOR DIGIT COLLATION
          92068    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1000789.JPG
          92069    36      921      7   0  0              0        921                                             COLLATE AND ADD
          92070    101     757      2   1  2              0        757     PTS(2,3)START IN PTS(1)                 subtract literal address
    92082>92071    37      921      7   0  0              0        921                                             REPLACE SELECTED BITS
    92061>92072            921      7   0  0              0        921                                             SELECT
          92073    5                6   2  4              0                                                        TRANSFER
          92074            921      8   0  0              0        921                                             SELECT
          92075    5                4   2  4              0                                                        TRANSFER
          92076    94      920     77   0  2              1        920     WORD MR                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    92076>92077    94      920     15   0  4              4        920     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          92078    80      919      2   0  0              0        919                                             ENTER SUBROUTINE
          92079    76      920      8   0  0              0        920     >NEXT BLOCK                             JUMP unconditional
    92066>92080    101     987      2   1  1              0        987                                             add literal address
          92081    2       921      6   0  0              0        921     13-BIT CHUNK START                      SUBTRACT
          92082    76      920     71   0  0              0        920                                             JUMP unconditional
                                                                                                                   
          92100    CONST   921       921     1    CONSTANTS                                                        
          92102          (D);                                                                                      
          92104          (A)£    ;                                                                                 
          92106          (D)0;                                             CHUNK START/ORDER                       
          92108          0;                                                A                                       
          92110          0;                                                B                                       
          92112          0;                                                C                                       
          92114          0;                                                A                                       
          92116          0;                                                B                                       
          92118          0;                                                C                                       
                                                                                                                   
          92200    PROCR   922       922     2001 WRITE START BLOCK                                                
          92202    124     922     32   1  0              0        922     >FROM PASS1                             unconditional jump
          92203    124     923      2   1  0              0        923     >FROM PROGRAMME                         unconditional jump
          92204    124     935      2   1  0              0        935     >FROM OPT 20 AND ABDON                  unconditional jump
          92205    124     937      2   1  0              0        937     >FROM OVERLAY(END)                      unconditional jump
          92206    76      939      2   0  0              0        939     >FROM OVERLAY(START)                    JUMP unconditional
          92207    10               0   0  0              2                (FROM PROGRAM UNLOAD)                   SELECT LITERAL
          92208    5       741      2   0  0              0        741     SET 'END' IND                           TRANSFER
          92209    76      931      4   0  0              0        931                                             JUMP unconditional
          92210    100              0   0  0              0                LINK                                    Halt
          92211    124     755      2   0  3              0        755     PROG ID                                 modify address of next
          92212    106             39   0  0              0                WL                                      select (N)
          92213    5       932      2   0  0              0        932                                             TRANSFER
          92214    124     922     22   0  2              0        922                                             select literal and division
          92215    128     751     34   1  2              0        751                                             edit fixed field formats
          92216    124     751     34   0  2              0        751                                             select literal and division
          92217    125           4096   1  1              0                                                        clear indicators
          92218    124     951      8   0  3              0        951                                             modify address of next
          92219    123            168   0  2              0                                                        enter master routine
          92220    100     951      8   0  3              0        951                                             set radix
          92221    126     922     10   0  1              0        922                                             leave subroutine
          92222    100     953      8   0  0              0        953     'PTS' ('OP')                            Halt
          92223    101            515   0  0              0                2/0/3(0/0/3)                            table look up
          92224    100     953      2   0  0              0        953     'ABAND'                                 Halt
          92225    101             21   0  0              0                1/5                                     table look up
          92226    100     953      4   0  0              0        953     'ONS'                                   Halt
          92227    101              3   0  0              0                                                        table look up
          92228    100     932      2   0  0              0        932     PROG ID                                 Halt
          92229    100             21   0  0              0                1/5                                     Halt
          92230    100     953      4   0  0              0        953     DOUBLE LE                               Halt
          92231    117            770   0  0              0                3/0/2                                   special select
    92242>                                                                                                         
    92202>92232    100     950      6   0  2              0        950                                             replace (B) by (N)
          92233    101              7   1  3              0                                                        select literal address
  Source image: P1000790.JPG
          92234    126     749      2   0  0              0        749                                             enter subroutine
          92235    124     950      8   1  2              0        950                                             modify address of next
          92236    106              4   1  0              0                                                        select (N)
          92237    105     953      6   1  0              0        953                                             subtract (N) from (A)
          92238    127     922     43   0  0              0        922     >YES                                    jump A = Z
          92239    124     950      8   1  2              0        950                                             modify address of next
          92240    106             12   1  0              0                                                        select (N)
          92241    105     951      4   1  0              0        951                                             subtract (N) from (A)
          92242    127     922     32   0  1              0        922     >NO                                     jump A != Z
    92238>92243    100     954      2   0  2              0        954                                             replace (B) by (N)
          92244    101             44   1  3              0                                                        select literal address
          92245    126     749      2   0  0              0        749     >STEP BACK 1 I/P>                       enter subroutine
          92246    124     952     14   0  2              0        952     SET UP                                  select literal and division
          92247    102     930     11   0  0              0        930     IND MOD REG                             transfer (A) to N
          92248    124     952     16   0  2              0        952     AND ANOTHER                             select literal and division
          92249    102     933     10   0  0              0        933                                             transfer (A) to N
          92250    0       755      2   0  0              0        755     SWITCH START                            SELECT
          92251    101             39   1  1              0                                                        add literal address
          92252    5       952     12   0  0              0        952     ADDRESS OF PROG ID                      TRANSFER
          92253    124     952      2   0  2              0        952                                             select literal and division
          92254    124     950      8   1  2              0        950     -123                                    modify address of next
          92255    128              4   1  2              0                EDIT 'START' BLOCK                      edit fixed field formats
          92256    126     942      2   0  0              0        942     >WRITE BLOCK, SET TAG 15                enter subroutine
          92257    125           4096   1  1              0                SET NON INT                             clear indicators
          92258    0       955      6   1  0              0        955                                             SELECT
          92259    124     755      6   0  3              0        755     8X MOD GROUP                            modify address of next
          92260    128              2   0  0              0                CLEAR PROGS MOD REGISTERS               bulk copy short numeric
          92261    10               0   0  0                                                                       SELECT LITERAL
          92262    3       744     75   0  0              0        744     SET 'PROG IN CONTROL'                   COPY
          92263    5       949     11   0  0              0        949     SET 'STATE OF TAPE' IND                 TRANSFER
          92264    100     755      8   1  1              0        755     RESTORE ORIGINAL (ABC)                  replace registers
          92265    126     755      7   0  3              0        755     >GO TO PROGS ENTRY POINT                leave master routine
                                                                                                                   
          92300    PROCR   923       923     2002 ENTRY FROM PM POINT VIA 172-STORE LINKS, TEST TIME FOR PM        
    92203>92302    100     952      2   1  0              0        952     (ABC)>WL AND PROG SWITCH                copy registers
          92303    124     755      2   0  3              0        755                                             modify address of next
          92304    100             30   1  0              0                                                        copy registers
          92305    100     951      8   0  3              0        951     BIN                                     set radix
          92306    106     955      2   1  0              0        955     STORE CONTENTS OF                       select (N)
          92307    104     755      6   0  0              0        755     PROG'S MOD REGS                         add (N) to (A)
          92308    128     952      8   0  0              0        952                                             bulk copy short numeric
          92309    5       744     75   0  0              0        744     SET 'PTS IN CONTROL'                    TRANSFER
          92310    101             15   0  1              0                                                        prepare for digit collation
          92311    124     951      8   0  3              0        951                                             modify address of next
          92312    115            172   0  0              0                ADDRESS OF PM SR LINK                   collate and add
          92313    101              4   1  2              0                                                        subtract literal address
          92314    102     952      7   0  0              0        952                                             transfer (A) to N
          92315    124     952      7   0  3              0        952     STORE PM SR LINK-1                      modify address of next
          92316    106              0   0  0              0                                                        select (N)
          92317    101              1   1  2              0                                                        subtract literal address
          92318    102     949      6   0  0              0        949                                             transfer (A) to N
          92319    80      946      2   0  0              0        946     >SET MR2 TO SCAN PM LIST                ENTER SUBROUTINE
    92429>92320    106              0   0  2              0                                                        select (N)
          92321    105     949      6   0  0              0        949                                             subtract (N) from (A)
          92322    71      924     28   0  0              0        924     >NO, STEP R2                            JUMP IF A != 0
          92323    106              6   1  2              0                TEST NOTHING TO DUMP                    select (N)
          92324    70      924      5   0  0              0        924     >RETURN TO PROG                         JUMP IF A == 0
          92325    10               0   0  0              0                                                        SELECT LITERAL
          92326    101              3   0  1              0                COLLATE N1                              prepare for digit collation
          92327    115              4   0  2              0                                                        collate and add
  Source image: P1000791.JPG
          92328    127     924      2   0  1              0        924     >NO                                     jump A != Z
          92329    101              6   0  1              0                                                        prepare for digit collation
          92330    115              5   0  2              0                                                        collate and add
          92331    71      926      2   0  0              0        926     >NO,TAKE A DUMP                         JUMP IF A != 0
                                                                                                                   
          92400    PROCR   924       924     RETURN TO PROGRAM AFTER DUMP OR IF NOT DUMPING THIS TIME              
    92328>92402    106              4   0  2              0                AUGMENT N1 BY -1                        select (N)
          92403    101              1   1  2              0                                                        subtract literal address
          92404    102              4   0  2              0                                                        transfer (A) to N
    93014>                                                                                                         
    93460>                                                                                                         
    92324>92405    101              8   0  1              0                AUGMENT LINK BY                         prepare for digit collation
          92406    115              5   0  2              0                24 ACTION IND                           collate and add
          92407    118           4125   0  0              0                                                        shift logical
          92408    124     952      7   0  3              0        952                                             modify address of next
          92409    107              0   0  0              0                                                        augment (N) by (A)
          92410    106              2   0  2              0                REPLACE INSTRUCTIONS                    select (N)
          92411    124     952      7   0  3              0        952                                             modify address of next
          92412    102              4   0  0              0                                                        transfer (A) to N
          92413    106              3   0  2              0                                                        select (N)
          92414    124     952      7   0  3              0        952                                             modify address of next
          92415    102              5   0  0              0                                                        transfer (A) to N
          92416    102     949      2   1  0              0        949     CLEAR W/L'S 1,2                         transfer (A) to N
          92417    102     949      4   0  0              0        949     AND 3                                   transfer (A) to N
          92418    106     956      2   1  0              0        956                                             select (N)
          92419    124     755      6   0  3              0        755     PROG'S MOD REGS                         modify address of next
          92420    128              2   0  0              0                                                        bulk copy short numeric
          92421    125           4096   1  1              0                                                        clear indicators
          92422    10               0   0  0              1                                                        SELECT LITERAL
          92423    5       744     75   0  0              0        744     SET'PROG IN CONTROL'                    TRANSFER
          92424    76      924     25   0  0              0        924     DUMMY                                   JUMP unconditional
    92424>92425    100     952      2   1  1              0        952     RESTORE A           B                   replace registers
          92426    124     951      8   0  3              0        951                                             modify address of next
          92427    126            172   0  3              0                >RETURN TO PROGRAM VIA PTS SR           leave master routine
    92322>92428    125             18   0  2              0                                                        step on and test
          92429    76      923     20   0  0              0        923     >NEXT PM POINT                          JUMP unconditional
          92430    126     922     10   0  0              0        922     >TYPE'PTS ABANDONS(PROG)'               enter subroutine
          92431    76      935     10   0  0              0        935     >CONTINUE AS IF ABDON COMMAND           JUMP unconditional
                                                                                                                   
          92500    PROCR   925       925     2004 TYPE'PTS ABANDONS(PROG)'                                         
                                                                                                                   
          92600    PROCR   926       926     2005 SET UP HEADING BLOCK                                             
    92331>92602    101             16   1  2              0                STEP N3 BY -1                           subtract literal address
          92603    114              5   0  2              0                                                        replace selected bits
          92604    106     949     11   0  0              0        949                                             select (N)
          92605    127     926      7   0  1              0        926     >YES                                    jump A != Z
          92606    126     948      2   0  0              0        948     >RUN FORWARD TO FINIS:STEP BACK 1       enter subroutine
    92605>92607    101             15   1  3              0                SET STATE OF TAPE INAT 15               select literal address
          92608    102     949     11   0  0              0        949                                             transfer (A) to N
          92609    101             24   0  1              0                SET N1=N2                               prepare for digit collation
          92610    115              4   0  2              0                                                        collate and add
          92611    118           4125   0  0              0                                                        shift logical
          92612    107              4   0  2              0                                                        augment (N) by (A)
          92613    125              0   1  2              0                                                        interrogate indicators
          92614    101             16   0  1              0                                                        prepare for digit collation
          92615    115              5   0  2              0                                                        collate and add
          92616    103     949      4   0  0              0        949     COPY TAPE TO W/L 3                      copy (A) to N
          92617    105     950      2   0  0              0        950                                             subtract (N) from (A)
          92618    127     926     21   0  1              0        926     >NO                                     jump A != Z
          92619    106     950      2   0  0              0        950                                             select (N)
  Source image: P1000792.JPG
          92620    124     935     16   1  0              0        935     >YES                                    unconditional jump
    92618>92621    126     947      2   0  0              0        947     >TRANSFER CONTENTS OF MOD REGS TO O/P SEenter subroutine
          92622    106              1   0  2              0                                    TRANSFER I/C SERIAL select (N)
          92623    124     950      8   1  2              0        950                         TO O/P SECN         modify address of next
          92624    102              9   1  0              0                                                        transfer (A) to N
          92625    126     951      8   1  1              0        951     SET(MR1)=10/0                           set modification register
          92626    126     951     10   1  3              0        951     SET(MR3)=5/0                            set modification register
    92633>92627    106     952      2   0  3              0        952                         TRANSFER CONTENTS   select (N)
          92628    124     950      8   1  2              0        950                         OF (A), (B), C) TO  modify address of next
          92629    102             11   1  1              0                                    O/P SECN            transfer (A) to N
          92630    125              2   0  1              0                STEP MR1                                step on and test
          92631    124     926     32   1  0              0        926     >                                       unconditional jump
    92631>92632    125              1   0  3              0                STEP MR3                                step on and test
          92633    124     926     27   1  0              0        926     >                                       unconditional jump
                                                                                                                   
          92700    PROCR   927       927     2006 SET UP HEADING BLOCK (2)                                         
          92702    101              1   1  3              0                SET HEADING IND                         select literal address
          92703    102     949      7   0  0              0        949                                             transfer (A) to N
          92704    106     951     12   1  0              0        951     SET IND MOD AT 12/0                     select (N)
          92705    102     952     14   1  0              0        952                                             transfer (A) to N
    93012>92706    106     949      4   0  0              0        949     TRANSFER PM TYPE TO SECN                select (N)
          92707    124     950      8   1  2              0        950                                             modify address of next
          92708    103              7   1  0              0                                    TEST PM TYPE 6      copy (A) to N
          92709    105     950      9   0  0              0        950                                             subtract (N) from (A)
          92710    127     933      2   0  0              0        933     >YES                                    jump A = Z
          92711    127     927     20   0  2              0        927     >YES                TEST TYPE >6        jump A >= Z
          92712    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          92713    101              2   1  1              0                                    TEST TYPE 4         add literal address
          92714    127     927     17   0  0              0        927     >YES                                    jump A = Z
          92715    101              2   1  1              0                                    TEST TYPE 2         add literal address
          92716    127     927     23   0  1              0        927     >NO                                     jump A != Z
    92714>92717    101              1   1  3              0                SET COMP DUMP TAKEN                     select literal address
          92718    102     949      9   0  0              0        949                                             transfer (A) to N
          92719    124     927     23   1  0              0        927     >                                       unconditional jump
    92711>92720    103     949     10   0  0              0        949     SET CLEO DUMP TAKEN IND                 copy (A) to N
          92721    105     950      3   0  0              0        950                         TEST TYPE 9 DUMP    subtract (N) from (A)
          92722    127     933      2   0  0              0        933     >YES                                    jump A = Z
    92719>                                                                                                         
    92716>92723    124     952     14   0  1              0        952                         TEST ZERO CHAP      modify address of next
          92724    106              6   0  2              0                                    OR SECN START       select (N)
          92725    127     930     13   0  0              0        930     >YES END OF DUMP                        jump A = Z
          92726    127     927     34   0  2              0        927     >NO                 TEST IF TRANSIT AREAjump A >= Z
          92727    106     952     14   0  0              0        952                                             select (N)
          92728    124     755      6   0  3              0        755                                             modify address of next
          92729    104              4   0  0              0                                                        add (N) to (A)
          92730    102     949      5   0  0              0        949     W/L                                     transfer (A) to N
          92731    124     949      5   0  1              0        949                                             modify address of next
          92732    124              6   0  3              0                                                        modify address of next
          92733    106              0   0  0              0                TRANSIT AREA START                      select (N)
    92726>92734    118              6   0  0              0                FORM UP 13 BIT ADD                      shift logical
          92735    118           4122   0  0              0                OF SECTION OR CHAP START                shift logical
          92736    103     952     18   0  0              0        952                         SET (MR1) AT START/Scopy (A) to N
          92737    124     950      8   1  2              0        950                         +LENGTH             modify address of next
          92738    103             33   1  0              0                                    TRANSFER (MR1) TO   copy (A) to N
          92739    124     952     14   0  1              0        952                         O/P SECN            modify address of next
          92740    104              7   0  2              0                SECTION LENGTH                          add (N) to (A)
          92741    118              6   0  0              0                FORM UP 15 BIT ADD                      shift logical
          92742    118           4122   0  0              0                OF SECTION END                          shift logical
          92743    103     952     19   0  0              0        952                                             copy (A) to N
          92744    124     950      8   1  2              0        950                                             modify address of next
  Source image: P1000793.JPG
          92745    102             35   1  0              0                                                        transfer (A) to N
          92746    101              3   0  1              0                                                        prepare for digit collation
          92747    124     952     14   0  1              0        952                                             modify address of next
          92748    115              8   0  2              0                CHAP OR SECN NO                         collate and add
          92749    126     941      2   0  0              0        941     >CONVERT TO DEC                         enter subroutine
          92750    124     950      8   1  2              0        950                                             modify address of next
          92751    107              7   1  0              0                                                        augment (N) by (A)
                                                                                                                   
          92800    PROCR   928       928     2007 OUTPUT THIS DUMP'S HEADING BLOCK                                 
    93320>                                                                                                         
    93619>                                                                                                         
    93631>92802    106     949      7   0  0              0        949                                             select (N)
          92803    127     928      9   0  0              0        928     >NO                                     jump A = Z
          92804    125              0   1  2              0                CLEAR IND                               interrogate indicators
          92805    102     949      7   0  0              0        949                                             transfer (A) to N
          92806    101           4096   1  3              0                SET IND IN O/P SECN                     select literal address
          92807    124     950      8   1  2              0        950     1 IN Q4                                 modify address of next
          92808    107              7   1  0              0                32=ABS START,34=ABS END AREA DUMPED     augment (N) by (A)
    92803>92809    106     951      2   1  0              0        951     4='DUMPS',36=BEW                        select (N)
          92810    124     950      8   1  2              0        950     (6)Q1+2=DEC SEC/CHAP,Q4=HEAD IND        modify address of next
          92811    102              4   1  0              0                Q5=DUMP TYPE                            transfer (A) to N
          92812    106     951     18   1  0              0        951     10,12,14=(ABC) 8=PM POINT               select (N)
          92813    124     950      8   1  2              0        950                                             modify address of next
          92814    102             36   1  0              0                BEW                                     transfer (A) to N
          92815    126     942      2   0  0              0        942     >WRITE BLOCK S/R                        enter subroutine
                                                                                                                   
          92900    PROCR   929       929     2008 MAIN DUMP ROUTINE                                                
          92902    126     943      2   0  0              0        943     >SET (MR3)=(123)+48/(123)               enter subroutine
          92903    106     949      3   0  0              0        949                                             select (N)
          92904    127     934      2   0  1              0        934     >YES                                    jump A != Z
          92905    101             20   1  3              0                SET ABSURD TAG                          select literal address
          92906    102     951     22   0  0              0        951                                             transfer (A) to N
    92933>                                                                                                         
    92935>92907    124     952     18   0  3              0        952                                             modify address of next
          92908    123              0   0  3              0                                                        select tag
          92909    105     951     22   0  0              0        951                                             subtract (N) from (A)
          92910    127     929     18   0  0              0        929     >NO                                     jump A = Z
          92911    107     951     22   0  0              0        951     STORE NEW TAG                           augment (N) by (A)
          92912    106     951     22   1  0              0        951     TRANSFER TAG CHANGE                     select (N)
          92913    102              4   1  3              0                WORD TO O/P SECN                        transfer (A) to N
          92914    102              6   1  3              0                                                        transfer (A) to N
          92915    125              4   0  3              0                                                        step on and test
          92916    124     929     18   1  0              0        929     >NO                                     unconditional jump
          92917    126     944      2   0  0              0        944     >OUTPUT BLOCK AND                       enter subroutine
    92916>                                                                                                         
    92910>92918    106     951     14   1  0              0        951                                             select (N)
          92919    104     952     18   0  0              0        952                                             add (N) to (A)
          92920    124     755      6   0  3              0        755                                             modify address of next
          92921    124              6   0  1              0                COPY LONG WORD                          modify address of next
          92922    128              5   0  1              0                TO O/P SECN                             bulk copy short numeric
          92923    126     952     18   1  1              0        952                                             set modification register
          92924    125              2   0  1              0                                                        step on and test
          92925    124     929     27   1  0              0        929     >NO                                     unconditional jump
          92926    124     930      2   1  0              0        930     >YES                                    unconditional jump
    92925>92927    101              2   1  3              0                STEP INDIRECT MOD                       select literal address
          92928    107     952     18   0  0              0        952                                             augment (N) by (A)
          92929    106     952     18   0  0              0        952     TEST IF SECN ENDS AT 7/8191             select (N)
          92930    118           4124   0  0              0                                                        shift logical
          92931    127     930      2   0  1              0        930     >YES                                    jump A != Z
          92932    125              4   0  3              0                                                        step on and test
  Source image: P1000794.JPG
          92933    124     929      7   1  0              0        929     >NO                                     unconditional jump
          92934    126     944      2   0  0              0        944     >OUTPUT BLOCK AND RESET (MR3)           enter subroutine
          92935    124     929      7   1  0              0        929     >                                       unconditional jump
                                                                                                                   
          93000    PROCR   930       930     2009 END OF DUMPS                                                     
    92931>                                                                                                         
    92926>93002    125              4   0  3              0                                                        step on and test
          93003    124     930      4   1  0              0        930                                             unconditional jump
    93003>93004    126     944      2   0  0              0        944     >WRITE BLOCK                            enter subroutine
          93005    106     952     19   0  0              0        952                                             select (N)
          93006    2       941      9   0  0              0        941                                             SUBTRACT
          93007    127     936      6   0  0              0        936     >YES                                    jump A = Z
          93008    106     949      2   0  0              0        949                                             select (N)
          93009    127     930     16   0  1              0        930     >YES                                    jump A != Z
          93010    123              3   0  0              0                                                        step on and test
          93011    100     952     14   0  0              0        952                                             Halt
          93012    124     927      6   1  0              0        927     >NO                                     unconditional jump
    93022>                                                                                                         
    92725>93013            745     49   0  0              0        745                                             SELECT
          93014    70      924      5   0  0              0        924     >NORMAL                                 JUMP IF A == 0
          93015    76      935     10   0  0              0        935     >DO FINAL DUMP AFTER THIS               JUMP unconditional
    93009>93016    126     952     14   1  1              0        952                                             set modification register
          93017    125              1   0  1              0                                                        step on and test
          93018    124     930     23   1  0              0        930     >NO                                     unconditional jump
          93019    106     949      4   0  0              0        949                                             select (N)
          93020    70      931      2   0  0              0        931     >YES,END OF FINAL DUMP                  JUMP IF A == 0
          93021    125              0   1  2              0                                                        interrogate indicators
          93022    76      930     13   0  0              0        930     >THIS WAY FOR TYPE 5                    JUMP unconditional
    93018>93023    101              1   1  3              0                STEP IND MOD                            select literal address
          93024    107     952     14   0  0              0        952                                             augment (N) by (A)
          93025    124     936      6   1  0              0        936     >                                       unconditional jump
                                                                                                                   
          93100    PROCR   931       931     2010 ENTRY FROM PROGRAMUNLOAD                                         
    93020>93102    5       741      2   0  0              0        741     SET'ABDON'IND                           TRANSFER
          93103    125           4096   1  1              0                                                        clear indicators
    92209>93104    5       744     75   0  0              0        744     SET 'PTS IN CONTROL'                    TRANSFER
          93105            949     10   0  0              0        949     TEST CLEO DUMP TAKEN                    SELECT
          93106    127     931     14   0  1              0        931     >YES                                    jump A != Z
          93107    124     951      8   0  3              0        951     TEST BTS PRINTS ON-LINE                 modify address of next
          93108    106             26   0  0              0                (3)                                     select (N)
          93109    127     931     14   0  0              0        931     >NO                                     jump A = Z
          93110    12               0   0  0              1                                                        SUBTRACT LITERAL
          93111    71      932     17   0  0              0        932     >YES O'LAY PASS 3                       JUMP IF A != 0
          93112    106     949      9   0  0              0        949     TEST ANY DUMPS 2 OR 4 TAKEN(COMPARISONS)select (N)
          93113    127     932     17   0  1              0        932     >YES O'LAY PASS 3                       jump A != Z
    93109>                                                                                                         
    93106>93114    106     949     11   0  0              0        949                                             select (N)
          93115    127     931     17   0  1              0        931     >YES                                    jump A != Z
          93116    80      948      2   0  0              0        948     >GET TO'FINIS'BEFORE CLOSING FILE       ENTER SUBROUTINE
    93115>93117    101             28   1  3              0                                                        select literal address
          93118    126     749      2   0  0              0        749     >CLOSE RTE 7 TAPE                       enter subroutine
          93119    125           4096   1  1              0                SET NON INT                             clear indicators
          93120    0       745     49   0  0              0        745      '2/0/1' IND                            SELECT
          93121    71      745     53   0  0              0        745     >YES                                    JUMP IF A != 0
          93122    0       741      2   0  0              0        741      'PROG END' IND                         SELECT
          93123    70      745     50   0  0              0        745     >NO                                     JUMP IF A == 0
          93124    0       745     85   0  0              0        745     1/1/3 2                                 SELECT
          93125    5       745     60   0  0              0        745                                             TRANSFER
          93126    76      745     50   0  0              0        745                                             JUMP unconditional
          93127    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
                                                                                                                   
  Source image: P1000795.JPG
          93200    PROCR   932       932     2011 PREPARE TO READ IN PASS 3                                        
          93202    100              0   0  0              0                LINK                                    Halt
          93203    106     949     11   0  0              0        949     TEST TAPE ALIGNED                       select (N)
          93204    127     932     16   0  0              0        932     >NO                                     jump A = Z
          93205    100     951     28   1  2              0        951     RUN BACK TO START                       replace (B) by (N)
          93206    101             35   1  3              0                (O/P)                                   select literal address
          93207    126     749      2   0  0              0        749                                             enter subroutine
          93208    101             10   1  3              0                10=WORD HOLDING IDENTIFIER              select literal address
          93209    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          93210    124     744     72   0  3              0        744                                             modify address of next
          93211    104             55   0  0              0                (3)                                     add (N) to (A)
          93212    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          93213    101             36   1  3              0                                                        select literal address
          93214    126     749      2   0  0              0        749     >                                       enter subroutine
          93215    101              1   1  3              0                                                        select literal address
    93204>93216    126     932      2   0  1              0        932     >LEAVE S/R                              leave subroutine
    93113>                                                                                                         
    93111>93217    101             40   1  3              0                                                        select literal address
          93218    34      744     70   0  0              0        744                                             SET (N) IN B
          93219    106     749      2   0  0              0        749     DUMMY                                   select (N)
          93220    80      932      2   0  0              0        932     >ALIGN TAPE                             ENTER SUBROUTINE
    93227>93221    100     950      6   0  2              0        950     READ TO START                           replace (B) by (N)
          93222    101              7   1  3              0                OF PASS 3 OF                            select literal address
          93223    126     749      2   0  0              0        749     >READ                                   enter subroutine
          93224    124     950      8   1  2              0        950                                             modify address of next
          93225    106             12   1  0              0                                                        select (N)
          93226    105     951     26   1  0              0        951                                             subtract (N) from (A)
          93227    71      932     21   0  0              0        932     >NOT AT 'CHIPT' YET                     JUMP IF A != 0
          93228    0       745     49   0  0              0        745     '2/0/1' IND                             SELECT
          93229    70      744      2   0  0              0        744     >NOT SET, NORMAL OLAY                   JUMP IF A == 0
          93230    125           4096   1  1              0                                                        clear indicators
          93231    126     749      9   0  0              0        749     >SET(71)FOR MASTER                      enter subroutine
          93232    101             40   1  3              0                                                        select literal address
          93233    34      744     70   0  0              0        744                                             SET (N) IN B
          93234    80      749      2   0  0              0        749     >BACK 1 I/P>I/P                         ENTER SUBROUTINE
          93235    125           4096   1  1              0                                                        clear indicators
          93236    124     755      2   0  3              0        755     CLOSE PROGM SWITCH                      modify address of next
          93237    106              9   0  0              0                                                        select (N)
          93238    124     755      2   0  3              0        755                                             modify address of next
          93239    102              7   0  0              0                                                        transfer (A) to N
          93240    124     744     72   1  1              0        744     MG 0                                    set modification group
          93241    76      744     20   0  0              0        744     >CONTINUE WITH OLAY                     JUMP unconditional
                                                                                                                   
          93300    PROCR   933       933     2012 FORM UP NUMBER OF TRACE POINTS                                   
    92722>                                                                                                         
    92710>93302    101              1   1  3              0                SET W/L 2 NON ZERO                      select literal address
          93303    102     949      3   0  0              0        949                                             transfer (A) to N
          93304    106     951     12   1  0              0        951     SET IND MOD=12:0                        select (N)
          93305    102     952     16   1  0              0        952     TEST I/C SERIAL                         transfer (A) to N
    93311>93306    124     952     16   0  1              0        952                                             modify address of next
          93307    106              7   0  2              0                                                        select (N)
          93308    127     933     12   0  0              0        933     >YES                                    jump A = Z
          93309    123              2   0  0              0                TEST END OF TRACE PT                    step on and test
          93310    100     952     16   0  0              0        952                                             Halt
          93311    124     933      6   1  0              0        933     >NO                                     unconditional jump
    93308>93312    106     952     16   0  0              0        952                                             select (N)
          93313    124     950      8   1  2              0        950     TRANSFER 2XNO OF                        modify address of next
          93314    102             35   1  0              0                TRACE PTS TO O/P SECN                   transfer (A) to N
          93315    124     950      8   1  2              0        950                                             modify address of next
  Source image: P1000796.JPG
          93316    102             33   1  0              0                                                        transfer (A) to N
          93317    106     952     16   0  0              0        952     SET IND MOD AT 2XNO OF TRACE PTS/0      select (N)
          93318    118              5   0  0              0                                                        shift logical
          93319    102     952     14   1  0              0        952                                             transfer (A) to N
          93320    124     928      2   1  0              0        928     >                                       unconditional jump
                                                                                                                   
          93400    PROCR   934       934     2013 DUMP TRACE POINTS                                                
    93464>                                                                                                         
    93466>                                                                                                         
    92904>93402    125              0   1  2              0                                                        interrogate indicators
          93403    100     950     12   0  2              0        950     BIT 20   TEST SEC OR PROCR              replace (B) by (N)
          93404    124     952     14   0  1              0        952                                             modify address of next
          93405    115              7   0  2              0                                                        collate and add
          93406    127     934     16   0  0              0        934     >PROCR                                  jump A = Z
          93407    125              0   1  2              0                                                        interrogate indicators
          93408    100     950     13   0  2              0        950     BITS 14->19                             replace (B) by (N)
          93409    124     952     14   0  1              0        952     0                                       modify address of next
          93410    115              7   0  2              0                REF                                     collate and add
          93411    118              3   0  3              0                                                        shift binary
          93412    118           4124   0  0              0                                                        shift logical
          93413    102              7   1  3              0                                                        transfer (A) to N
          93414    100     950     11   0  2              0        950     BITS 1->13                              replace (B) by (N)
          93415    124     934     22   1  0              0        934     >                                       unconditional jump
    93406>93416    101             28   0  1              0                Q3,4,5                                  prepare for digit collation
          93417    124     952     14   0  1              0        952                                             modify address of next
          93418    115              7   0  2              0                REF                                     collate and add
          93419    118           4126   0  0              0                                                        shift logical
          93420    102              7   1  3              0                                                        transfer (A) to N
          93421    101              3   0  1              0                                                        prepare for digit collation
    93415>93422    124     952     14   0  1              0        952                                             modify address of next
          93423    115              7   0  2              0                ITEM                                    collate and add
          93424    102              5   1  3              0                                                        transfer (A) to N
          93425    101             15   0  1              0                                                        prepare for digit collation
          93426    124     952     14   0  1              0        952     TRANSFER REL ADD TO                     modify address of next
          93427    115              6   0  2              0                O/P SECN                                collate and add
          93428    102              9   1  3              0                                                        transfer (A) to N
          93429    101             16   0  1              0                                                        prepare for digit collation
          93430    124     952     14   0  1              0        952     FORM UP 2X CHAP NO                      modify address of next
          93431    115              6   0  2              0                                                        collate and add
          93432    118           4124   0  0              0                                                        shift logical
          93433    118              1   0  3              0                                                        shift binary
          93434    126     945      2   0  0              0        945     >FORM UP CHAP START                     enter subroutine
          93435    102     952     16   1  0              0        952     START+END                               transfer (A) to N
          93436    106     952     16   0  0              0        952     START ONLY                              select (N)
          93437    104              9   1  3              0                                                        add (N) to (A)
          93438    103             11   1  3              0                TRANSFER ABS ADD TO O/P SECN            copy (A) to N
          93439    103     949      5   0  0              0        949     W/L                                     copy (A) to N
          93440    118              3   0  3              0                ROUND DOWN TO EVEN ADDRESS              shift binary
          93441    118           4127   0  0              0                                                        shift logical
          93442    118              1   0  3              0                                                        shift binary
          93443    104     951     14   1  0              0        951                                             add (N) to (A)
          93444    104     951     14   1  0              0        951                                             add (N) to (A)
          93445    124     755      6   0  3              0        755     COPY 2 LONG WORDS                       modify address of next
          93446    124              6   0  1              0                                                        modify address of next
          93447    128             13   0  1              0                                                        bulk copy short numeric
          93448    124     949      5   0  3              0        949     TFRANSFER TAG TO O/P SECN               modify address of next
          93449    123              0   0  3              0                                                        select tag
          93450    101             64   1  1              0                                                        add literal address
          93451    118              8   0  0              0                                                        shift logical
          93452    104              6   1  3              0                                                        add (N) to (A)
  Source image: P1000797.JPG
          93453    102              6   1  3              0                                                        transfer (A) to N
          93454    126     952     14   1  1              0        952     TEST END OF TRACE POINTS                set modification register
          93455    125              2   0  1              0                                                        step on and test
          93456    124     934     61   1  0              0        934     >NO                                     unconditional jump
          93457    106     951     18   1  0              0        951     SET UP B/E WORD                         select (N)
          93458    102             20   1  3              0                                                        transfer (A) to N
          93459    126     942      2   0  0              0        942     >WRITE BLOCK                            enter subroutine
          93460    124     924      5   1  0              0        924     >                                       unconditional jump
    93456>93461    101              2   1  3              0                STEP IND MOD                            select literal address
          93462    107     952     14   0  0              0        952                                             augment (N) by (A)
          93463    125             16   0  3              0                TEST END OF BLOCK                       step on and test
          93464    124     934      2   1  0              0        934     >NO                                     unconditional jump
          93465    126     944      2   0  0              0        944     >OUTPUT BLOCK AND RESET (MR3)           enter subroutine
          93466    124     934      2   1  0              0        934     >                                       unconditional jump
                                                                                                                   
          93500    PROCR   935       935     2014 FROM UNLOADER WHEN PROG IS ABANDONED                             
    92204>93502    10               0   0  0              0                                                        SELECT LITERAL
          93503    5       744     75   0  0              0        744     SET 'PTS IN CONTROL'                    TRANSFER
          93504    106     955      2   1  0              0        955     STORE CONTENTS                          select (N)
          93505    104     755      6   0  0              0        755     OF PROGS MOD                            add (N) to (A)
          93506    128     952      8   0  0              0        952     REGS                                    bulk copy short numeric
          93507    124     951      8   0  3              0        951     SET PROGS MOD                           modify address of next
          93508    124              2   0  3              0                GROUP                                   modify address of next
          93509    124             29   1  1              0                                                        set modification group
    93015>                                                                                                         
    92431>93510    126     947      2   0  0              0        947     >TRANSFER CONTENTS OF MOD REGS TO O/P SEenter subroutine
          93511    125              0   1  2              0                                                        interrogate indicators
          93512    102     949      4   0  0              0        949     CLEAR DUMP TYPE OF DUMP IN PROGRESS     transfer (A) to N
          93513    106     950      4   0  0              0        950     10 IN Q5                                select (N)
          93514    103     949      7   0  0              0        949     SET HEADING IND                         copy (A) to N
          93515    103     949      8   0  0              0        949     SET TYPE 7 IND                          copy (A) to N
    92620>93516    102     949      2   0  0              0        949     STORE TYPE IN W/L 1                     transfer (A) to N
          93517    0       949     11   0  0              0        949     TEST TAPE ALIGNED AT END OF DUMPS       SELECT
          93518    71      936      2   0  0              0        936     >YES                                    JUMP IF A != 0
          93519    80      948      2   0  0              0        948     >RUN FWD TO 'FINIS'                     ENTER SUBROUTINE
          93520    10               0   0  0                                                                       SELECT LITERAL
          93521    5       949     11   0  0              0        949     SET ALIGN IND                           TRANSFER
                                                                                                                   
          93600    PROCR   936       936     2015 INITIAL AND FINAL DUMPS                                          
    93518>93602    101              1   1  3              0                SET IND MOD AT                          select literal address
          93603    103     952     14   0  0              0        952     NO OF CHAPS+1/1                         copy (A) to N
          93604    104     755      5   0  0              0        755                                             add (N) to (A)
          93605    102     952     15   0  0              0        952                                             transfer (A) to N
    93025>                                                                                                         
    93007>93606    106     949      2   0  0              0        949     TRANSFER PM TYPE                        select (N)
          93607    124     950      8   1  2              0        950     TO O/P SECN                             modify address of next
          93608    102              7   1  0              0                                                        transfer (A) to N
          93609    106     949      8   0  0              0        949     TEST TYPE 7 IND SET                     select (N)
          93610    127     936     20   0  0              0        936     >NO                                     jump A = Z
          93611    0       941      9   0  0              0        941     PQ END    FINAL DUMP                    SELECT
          93612    103     952     19   0  0              0        952                                             copy (A) to N
          93613    124     950      8   1  2              0        950     SET MOD REG IN O/P SECN                 modify address of next
          93614    102             35   1  0              0                AT 600:0                                transfer (A) to N
          93615    102     952     18   0  0              0        952                                             transfer (A) to N
          93616    124     950      8   1  2              0        950                                             modify address of next
          93617    102             32   1  0              0                                                        transfer (A) to N
          93618    102     949      8   0  0              0        949     CLEAR TYPE 7 IND                        transfer (A) to N
          93619    76      928      2   0  0              0        928     >JOIN UP WITH MAIN DUMP ROUTINE         JUMP unconditional
    93610>93620    0       952     14   0  0              0        952     CHAP NO    INITIAL DUMP                 SELECT
          93621    124     950      8   1  2              0        950                                             modify address of next
  Source image: P1000798.JPG
          93622    107              7   1  0              0                                                        augment (N) by (A)
          93623    104     952     14   0  0              0        952                                             add (N) to (A)
          93624    126     945      2   0  0              0        945     .FORM UP CHAP START AND END             enter subroutine
          93625    103     952     18   1  0              0        952                                             copy (A) to N
          93626    124     950      8   1  2              0        950                                             modify address of next
          93627    102             33   1  0              0                                                        transfer (A) to N
          93628    106     952     19   0  0              0        952                                             select (N)
          93629    124     950      8   1  2              0        950                                             modify address of next
          93630    102             35   1  0              0                                                        transfer (A) to N
          93631    76      928      2   0  0              0        928     >JOIN UP WITH MAIN DUMP ROUTINE         JUMP unconditional
                                                                                                                   
          93700    PROCR   937       937     2016 ENTRY AT END OF PROGRAM OVERLAY                                  
    92205>93702    126     946      2   0  0              0        946     >SET UP (MR2)                           enter subroutine
    93728>93703    124     755      2   0  3              0        755     STORE OVERLAYED CHAP                    modify address of next
          93704    106             32   0  0              0                                                        select (N)
          93705    103     949      2   0  0              0        949                                             copy (A) to N
          93706    104     949      2   0  0              0        949     SET (MR1) AI                            add (N) to (A)
          93707    104     755      3   0  0              0        755     ((2XCHAP NO)+SP CHAP START              add (N) to (A)
          93708    102     952     16   0  0              0        952                                             transfer (A) to N
          93709    126     952     16   1  1              0        952                                             set modification register
          93710    124     755      2   0  3              0        755                                             modify address of next
          93711    106             30   0  0              0                TEST O'LAYING CHAP                      select (N)
          93712    105     755      5   0  0              0        755     AN INITIAL CHAP                         subtract (N) from (A)
          93713    127     937     15   0  3              0        937     >YES                                    jump A < Z
          93714    101              1   1  2              0                                                        subtract literal address
    93713>93715    104     755      5   0  0              0        755     STORE CORRECTED O'LAYING                add (N) to (A)
          93716    102     949      3   0  0              0        949     CHAP NO                                 transfer (A) to N
          93717    101              1   0  1              0                TEST PM PT DETAILS                      prepare for digit collation
          93718    115              5   0  2              0                ZERO                                    collate and add
          93719    127     937     29   0  0              0        937     >YES                                    jump A = Z
          93720    105     949      3   0  0              0        949     TEST O'LAYING CHAP                      subtract (N) from (A)
          93721    127     938      2   0  0              0        938     >YES                                    jump A = Z
          93722    104     949      3   0  0              0        949                                             add (N) to (A)
          93723    105     949      2   0  0              0        949     TEST OVERLAID                           subtract (N) from (A)
          93724    127     937     27   0  1              0        937     >NO                                     jump A != Z
          93725    105              0   0  2              0                SET PM POINT CLOSED                     subtract (N) from (A)
          93726    102              0   0  2              0                                                        transfer (A) to N
    93853>                                                                                                         
    93724>93727    125             18   0  2              0                TEST ALL PTS                            step on and test
          93728    124     937      3   1  0              0        937     CHECKED >NO                             unconditional jump
    93719>93729    102     949      2   1  0              0        949     CLEAR WLS                               transfer (A) to N
          93730    102     949      4   0  0              0        949                                             transfer (A) to N
          93731    102     949     11   0  0              0        949     CLEAR STATE OF TAPE IND                 transfer (A) to N
          93732    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
          93733    126     749      9   0  0              0        749     >RESTORE(71)FOR PTS                     enter subroutine
          93734    124     951      8   0  3              0        951                                             modify address of next
          93735    124              0   1  0              0                (40)                                    unconditional jump
                                                                                                                   
          93800    PROCR   938       938     2017                                                                  
    93721>93802    101              4   0  1              0                TEST PM POINT                           prepare for digit collation
          93803    115              4   0  2              0                NOT YET USED                            collate and add
          93804    127     938      9   0  0              0        938     >YES                                    jump A = Z
          93805    125              0   1  2              0                                                        interrogate indicators
          93806    105              0   0  2              0                SET PM POINT                            subtract (N) from (A)
          93807    102              0   0  2              0                OPEN                                    transfer (A) to N
          93808    124     938     41   1  0              0        938     >                                       unconditional jump
    93804>93809    106     949      2   0  0              0        949     SET ALLOCATED CHAP                      select (N)
          93810    118              2   0  0              0                NO IN LIST                              shift logical
          93811    114              4   0  2              0                                                        replace selected bits
          93812    124     951      8   0  3              0        951                                             modify address of next
  Source image: P1000799.JPG
          93813    106             18   0  1              0                FORM ABS ADD OF                         select (N)
          93814    104              0   0  2              0                PM POINT                                add (N) to (A)
          93815    103              0   0  2              0                                                        copy (A) to N
          93816    102     952     16   0  0              0        952                                             transfer (A) to N
          93817    126     952     16   1  3              0        952                                             set modification register
          93818    124     951      8   0  3              0        951                                             modify address of next
          93819    106              0   0  3              0                STORE REPLACED INSTRUCTION              select (N)
          93820    103              2   0  2              0                                                        copy (A) to N
          93821    127     938     34   0  2              0        938     >YES      TEST ACTION POSITIVE          jump A >= Z
          93822    105              2   0  2              0                FORM COMPLEMENT                         subtract (N) from (A)
          93823    105              2   0  2              0                OF ACTION                               subtract (N) from (A)
          93824    118              3   0  3              0                ALIGN INSTRUCTION                       shift binary
          93825    118           4124   0  1              0                AT LEAST SIG END                        shift arithmetic
          93826    101             64   1  2              0                                                        subtract literal address
          93827    127     938     36   0  0              0        938     >24/0/0                                 jump A = Z
          93828    101              1   1  2              0                                                        subtract literal address
          93829    127     938     36   0  0              0        938     >24/0/1                                 jump A = Z
          93830    101              2   1  2              0                                                        subtract literal address
          93831    127     938     36   0  0              0        938     >24/0/3                                 jump A = Z
          93832    101              3   1  2              0                                                        subtract literal address
          93833    127     938     36   0  0              0        938     >24/1/2                                 jump A = Z
    93821>93834    0       950      7   0  0              0        950     25/01/2000                              SELECT
          93835    124     938     40   1  0              0        938     >                                       unconditional jump
    93833>                                                                                                         
    93831>                                                                                                         
    93829>                                                                                                         
    93827>93836    101           4096   1  3              0                SET 24 ACTION IND                       select literal address
          93837    107              5   0  2              0                IN LIST                                 augment (N) by (A)
          93838    124     951      8   0  3              0        951                                             modify address of next
          93839    106              1   0  3              0                STORE NEXT INSTRUCTION                  select (N)
    93835>93840    102              3   0  2              0                                                        transfer (A) to N
    93808>93841    106              0   0  2              0                                                        select (N)
          93842    102     952     16   0  0              0        952                                             transfer (A) to N
          93843    126     952     16   1  3              0        952                                             set modification register
          93844    34      950     11   0  0              0        950     BITS 1-13                               SET (N) IN B
          93845    124     951      8   0  3              0        951                                             modify address of next
          93846    115             18   0  1              0                                                        collate and add
          93847    5       949      4   0  0              0        949                                             TRANSFER
          93848    2       949      4   0  0              0        949                                             SUBTRACT
          93849    2       755      4   0  0              0        755     (PARAS+1)                               SUBTRACT
          93850    1       950     10   0  0              0        950     26/0/0                                  ADD
          93851    124     951      8   0  3              0        951                                             modify address of next
          93852    102              0   0  3              0                INSERT ENTRY POINT                      transfer (A) to N
          93853    76      937     27   0  0              0        937                                             JUMP unconditional
                                                                                                                   
          93900    PROCR   939       939     2017A ENTRY AT START OF PROGRAM OVERLAY                               
    92206>93902    80      932      2   0  0              0        932     >RUN BACK TO M/CODE START               ENTER SUBROUTINE
          93903    126     749      9   0  0              0        749     >SET(71)FOR MASTER                      enter subroutine
          93904    10               0   0  0              0                DUMMY                                   SELECT LITERAL
          93905    0       949     11   0  0              0        949     REALIGNMENT IND                         SELECT
          93906    124     951      8   0  3              0        951                                             modify address of next
          93907    124              0   1  0              0                (45)->DO OVERLAY                        unconditional jump
                                                                                                                   
          94000    PROCR   940       940     2018 INSTRUCTION CONSTANTS FOR PASS 2                                 
                                                                                                                   
          94100    PROCR   941       941     2019 CONVERT S/R                                                      
          94102    100              0   0  0              0                                                        Halt
          94103    102     949      5   0  0              0        949     W/L                                     transfer (A) to N
          94104    100     950      5   0  3              0        950     SET DECIMAL                             set radix
          94105    124     954      2   0  2              0        954                                             select literal and division
  Source image: P1000800.JPG
          94106    112     949      5   0  0              0        949     CONVERT TO DECIMAL                      convert
          94107    100     951      8   0  3              0        951     SET BINARY                              set radix
          94108    126     941      2   0  1              0        941                                             leave subroutine
          94109    100              0   0  0              0                (49)CONST IN PROCR 2015=PQ END          Halt
                                                                                                                   
          94200    PROCR   942       942     2020 WRITE S/R                                                        
          94202    100              0   0  0              0                                                        Halt
          94203    100     950      6   0  2              0        950                                             replace (B) by (N)
          94204    101              8   1  3              0                                                        select literal address
          94205    126     749      2   0  0              0        749     >I/P-O/P FOR RTE 7 S/R                  enter subroutine
          94206    106     955      4   1  0              0        955     BULK CLEAR O/P SECN                     select (N)
          94207    124     950      8   1  2              0        950                                             modify address of next
          94208    128              0   1  1              0                                                        bulk copy long numeric
          94209    125           4096   1  1              0                                                        clear indicators
          94210    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
          94211    124     951      8   0  3              0        951                                             modify address of next
          94212    126              0   0  0              0                (42)->SET TAG 15                        enter subroutine
          94213    126     942      2   0  1              0        942     >LEAVE S/R                              leave subroutine
                                                                                                                   
          94300    PROCR   943       943     2021 SET UP (MR3) S/R                                                 
          94302    100              0   0  0              0                LINK                                    Halt
          94303    124     950      8   1  2              0        950     -123                                    modify address of next
          94304    101              0   1  3              0                13-BIT ASL                              select literal address
          94305    103     952     16   0  0              0        952     48+(123)/(123)                          copy (A) to N
          94306    101             48   1  1              0                                                        add literal address
          94307    102     952     17   0  0              0        952                                             transfer (A) to N
          94308    126     952     16   1  3              0        952                                             set modification register
          94309    126     943      2   0  1              0        943                                             leave subroutine
                                                                                                                   
          94400    PROCR   944       944     2022 OUTPUT BLOCK AND RESET(MR3)S/R                                   
          94402    100              0   0  0              0                                                        Halt
          94403    106     951     18   1  0              0        951     SET UP B/E WORD                         select (N)
          94404    102              4   1  3              0                                                        transfer (A) to N
          94405    126     942      2   0  0              0        942     >WRITE BLOCK                            enter subroutine
          94406    126     943      2   0  0              0        943     >RESET (MR3)                            enter subroutine
          94407    126     944      2   0  1              0        944     >LEAVE S/R                              leave subroutine
                                                                                                                   
          94500    PROCR   945       945     2023 FORM UP CHAP START AND END S/R                                   
          94502    81      945      2   0  0              0        945                                             START OF SUBROUTINE
          94503    3       949      5   0  0              0        949     2XCHAP                                  COPY
          94504    1       755      3   0  0              0        755     SPECIAL CHAP START                      ADD
          94505    5       946      2   0  0              0        946     WL                                      TRANSFER
          94506    124     951      8   0  3              0        951                                             modify address of next
          94507    106             43   0  0              0                (3)PARA 43=TWICE PTS CHAP IN Q5         select (N)
          94508    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          94509    2       949      5   0  0              0        949                                             SUBTRACT
          94510    70      945     13   0  0              0        945     >THIS CHAP CONTAINS PTS                 JUMP IF A == 0
          94511    10               0   0  0              0                                                        SELECT LITERAL
          94512    76      945     15   0  0              0        945                                             JUMP unconditional
    94510>94513    101           1500   1  2              0                REDUCE CHAP END BY PTS LENGTH           subtract literal address
          94514    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    94512>94515    124     946      2   0  3              0        946                                             modify address of next
          94516    104             18   1  0              0                CHAP DETAILS EX SPECIAL CHAPTER         add (N) to (A)
          94517    82      945      2   0  0              0        945                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          94600    PROCR   946       946     2024 SET UP(MR2) S/R                                                  
          94602    100              0   0  0              0                                                        Halt
          94603    101     752      2   1  3              0        752     START OF LIST                           select literal address
          94604    103     952     16   0  0              0        952     W/L                                     copy (A) to N
          94605    101            180   1  1              0                                                        add literal address
  Source image: P1000801.JPG
          94606    102     952     17   0  0              0        952                                             transfer (A) to N
          94607    126     952     16   1  2              0        952                                             set modification register
          94608    126     946      2   0  1              0        946     >LEAVE S/R                              leave subroutine
          94609    100           4097   1  0              0                CONST=09001(PROCR 2001)                 copy registers
                                                                                                                   
          94700    PROCR   947       947     2025 TRANSFER CONTENTS OF MOD REGS TO O/P SECN                        
          94702    100              0   0  0              0                                                        Halt
          94703    126     951     12   1  1              0        951     SET (MR1) AT 12/0                       set modification register
          94704    126     951     20   1  3              0        951     SET (MR3) AT 6/0                        set modification register
    94712>94705    106     952      8   0  3              0        952                                             select (N)
          94706    126     941      2   0  0              0        941     >CONVERT TO DECIMAL                     enter subroutine
          94707    124     950      8   1  2              0        950                                             modify address of next
          94708    102             21   1  1              0                                                        transfer (A) to N
          94709    125              2   0  1              0                                                        step on and test
          94710    124     947     11   1  0              0        947     >                                       unconditional jump
    94710>94711    125              1   0  3              0                                                        step on and test
          94712    124     947      5   1  0              0        947     >                                       unconditional jump
          94713    126     947      2   0  1              0        947     >LEAVE S/R                              leave subroutine
                                                                                                                   
          94800    PROCR   948       948     2026 RUN FWD TO FINIS,STEP BACK 1 S/R                                 
          94802    100              0   0  0              0                                                        Halt
    94811>94803    100     951     16   1  2              0        951     ///// IN WORD 2                         replace (B) by (N)
          94804    101             38   1  3              0                RUN BACK CONST                          select literal address
          94805    126     749      2   0  0              0        749     >I/P O/P S/R RTE 7                      enter subroutine
          94806    124     951      8   0  3              0        951                                             modify address of next
          94807    124             64   0  3              0                                                        modify address of next
          94808    106              4   1  0              0                                                        select (N)
          94809    101              0   1  1              0                                                        add literal address
          94810    105     953      6   1  0              0        953                                             subtract (N) from (A)
          94811    127     948      3   0  1              0        948     >NO                                     jump A != Z
          94812    100     954      3   0  2              0        954                                             replace (B) by (N)
          94813    101             44   1  3              0                                                        select literal address
          94814    126     749      2   0  0              0        749     >I/P O/P S/R                            enter subroutine
          94815    126     948      2   0  1              0        948     >LEAVE S/R                              leave subroutine
                                                                                                                   
          94900    CONST   949       949     0    2027 SHORT W/L'S FOR PASS 2                                      
          94902          (D)0;                                             W/L 1 ALSO USED IN O'LAY                
          94903          0;                                                W/L 2 ALSO USED IN O'LAY                
          94904          0;                                                                                        
          94905          0;                                                GENARAL W/L                             
          94906          0;                                                W/L FOR PMSR LINK-1                     
          94907          0;                                                HEADING IND                             
          94908          0;                                                TYPE 10 IND                             
          94909          0;                                                COMP DUMP TAKEN IND                     
          94910          0;                                                CLEO DUMP TAKEN IND                     
          94911          0;                                                DUMP TAKEN SINCE O'LAY IND              
                                                                                                                   
          95000    CONST   950       950     0    2028 SHORT CONSTANTS FOR PASS 2                                  
          95002          (D)50000;                                                                                 
          95003          30000;                                                                                    
          95004          Ю0000;                                                                                    
          95005          66666;                                                                                    
          95006          0003‼;                                            59                                      
          95007          98000-;                                           25/0/1 ORDER                            
          95008          0007‼-;                                           -(123) P RTE FOR RTE 7                  
          95009          60000;                                                                                    
          95010          Ю0000-;                                           26/0/0 ORDER                            
          95011          01£££;                                            BITS 1->13                              
          95012          80000;                                            BIT 20                                  
          95013          7.000;                                            BITS 14->19                             
                                                                                                                   
  Source image: P1000802.JPG
          95100    CONST   951       951     1    2029 LONG CONSTANTS FOR PASS 2                                   
          95102          (A)DUMPS;                                                                                 
          95104          START;                                                                                    
          95106          (D)6£6£6£6£6£;                                    RESTART MARK WORD                       
          95108          0000Ю00000;                                       10:0                                    
          95110          0000500000;                                       5:0                                     
          95112          0000+00000;                                       12:0                                    
          95114          0000200000;                                       2:0                                     
          95116          00002£££££;                                                                               
          95118          7.0000007.;                                       BLOSK END WORD                          
          95120          0000600000;                                       6:0                                     
          95122          7777000000;                                       XX/TAG W/L                              
          95124          00004£££££;                                                                               
          95126          (A)CHIPT;                                                                                 
          95128          (D)0000Ю£££££;                                                                            
                                                                                                                   
          95200    PROCR   952       952     2030 EDIT TABLE FOR'START'BLOCK,THEN LONG WL'S                        
          95202    100     946      9   0  0              0        946     09001                                   Halt
          95203    100              5   0  0              0                                                        Halt
          95204    100            175   0  0              0                DATE                                    Halt
          95205    100              5   0  0              0                                                        Halt
          95206    100            156   0  0              0                TIME                                    Halt
          95207    100              5   0  0              0                                                        Halt
          95208    100     951      6   0  0              0        951     ALIGN WORD                              Halt
          95209    101              5   0  0              0                                                        table look up
          95210    100     952     18   0  0              0        952      'START'                                Halt
          95211    101              5   0  0              0                                                        table look up
          95212    100              0   0  0              0                PROG ID                                 Halt
          95213    100              5   0  0              0                                                        Halt
          95214    100             49   0  0              0                (3)PQ END                               Halt
          95215    100              5   0  0              0                                                        Halt
          95216    100     951     18   0  0              0        951     BEW                                     Halt
          95217    117              5   0  0              0                                                        special select
          95218    101           2419   0  3              0                CONST='START'                           interchange area addresses
          95219    107           1845   0  1              0                                                        augment (N) by (A)
                                                                                                                   
          95300    CONST   953       953     1    2031 TYPING ANNEXE FOR ABANDON                                   
          95302          (A)ABAND;                                         TYPING CONSTANTS                        
          95304          (A)ONS(D)5.5.;                                                                            
          95306          (A)FINIS;                                                                                 
          95308           OPTS;                                                                                    
                                                                                                                   
          95400    CONST   954       954     1    2032 BINARY TO DECIMAL CONVERSION TABLE                          
          95402          (D)0000000001;                                                                            
          95404          0000000016;                                                                               
          95406          0000000256;                                                                               
          95408          0000004096;                                                                               
          95410          0000065536;                                                                               
                                                                                                                   
          95500    CONST   955       955     1    2033 BULK CLEAR COPY ITEMS                                       
          95502          (D)0000600002;                                    BULK COPY MOD REGS                      
          95504          2003600000;                                       BULK CLEAR 54                           
          95506          2000600000;                                       BULK CLEAR 6                            
                                                                                                                   
          95600    PROCR   956       956     2034 TABLES                                                           
          95602    100     952      8   0  0              0        952     RESTORE MOD REGS                        Halt
          95603    100              6   0  0              0                                                        Halt
                                                                                                                   
          95700    PROCR   957       957     3801 PREPERATION AND W/L'S                                            
  Source image: P1000803.JPG
    95713>95702    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          95703    10               0   0  0              2                                                        SELECT LITERAL
          95704    4       957      7   0  0              0        957     (STEP ORDER)                            AUGMENT
          95705    124     982      2   0  3              0        982                                             modify address of next
          95706    124              3   0  3              0                SPECIAL CHAP START=R1 END VALUE         modify address of next
          95707    106             30   0  0              0                SCAN PROGRAM'S ALLOCATED ROUTE LIST     select (N)
          95708    114     979     22   0  0              0        979     STORE ROUTE NUMBER                      replace selected bits
          95709    118           4124   1  0              0                RTE TYPE IN Q1                          shift logical
          95710    101              4   1  2              0                                                        subtract literal address
          95711    70      957     14   0  0              0        957     >ROUTE TYPE 4                           JUMP IF A == 0
          95712    101              5   1  2              0                                                        subtract literal address
          95713    127     957      2   0  1              0        957     >NOT PRINTER TRY NEXT ONE               jump A != Z
    95711>95714    124     751     34   0  2              0        751     PRINT ASL                               select literal and division
          95715    1       957     31   0  0              0        957     14 IN Q5                                ADD
          95716    124     979     22   0  3              0        979     ROUTE                                   modify address of next
          95717    102             64   0  0              0                                                        transfer (A) to N
          95718    101             64   1  2              0                                                        subtract literal address
          95719    2       979     22   0  0              0        979                                             SUBTRACT
          95720    5       979     23   0  0              0        979     FORM-(64+R)                             TRANSFER
          95721    124     961     16   0  2              0        961                                             select literal and division
          95722    102     965     23   0  0              0        965                                             transfer (A) to N
          95723    124     980      6   0  2              0        980                                             select literal and division
          95724    102     967     23   0  0              0        967                                             transfer (A) to N
          95725    124     980      8   0  2              0        980                                             select literal and division
          95726    102     967     27   0  0              0        967                                             transfer (A) to N
          95727            979     22   0  0              0        979                                             SELECT
          95728    124     982      2   0  3              0        982     RTE NO                                  modify address of next
          95729    102             26   0  0              0                (3) SET FOR PRINT SR                    transfer (A) to N
          95730    76      962      2   0  0              0        962                                             JUMP unconditional
          95731    114              0   0  0              0                CONST                                   replace selected bits
                                                                                                                   
          95800    CONST   958       958     1    3001 EXTRA ROOM FOR 120 COLS                                     
          95802          (D);                                                                                      
          95804          ;                                                                                         
          95806          ;                                                                                         
          95808          ;                                                                                         
          95810          ;                                                                                         
          95812          ;                                                                                         
          95814          ;                                                                                         
          95816          ;                                                                                         
          95818          ;                                                                                         
          95820          ;                                                                                         
          95822          ;                                                                                         
          95824          ;                                                                                         
          95826          ;                                                                                         
          95828          ;                                                                                         
          95830          ;                                                                                         
          95832          ;                                                                                         
          95834          ;                                                                                         
          95836          ;                                                                                         
          95838          ;                                                                                         
          95840          ;                                                                                         
          95842          ;                                                                                         
          95844          ;                                                                                         
          95846          ;                                                                                         
          95848          ;                                                                                         
          95850          ;                                                                                         
          95852          ;                                                                                         
          95854          ;                                                                                         
          95856          ;                                                                                         
  Source image: P1000804.JPG
          95858          ;                                                                                         
          95860          ;                                                                                         
          95862          ;                                                                                         
          95864          ;                                                                                         
          95866          ;                                                                                         
                                                                                                                   
          95900    CONST   959       959     1    3001A                                                            
          95902          (D);                                                                                      
          95904          ;                                                                                         
          95906          ;                                                                                         
          95908          ;                                                                                         
          95910          ;                                                                                         
          95912          ;                                                                                         
          95914          ;                                                                                         
          95916          ;                                                                                         
          95918          ;                                                                                         
          95920          ;                                                                                         
          95922          ;                                                                                         
          95924          ;                                                                                         
          95926          ;                                                                                         
          95928          ;                                                                                         
          95930          ;                                                                                         
          95932          ;                                                                                         
          95934          ;                                                                                         
          95936          ;                                                                                         
          95938          ;                                                                                         
          95940          ;                                                                                         
          95942          ;                                                                                         
          95944          ;                                                                                         
          95946          ;                                                                                         
          95948          ;                                                                                         
          95950          ;                                                                                         
          95952          ;                                                                                         
          95954          ;                                                                                         
          95956          ;                                                                                         
          95958          ;                                                                                         
          95960          ;                                                                                         
          95962          ;                                                                                         
          95964          ;                                                                                         
          95966          ;                                                                                         
          95968          ;                                                                                         
          95970          ;                                                                                         
          95972          ;                                                                                         
          95974          ;                                                                                         
          95976          ;                                                                                         
          95978          ;                                                                                         
          95980          ;                                                                                         
          95982          ;                                                                                         
          95984          ;                                                                                         
          95986          ;                                                                                         
          95988          ;                                                                                         
          95990          ;                                                                                         
                                                                                                                   
          96000    PROCR   960       960     3001B=TABLE1                                                          
          96002    100     981     16   0  0              0        981      'PRINT'                                Halt
          96003    101            229   0  0              0                14/5                                    table look up
          96004    100     981     18   0  0              0        981      'OUT'                                  Halt
          96005    101             19   0  0              0                1/3                                     table look up
          96006    100     981     18   0  0              0        981      'OF'                                   Halt
          96007    101            786   0  0              0                3/1/2                                   table look up
  Source image: P1000805.JPG
          96008    100     981     24   0  0              0        981      'DUMPS'                                Halt
          96009    101             21   0  0              0                1/3                                     table look up
          96010    100     981     18   0  0              0        981      'OF'                                   Halt
          96011    101            786   0  0              0                3/1/2                                   table look up
          96012    100     980     10   0  0              0        980     (PROG ID)                               Halt
          96013    100             21   0  0              0                1/5                                     Halt
          96014    100     981     26   0  0              0        981      'TAKEN'                                Halt
          96015    101             21   0  0              0                1/5                                     table look up
          96016    100     981     28   0  0              0        981      'ON'                                   Halt
          96017    101             18   0  0              0                1/2                                     table look up
          96018    100     980      8   0  0              0        980     (DAY)                                   Halt
          96019    102           5154   0  0              0                1/4/2/2                                 transfer (A) to N
          96020    100     980      8   0  0              0        980     (MONTH)                                 Halt
          96021    102           5650   0  0              0                1/6/1/2                                 transfer (A) to N
          96022    100     980      8   0  0              0        980     (YEAR)                                  Halt
          96023    102           2066   0  0              0                8/1/2                                   transfer (A) to N
          96024    100     981     28   0  0              0        981      'AT'                                   Halt
          96025    101            786   0  0              0                3/1/2                                   table look up
          96026    100     980      7   0  0              0        980     (HRS)                                   Halt
          96027    100           4130   0  0              0                1/0/2/2                                 Halt
          96028    100     980      7   0  0              0        980     (MINS)                                  Halt
          96029    100           4626   0  0              0                1/2/1/2                                 Halt
          96030    100     981     34   0  0              0        981     BE                                      Halt
          96031    117           1089   0  0              0                4/4/1                                   special select
          96032    100              0   0  0              0                BULK CLEAR                              Halt
          96033    102             36   0  0              0                CONSTANT                                transfer (A) to N
                                                                                                                   
          96100    PROCR   961       961     DUMMY PROCEDURE                                                       
                                                                                                                   
          96200    PROCR   962       962     3002 RUN FORARD TO START AND OPEN PRINTER                             
    96211>                                                                                                         
    95730>96202    100     980      6   1  2              0        980     SET CONST IN B                          replace (B) by (N)
          96203    101             38   1  3              0                SET TYPE IN A                           select literal address
          96204    126     749      2   0  0              0        749     >I/P O/P RTE 7                          enter subroutine
          96205    100     982      8   0  2              0        982                                             replace (B) by (N)
          96206    101              7   1  3              0                                                        select literal address
          96207    126     749      2   0  0              0        749     >I/P O/P RTE 7                          enter subroutine
          96208    124     982      5   1  2              0        982     TEST IF START OF BLOCK                  modify address of next
          96209    106             12   1  0              0                                                        select (N)
          96210    105     980      8   1  0              0        980      'START'                                subtract (N) from (A)
          96211    127     962      2   0  1              0        962     >NO                                     jump A != Z
          96212    101             20   1  2              0                FORM T/E                                subtract literal address
          96213    126     976      2   0  0              0        976     >FORM T/E S/R                           enter subroutine
          96214    128     980      5   1  0              0        980     BULK COPY ALPHA->NUMERIC                bulk copy alpha to short
          96215    124     982      2   0  3              0        982                                             modify address of next
          96216    106            138   1  0              0                STORE 6 CHARACTER DATE                  select (N)
          96217    102     980      8   1  0              0        980                                             transfer (A) to N
          96218    124     982      2   0  3              0        982     TEST IF CLOCK EXISTS                    modify address of next
          96219    106             25   0  0              0                (3)                                     select (N)
          96220    127     962     23   0  1              0        962     >YES                                    jump A != Z
          96221    102     980      7   0  0              0        980     CLEAR TIME                              transfer (A) to N
          96222    102     981     28   0  0              0        981     CLEAR 'AT'                              transfer (A) to N
    96220>96223    76      962     26   0  0              0        962     *****SPARE ORDERS                       JUMP unconditional
          96224    124     979     23   1  2              0        979                                             modify address of next
          96225    128              0   1  1              0                                                        bulk copy long numeric
    96223>96226    101             10   1  3              0                                                        select literal address
          96227    126     978      2   0  0              0        978     >OPEN/CLOSE S/R                         enter subroutine
          96228    106     960     32   1  0              0        960     CLEAR AREA                              select (N)
          96229    128     744      2   1  1              0        744                                             bulk copy long numeric
          96230    124     960      2   0  2              0        960     HEADING LINE                            select literal and division
  Source image: P1000806.JPG
          96231    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
                                                                                                                   
          96300    PROCR   963       963     3003 READ NEXT BLOCK,TEST DUMPS,TEST FINIS,END ROUTINE                
    96435>                                                                                                         
    96453>                                                                                                         
    96525>                                                                                                         
    96725>                                                                                                         
    96729>96302    100     982      8   0  2              0        982     READ NEXT BLOCK                         replace (B) by (N)
          96303    101              7   1  3              0                                                        select literal address
          96304    126     749      2   0  0              0        749     >I/P O/P RTE 7                          enter subroutine
          96305    124     982      5   1  2              0        982     TEST DUMPS BLOCK                        modify address of next
          96306    106              4   1  0              0                                                        select (N)
          96307    105     981     24   1  0              0        981     'DUMPS'                                 subtract (N) from (A)
          96308    127     964      2   0  0              0        964     >YES                                    jump A = Z
          96309    104     981     24   1  0              0        981     TEST FINIS BLOCK                        add (N) to (A)
          96310    105     981     32   1  0              0        981     'FINIS                                  subtract (N) from (A)
          96311    127     965      2   0  1              0        965     >NO                                     jump A != Z
          96312    124     983      2   0  2              0        983     EDIT FINIS LINE                         select literal and division
          96313    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96314    101             20   1  3              0                CLOSE PRINTER FILE                      select literal address
          96315    126     978      2   0  0              0        978     >OPEN/CLOSE S/R                         enter subroutine
          96316    101             27   1  3              0                                                        select literal address
          96317    126     749      2   0  0              0        749     >CLOSE RTE 7 TAPE                       enter subroutine
          96318    125           4096   1  1              0                SET NON -INT                            clear indicators
          96319    0       741      2   0  0              0        741     ABDON/END'IND                           SELECT
          96320    70      745     50   0  0              0        745     >ABDON                                  JUMP IF A == 0
          96321    0       745     85   0  0              0        745     1/1/3 2                                 SELECT
          96322    5       745     60   0  0              0        745                                             TRANSFER
          96323    76      745     50   0  0              0        745     >END                                    JUMP unconditional
                                                                                                                   
          96400    PROCR   964       964     3004 PRINT HEADING BLOCKS                                             
    96308>96402    106     975     15   0  0              0        975     RESET ORDER                             select (N)
          96403    102     965      2   0  0              0        965                                             transfer (A) to N
          96404    126     976      2   0  0              0        976     >FORM T/E S/R    UNPACK DUMPS BLOCK     enter subroutine
          96405    128     751      9   1  0              0        751     ALPHA->NUM                              bulk copy alpha to short
          96406            751     10   0  0              0        751     DUMP TYPE IN Q5                         SELECT
          96407    118           4124   1  0              0                                                        shift logical
          96408    102     982      4   0  0              0        982                                             transfer (A) to N
          96409    118              1   1  0              0                TEST HEADING IND SET                    shift logical
          96410    127     964     24   0  0              0        964     >NO                                     jump A = Z
          96411    106     982      4   0  0              0        982     TEST DUMP TYPE 6                        select (N)
          96412    101              6   1  2              0                                                        subtract literal address
          96413    127     964     16   0  0              0        964     >YES                                    jump A = Z
          96414            751     23   0  0              0        751     TEST 600 LOCNS OF M/R TO BE OUTPUT      SELECT
          96415    127     964     54   0  0              0        964     >YES                                    jump A = Z
    96413>96416    124     983      4   0  2              0        983     (BLANK LINE)                            select literal and division
          96417    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96418    124     984      2   0  2              0        984                                             select literal and division
          96419    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96420    124     984     18   0  2              0        984                                             select literal and division
          96421    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96422    124     984     36   0  2              0        984                                             select literal and division
          96423    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
    96410>96424    106     982      4   0  0              0        982     TEST PM TYPE                            select (N)
          96425    101              3   1  2              0                                                        subtract literal address
          96426    127     964     36   0  3              0        964     >1,2                                    jump A < Z
          96427    101              2   1  2              0                                                        subtract literal address
          96428    127     964     40   0  3              0        964     >3,4                                    jump A < Z
          96429    101              2   1  2              0                                                        subtract literal address
          96430    127     964     47   0  3              0        964     >5,6                                    jump A < Z
  Source image: P1000807.JPG
          96431    101              3   1  2              0                TEST DUMP TYPE 10                       subtract literal address
          96432    127     964     36   0  0              0        964     >YES                                    jump A = Z
          96433    106     964     35   0  0              0        964     STOP PROCESSING BLOCKS                  select (N)
          96434    102     965      2   0  0              0        965     UNTIL NEXT DUMPS BLOCK                  transfer (A) to N
          96435    124     963      2   1  0              0        963     >READ NEXT BLOCK                        unconditional jump
    96432>                                                                                                         
    96426>96436    106     981      8   1  0              0        981     FORM UP CHAPTER CHAPTER FOR 1,2,7       select (N)
          96437    102     981     16   1  0              0        981     OR SECTION                              transfer (A) to N
          96438    106     981     10   1  0              0        981                                             select (N)
          96439    124     964     44   1  0              0        964                                             unconditional jump
    96428>96440    106     981     12   1  0              0        981     SECTION FOR 3,4                         select (N)
          96441    102     981     16   1  0              0        981                                             transfer (A) to N
          96442    102     961     18   0  0              0        961     CLEAR INDICATORS                        transfer (A) to N
          96443    106     981     14   1  0              0        981                                             select (N)
    96439>96444    102     981     18   1  0              0        981                                             transfer (A) to N
          96445    124     985      2   0  2              0        985                                             select literal and division
          96446    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
    96461>                                                                                                         
    96430>96447            751     24   0  0              0        751     START/END ADDRESSES                     SELECT
          96448    118              5   0  0              0                128 FOR DUMP TYPE 6                     shift logical
          96449    104     751     23   0  0              0        751                                             add (N) to (A)
          96450    103     961     16   1  0              0        961     FOR DUMP TYPE 6                         copy (A) to N
          96451    102     980      6   1  0              0        980     FOR SECT OR CHAP                        transfer (A) to N
          96452    102     980      5   0  0              0        980     CLEAR CHAP ADDRESS C                    transfer (A) to N
          96453    124     963      2   1  0              0        963     >READ NEXT BLOCK                        unconditional jump
    96415>96454    102     981     26   0  0              0        981     SET 0-600 INDICATOR                     transfer (A) to N
          96455    124     985     12   0  2              0        985                                             select literal and division
          96456    126     977      2   0  0              0        977     HEADING LINES >EDIT AND O/P S/R         enter subroutine
          96457    124     984     36   0  2              0        984                                             select literal and division
          96458    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96459    124     985     22   0  2              0        985                                             select literal and division
          96460    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          96461    124     964     47   1  0              0        964                                             unconditional jump
                                                                                                                   
          96500    PROCR   965       965     3005 TEST PM TYPE AND PROCESS PM TYPE 6                               
    96311>96502    101             16   1  3              0                UNPACK ALPHA>NUMERIC                    select literal address
          96503    126     976      2   0  0              0        976     >FORM T/E                               enter subroutine
          96504    128     751      9   1  0              0        751     UNPACK                                  bulk copy alpha to short
          96505    106     982      2   1  0              0        982     SET IND MOD REG 2                       select (N)
          96506    102     980      8   1  0              0        980     0/48                                    transfer (A) to N
    96728>96507    106     982      4   0  0              0        982                                             select (N)
          96508    101              6   1  2              0                TEST PM TYPE 6                          subtract literal address
          96509    127     966      2   0  1              0        966     >NO                                     jump A != Z
          96510    102     980      2   0  0              0        980     CLEAR NEW/OLD IND FOR S/R               transfer (A) to N
          96511    124     980      8   0  1              0        980     STORE NEXT LONG WORD                    modify address of next
          96512    124     751     13   0  2              0        751     AND FORM SIGN PARAS                     select literal and division
          96513    126     975      2   0  0              0        975     >STORE LONG WORD ETC S/R                enter subroutine
          96514    124     980      8   0  1              0        980                                             modify address of next
          96515    124     751      9   0  2              0        751     REL+ABS ADDRESS                         select literal and division
          96516    1       979     24   1  0              0        979     4 IN Q6                                 ADD
          96517    128     980      3   0  0              0        980     BULK COPY SHORT>SHORT                   bulk copy short numeric
          96518    102     980     22   1  0              0        980     SET PARAS AT 0 FOR NEW WORD             transfer (A) to N
          96519    126     971      2   0  0              0        971     PRINT NEXT LINE FORM UP AND O/P S/R     enter subroutine
          96520    101              6   1  3              0                STEP IND MRS ADJUST IND MRS             select literal address
          96521    107     980      8   0  0              0        980                                             augment (N) by (A)
          96522    123              2   0  0              0                TEST LAST TRACE                         step on and test
          96523    100     961     16   0  0              0        961                                             Halt
          96524    124     967     26   1  0              0        967     >NO, NEXT TRACE                         unconditional jump
          96525    124     963      2   1  0              0        963     >YES, NEXT BLOCK                        unconditional jump
                                                                                                                   
  Source image: P1000808.JPG
          96600    PROCR   966       966     PROCESS NEXT WORD ON MT BLOCK,DECODE IF AN INSTRUCTION                
    96509>96602    106     963      6   0  0              0        963     FORM UP ACTIONM     TEST TAG CHANGE     select (N)
          96603    104     980      8   0  0              0        980                         REQUIRED            add (N) to (A)
          96604    104     980      8   0  0              0        980                                             add (N) to (A)
          96605    102     966      7   0  0              0        966                                             transfer (A) to N
          96606    124     982      5   1  2              0        982     MODIFY BY 123                           modify address of next
          96607    106              0   1  0              0                *FORMED ORDER* NEXT WORD EX T/X AREA    select (N)
          96608    105     981     50   1  0              0        981      'XX   '                                subtract (N) from (A)
          96609    127     966     14   0  3              0        966     >NOT CHANGE                             jump A < Z
          96610    118              4   0  0              0                NEW TAG TO Q5                           shift logical
          96611    103     980      4   0  0              0        980                         STORE NEW TAG       copy (A) to N
          96612    102     981     29   0  0              0        981                         SET TAG CHANGE IND  transfer (A) to N
          96613    124     967     26   1  0              0        967     STEP MRS                                unconditional jump
    96609>96614    101              0   1  3              0                SET PARAS=0         STORE NEW LONG WORD select literal address
          96615    102     980      2   0  0              0        980                         AND FORM SIGN PATTERtransfer (A) to N
          96616    124     980      8   0  1              0        980     I/O MODIFIER                            modify address of next
          96617    124     751      9   0  2              0        751                                             select literal and division
          96618    80      975      2   0  0              0        975     >DECODE/STORE''AFTER''                  ENTER SUBROUTINE
          96619    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
          96620    124     982      2   0  3              0        982                                             modify address of next
          96621    126              0   0  0              0                (42)SET TAG 15                          enter subroutine
          96622    101              2   1  3              0                FORM PARAS                              select literal address
          96623    102     980      2   0  0              0        980                                             transfer (A) to N
          96624    106     980      6   0  0              0        980                                             select (N)
          96625    80      975      2   0  0              0        975     >DECODE/STORE''BEFORE''                 ENTER SUBROUTINE
          96626    106     980     16   1  0              0        980     TEST SIGN PATTERNS  TEST WORDS EQUAL    select (N)
          96627    105     980     18   1  0              0        980     EQUAL                                   subtract (N) from (A)
          96628    127     966     32   0  1              0        966     >NO                                     jump A != Z
          96629    106     980     14   1  0              0        980     TEST MAGNITUDE EQUAL                    select (N)
          96630    105     980     12   1  0              0        980                                             subtract (N) from (A)
          96631    127     966     45   0  0              0        966     >YES                ->YES               jump A = Z
    96628>96632    106     981     26   0  0              0        981                         TEST 0-600 SET      select (N)
          96633    127     966     44   0  0              0        966     >YES                                    jump A = Z
          96634    0       980      6   0  0              0        980     ADDRESS TO WRITE INTO                   SELECT
          96635    124     982      2   0  3              0        982                                             modify address of next
          96636    105              3   0  0              0                R1 END=SPECIAL CHAP START               subtract (N) from (A)
          96637    73      966     40   0  0              0        966     >OK                                     JUMP IF A < 0
          96638    101            204   1  2              0                                                        subtract literal address
          96639    73      966     44   0  0              0        966     >NEVER OVERWRITE 0-203 OF SPECIAL CHAPTEJUMP IF A < 0
    96637>96640    124     980     12   0  2              0        980                         COPY NEW RECORD     select literal and division
          96641    104     980     20   1  0              0        980                         TO STORE            add (N) to (A)
          96642    124     980      6   0  3              0        980                                             modify address of next
          96643    128              0   0  0              0                                                        bulk copy short numeric
    96639>                                                                                                         
    96633>96644    101              1   1  3              0                                    SET EQUALITY INDIC  select literal address
    96631>96645    102     980     11   0  0              0        980                                             transfer (A) to N
          96646    123     966     47   0  2              0        966                         SET TAG 14          enter master routine
          96647    100              0   0  0              0                                                        Halt
                                                                                                                   
          96700    PROCR   967       967     TEST PM TYPE                                                          
          96702    106     982      4   0  0              0        982                         SWTICH BY PM TYPE   select (N)
          96703    101              5   1  2              0                                                        subtract literal address
          96704    127     967     20   0  0              0        967                                             jump A = Z
          96705    101              1   1  1              0                                                        add literal address
          96706    127     968      2   0  0              0        968                                             jump A = Z
          96707    101              2   1  1              0                                                        add literal address
          96708    127     968      2   0  0              0        968                                             jump A = Z
          96709    106     981     29   0  0              0        981                         TEST TAG CHANGE     select (N)
          96710    127     967     15   0  1              0        967     >YES                INDICATOR SET       jump A != Z
    96807>                                                                                                         
  Source image: P1000809.JPG
    96811>96711    106     980     12   1  0              0        980     TEST LONG WORD                          select (N)
          96712    127     967     15   0  1              0        967     TRUE ZERO >NO                           jump A != Z
          96713    106     980     16   1  0              0        980                                             select (N)
          96714    127     967     18   0  0              0        967     >YES                                    jump A = Z
    96712>                                                                                                         
    96710>96715    101              0   1  3              0                FORM PARAMETER                          select literal address
          96716    102     980     22   1  0              0        980                                             transfer (A) to N
          96717    126     970      2   0  0              0        970     >FORM UP AND O/P S/R**                  enter subroutine
    96714>96718    101              0   1  3              0                ***DELETE                               select literal address
          96719    102     981     29   0  0              0        981     CLEAR TAG CHANGE INDICATOR              transfer (A) to N
    96803>                                                                                                         
    96704>96720    101              2   1  3              0                STEP ADDRESS COUNTER                    select literal address
          96721    107     980      5   0  0              0        980                                             augment (N) by (A)
          96722    123              2   0  0              0                STEP IND MR1                            step on and test
          96723    100     980      6   0  0              0        980                                             Halt
          96724    124     967     26   1  0              0        967                                             unconditional jump
          96725    124     963      2   1  0              0        963     >NEXT BLOCK                             unconditional jump
    96724>                                                                                                         
    96613>                                                                                                         
    96524>96726    123              2   0  0              0                STEP IND MR2                            step on and test
          96727    100     980      8   0  0              0        980                                             Halt
          96728    124     965      7   1  0              0        965     >NEXT WORD                              unconditional jump
          96729    124     963      2   1  0              0        963     >NEXT BLOCK                             unconditional jump
                                                                                                                   
          96800    PROCR   968       968     3008 TYPES 2 AND 4                                                    
    96708>                                                                                                         
    96706>96802    106     980     11   0  0              0        980     TEST NEW WORD=OLD                       select (N)
          96803    127     967     20   0  0              0        967     >YES                                    jump A = Z
          96804    106     980     14   1  0              0        980     TEST OLD WORD MAGNITUDE=0               select (N)
          96805    127     968      8   0  1              0        968     IS TRUE ZERO >NO                        jump A != Z
          96806    106     980     18   1  0              0        980     SIGN PATTERN=0                          select (N)
          96807    127     967     11   0  0              0        967     >YES >YES                               jump A = Z
    96805>96808    106     980     24   1  0              0        980                                             select (N)
          96809    102     980     22   1  0              0        980                                             transfer (A) to N
          96810    126     970      2   0  0              0        970     >FORM UP AND O/P S/R                    enter subroutine
          96811    124     967     11   1  0              0        967     >OUTPUT NEW WORD                        unconditional jump
                                                                                                                   
          96900    PROCR   969       969     3009 CONVERT S/R BINARY>DECIMAL                                       
          96902    100              0   0  0              0                LINK                                    Halt
          96903    100     961     20   1  0              0        961     STORE (A) (B) ( C)                      copy registers
          96904    100     982      7   0  3              0        982     SET DECIMAL                             set radix
          96905    124     980     26   0  2              0        980     SELECT TABLE START                      select literal and division
          96906    112     961     20   0  0              0        961     CONVERT                                 convert
          96907    102     961     20   1  0              0        961                                             transfer (A) to N
          96908    100     961     20   1  1              0        961     RESET (A) (B) ( C)                      replace registers
          96909    126     969      2   0  1              0        969     >LEAVE S/R                              leave subroutine
                                                                                                                   
          97000    PROCR   970       970     33010 FORM UP AND O/P S/R IF NOT TYPE 6                               
          97002    100              0   0  0              0                LINK                                    Halt
          97003    101             31   0  1              0                COLLATION CONST                         prepare for digit collation
          97004    106     980      6   0  0              0        980     CONVERT AND STORE                       select (N)
          97005    118              3   1  3              0                REL ADDRESS REMOVE DIVISION NO          shift binary
          97006    118           4124   1  0              0                                                        shift logical
          97007    114     980      4   0  0              0        980     STORE DIVISION NO                       replace selected bits
          97008    101              0   1  3              0                CLEAR A                                 select literal address
          97009    118             13   1  3              0                                                        shift binary
          97010    102     980      3   0  0              0        980     STORE ADDRESS                           transfer (A) to N
          97011    126     971      2   0  0              0        971     >FORM UP AND OUTPUT S/R                 enter subroutine
          97012    126     970      2   0  1              0        970     >LEAVE S/R                              leave subroutine
          97013    5       961      2   0  0              0        961     ORDER CONST                             TRANSFER
                                                                                                                   
  Source image: P1000810.JPG
          97100    PROCR   971       971     FORM UP LINE OF PRINT,PRINT IT,PRINT STARRY LINE IF REQUIRED          
          97102    81      971      2   0  0              0        971                                             START OF SUBROUTINE
          97103    124     980     23   0  1              0        980     0/2=OLD/NEW WORD                        modify address of next
          97104    124     980     12   0  2              0        980                                             select literal and division
          97105    1       980     20   1  0              0        980     2 IN Q6=QTTY                            ADD
          97106    128     980     14   0  0              0        980     COPY CURRENT LONG WORD->WL              bulk copy short numeric
          97107    124     980     23   0  1              0        980                                             modify address of next
          97108    0       980     16   1  0              0        980     COPY INDS THAT ACTION>16                SELECT
          97109    5       980     18   1  0              0        980                                             TRANSFER
          97110    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          97111    36      980      4   0  0              0        980     DIVISION OR REF                         COLLATE AND ADD
          97112    126     973      2   0  0              0        973     CONVERT AND STORE                       enter subroutine
          97113    106     980      3   0  0              0        980     CONVERT 13 BIT ADDRESS                  select (N)
          97114    126     969      2   0  0              0        969     (OR ITEM) TO DECIMAL                    enter subroutine
          97115    102     980      3   0  0              0        980                                             transfer (A) to N
          97116    100     980     14   1  2              0        980                         PROCESS LONG WORD   replace (B) by (N)
          97117    126     974      2   0  0              0        974     >PROCESS WORD S/R   MOSST SIG HALF      enter subroutine
          97118    106     980     18   0  0              0        980     STORE SIGN PARAS                        select (N)
          97119    102     980     19   0  0              0        980                                             transfer (A) to N
          97120    126     974      2   0  0              0        974     >PROCESS WORD S/R   LEAST SIG HALF      enter subroutine
          97121    106     980     14   1  0              0        980     STORE ALPHA WORD                        select (N)
          97122    102     981     18   1  0              0        981                         L/E'S IN LONG WORD  transfer (A) to N
          97123    102     980     18   1  0              0        980                         WITH B'S AND L'S    transfer (A) to N
          97124    34      974     15   0  0              0        974     BITS 1-6                                SET (N) IN B
    97143>97125    115     981     18   1  0              0        981     STORE NEXT QRTET    LINE                collate and add
          97126    102     981     16   1  0              0        981                                             transfer (A) to N
          97127    115     981     52   1  0              0        981     TET FOR B/E                             collate and add
          97128    105     981     16   1  0              0        981                                             subtract (N) from (A)
          97129    127     971     32   0  0              0        971     >YES                                    jump A = Z
          97130    101              0   1  3              0                                                        select literal address
          97131    124     971     34   1  0              0        971     >NO                                     unconditional jump
    97129>97132    106     981      6   1  0              0        981     >'S AND B'S                             select (N)
          97133    124     971     38   1  0              0        971                                             unconditional jump
    97131>97134    115     981     54   1  0              0        981     TEST FOR L/E'S                          collate and add
          97135    105     981     16   1  0              0        981                                             subtract (N) from (A)
          97136    71      971     41   0  0              0        971     >NO                                     JUMP IF A != 0
          97137    106     981      4   1  0              0        981                                             select (N)
    97133>97138    114     981     18   1  0              0        981                                             replace selected bits
          97139    106     981      2   1  0              0        981                                             select (N)
          97140    114     980     18   1  0              0        980     >'S                                     replace selected bits
    97136>97141    118              2   1  0              0                                                        shift logical
          97142    101              0   1  3              0                                                        select literal address
          97143    127     971     25   1  1              0        971     >NEXT QRTET                             jump AB != Z
          97144    106     980      4   0  0              0        980                         CONVERT TAG S/R     select (N)
          97145    118           4124   0  0              0                SHIFT TO Q1                             shift logical
          97146    126     973      2   0  0              0        973     CONVERT AND TRANSFER S/R                enter subroutine
          97147    106     980      5   0  0              0        980     RELATIVE ADDRESS                        select (N)
          97148    126     973      2   0  0              0        973     >CONVERT AND TRANSFER S/R               enter subroutine
          97149    124     986      2   0  2              0        986                         EDIT LINE           select literal and division
          97150    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
          97151    106     980     18   1  0              0        980                         OUTPUT * LINE       select (N)
          97152    127     971     55   0  0              0        971                         IF NEEDED           jump A = Z
          97153    124     986     38   0  2              0        986                         EDIT LINE           select literal and division
          97154    126     977      2   0  0              0        977     >EDIT AND O/P S/R                       enter subroutine
    97152>97155    0       970     13   0  0              0        970     RESET ORDDER                            SELECT
          97156    5       972      3   0  0              0        972                                             TRANSFER
          97157    126     971      2   0  1              0        971                         FOR NEXT WORD       leave subroutine
                                                                                                                   
          97200    PROCR   972       972     3812 TRANSPER S/R                                                     
  Source image: P1000811.JPG
          97202    81      972      2   0  0              0        972                                             START OF SUBROUTINE
          97203    5       961      2   0  0              0        961     >FORMED ORDER                           TRANSFER
          97204    10               0   0  0              1                                                        SELECT LITERAL
          97205    4       972      3   0  0              0        972     STEP ADDRESS                            AUGMENT
          97206    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          97207    82      972      2   0  0              0        972                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          97300    PROCR   973       973     3013 CONVERT AND TRANSFER S/R                                         
          97302    100              0   0  0              0                LINK                                    Halt
          97303    126     969      2   0  0              0        969     >CONVERT S/R                            enter subroutine
          97304    126     972      2   0  0              0        972     >TRANSFER S/R                           enter subroutine
          97305    126     973      2   0  1              0        973     >LEAVE S/R                              leave subroutine
                                                                                                                   
          97400    PROCR   974       974     3014 PROCESS WORD S/R                                                 
          97402    100              0   0  0              0                LINK                                    Halt
          97403    101              0   1  3              0                TRANSFER ACTION CLEAR A                 select literal address
          97404    118              1   1  0              0                SHIFT ACTION INTO B                     shift logical
          97405    104     980     19   0  0              0        980     0 OR 16 IF ACTION <OR >16               add (N) to (A)
          97406    126     973      2   0  0              0        973     DISCRIMINANT D IN A                     enter subroutine
          97407    118              1   1  3              0                >TRANSFER                               shift binary
          97408    126     972      2   0  0              0        972     MODIFIER M IN A                         enter subroutine
          97409    118              2   1  3              0                >TRANSFER                               shift binary
          97410    126     972      2   0  0              0        972     ADDRESS                                 enter subroutine
          97411    118              1   1  3              0                                                        shift binary
          97412    118              3   1  0              0                                                        shift logical
          97413    126     973      2   0  0              0        973     >CONVERT AND TRANSFER                   enter subroutine
          97414    126     974      2   0  1              0        974     >LEAVE S/R                              leave subroutine
          97415    100             63   0  0              0                CONST=BITS 1-6                          Halt
                                                                                                                   
          97500    PROCR   975       975     3015 STORE LONG WORD AND FORM SIGN PARAS S/R                          
          97502    100              0   0  0              0                LINK                                    Halt
          97503    104     980     20   1  0              0        980     STORE WORD FORM T/E                     add (N) to (A)
          97504    124     980      2   0  0              0        980                                             modify address of next
          97505    128     980     12   0  0              0        980     BULK COPY LONG WORD                     bulk copy short numeric
          97506    124     980      2   0  1              0        980     0/2=OLD/NEW WORD                        modify address of next
          97507    124     980     12   0  2              0        980                                             select literal and division
          97508    1       979     26   1  0              0        979     1 IN Q6                                 ADD
          97509    118              0   0  0              0                DUMMY ORDER                             shift logical
          97510    128     981     27   0  0              0        981     BULK COPY SHORT WORD                    bulk copy short numeric
          97511    100     981     26   1  1              0        981     FORM SIGN PATTERN FORM SIGN PATTERN     replace registers
          97512    127     975     15   0  3              0        975     0 IF POSIVIE FOR LEAST SIG HALF         jump A < Z
          97513    101              0   1  3              0                16 IF POSITIVE POSITIVE                 select literal address
          97514    124     975     16   1  0              0        975                                             unconditional jump
    97512>97515    101             16   1  3              0                NEGATIVE                                select literal address
    97514>97516    124     980      2   0  1              0        980                                             modify address of next
          97517    102     980     16   0  0              0        980                                             transfer (A) to N
          97518    124     980      2   0  1              0        980     FORM SIGN PATTERN                       modify address of next
          97519    100     980     12   1  1              0        980     FOR MOST SIG HALF                       replace registers
          97520    127     975     23   0  3              0        975                                             jump A < Z
          97521    101              0   1  3              0                POSITIVE                                select literal address
          97522    124     975     24   1  0              0        975                                             unconditional jump
    97520>97523    101             16   1  3              0                NEGATIVE                                select literal address
    97522>97524    124     980      2   0  0              0        980                                             modify address of next
          97525    102     980     17   0  0              0        980                                             transfer (A) to N
          97526    100     982      2   0  3              0        982     RESET BINARY                            set radix
          97527    126     975      2   0  1              0        975                                             leave subroutine
                                                                                                                   
          97600    PROCR   976       976     3016 UNPACK FROM WORD 6 S/R                                           
          97602    100              0   0  0              0                LINK                                    Halt
          97603    101             32   1  1              0                FORM T/E                                add literal address
  Source image: P1000812.JPG
          97604    118              5   0  0              0                                                        shift logical
          97605    101              5   1  1              0                                                        add literal address
          97606    124     982      2   0  3              0        982                                             modify address of next
          97607    104            123   0  0              0                                                        add (N) to (A)
          97608    126     976      2   0  1              0        976     >LEAVE S/R                              leave subroutine
          97609    10               0   0  0              0                DUMMY ORDER                             SELECT LITERAL
                                                                                                                   
          97700    PROCR   977       977     3017 EDIT AND O/P S/R                                                 
          97702    81      977      2   0  0              0        977                                             START OF SUBROUTINE
          97703    128     744     12   1  2              0        744                                             edit fixed field formats
          97704    124     986     50   0  2              0        986     EDIT 20 SPACES                          select literal and division
          97705    128     744      4   1  2              0        744     BEFORE PRINTING                         edit fixed field formats
          97706    5       744      2   1  0              0        744     CLEAR FUNCTION WORD                     TRANSFER
          97707    101              1   0  1              0                                                        prepare for digit collation
          97708    124     982      2   0  3              0        982                                             modify address of next
          97709    115             27   0  0              0                                                        collate and add
          97710    12               0   0  0              4                                                        SUBTRACT LITERAL
          97711    70      977     24   0  0              0        977     >GP PRINTER                             JUMP IF A == 0
          97712    124     744      2   0  2              0        744                         SPECIAL PRINT       select literal and division
          97713    1       979     28   1  0              0        979     48 IN Q6                                ADD
          97714    124     979     23   1  2              0        979                                             modify address of next
          97715    128              0   1  1              0                COPY ANNEX,CLEAR A                      bulk copy long numeric
    97731>97716            979     22   0  0              0        979                                             SELECT
          97717    32               0   0  0              5-               ROUTE IN TOP OF B                       SHIFT (AB) BY QUARTETS
          97718            979     22   0  0              0        979                                             SELECT
          97719    32               0   0  0              5-               AND IN BOTTOM                           SHIFT (AB) BY QUARTETS
          97720    80      978      2   0  0              0        978     >PRINT                                  ENTER SUBROUTINE
          97721    123     979      2   0  2              0        979     >TEST PRINT FINISHED                    enter master routine
          97722    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          97723    82      977      2   0  0              0        977     (YES)                                   END OF SUBROUTINE / LEAVE SUBROUTINE
    97711>97724    10               0   0  0              8                                    GP PRINT            SELECT LITERAL
          97725    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          97726    5       744      3   0  0              0        744     (PRINT ON COLS 1-120)                   TRANSFER
          97727    124     744      2   0  2              0        744                                             select literal and division
          97728    124     979     23   1  2              0        979                                             modify address of next
          97729    129              0   0  1              0                EDIT                                    edit for anelex output
          97730    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          97731    76      977     16   0  0              0        977     >GO TO PRINT                            JUMP unconditional
                                                                                                                   
          97800    PROCR   978       978     3018 ENTER MASTER FOR PRINTER                                         
          97802    100              0   0  0              0                LINK                                    Halt
          97803    118              5   0  0              0                FORM T/E                                shift logical
          97804    124     982      2   0  3              0        982                                             modify address of next
          97805    104             26   1  0              0                (PARAS 26,27)                           add (N) to (A)
          97806    125           4096   1  1              0                SET NON INT                             clear indicators
          97807    124     982      2   0  3              0        982                                             modify address of next
          97808    123            160   0  2              0                >OPEN PRINTER                           enter master routine
          97809    126     978      2   0  1              0        978     >LEAVE S/R                              leave subroutine
                                                                                                                   
          97900    PROCR   979       979     3019 TEST PREVIOUS PRINT ORDER FINISHED                               
          97902    81      979      2   0  0              0        979                                             START OF SUBROUTINE
          97903    125           4096   1  1              0                                                        clear indicators
          97904    124     982      2   1  1              0        982     MG C                                    set modification group
          97905            979     22   0  0              0        979     ROUTE                                   SELECT
          97906    124     982      2   0  3              0        982                                             modify address of next
          97907    102             30   0  1              0                >SI+30                                  transfer (A) to N
          97908            979     21   0  0              0        979      26/1/0                                 SELECT
          97909    2       979     22   0  0              0        979                                             SUBTRACT
          97910    124     982      2   0  3              0        982                                             modify address of next
          97911    102              7   0  1              0                SI+7                                    transfer (A) to N
  Source image: P1000813.JPG
          97912    124     982      2   0  3              0        982                                             modify address of next
          97913    102             45   0  1              0                CLEAR ASSOCIATED TIME                   transfer (A) to N
          97914    124     979     17   0  2              0        979     (RETURN ADDRESS)                        select literal and division
          97915    124     982      2   0  3              0        982                                             modify address of next
          97916    124            174   1  0              0                >MASTER TO TEST ROUTE                   unconditional jump
          97917    124     982      2   0  3              0        982                                             modify address of next
          97918    124              2   0  3              0                                                        modify address of next
          97919    124             29   1  1              0                RESTORE PROG'S MOD GROUP                set modification group
          97920    126     979      2   0  3              0        979     >(SET INTERRUPTIBLE)                    leave master routine
          97921    126              0   1  0              0                CONST                                   test route N1
          97922    100              0   0  0              0                WL FOR ALLOCATED ROUTE R                Halt
          97923    100              0   0  0              0                WL FOR-(64+R)                           Halt
          97924    100              0   0  0              0                )COPY 4                                 Halt
          97925    100              4   0  0              0                )                                       Halt
          97926    100              0   0  0              0                (COPY 1                                 Halt
          97927    100              1   0  0              0                (                                       Halt
          97928    100              0   0  0              0                )COPY 48                                Halt
          97929    100             48   0  0              0                )                                       Halt
                                                                                                                   
          98000    CONST   980       980     1    3020 W/L'S AND CONVERT TABLES                                    
          98002          (D)0;                                             I/O SERIAL/W/L                          
          98004          0;                                                RELATIVE ADDRESS/TAG                    
          98006          Ю£££££;                                           TIME/DATE,IND MOD1                      
          98008          (A)START;                                         (LONG DATE)IND MOD 2                    
          98010          (D)0;                                             =INDIC/PROG IDENTITY                    
          98012          0;                                                NEW LONG WORD                           
          98014          0;                                                OLD LONG WORD                           
          98016          0;                                                0/16 IN ODD/EVEN IF ODD/EVEN NEW WORD PO
          98018          0;                                                DITTO FOR OLD VALUE OF WORD             
          98020          200000;                                           TABLE CONSTANT                          
          98022          0;                                                PARAS NEW/OLD                           
          98024          (D)2000(A)*;                                      OLD WORD CONSTANT                       
          98026          (D)1;                                             CONVERT TABLE                           
          98028          16;                                               BINARY>DECIMAL                          
          98030          256;                                                                                      
          98032          4096;                                                                                     
          98034          65536;                                                                                    
                                                                                                                   
          98100    CONST   981       981     1    3021 ALPHA CONSTANTS                                             
          98102          (A)*****;                                                                                 
          98104          LLLLL;                                                                                    
          98106          BBBBB;                                                                                    
          98108          (A)CHAPT;                                         CONSTANTS FOR HEADING                   
          98110          ER   ;                                            BLOCKS                                  
          98112          (A)SECTI;                                                                                 
          98114          ON   ;                                                                                    
          98116          PRINT;                                            W/L FOR HEADING                         
          98118          OUTOF;                                            W/L FOR HEADING                         
          98120          POINT;                                            CONSTANTS FOR PRINTING                  
          98122          P M B;                                            HEADING BLOCK                           
          98124          (A)DUMPS;                                                                                 
          98126          TAKEN;                                            W/L/0-600 IND                           
          98128          ON AT;                                            TAG CH IND/W/L                          
          98130          (A)PROGM;                                                                                 
          98132          (A)FINIS;                                                                                 
          98134          (A)TYPE(D)7.;                                                                             
          98136          (A)FINAL;                                                                                 
          98138          MASTE;                                                                                    
          98140          R ROU;                                                                                    
          98142          MR1  ;                                                                                    
  Source image: P1000814.JPG
          98144          MR2  ;                                                                                    
          98146          MR3  ;                                                                                    
          98148          TINE ;                                                                                    
          98150          XX   ;                                                                                    
          98152          (D)7.7.7.7.7.;                                                                            
          98154          5.5.5.5.5.;                                                                               
                                                                                                                   
          98200    CONST   982       982     0    3022 NUMERIC CONSTANTS                                           
          98202          (D)00000;                                         ZERO                                    
          98203          00018;                                            M/R SETTING 0/24                        
          98204          0;                                                STORE FOR PM TYPE                       
          98205          7‼-;                                              ASL 123                                 
          98206          3:;                                               61                                      
          98207          66666;                                                                                    
          98208          3‼;                                               59                                      
          98209          0;                                                                                        
                                                                                                                   
          98300    PROCR   983       983     3023 TABLE 1                                                          
          98302    100     981     32   0  0              0        981     FINIS                                   Halt
          98303    101              5   0  0              0                                                        table look up
          98304    100     981     34   0  0              0        981     B/E                                     Halt
          98305    117           1029   0  0              0                                                        special select
                                                                                                                   
          98400    PROCR   984       984     3024 TABLE 2                                                          
          98402    100     981     30   0  0              0        981     15 SP PROGM                             Halt
          98403    101            245   0  0              0                                                        table look up
          98404    100     980     10   0  0              0        980     SP PROG ID                              Halt
          98405    100             21   0  0              0                                                        Halt
          98406    100     981     22   0  0              0        981     4SP PM                                  Halt
          98407    101             68   0  0              0                                                        table look up
          98408    100     981     20   0  0              0        981     POINT                                   Halt
          98409    101              5   0  0              0                                                        table look up
          98410    108     751     11   0  0              0        751     LINE SERIAL                             merge constant length
          98411    100             53   0  0              0                                                        Halt
          98412    100     981     34   0  0              0        981     4SP TYPE                                Halt
          98413    101             68   0  0              0                                                        table look up
          98414    100     982      4   0  0              0        982     SP TYPE NO                              Halt
          98415    100           1041   0  0              0                                                        Halt
          98416    100     981     34   0  0              0        981     2SP B/E                                 Halt
          98417    117           1057   0  0              0                                                        special select
          98418    100     981      8   0  0              0        981     15SP A                                  Halt
          98419    101            753   0  0              0                                                        table look up
          98420    108     751     13   0  0              0        751     (A)                                     merge constant length
          98421    100             53   0  0              0                                                        Halt
          98422    108     751     12   0  0              0        751                                             merge constant length
          98423    106           1285   0  0              0                                                        select (N)
          98424    100     981     22   0  0              0        981     4SP B                                   Halt
          98425    101           1089   0  0              0                                                        table look up
          98426    108     751     15   0  0              0        751     (B)                                     merge constant length
          98427    100             53   0  0              0                                                        Halt
          98428    108     751     14   0  0              0        751                                             merge constant length
          98429    106           1285   0  0              0                                                        select (N)
          98430    100     981      8   0  0              0        981     4SP C                                   Halt
          98431    101             65   0  0              0                                                        table look up
          98432    108     751     16   0  0              0        751                                             merge constant length
          98433    104             53   0  0              0                                                        add (N) to (A)
          98434    100     981     34   0  0              0        981     4SP B/E                                 Halt
          98435    117           1089   0  0              0                                                        special select
          98436    100     981     42   0  0              0        981     MR1                                     Halt
          98437    101            243   0  0              0                                                        table look up
  Source image: P1000815.JPG
          98438    108     751     18   0  0              0        751     (R1)                                    merge constant length
          98439    104             21   0  0              0                                                        add (N) to (A)
          98440    108     751     17   0  0              0        751                                             merge constant length
          98441    104              5   0  0              0                                                        add (N) to (A)
          98442    100     981     44   0  0              0        981     MR2                                     Halt
          98443    101             67   0  0              0                                                        table look up
          98444    108     751     20   0  0              0        751     (R2)                                    merge constant length
          98445    104             21   0  0              0                CONTENTS OF MR2                         add (N) to (A)
          98446    108     751     19   0  0              0        751                                             merge constant length
          98447    104              5   0  0              0                                                        add (N) to (A)
          98448    100     981     46   0  0              0        981     MR3                                     Halt
          98449    101             67   0  0              0                                                        table look up
          98450    108     751     22   0  0              0        751     (MR3)                                   merge constant length
          98451    104             21   0  0              0                                                        add (N) to (A)
          98452    108     751     21   0  0              0        751                                             merge constant length
          98453    104              5   0  0              0                                                        add (N) to (A)
          98454    100     981     34   0  0              0        981     3SP BE                                  Halt
          98455    117           1073   0  0              0                                                        special select
                                                                                                                   
          98500    PROCR   985       985     3025 TABLE 3                                                          
          98502    100     980     10   0  0              0        980     15 SP PROG ID                           Halt
          98503    100            245   0  0              0                                                        Halt
          98504    100     981     16   0  0              0        981     2SP CHAPTER/SECTION                     Halt
          98505    101             37   0  0              0                                                        table look up
          98506    100     981     18   0  0              0        981                                             Halt
          98507    101              5   0  0              0                                                        table look up
          98508    108     751     10   0  0              0        751     CHAP/SECTION                            merge constant length
          98509    100           4866   0  0              0                                                        Halt
          98510    100     981     34   0  0              0        981     B/E                                     Halt
          98511    117           1025   0  0              0                                                        special select
          98512    100     981     30   0  0              0        981     15SP PROGM                              Halt
          98513    101            245   0  0              0                                                        table look up
          98514    100     980     10   0  0              0        980     SERIAL NO                               Halt
          98515    100             21   0  0              0                                                        Halt
          98516    100     981     36   0  0              0        981     FINAL                                   Halt
          98517    101             37   0  0              0                                                        table look up
          98518    100     981     24   0  0              0        981     DUMP                                    Halt
          98519    101             20   0  0              0                                                        table look up
          98520    100     981     34   0  0              0        981     SP B/E                                  Halt
          98521    117           1041   0  0              0                                                        special select
          98522    100     981     38   0  0              0        981     MASTER                                  Halt
          98523    101            245   0  0              0                                                        table look up
          98524    100     981     40   0  0              0        981     ROUTINE                                 Halt
          98525    101              5   0  0              0                                                        table look up
          98526    100     981     48   0  0              0        981                                             Halt
          98527    101              5   0  0              0                                                        table look up
          98528    100     981     34   0  0              0        981     4SP B/E                                 Halt
          98529    117           1089   0  0              0                                                        special select
                                                                                                                   
          98600    PROCR   986       986     3026 TABLE 4                                                          
          98602    100     980     22   0  0              0        980     ASTERISK                                Halt
          98603    101           1025   0  0              0                4/0/1                                   table look up
          98604    100     961      2   0  0              0        961     DIVISION NO OR REF                      Halt
          98605    100            515   0  1              0                2/2/0/3                                 Invalid
          98606    100     980      3   0  0              0        980     13 BIT DEC ADD                          Halt
          98607    100              5   0  2              0                4/0/0/5                                 replace (B) by (N)
          98608    100     961     12   0  0              0        961     RELATIVE ADDRESS                        Halt
          98609    100             21   0  2              0                4/0/1/5                                 replace (B) by (N)
          98610    100     980      6   0  0              0        980     15 BIT BINARY ADDRESS                   Halt
          98611    100           4117   0  0              0                1/0/1/5                                 Halt
  Source image: P1000816.JPG
          98612    100     961      7   0  0              0        961     ACTION                                  Halt
          98613    100            531   0  1              0                2/2/1/3                                 Invalid
          98614    100     961      8   0  0              0        961     DISC                                    Halt
          98615    100           1041   0  0              0                4/1/1                                   Halt
          98616    100     961      9   0  0              0        961     MOD                                     Halt
          98617    100           1041   0  0              0                4/1/1                                   Halt
          98618    100     961     10   0  0              0        961     ADDRESS                                 Halt
          98619    100             21   0  2              0                1/5                                     replace (B) by (N)
          98620    100     961      3   0  0              0        961     ACTION                                  Halt
          98621    100            531   0  1              0                2/2/1/3                                 Invalid
          98622    100     961      4   0  0              0        961     DISC                                    Halt
          98623    100           1041   0  0              0                4/1/1                                   Halt
          98624    100     961      5   0  0              0        961     MOD                                     Halt
          98625    100           1041   0  0              0                4/1/4                                   Halt
          98626    100     961      6   0  0              0        961     ADDRESS                                 Halt
          98627    100             21   0  2              0                1/5                                     replace (B) by (N)
          98628    100     980     14   0  0              0        980     LSH NUMERIC                             Halt
          98629    104             69   0  2              0                4/0/2/5                                 add (N) to (A)
          98630    100     980     15   0  0              0        980     MSH NUMERIC                             Halt
          98631    104             37   0  2              0                4/0/2/5                                 add (N) to (A)
          98632    100     981     18   0  0              0        981     PROCESSED ALPHA                         Halt
          98633    101             37   0  0              0                2/5                                     table look up
          98634    100     961     11   0  0              0        961     TAG                                     Halt
          98635    100           4882   0  0              0                1/3/1/2                                 Halt
          98636    100     981     52   0  0              0        981     BEW                                     Halt
          98637    117              5   0  0              0                0/5                                     special select
          98638    100     982      2   0  0              0        982     STARRY LINE                             Halt
          98639    100           4341   0  2              0                5/0/15/5                                replace (B) by (N)
          98640    100     982      2   0  0              0        982                                             Halt
          98641    100           4341   0  2              0                                                        replace (B) by (N)
          98642    100     982      2   0  0              0        982                                             Halt
          98643    100           4341   0  2              0                                                        replace (B) by (N)
          98644    100     982      2   0  0              0        982                                             Halt
          98645    100           4117   0  2              0                5/0/1/5                                 replace (B) by (N)
          98646    100     980     18   0  0              0        980     STARTS                                  Halt
          98647    101             53   0  0              0                                                        table look up
          98648    100     981     52   0  0              0        981     BEW                                     Halt
          98649    117              5   0  0              0                0/5                                     special select
          98650    100     982      2   0  0              0        982     20 SPACES                               Halt
          98651    116           4341   0  2              0                                                        Invalid
                                                                                                                   
          98700    CONST   987       987     0    FIRST LEVEL PARAS PASS 2                                         
          98702          (B5)1(B3)1(B3)1(B3)1(B6)8;                        2001/0                                  
          98703          1,1,0,1,1;                                                                                
          98704          1,1,1,0,8;                                                                                
          98705          1,1,2,0,16;                                                                               
          98706          2,0,2,0,16;                                                                               
          98707          1,0,1,1,1;                                                                                
          98708          1,1,0,1,9;                                                                                
          98709          0,1,6,6,54;                                                                               
          98710          6,1,1,1,9;                                                                                
          98711          0,1,1,1,6;                                                                                
          98712          1,0,1,1,0;                                                                                
          98713          1,1,1,1,9;                                        2002/5                                  
          98714          0,1,1,1,9;                                                                                
          98715          0,1,0,0,54;                                                                               
          98716          1,1,0,0,9;                                                                                
          98717          0,1,1,0,8;                                                                                
          98718          0,0,1,6,54;                                                                               
          98719          6,6,6,6,54;                                                                               
  Source image: P1000817.JPG
          98720          0,0,1,0,0;                                        2003/4                                  
          98721          0,0,0,1,0;                                                                                
          98722          1,0,0,1,1;                                                                                
          98723          1,1,1,0,6;                                                                                
          98724          0,1,1,1,8;                                                                                
          98725          0,1,1,1,6;                                        2004/5 2005/5                           
          98726          0,1,1,1,1;                                                                                
          98727          0,0,0,0,0;                                                                                
          98728          0,1,1,1,9;                                                                                
          98729          1,0,1,0,9;                                                                                
          98730          1,1,0,0,8;                                                                                
          98731          1,0,1,1,9;                                        2006/2                                  
          98732          1,0,1,1,8;                                                                                
          98733          0,1,0,1,1;                                                                                
          98734          1,1,1,1,8;                                                                                
          98735          1,1,1,1,1;                                                                                
          98736          1,0,0,0,1;                                                                                
          98737          1,0,1,0,0;                                                                                
          98738          1,1,0,0,8;                                                                                
          98739          1,1,0,1,8;                                        2007/4                                  
          98740          1,0,1,0,9;                                                                                
          98741          0,1,1,0,9;                                        2008/6                                  
          98742          1,1,0,1,8;                                                                                
          98743          1,1,1,1,0;                                                                                
          98744          0,1,1,1,9;                                                                                
          98745          0,0,1,0,9;                                                                                
          98746          0,1,1,0,8;                                                                                
          98747          1,1,1,6,54;                                                                               
          98748          0,1,1,1,9;                                        2009/0                                  
          98749          1,1,0,1,9;                                                                                
          98750          1,1,1,6,54;                                                                               
          98751          6,0,1,1,8;                                                                                
          98752          1,0,1,1,8;                                        2010/5                                  
          98753          1,1,1,6,11;                                                                               
          98754          1,0,1,1,9;                                                                                
          98755          1,1,0,1,1;                                                                                
          98756          1,1,1,1,9;                                                                                
          98757          0,6,6,0,9;                                        2011/4                                  
          98758          1,0,1,0,1;                                                                                
          98759          3,0,0,1,54;                                                                               
          98760          0,1,0,1,9;                                                                                
          98761          1,0,1,6,54;                                                                               
          98762          1,0,1,1,9;                                                                                
          98763          0,1,0,1,8;                                                                                
          98764          1,0,1,0,9;                                                                                
          98765          0,6,6,6,54;                                       2012/1                                  
          98766          1,1,1,1,1;                                                                                
          98767          0,1,1,1,8;                                                                                
          98768          1,0,1,0,9;                                                                                
          98769          0,1,1,0,8;                                        2013/0                                  
          98770          1,1,0,0,0;                                                                                
          98771          1,1,0,1,0;                                                                                
          98772          0,0,1,0,0;                                                                                
          98773          1,0,0,0,8;                                                                                
          98774          0,0,1,1,8;                                                                                
          98775          0,1,0,0,1;                                                                                
          98776          1,1,0,0,8;                                                                                
          98777          0,0,0,0,8;                                                                                
          98778          1,1,0,1,8;                                                                                
          98779          1,0,1,1,8;                                        2014/6                                  
  Source image: P1000818.JPG
          98780          1,1,1,1,8;                                                                                
          98781          0,1,0,1,9;                                                                                
          98782          1,6,6,6,54;                                                                               
          98783          1,1,1,1,1;                                                                                
          98784          0,1,1,1,9;                                        2015/0                                  
          98785          0,1,1,1,9;                                                                                
          98786          0,1,1,0,9;                                                                                
          98787          1,1,0,1,9;                                                                                
          98788          1,0,1,1,1;                                                                                
          98789          1,1,0,1,9;                                        2016/0                                  
          98790          1,1,1,0,9;                                                                                
          98791          0,1,1,6,0;                                                                                
          98792          1,1,1,1,9;                                                                                
          98793          0,0,0,1,49;                                                                               
                                                                                                                   
          98800    CONST   988       988     0    FIRST LEVEL PARA PASS 2 CONTD                                    
          98802          (B5)1(B3)1(B3)0(B3)1(B6)15;                                                               
          98803          0,0,1,0,0;                                        2017/1                                  
          98804          1,1,0,0,8;                                                                                
          98805          0,0,1,1,8;                                                                                
          98806          0,1,0,0,0;                                                                                
          98807          0,1,0,1,1;                                                                                
          98808          0,1,1,1,0;                                                                                
          98809          1,0,0,0,9;                                                                                
          98810          1,1,0,1,9;                                                                                
          98811          1,1,0,1,9;                                        2017A/5                                 
          98812          0,1,1,7,1;                                        2018/5 2019/5                           
          98813          1,1,1,1,15;                                                                               
          98814          0,1,0,1,9;                                        2020/1                                  
          98815          0,0,0,1,57;                                                                               
          98816          0,1,0,6,54;                                       2022/1                                  
          98817          1,0,1,1,8;                                        2022/6                                  
          98818          1,0,1,1,8;                                        2023/6                                  
          98819          1,1,1,1,24;                                                                               
          98820          1,1,0,1,0;                                                                                
          98821          1,0,1,0,54;                                       2024/4                                  
          98822          1,1,0,1,9;                                                                                
          98823          0,6,6,6,54;                                                                               
          98824          0,1,1,1,9;                                        2025/0                                  
          98825          0,0,1,0,9;                                                                                
          98826          0,1,0,1,15;                                       2026/0                                  
          98827          0,0,1,1,8;                                                                                
          98828          1,1,0,0,0;                                        2027/3                                  
          98829          0,0,0,0,0;                                                                                
          98830          0,0,0,0,0;                                        2028/0                                  
          98831          0,0,0,0,0;                                                                                
          98832          0,0,0,0,0;                                        2029/0                                  
          98833          0,0,0,0,0;                                                                                
          98834          0,0,0,0,0;                                                                                
          98835          0,0,0,0,0;                                                                                
          98836          0,0,0,0,16;                                       2030/5                                  
          98837          0,0,0,0,16;                                                                               
          98838          2,0,0,0,24;                                                                               
          98839          2,0,0,0,0;                                        2031/5                                  
          98840          0,0,0,0,0;                                                                                
          98841          0,0,0,0,0;                                        2032/1                                  
          98842          0,0,0,0,0;                                        2033/5                                  
          98843          0,0,0,0,16;                                       2034/5                                  
          98844          7,6,6,6,54;                                       (CHAP END)                              
          98845          6,6,6,6,54;                                       DUMMY WORD                              
                                                                                                                   
  Source image: P1000819.JPG
          98900    CONST   989       989     0    FIRST LEVEL PARAS PASS 3                                         
          98902          (B5)0(B3)0(B3)1(B3)1(B6)0;                        3001/0                                  
          98903          1,0,0,1,1;                                                                                
          98904          1,1,1,0,6;                                                                                
          98905          1,1,1,1,9;                                                                                
          98906          1,1,1,1,25;                                                                               
          98907          0,6,6,6,54;                                                                               
          98908          0,0,0,0,0;                                        3001.5/1                                
          98909          0,0,0,0,0;                                                                                
          98910          0,0,0,0,0;                                                                                
          98911          0,0,0,0,0;                                                                                
          98912          0,0,0,0,0;                                                                                
          98913          0,0,0,0,0;                                                                                
          98914          0,0,0,0,0;                                                                                
          98915          0,0,0,0,0;                                                                                
          98916          0,0,0,0,0;                                                                                
          98917          0,0,0,0,0;                                                                                
          98918          0,0,0,0,0;                                        3001A/1                                 
          98919          0,0,0,0,0;                                                                                
          98920          0,0,0,0,0;                                                                                
          98921          0,0,0,0,0;                                                                                
          98922          0,0,0,0,0;                                                                                
          98923          0,0,0,0,0;                                                                                
          98924          0,0,0,0,0;                                                                                
          98925          0,0,0,0,0;                                                                                
          98926          0,0,0,0,0;                                                                                
          98927          0,0,0,0,0;                                                                                
          98928          0,0,0,0,0;                                                                                
          98929          0,0,0,0,0;                                                                                
          98930          0,0,0,0,0;                                                                                
          98931          0,0,0,0,0;                                                                                
          98932          0,0,0,0,0;                                                                                
          98933          0,0,0,0,0;                                                                                
          98934          2,0,2,0,16;                                       30018/1                                 
          98935          2,0,2,0,16;                                                                               
          98936          2,0,2,0,16;                                                                               
          98937          2,0,2,0,16;                                                                               
          98938          2,0,2,0,16;                                                                               
          98939          0,0,1,0,9;                                        3002/3                                  
          98940          0,1,1,0,9;                                                                                
          98941          0,1,1,1,1;                                                                                
          98942          1,3,1,1,9;                                                                                
          98943          1,0,0,1,9;                                                                                
          98944          1,1,6,6,54;                                                                               
          98945          1,0,1,1,1;                                        3003/0                                  
          98946          1,1,1,1,9;                                                                                
          98947          0,1,0,1,1;                                                                                
          98948          1,1,1,1,49;                                       3004/6                                  
          98949          6,6,6,6,54;                                                                               
          98950          1,1,1,1,54;                                                                               
          98951          0,1,0,1,8;                                                                                
          98952          1,1,1,1,9;                                                                                
          98953          1,1,1,1,9;                                                                                
          98954          0,1,0,1,1;                                                                                
          98955          0,1,1,1,9;                                                                                
          98956          1,1,1,1,9;                                                                                
          98957          1,1,1,1,8;                                                                                
          98958          1,1,6,6,54;                                                                               
          98959          1,1,1,1,9;                                                                                
  Source image: P1000820.JPG
          98960          1,1,1,1,8;                                        3005/6                                  
          98961          1,1,1,1,8;                                                                                
          98962          1,1,1,1,9;                                                                                
          98963          1,1,6,1,9;                                                                                
          98964          0,1,0,1,9;                                                                                
          98965          1,1,1,1,8;                                        3006/0                                  
          98966          1,1,0,1,9;                                                                                
          98967          0,1,1,1,8;                                                                                
          98968          1,7,0,1,9;                                                                                
          98969          1,1,1,1,9;                                                                                
          98970          1,1,1,1,1;                                                                                
          98971          0,1,1,1,8;                                                                                
          98972          0,1,1,0,8;                                        3007/5                                  
          98973          1,0,1,0,9;                                                                                
          98974          1,1,1,1,8;                                                                                
          98975          1,1,0,1,1;                                                                                
          98976          0,1,1,1,1;                                                                                
          98977          1,1,1,1,9;                                        3008/3                                  
          98978          1,1,1,1,9;                                                                                
          98979          0,1,1,1,9;                                        3009/0                                  
          98980          1,1,0,0,8;                                        3010/3                                  
          98981          0,1,0,0,9;                                                                                
          98982          1,1,6,6,54;                                                                               
          98983          6,0,6,6,9;                                        3011/2                                  
          98984          1,1,1,1,8;                                                                                
          98985          1,1,1,1,9;                                                                                
          98986          1,1,1,1,9;                                                                                
          98987          1,1,1,1,9;                                                                                
          98988          1,0,1,6,49;                                                                               
          98989          1,1,1,1,9;                                                                                
          98990          1,1,0,0,9;                                                                                
          98991          0,1,1,1,9;                                                                                
          98992          1,1,1,1,9;                                                                                
          98993          1,0,1,0,8;                                        3012/2                                  
          98994          1,0,1,1,8;                                        3013/2 3014/6                           
          98995          0,0,1,1,1;                                                                                
          98996          0,1,0,0,9;                                                                                
          98997          0,6,6,6,54;                                                                               
          98998          0,1,1,1,9;                                        3015/1                                  
          98999          1,0,1,1,8;                                                                                
                                                                                                                   
          99000    CONST   990       990     0                                                                     
          99002          (B5)1(B3)0(B3)1(B3)1(B6)9;                                                                
          99003          1,0,1,0,9;                                                                                
          99004          1,1,0,0,0;                                        3016/3                                  
          99005          1,0,1,0,1;                                        3017/4                                  
          99006          1,1,1,0,11;                                                                               
          99007          0,1,1,6,54;                                                                               
          99008          1,1,0,1,1;                                                                                
          99009          0,1,1,0,8;                                                                                
          99010          0,1,1,1,0;                                                                                
          99011          1,0,0,1,54;                                       3018/2                                  
          99012          3,0,1,0,8;                                        3019/6                                  
          99013          0,1,1,1,1;                                                                                
          99014          (B5)1(B3)1(B3)0(B3)1(B6)1;                                                                
          99015          1,0,1,0,1;                                                                                
          99016          0,0,0,0,0;                                                                                
          99017          0,0,0,6,54;                                                                               
          99018          0,0,0,0,0;                                        3020/1                                  
          99019          0,0,0,0,0;                                                                                
  Source image: P1000821.JPG
          99020          0,0,0,0,0;                                                                                
          99021          (B5)0(B3)0(B3)0(B3)0(B6)0;                                                                
          99022          0,0,0,0,0;                                                                                
          99023          0,0,0,0,0;                                        3021/5                                  
          99024          0,0,0,0,0;                                                                                
          99025          0,0,0,0,0;                                                                                
          99026          0,0,0,0,0;                                                                                
          99027          0,0,0,0,0;                                                                                
          99028          0,0,0,0,0;                                                                                
          99029          0,0,0,0,0;                                                                                
                                                                                                                   
          99100    CONST   991       991     0    FIRST LEVEL PARAS PASS C CONTD                                   
          99102          (B5)0(B3)0(B3)0(B3)0(B6)0;                                                                
          99103          0,0,0,0,0;                                                                                
          99104          0,0,0,0,0;                                        3022/5                                  
          99105          0,0,0,0,0;                                                                                
          99106          2,0,2,0,16;                                       3023/1+3024/5                           
          99107          2,0,2,0,16;                                                                               
          99108          2,0,2,0,16;                                                                               
          99109          2,0,2,0,16;                                                                               
          99110          2,0,2,0,16;                                                                               
          99111          2,0,2,0,16;                                                                               
          99112          2,0,2,0,16;                                                                               
          99113          2,0,2,0,16;                                                                               
          99114          2,0,2,0,16;                                                                               
          99115          2,0,2,0,16;                                       3025/4                                  
          99116          2,0,2,0,16;                                                                               
          99117          2,0,2,0,16;                                                                               
          99118          2,0,2,0,16;                                                                               
          99119          2,0,2,0,16;                                                                               
          99120          2,0,2,0,16;                                       3026/2                                  
          99121          2,0,2,0,16;                                                                               
          99122          2,0,2,0,16;                                                                               
          99123          2,0,2,0,16;                                                                               
          99124          2,0,2,0,16;                                                                               
          99125          2,0,2,0,16;                                                                               
          99126          2,0,2,0,16;                                                                               
          99127          2,0,2,0,16;                                                                               
          99128          2,0,2,0,62;                                                                               
                                                                                                                   
          99200    CONST   992       992     0    SECOND LEVEL PARAS                                               
          99202          (B8)40(B6)45(B6)49;                               PASS 2                                  
          99203          42,24,62;                                                                                 
          99204          42,62,63;                                         PASS 3                                  
                                                                                                                   
          99300    CONST   993       993     1    BLISTER SPACE                                                    
          99302          (D)0;                                                                                     
          99304          0;                                                                                        
          99306          0;                                                                                        
          99308          0;                                                                                        
          99310          0;                                                                                        
          99312          0;                                                                                        
          99314          0;                                                                                        
          99316          0;                                                                                        
          99318          0;                                                                                        
          99320          0;                                                                                        
          99322          0;                                                                                        
          99324          0;                                                                                        
          99326          0;                                                                                        
          99328          0;                                                                                        
                                                                                                                   
  Source image: P1000999.JPG
          99400    PROCR   994       994     CHAPTER 9                                                             
                                                                                                                   
          99500    PROCR   995       995     CHAPTER 10                                                            
                                                                                                                   
          99600     END
 
 
 
 
 
 
 
 
 
 
 PROGRAMME   08000   SERIAL     801               CHAPS  3   FILES  5      TRAN.  AREAS  5
 
    F.PT.   NO       MOD.  GP.  YES       PRIORITY  3       ENTRY= CH2/  41
 
    SIZE  OF  CHAPS   2574    7368     992       0       0       0       0
 
 FILE  ID.      RTE.  TYPE      START  LOCN.      ALT.ROUTES    BLOCK  SIZE          CHAPT
         D1              14              598            NO             394               3
         B1              15             6806            NO              58               2
         A1               7             6864            NO             154               2
         A2               8             7018            NO             154               2
         A6               7             7172            NO             154               2
 TRAN.  AREAS  START  LOCN.       CHAPT       SIZE
        10            204             3        394
         5           6286             2         58
         7           6344             2        154
         8           6498             2        154
         9           6652             2        154
  SECTION.START
    1=5234    2=  64    3=2524    4=2572    5=6286    6=2672    7=6344    8=6498    9=6652   10= 204   11=4946   12=  50
   13=4966   14=6286   15=5038   16=4998   17=3572   18=  74   19=4122   20= 330   21=4582   22=3672   23=6156   24=5138
   25=6204   26=3040   27=6266   28=5280   29=5326   30=5550   31=5568   32=5590   40=6246   52=1080   53=5506   54=5760
   55=5920   61=5234   62= 110   63=  50   66=5206   67=5230   70=5550   71=5386   72=5354   77=5506   91=6008   92=5970
   93= 170   94=5406   95=6056   97= 620   98=6044   99=6106
SWITCHES
  129= CH2/7326  252= CH2/7327  191= CH2/7328  108= CH2/7329  214= CH2/7330  217= CH2/7331  227= CH2/7332  263= CH2/7333
  267= CH2/7334  278= CH2/7335  352= CH2/7336  372= CH2/7337  381= CH2/7338  458= CH2/7339  100= CH2/7340  695= CH2/7341
  511= CH2/7342  514= CH2/7343  153= CH2/7344  785= CH2/7345  781= CH2/7346  786= CH2/7347  830= CH2/7348  780= CH2/7349
  849= CH2/7350  787= CH2/7351  826= CH2/7352
ITEM+ CTRS
MR'S 4-20
    8= CH2/7354    4= CH2/7356    6= CH2/7358    5= CH2/7360   19= CH2/7362   20= CH2/7364   12= CH2/7366
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    44    2       0  0  3     0    2       1  1  3     2    0
   36       0  0  2    60    2      25  1  1  4096    0      24  0  3     0    2      23  0  2     0 1024
   40       0  1  1    44    2      24  0  3     3    2      24  1  0    41    0       0  0  0     0    0
  SECTION  1012
   44           0       0                0       0                0       0                0       0
   48           0       0                0       0                0       0                0       0
   52           0       0                0       0                0       0                0       0
   56           0       0                0       0                0       0                0       0
  SECTION  1013
   60           2       0                0       0                0       0                0       0
  SECTION  1014
 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  2404    4       0  0  3     0    4       1  1  3     3    0
   36       0  0  2  2508    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2404    4
 PROCEDURE  102
   41                                0  0  3  2509    4      25  1  1  4096    0      23  0  2    44    4
   44       0  0  0     0    0       2  1  0  2192    4       2  1  0  6266    4       2  1  0  6268    4
   48       2  1  0  6270    4       2  1  0  6272    4       2  0  0  6277    4       2  0  0  6279    4
   52       2  0  0  7347    4      23  0  3  1430    4      18  0  1     4    0       1  0  1    16    0
   56      14  0  0  1325    4      14  0  0  1326    4      14  0  0  1327    4      25  0  3     0    0
   60      24  1  0   128    4      24  0  3     5    4       6  0  0    34    0      18  0  1  4124    0
   64       2  1  0  6274    4      24  0  3     5    4       6  0  0    36    0      18  0  1  4124    0
   68       1  1  2     4    0       2  0  0  6276    4       6  0  0  1417    4       2  0  0  1409    4
   72       6  1  0  2193    4      27  0  0   140    4       6  0  0  2192    4       2  0  0    31    4
   76       1  1  3     7    0      26  0  0   141    4      27  0  0    85    4       1  1  3     8    0
   80      26  0  0   141    4      27  0  0    85    4       1  1  3    11    0      26  0  0   141    4
   84      27  0  1   163    4       6  0  0     0    4       2  0  0  7351    4       1  1  3     1    0
   88       2  0  0  6275    4      24  0  3     0    4       6  0  0     4   22       1  1  2    64    0
   92       3  0  0     7    4      18  0  3     1    0      18  1  1  4127    0       2  0  0  1404    4
   96      18  1  3     3    0       2  0  0  1449    4       6  0  0  1404    4      26  0  0  1845    4
  100       2  0  0  2192    4       0  0  3  2509    4       6  0  0  6275    4      27  0  0   174    4
  104      24  0  3     5    4      24  0  3    32    0      24  0  3    16    0       1  1  3     0    0
  108       4  0  0     7    4       2  0  0  1839    4      24  0  3  1839    4       2  0  0     0    0
  112      24  0  3     5    4      24  0  3    32    0       6  0  0    22    0       4  0  0     7    4
  116       2  0  0   141    4      24  0  3     5    4      24  0  3    32    0       6  0  0    21    0
  120      27  0  0   174    4       6  0  0    31    4       1  1  2    88    0      27  0  1   161    4
  124       1  1  3     1    0      24  0  3   141    4       2  0  0     0    0      24  1  0   174    4
  128      24  0  3     0    4       6  0  0     6   22      27  0  0   134    4       6  0  0  6275    4
  132      27  0  1   140    4      24  1  0    74    4       6  0  0  6275    4      27  0  0   140    4
  136       6  0  0  6274    4      26  0  0   141    4      27  0  1   163    4      24  1  0    88    4
  140      26  0  3  1325    4
 PROCEDURE  103
  141                                0  0  0     0    0       2  0  0  1792    4      26  1  2  2418    4
  144       6  0  0  1792    4      24  0  3     0    4       5  0  2     0    0      27  0  0   160    4
  148      25  0  2     1    0      24  1  0   144    4       6  0  0     9    4       1  1  2    24    0
  152      27  0  3   160    4      26  1  2  2420    4      24  0  3     0    4       6  0  2     0    0
  156       5  0  0  1792    4      27  0  0   160    4      25  0  2     1    0      24  1  0   154    4
  160      26  0  1   141    4       1  1  3     0    0      24  1  0   125    4
 PROCEDURE  104
  163                                                                                 26  0  3  1326    4
  164       1  1  3    16    0       0  0  2  2510    4      25  1  1  4096    0      24  0  3     0    4
  168      26  0  2     0  512       0  0  0  1761    3       0  0  0   172    3       0  0  0   231    3
  172       6  1  0  2192    4      24  1  0    41    4      24  0  3     5    4       6  0  0    34    0
  176      18  1  1  4124    0       2  0  0  1839    4      18  1  1     2    0       1  1  3     0    0
  180      18  1  1     2    0       2  0  0  1845    4      24  0  3     5    4      24  0  3    32    0
  184      24  0  3    12    0       1  1  3     0    0       0  0  2  1845    4      15  0  0  2246    4
  188       2  0  0  1404    4
 PROCEDURE  105
  189                                1  1  1   128    0       6  0  0   189    4      24  0  3     5    4
  192      24  0  3    32    0       4  0  0    32    0       3  0  0   211    4       2  0  0   218    4
  196      24  0  3  1404    4       6  0  0     0    0       5  0  0  1845    4      27  0  1   202    4
  200      24  0  3  1404    4       2  1  0     0    0      24  0  3  1845    4       6  0  0    64    0
  204      24  0  3     7    4       2  0  0    64    0       6  0  0  1839    4      24  0  3  1845    4
  208       2  0  0    64    0       6  0  0  1792    4      18  0  1     2    0       1  1  1   128    0
  212      18  0  1     2    0       4  0  0     7    4      24  0  3     5    4       2  0  0    34    0
  216       6  0  0     7    4      18  0  1     2    0       1  1  1   128    0      24  0  3     5    4
  220       2  0  0    35    0      26  0  3  1327    4      24  0  2  2264    4      28  1  2  2524    4
  224       0  1  0  2404    4       0  0  3     0    4      24  0  2  2524    4      25  1  1  4096    0
  228      24  0  3     0    4      23  0  2     0 1280       0  1  1  2404    4       0  0  3  2509    4
  232      26  0  0  1535    4       6  0  0  6276    4       1  1  1    14    0       0  1  2  2220    4
  236      26  0  0  1404    4       6  1  0  2422    4      28  1  1  2524    4       6  1  0  2424    4
  240      28  1  1  5354    4      26  0  0  1819    4      24  1  2    15    4       6  1  0     0    0
  244       5  1  0  2194    4       3  1  0  2194    4      27  0  1   347    4       0  1  0  2404    4
  248       0  0  3     0    4       0  1  2  2426    4       6  1  0  2428    4       4  0  0    11    4
  252      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  2408    4
  256      26  0  0  1492    4       1  1  3    99    0       2  0  0  5451    4      26  0  0  1819    4
  260      27  0  0  1341    4      24  1  2    15    4       6  1  0     0    0       5  1  0  2222    4
  264      27  0  1   271    4       1  1  3     1    0       2  0  0  6277    4      26  0  0  1492    4
  268      26  0  0  1819    4      27  0  0  1341    4      24  1  0   267    4       6  1  0  2430    4
  272      28  1  1  2572    4       6  0  0  6276    4       1  1  2     1    0      27  0  0   280    4
  276      24  0  2  2282    4      24  1  2    15    4      28  0  2     4    0      24  1  0   283    4
  280      24  0  2  2282    4      24  1  2    15    4      28  0  3     0    0       6  1  0  2578    4
  284       5  1  0  2196    4      27  0  1   288    4       3  0  0  2240    4      24  1  0   298    4
  288       6  1  0  2578    4       5  1  0  2198    4      27  0  0   297    4       6  1  0  2578    4
  292       5  1  0  2200    4      27  0  1   341    4       0  0  2  2588    4      15  0  0  2152    4
  296      27  0  0   298    4       1  1  3     1    0       2  0  0  3572    4       0  0  3  2509    4
  300       1  1  3     1    0       7  0  0  5451    4       0  0  3  2511    4
 PROCEDURE  106
  303                                                                                  6  1  0  2580    4
  304       1  1  2   256    0      27  0  3   344    4       1  1  2  2201    0      27  0  2   344    4
  308       6  1  0  2580    4      26  0  0  1839    4       1  1  2   100    0      18  1  3     3    0
  312      18  1  1  4127    0       2  1  0  3580    4      27  1  0   317    4       1  1  3    10    0
  316       2  0  0  3581    4       6  0  0  5451    4       0  0  2  2218    4      24  0  1  3581    4
  320      18  1  3     0    0       2  0  0  1839    4      24  0  1  3580    4      15  0  0  3672    4
  324      27  0  1   344    4       6  0  0  1839    4      24  0  1  3580    4      14  0  0  3672    4
  328       0  0  3  2509    4       6  0  0  5451    4       1  0  1     0    0      18  1  1  4119    0
  332      13  0  0  2512    4       2  0  0  3582    4      18  1  1     9    0       2  0  0  3581    4
  336       6  0  0  3572    4      24  0  1  3581    4      18  0  3     0    0      24  0  1  3582    4
  340       7  0  0  5401    4      26  0  0  1492    4       0  0  3  2511    4      24  1  0   259    4
  344       1  1  3     1    0       2  1  0  3589    4      24  1  0   328    4
 PROCEDURE  107
  347                                                                                 24  1  2    15    4
  348       6  1  0     0    0       5  1  0  2202    4      27  0  0   369    4      24  1  2    15    4
  352       6  1  0     0    0       5  1  0  2222    4      27  0  0  1851    4       1  1  3     3    0
  356       0  0  2  2508    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
  360       0  0  0  1761    3       0  0  0   362    3       6  0  0  6275    4       4  1  0  2432    4
  364       3  1  0  2404    4      26  1  3  2404    4      26  0  0  1535    4      24  0  3     1    4
  368      24  1  0    33    0      26  0  0  2005    4       0  1  0  2404    4       0  0  3     0    4
  372       0  1  2  2426    4       6  1  0  2428    4       4  0  0    11    4      25  1  1  4096    0
  376      24  0  3     0    4      23  0  2     0  256       0  0  3  2408    4       6  1  0  2434    4
  380      24  1  2    21    4      28  1  1     4    0       3  1  0  2404    4      26  1  3  2404    4
  384      26  0  0  1492    4      24  1  2    13    4       6  1  0    14    0       5  1  0  2436    4
  388      27  0  1   395    4      24  1  2    13    4       2  1  0    12    0      24  1  2    13    4
  392       2  1  0    14    0      24  1  2    13    4       2  1  0    16    0      24  1  2    13    4
  396       6  1  0    17    0       2  0  0  6267    4      24  1  2    13    4       6  1  0    15    0
  400       2  0  0  6268    4      24  1  2    13    4       6  1  0    13    0       3  0  0  6266    4
  404      27  0  1   711    4      26  0  0  1764    4       6  0  0  6267    4      27  0  0   411    4
  408      24  1  2    13    4       6  1  0    12    0      24  1  0   413    4      24  1  2    13    4
  412       6  1  0    10    0       5  1  0  2196    4      27  0  0   421    4       4  1  0  2196    4
  416       5  1  0  2198    4      27  0  0   421    4       4  1  0  2198    4       5  1  0  2200    4
  420      27  0  1   405    4       6  0  0  6267    4      27  0  0   432    4       0  1  0  2404    4
  424       0  0  3     0    4      24  1  2    13    4      24  0  2     6    0       3  0  0  7354    4
  428      24  1  2    13    4       4  1  0     5    0       2  0  0  7355    4       0  1  1  2404    4
  432       6  0  0  6267    4      27  0  0   437    4      24  0  3  7354    4       6  1  0     6    0
  436      24  1  0   439    4      24  1  2    13    4       6  1  0    10    0       5  1  0  2210    4
  440      27  0  0   570    4       4  1  0  2210    4       5  1  0  2196    4      27  0  0   481    4
  444       4  1  0  2196    4       5  1  0  2198    4      27  0  0   480    4       4  1  0  2198    4
  448       5  1  0  2200    4      27  0  0   469    4       4  1  0  2200    4       5  1  0  2206    4
  452      27  0  0   561    4       4  1  0  2206    4       5  1  0  2208    4      27  0  0   561    4
  456       4  1  0  2208    4       5  1  0  2438    4      27  0  1   539    4       6  0  0  6267    4
  460      27  0  0   464    4      24  0  3  7354    4       6  1  0     5    0      24  1  0   466    4
  464      24  1  2    13    4       6  1  0     7    0      27  0  0   539    4      25  0  3     1    0
  468      24  1  0   539    4
 PROCEDURE  108
  469                                6  0  0  6267    4      27  0  0   474    4      24  0  3  7354    4
  472       0  1  2    15    0      24  1  0   476    4      24  1  2    13    4       0  1  2    21    0
  476       1  1  3     0    0      18  1  1  4124    0      15  0  0  2152    4      27  0  0   481    4
  480       1  1  3     1    0       2  0  0  2569    4       0  0  3  2511    4       1  1  3     1    0
  484       7  0  0  3582    4       6  0  0  3582    4       1  1  1   153    0      26  0  0  1839    4
  488       3  0  3  2672    4      25  0  3     1    0      24  1  0   491    4       1  0  1     0    0
  492      18  1  1  4119    0      13  0  0  2512    4       2  1  0  2192    4      26  1  1  2192    4
  496      18  1  1     9    0       2  0  0  2570    4       6  0  0  2569    4      24  0  1  2570    4
  500      18  0  3     0    0       7  0  1  2519    4       6  0  0  6268    4      27  0  1   539    4
  504       6  0  0  2574    4       0  0  2  2576    4      27  1  0   539    4       6  0  0  6267    4
  508      27  0  0   512    4      24  0  3  7354    4       6  1  0     5    0      24  1  0   514    4
  512      24  1  2    13    4       6  1  0     7    0      18  0  1  4126    0      26  0  0  1839    4
  516       2  0  0  1845    4       6  0  0  6267    4      27  0  0   522    4      24  0  3  7354    4
  520       6  1  0    11    0      24  1  0   524    4      24  1  2    13    4       6  1  0    17    0
  524      18  0  1  4126    0      27  0  0   539    4      26  0  0  1839    4      18  1  3     3    0
  528      18  1  1  4127    0      24  0  3     0    4       2  0  0     4   22      27  1  0   536    4
  532       0  0  2  2218    4       6  0  0  1845    4      18  1  3    10    0      24  1  0   538    4
  536       0  0  2  2218    4       6  0  0  1845    4      14  0  2  5456    4       6  0  0  6267    4
  540      27  0  0   559    4      24  0  3  7354    4       6  1  0     1    0       2  0  0  1764    4
  544      24  0  1  1764    4      23  0  0     0    0       0  0  0  7354    3      24  1  0   432    4
  548      26  0  0  1764    4       0  1  0  2404    4       0  0  3     0    4      24  1  2    13    4
  552      24  0  2     6    0       3  0  0  7354    4      24  1  2    13    4       4  1  0     5    0
  556       2  0  0  7355    4       0  1  1  2404    4      24  1  0   432    4      26  0  0  1764    4
  560      24  1  0   432    4
 PROCEDURE  109
  561                               24  1  2    13    4       6  1  0     7    0       2  0  0  2569    4
  564      26  0  0  1764    4      24  1  2    13    4       6  1  0    10    0       5  1  0  2210    4
  568      27  0  1   564    4      24  1  0   578    4       6  0  0  6267    4      27  0  0   575    4
  572      24  0  3  7354    4       6  1  0     5    0      24  1  0   577    4      24  1  2    13    4
  576       6  1  0     7    0       2  0  0  2569    4       6  0  0  2569    4      27  0  1   585    4
  580       0  0  3  2511    4       6  0  0  3582    4       1  1  1   256    0      18  0  1     2    0
  584       3  0  0  2569    4       2  0  0  3593    4       0  0  3  2511    4       1  0  1     3    0
  588      15  0  0  2569    4      27  0  0   591    4       1  1  3   256    0       4  0  0  2569    4
  592      18  0  1  4126    0      26  0  0  1839    4       2  0  0  2569    4       6  0  0  3582    4
  596       1  1  1   256    0      26  0  0  1839    4       2  0  0  5451    4       6  0  0  6268    4
  600      27  0  1   678    4      26  1  3  2440    4      26  1  2  2442    4      26  0  0  1786    4
  604       6  0  0  2574    4       0  0  2  2576    4      27  1  1   614    4      24  1  2    13    4
  608       6  1  2     5    0      18  1  3     2    0      18  1  1  4125    0       2  0  3  2673    4
  612      18  1  3    10    0       2  0  3  2672    4      25  0  3     2    0      24  1  0   603    4
  616       6  0  0  2574    4       0  0  2  2576    4      27  1  1   622    4       1  1  3     1    0
  620       2  0  0  6268    4      24  1  0   678    4       6  0  0  3582    4       1  1  2  1280    0
  624      27  0  3   648    4       0  1  0  2404    4       0  0  3     0    4       6  1  0  2444    4
  628       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  632       0  1  1  2404    4       0  1  0  2404    4       0  0  3     0    4       6  1  0  2446    4
  636       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  640       0  1  1  2404    4       1  1  3     9    0       0  0  2  2508    4      25  1  1  4096    0
  644      24  0  3     0    4      26  0  2     0  512       0  0  0  1761    3       0  0  0   362    3
 PROCEDURE  110
  648      26  1  1  2448    4      26  1  3  2450    4      26  0  0  1786    4      24  1  2    13    4
  652       6  1  2     5    0       2  0  1  5760    4      25  0  1     1    0      24  1  0   656    4
  656      25  0  3     1    0      24  1  0   650    4      26  0  0  1786    4      24  1  2    13    4
  660       6  1  2     5    0      27  0  1   625    4      25  0  1     1    0      24  1  0   658    4
  664      26  1  3  2452    4      26  1  1  2454    4      26  0  0  1786    4      24  1  2    13    4
  668       6  1  2     5    0       2  0  1  5920    4      25  0  1     1    0      24  1  0   672    4
  672      25  0  3     1    0      24  1  0   666    4      26  0  0  1786    4      24  1  2    13    4
  676       6  1  2     5    0      27  0  1   625    4       0  1  0  2404    4       0  0  3     0    4
  680       0  1  2  2456    4       6  1  0  2458    4       4  0  0     9    4      25  1  1  4096    0
  684      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4      26  0  0  1764    4
  688      24  1  2    13    4       6  1  0     6    0       5  1  0  2212    4      27  0  0   709    4
  692      24  1  2    13    4       6  1  0     5    0       5  0  0  2574    4      27  0  1   700    4
  696      24  1  2    13    4       6  1  0     7    0       5  0  0  2576    4      27  0  0   739    4
  700       0  1  0  2404    4       0  0  3     0    4       6  1  0  2446    4       4  0  0     9    4
  704      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4
  708      26  0  0  1775    4      26  0  0  1680    4      24  1  0   739    4
 PROCEDURE  111
  711                                                                                 26  1  1  2460    4
  712      26  0  0  1764    4      24  1  2    13    4      24  0  2     5    0      18  1  1  4123    0
  716       1  1  3    46    0      18  1  1     5    0      24  0  0    23    4      28  1  0  2524    4
  720      25  0  1    23    0      24  1  0   712    4       6  0  0  2569    4      26  0  0  1845    4
  724      18  0  1     2    0       2  0  0  3593    4       0  0  3  2509    4       6  0  0  2569    4
  728      18  0  1     5    0       1  1  1   100    0       3  1  0  2404    4      26  1  1  2404    4
  732       1  1  3   100    0       3  0  1  2572    4       1  1  1     1    0      25  0  1     1    0
  736      24  1  0   733    4       6  0  0  2569    4       2  0  0  5451    4      24  0  2  2250    4
  740      24  0  3     1    4      28  1  2    74    0       0  1  0  2404    4       0  0  3     0    4
  744      24  0  3     1    4      24  0  2    74    0      25  1  1  4096    0      24  0  3     0    4
  748      23  0  2     0 1280       0  1  1  2404    4
 PROCEDURE  112
  750                                                        26  0  0  1420    4      27  0  0   754    4
  752      26  0  0  1492    4      24  1  0   750    4       6  0  0  2513    4       3  0  0  3582    4
  756       2  0  0  3586    4       6  0  0  2575    4      18  0  1  4125    0       1  1  2    91    0
  760      27  0  0   752    4       6  1  0  3600    4      27  0  1   782    4       1  1  3     1    0
  764       2  1  0  3588    4      26  0  0  1530    4      24  1  0   763    4
 PROCEDURE  113
  767                                                                                 26  0  0  1819    4
  768      27  0  0  1260    4      24  1  2    15    4       6  1  0     0    0       5  1  0  2222    4
  772      27  0  1   779    4       1  1  3     1    0       2  0  0  6277    4      26  0  0  1492    4
  776      26  0  0  1819    4      27  0  1   775    4      24  1  0  1260    4      26  0  0  1514    4
  780      26  0  0  1449    4      27  0  1  1070    4       0  0  3  2511    4       6  0  0  3582    4
  784       5  1  0  2575    4      27  0  3   790    4      27  0  1  1140    4       6  0  0  3584    4
  788       1  1  2     3    0      27  0  1  1140    4       6  0  0  3593    4       5  1  0  2575    4
  792      27  0  2   797    4       1  1  3     1    0       2  1  0  3588    4      26  0  0  1530    4
  796      24  1  0   793    4      27  0  1   802    4       6  0  0  7326    4       1  1  2     3    0
  800      27  0  1   793    4      24  1  0  1044    4       6  1  0  2575    4      18  0  1  4126    0
  804      26  0  0  1839    4       2  0  0  1845    4      24  0  1  1845    4       6  0  0  2572    4
  808      27  0  0  1140    4      24  0  1  7326    4      26  0  1   810    4       0  0  0   986    3
  812       0  0  0   815    3       0  0  0  1039    3       0  0  0  1014    3
 PROCEDURE  114
  815                                                                                 26  0  0  1472    4
  816       2  0  0  3572    4       1  0  1     3    0      15  1  0  2575    4       1  1  2     1    0
  820      27  0  0   825    4       1  1  3     0    0       0  0  2  3572    4      15  1  0  2575    4
  824      27  0  1  1140    4       6  1  0  2575    4       3  0  0  3586    4      18  0  1     8    0
  828      27  0  0   832    4       6  0  0  3575    4       1  1  2   460    0      27  0  0  1140    4
  832      26  0  0  1492    4      26  0  0  1819    4      27  0  0   842    4      24  1  2    15    4
  836       6  1  0     0    0       5  1  0  2222    4      27  0  0   842    4      26  0  0  1514    4
  840      26  0  0  1449    4      27  0  1   877    4
 PROCEDURE  115
  842                                                         6  0  0  3586    4       3  0  0  3582    4
  844      18  0  1     8    0      27  0  1   848    4       6  0  0  3586    4      24  1  0   894    4
  848      18  0  1  4120    0       1  1  2     1    0      27  0  0   866    4       1  1  3     0    0
  852       5  0  0  3572    4       1  1  2     1    0       2  0  0  3587    4       6  0  0  3586    4
  856      18  1  1  4126    0       2  0  0  3591    4       6  0  0  3586    4       5  0  0  3587    4
  860       2  0  0  3586    4       6  0  0  3586    4      18  1  1  4126    0       5  0  0  3591    4
  864      27  0  1   866    4      26  0  0  1792    4      24  1  2    15    4       6  1  0     0    0
  868      18  0  1  4124    0      18  0  1     4    0       5  1  0  2210    4      27  0  0  1260    4
  872      24  1  2    15    4       6  1  0     0    0       5  1  0  2222    4      27  0  0   773    4
  876      24  1  0   782    4
 PROCEDURE  116
  877                                6  1  0  2575    4      18  0  1  4126    0      26  0  0  1839    4
  880       2  0  0  1845    4      24  0  1  1845    4       6  0  0  2572    4      27  0  0  1140    4
  884      26  0  0  1472    4       2  0  0  3572    4       0  0  2  3572    4      15  1  0  2575    4
  888      27  0  1  1140    4       6  0  0  3586    4       5  1  0  2575    4      27  0  2  1140    4
  892       6  1  0  2575    4       3  0  0  3582    4      18  1  1  4126    0       2  0  0  3587    4
  896       6  0  0  3586    4      18  1  1  4126    0       3  0  0  3591    4       5  0  0  3587    4
  900      27  0  0   905    4       6  0  0  3586    4      18  0  1     8    0      27  0  0   927    4
  904      24  1  0  1140    4      18  1  1     2    0      27  0  0   927    4       6  0  0  3586    4
  908      18  0  1     8    0      18  0  1  4120    0       1  1  2     1    0      27  0  0  1140    4
  912       6  0  0  3586    4       5  1  0  2575    4       5  0  0  3572    4       1  1  2     1    0
  916       2  0  0  3587    4       6  0  0  3586    4       5  0  0  3587    4       2  0  0  3586    4
  920       6  0  0  3586    4      18  0  1  4126    0       5  0  0  3591    4      27  0  1   925    4
  924      26  0  0  1792    4      26  0  0  1492    4      24  1  0   767    4
 PROCEDURE  117
  927                                                                                  6  0  0  3587    4
  928      26  0  0  1839    4       1  1  1     1    0       5  0  0  2569    4      27  0  3   933    4
  932       1  1  3     0    0       4  0  0  2569    4       2  0  0  3587    4       6  0  0  3591    4
  936      26  0  0  1839    4       2  0  0  3591    4       6  0  0  3586    4      18  0  1     8    0
  940      27  0  0   943    4       1  1  3     1    0       7  0  0  3591    4       6  0  0  3587    4
  944      18  0  1     5    0       4  0  0  3591    4       3  1  0  2404    4      26  1  1  2404    4
  948       1  1  3     0    0       2  0  0  3594    4       6  0  1  2572    4      27  0  1   954    4
  952       1  1  3     1    0       7  0  0  3594    4      25  0  1     1    0      24  1  0   950    4
  956       6  0  0  3587    4       5  0  0  3591    4       3  0  0  1839    4       4  0  0  2514    4
  960      18  0  1     5    0      24  0  1  3591    4      28  0  0  2572    4       6  0  0  2569    4
  964      18  0  1     5    0       4  0  0  3587    4       2  1  0  2192    4       5  0  0  1839    4
  968       4  0  0  3594    4       3  0  0  1845    4       7  0  0  5451    4      26  1  1  2192    4
  972      25  0  1     0    0      24  1  0   975    4      24  1  0   981    4       6  0  1  2572    4
  976      27  0  0   979    4       6  0  0  1845    4       7  0  1  2572    4      25  0  1     1    0
  980      24  1  0   975    4       0  0  3  2511    4       6  0  0  3582    4       5  0  0  3586    4
  984      27  0  0   866    4      24  1  0   925    4
 PROCEDURE  118
  986                                                         1  0  1     3    0       1  1  3     0    0
  988      15  1  0  2575    4      27  0  1  1014    4       6  1  0  2575    4      18  1  1  4126    0
  992      26  0  0  1839    4       5  0  0  2569    4      27  0  2  1024    4       6  1  0  2578    4
  996       5  1  0  2196    4      27  0  0  1008    4       6  1  0  2578    4       5  1  0  2198    4
 1000      27  0  0  1007    4       6  1  0  2578    4       5  1  0  2200    4      27  0  1  1140    4
 1004       0  0  2  2588    4      15  0  0  2152    4      27  0  0  1008    4       1  1  3     1    0
 1008       2  0  0  1845    4      26  0  0  1472    4       3  0  0  3572    4       5  0  0  1845    4
 1012      27  0  1  1140    4      24  1  0  1067    4      26  0  0  1472    4       2  0  0  3572    4
 1016       1  0  1     3    0      15  1  0  2575    4       1  1  2     1    0      27  0  0  1024    4
 1020       1  1  3     0    0       0  0  2  3572    4      15  1  0  2575    4      27  0  1  1140    4
 1024       6  1  0  2575    4       3  0  0  3586    4       3  0  0  3582    4      18  1  1  4126    0
 1028       2  0  0  3591    4       6  1  0  2578    4       5  1  0  2196    4      27  0  0  1140    4
 1032       6  1  0  2578    4       5  1  0  2198    4      27  0  0  1140    4       6  1  0  2578    4
 1036       5  1  0  2200    4      27  0  0  1140    4      24  1  0  1067    4
 PROCEDURE  119
 1039                                                                                 26  0  0  1472    4
 1040       2  0  0  3572    4       0  0  2  3572    4      15  1  0  2575    4      27  0  1  1140    4
 1044       6  1  0  2575    4       3  0  0  3582    4       2  0  0  3586    4       6  0  0  3582    4
 1048       3  0  0  3590    4      18  1  1  4126    0      26  0  0  1839    4       2  0  0  3579    4
 1052       6  0  0  3593    4       5  0  0  3590    4      27  0  1  1061    4       0  0  3  2511    4
 1056       6  0  0  3590    4       1  1  1   153    0      18  1  1  4126    0      26  0  0  1839    4
 1060       2  0  0  3579    4       6  1  0  2575    4      18  0  1     8    0      27  0  0  1067    4
 1064       6  0  0  3575    4       1  1  2   460    0      27  0  0  1140    4      26  0  0  1492    4
 1068      26  0  0  1420    4      27  0  0   782    4
 PROCEDURE  120
 1070                                                        24  0  1  7326    4      26  0  1  1071    4
 1072       0  0  0  1076    3       0  0  0  1140    3       0  0  0  1098    3       0  0  0  1076    3
 1076       0  0  3  2511    4       6  0  0  3572    4       1  1  1     1    0       7  0  0  3582    4
 1080       6  0  0  3582    4      18  1  1  4126    0       5  0  0  3591    4      27  0  1  1094    4
 1084       6  1  0  2578    4       5  1  0  2196    4      27  0  0  1140    4       6  1  0  2578    4
 1088       5  1  0  2198    4      27  0  0  1140    4       6  1  0  2578    4       5  1  0  2200    4
 1092      27  0  0  1140    4      24  1  0   925    4       6  0  0  2515    4       5  0  0  3572    4
 1096       7  0  0  3582    4      24  1  0  1140    4
 PROCEDURE  121
 1098                                                         6  1  0  2578    4       5  1  0  2196    4
 1100      27  0  0  1111    4       6  1  0  2578    4       5  1  0  2198    4      27  0  0  1110    4
 1104       6  1  0  2578    4       5  1  0  2200    4      27  0  1  1175    4       0  0  2  2588    4
 1108      15  0  0  2152    4      27  0  0  1111    4       1  1  3     1    0       2  0  0  3572    4
 1112       1  0  1     0    0       6  0  0  3590    4      18  1  1  4126    0       1  1  3     0    0
 1116      27  1  0  1128    4       6  0  0  3590    4       5  0  0  3593    4      27  0  0  1128    4
 1120       6  0  0  3582    4       5  0  0  3586    4      27  0  0  1140    4       2  0  0  3587    4
 1124       6  0  0  3582    4       2  0  0  3586    4      26  0  0  1792    4      24  1  0  1140    4
 1128       6  1  0  2580    4      26  0  0  1839    4      27  0  3  1140    4       3  0  0  3576    4
 1132       5  0  0  2569    4      27  0  3  1140    4       6  0  0  3576    4       1  1  2   999    0
 1136      27  0  2  1140    4      24  0  1  3576    4       6  0  0  2572    4      27  0  0  1144    4
 1140       1  1  3     1    0       2  1  0  3588    4      26  0  0  1530    4      24  1  0   782    4
 PROCEDURE  122
 1144       0  0  3  2509    4       6  0  0  2569    4      18  0  1     5    0       4  0  0  3579    4
 1148       3  1  0  2404    4      26  1  1  2404    4      25  0  1     0    0      24  1  0  1154    4
 1152       6  0  0  5451    4      24  1  0  1156    4      24  0  1  3579    4       6  0  0  2572    4
 1156       2  0  0  1550    4       1  1  3     1    0       7  0  0  5451    4       6  0  0  3572    4
 1160      18  0  1     4    0       4  0  0  1550    4      24  0  1  3576    4       2  0  0  2572    4
 1164      25  0  1     0    0      24  1  0  1167    4      24  1  0  1173    4       6  0  1  2572    4
 1168      27  0  0  1171    4       1  1  3     1    0       7  0  1  2572    4      25  0  1     1    0
 1172      24  1  0  1167    4       0  0  3  2511    4      24  1  0  1067    4
 PROCEDURE  123
 1175                                                                                  1  0  1     0    0
 1176       6  0  0  3590    4       5  0  0  2516    4      27  0  3  1140    4       6  0  0  3590    4
 1180      18  1  1  4126    0       1  1  3     0    0      27  1  0   925    4       6  1  0  2575    4
 1184      18  0  1  4126    0      26  0  0  1839    4       5  0  0  2569    4      27  0  3  1229    4
 1188       6  0  0  3574    4       1  1  2   100    0      27  0  2  1229    4       6  1  0  2575    4
 1192      24  0  1  3574    4       2  0  0  4582    4       1  0  1     3    0      15  0  0  3586    4
 1196       2  0  0  1680    4       6  0  0  3586    4      18  0  1  4126    0      26  0  0  1839    4
 1200       2  0  0  1819    4      24  0  1  1819    4       6  0  0  2572    4      26  0  0  1845    4
 1204       3  0  0  3591    4      18  0  1     2    0       4  0  0  1680    4       2  0  0  3578    4
 1208       6  0  0  3579    4       5  0  0  1819    4      27  0  0  1213    4       6  0  0  2515    4
 1212       7  0  0  3591    4      26  1  1  2448    4       6  0  1  4122    4      27  0  0  1223    4
 1216      18  0  1  4126    0       5  0  0  3591    4      27  0  1  1221    4       6  0  1  4123    4
 1220       7  0  0  3578    4      25  0  1     2    0      24  1  0  1214    4       0  0  3  2509    4
 1224       6  0  0  3578    4      24  0  1  3574    4       2  0  0  4583    4       1  1  3     2    0
 1228       7  0  0  3574    4       0  0  3  2511    4       6  0  0  3572    4       1  1  1     1    0
 1232       7  0  0  3586    4      26  0  0  1492    4      26  0  0  1819    4      27  0  0  1243    4
 1236      24  1  2    15    4       6  1  0     0    0       5  1  0  2222    4      27  0  0  1243    4
 1240      26  0  0  1514    4      26  0  0  1449    4      27  0  1  1070    4       6  0  0  3586    4
 1244       5  0  0  3582    4       2  0  0  3587    4       6  0  0  3582    4       2  0  0  3586    4
 1248      26  0  0  1792    4      24  1  2    15    4       6  1  0     0    0      18  0  1  4124    0
 1252      18  0  1     4    0       5  1  0  2210    4      27  0  0  1260    4      24  1  2    15    4
 1256       6  1  0     0    0       5  1  0  2222    4      27  0  0   773    4      27  0  1   782    4
 PROCEDURE  124
 1260       0  0  3  2509    4       6  1  0  2462    4      28  0  0  5406    4       6  0  0  2569    4
 1264      18  0  1     5    0       1  1  1   100    0       3  1  0  2404    4      26  1  1  2404    4
 1268      26  1  2  2464    4      26  1  3  2466    4       0  0  2  2152    4       6  0  1  2572    4
 1272      27  0  0  1290    4       1  1  3     0    0      15  0  2  2524    4      27  0  0  1290    4
 1276       0  1  0  3572    4       6  0  1  2572    4       1  0  1     0    0      18  1  1  4119    0
 1280      13  0  0  2512    4       2  0  0  2192    4      18  1  1     9    0       2  0  0  2193    4
 1284       1  1  3     1    0      24  0  1  2193    4      18  0  3     0    0      24  0  1  2192    4
 1288       7  0  0  5401    4       0  1  1  3572    4      18  1  3     1    0      25  0  1     1    0
 1292      24  1  0  1294    4      24  1  0  1298    4      25  0  3     1    0      24  1  0  1271    4
 1296      25  0  2     1    0      24  1  0  1269    4       1  1  3  1000    0      18  0  1     5    0
 1300       4  0  0  2569    4       3  1  0  2404    4      26  1  1  2404    4       6  0  1  2572    4
 1304      27  0  0  1320    4      18  1  1  4124    0      27  0  0  1320    4       1  1  3     0    0
 1308      18  1  1     4    0       1  0  1     0    0      18  1  1  4119    0      13  0  0  2512    4
 1312       2  1  0  2192    4      26  1  2  2192    4      18  1  1     9    0       2  0  0  3573    4
 1316       1  1  3     1    0      24  0  1  3573    4      18  0  3     0    0       7  0  2  5401    4
 1320      25  0  1     1    0      24  1  0  1303    4      24  1  0  1328    4
 PROCEDURE  125
 1323                                                                                 24  0  1  7326    4
 1324      26  0  1  1324    4       0  0  0   231    3       0  0  0   164    3       0  0  0   222    3
 1328      26  1  1  2468    4      26  1  2  2440    4       1  1  3     0    0       1  0  1    15    0
 1332      15  0  2  2673    4      18  0  3    10    0      15  0  2  2672    4       2  0  1  3672    4
 1336      25  0  1     1    0      24  1  0  1338    4      25  0  2     2    0      24  1  0  1332    4
 1340      24  1  0  1353    4       0  0  3  2509    4       6  0  0  2240    4      27  0  0  1351    4
 1344       1  1  3    17    0       0  0  2  2508    4      25  1  1  4096    0      24  0  3     0    4
 1348      26  0  2     0  512       0  0  0  1761    3       0  0  0   362    3       1  1  3     1    0
 1352       7  0  0  5451    4      26  0  0  1492    4       0  0  3  2509    4       6  0  0  6276    4
 1356       1  1  1    24    0      26  0  0  1404    4       0  1  0  2404    4       0  0  3     0    4
 1360       6  1  0  2470    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 1364      23  0  2     0  256       0  1  1  2404    4      24  0  2  3672    4      18  1  1  4123    0
 1368       1  1  3  1010    0      18  1  1     5    0      24  0  3     1    4      28  0  0    74    0
 1372      24  0  2  5406    4      18  1  1  4123    0       1  1  3    46    0      18  1  1     5    0
 1376      24  0  3     1    4      28  0  0  1084    0       3  1  0  2404    4      26  1  3  2404    4
 1380       3  1  0  2404    4      26  1  1  2404    4      26  0  0  1535    4       6  1  0  2194    4
 1384      27  0  0    33    4       0  1  0  2404    4       0  0  3     0    4       0  0  2  2517    4
 1388       6  1  0  2472    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 1392      23  0  2     0  256       0  1  1  2404    4       0  1  0  2404    4       0  0  3     0    4
 1396       0  0  2    16    4       6  1  0  2474    4       4  0  0     9    4      25  1  1  4096    0
 1400      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4      24  1  0    33    4
 PROCEDURE  126
 1404       0  0  0     0    0      18  0  1     5    0       4  0  0     8    4      25  1  1  4096    0
 1408      24  0  3     0    4      23  0  2   160    0      26  0  1  1404    4       0  1  0  2404    4
 1412       0  0  3     0    4       6  1  0  2476    4       4  0  0     9    4      25  1  1  4096    0
 1416      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4      26  0  3  1407    4
 PROCEDURE  127
 1420       0  0  0     0    0      26  0  0  1819    4      27  0  0  1260    4      24  1  2    15    4
 1424       6  1  0     0    0       5  1  0  2222    4      27  0  0   773    4      26  0  0  1514    4
 1428      26  0  0  1449    4      26  0  1  1420    4
 PROCEDURE  128
 1430                                                         0  0  0     0    0      24  1  2    13    4
 1432      24  0  2     4    0      18  1  1  4123    0       1  1  3   148    0      18  1  1     5    0
 1436      24  1  2    19    4      28  1  1     4    0       0  1  0  2404    4       0  0  3     0    4
 1440       0  0  2    18    4       6  1  0  2478    4       4  0  0    10    4      25  1  1  4096    0
 1444      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4      26  0  0  1764    4
 1448      26  0  1  1430    4
 PROCEDURE  129
 1449                                0  0  0     0    0       0  0  3  2511    4       0  1  2  2576    4
 1452       1  1  3     0    0      18  1  1     2    0       1  1  2   105    0      27  0  0  1465    4
 1456       1  1  1    21    0      27  0  0  1464    4       1  1  2    25    0      27  0  0  1463    4
 1460       1  1  1    34    0      27  0  1  1471    4       1  1  3     1    0       1  1  1     1    0
 1464       1  1  1     1    0       1  1  1     1    0       2  0  0  1472    4       6  0  0  7326    4
 1468       2  0  0  3584    4       6  0  0  1472    4       2  0  0  7326    4      26  0  1  1449    4
 PROCEDURE  130
 1472       0  0  0     0    0       6  1  0  2575    4      18  0  1  4126    0      26  0  0  1839    4
 1476       1  1  2   100    0       1  0  1     0    0      18  1  1  4119    0      13  0  0  2512    4
 1480       2  0  0  2192    4      18  1  1     9    0       2  0  0  2193    4       0  0  2  2152    4
 1484      24  0  1  2193    4      18  1  3     0    0      24  0  1  2192    4      15  0  0  2524    4
 1488      27  0  0  1490    4       1  1  3     1    0       0  0  3  2511    4      26  0  1  1472    4
 PROCEDURE  131
 1492       0  0  0     0    0      26  0  0  1550    4       6  1  0  2436    4      24  1  2    21    4
 1496       2  1  0    52    0       6  1  0  3588    4      24  1  2    21    4       2  1  0    50    0
 1500       0  1  0  2404    4       0  0  3     0    4       0  0  2    20    4       6  1  0  2478    4
 1504       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1508       0  1  1  2404    4       6  1  0  2434    4      24  1  2    21    4      28  1  1     4    0
 1512       2  1  0  3588    4      26  0  1  1492    4
 PROCEDURE  132
 1514                                                         0  0  0     0    0       1  1  3     0    0
 1516       2  1  0  2576    4       2  1  0  2588    4      24  0  1  6276    4      26  0  1  1519    4
 1520       0  0  0  1526    3       0  0  0  1522    3      24  0  2  2296    4      24  1  2    15    4
 1524      28  0  2     0    0      26  0  1  1514    4      24  0  2  2280    4      24  1  2    15    4
 1528      28  0  3     0    0      26  0  1  1514    4
 PROCEDURE  133
 1530                                                         0  0  0     0    0      26  0  0  1492    4
 1532      26  0  0  1420    4      27  0  1  1531    4      26  0  1  1530    4
 PROCEDURE  134
 1535                                                                                  0  0  0     0    0
 1536      25  1  1  4096    0      23  0  2  1539    4      26  0  1  1535    4       0  0  0     0    0
 1540      24  0  3     9    4       0  0  2    64    0      24  0  3     7    4       6  0  0    64    0
 1544      24  0  3     9    4       2  0  0    64    0      18  1  1    10    0      24  0  3     7    4
 1548       2  0  0    64    0      26  0  3  1539    4
 PROCEDURE  135
 1550                                                         0  0  0     0    0      24  0  1  6276    4
 1552      26  0  1  1552    4       0  0  0  1625    3       0  0  0  1555    3       1  1  3     0    0
 1556       2  0  0  1514    4      26  1  1  2480    4      26  1  2  2482    4       0  1  0  2404    4
 1560       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4
 1564       4  0  0     2   22       2  0  0  2410    4       0  1  1  2404    4      24  0  3  2410    4
 1568       0  1  2     0    0       1  1  3     0    0      18  1  1     2    0       1  1  2   126    0
 1572      27  0  0  1582    4      25  0  2  4098    0      24  1  0  1569    4      24  1  2    15    4
 1576       6  1  1     0    0      24  1  2    21    4       2  1  1     4    0      25  0  1     2    0
 1580      24  1  0  1558    4      26  0  1  1550    4       0  1  0  3594    4       0  0  3  2509    4
 1584      24  0  3     0    4       6  0  0     2   22       2  1  0  2410    4       0  0  2  2518    4
 1588      10  1  0  2410    4       2  1  0  2192    4      24  0  3     0    4       6  0  0     4   22
 1592       3  0  0  1680    4       1  0  1     1    0      14  0  0  2193    4       1  1  3    10    0
 1596       5  0  0  2193    4       7  0  0  2192    4       0  0  3  2511    4       1  0  1     3    0
 1600       1  1  3    94    0      24  0  1  1680    4      18  1  1     0    0      24  1  2    15    4
 1604      14  1  1     0    0       0  0  3  2509    4       6  0  0  1514    4       1  1  2    10    0
 1608      27  0  0  1623    4       6  0  0  1514    4       2  0  0  7356    4       6  0  0  2192    4
 1612       0  1  0  2404    4       0  0  3     0    4      24  1  2    21    4      24  0  2     0    0
 1616       4  0  0  7356    4       2  0  0  2410    4       0  1  1  2404    4      24  0  3  2410    4
 1620       2  1  0    37    0       1  1  3     2    0       7  0  0  1514    4       0  1  1  3594    4
 1624      24  1  0  1573    4      26  1  1  2484    4      26  1  2  2482    4       0  1  0  2404    4
 1628       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4
 1632       4  0  0     2   22       2  0  0  2410    4       0  1  1  2404    4      24  0  3  2410    4
 1636       0  1  2     0    0       1  1  3     0    0      18  1  1     2    0       1  1  2   126    0
 1640      27  0  0  1653    4      25  0  2  4098    0      24  1  0  1637    4      24  1  2    15    4
 1644       6  1  1     0    0      24  1  2    21    4       2  1  1     4    0      25  0  1     2    0
 1648      24  1  0  1626    4       1  1  3   126    0      24  1  2    21    4       2  1  0    46    0
 1652      24  1  0  1140    4      24  0  3     0    4       6  0  0     4   22       2  0  0  1680    4
 1656       1  0  1     3    0       1  1  3    94    0      24  0  1  1680    4      18  1  1     0    0
 1660      24  1  2    15    4      14  1  1     0    0      24  1  2    15    4       6  1  1     0    0
 1664      24  1  2    21    4       2  1  1     4    0       0  1  0  3594    4       0  0  3  2509    4
 1668      24  0  3     0    4       6  0  0     2   22       1  1  1     4    0      18  0  1     3    0
 1672      24  1  2    21    4       2  1  0    49    0       1  0  1     3    0      15  0  0  1680    4
 1676      24  1  2    21    4      14  1  0    49    0       0  0  3  3598    4      26  0  1  1550    4
 PROCEDURE  136
 1680       0  0  0     0    0      26  0  0  1764    4       0  0  3  2509    4      24  1  2    13    4
 1684       6  1  0     4    0       5  1  0  2214    4      27  0  0  1740    4      24  1  2    13    4
 1688       6  1  0     9    0       5  0  0  2519    4      27  0  1  1681    4      24  1  2    13    4
 1692       6  1  0    10    0       5  1  0  2204    4      27  0  0  1730    4      24  1  2    13    4
 1696       6  1  0     6    0       5  1  0  2212    4      27  0  1  1681    4      26  0  0  1764    4
 1700      26  1  1  2486    4      24  1  2    13    4       6  1  1     5    0       5  0  0  2170    4
 1704      27  0  1  1708    4       6  0  0  2242    4      27  0  0  1681    4      24  1  0  1740    4
 1708       4  0  0  2170    4       5  0  0  2574    4      27  0  1  1727    4      24  1  2    13    4
 1712       6  1  1     7    0       5  0  0  2576    4      27  0  1  1727    4      24  1  2    13    4
 1716       6  1  1     8    0       1  1  2    32    0      27  0  0  1727    4      24  1  2    13    4
 1720       6  1  1     9    0      27  0  0  1726    4      24  1  2    13    4       6  1  1    11    0
 1724       2  0  0  7347    4      24  1  0  1727    4       2  0  0  2242    4      25  0  1     8    0
 1728      24  1  0  1701    4      24  1  0  1699    4       0  0  3  2511    4      24  1  2    13    4
 1732       6  1  0     5    0       5  0  0  2574    4      27  0  1  1681    4      24  1  2    13    4
 1736       6  1  0     7    0       5  0  0  2576    4      27  0  1  1681    4      26  0  1  1680    4
 1740       0  1  0  2404    4       0  0  3     0    4       6  1  0  2444    4       4  0  0     9    4
 1744      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4
 1748       1  1  3     1    0       2  0  0  2242    4       2  0  0  7347    4       1  1  3     2    0
 1752       0  0  2  2510    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
 1756       0  0  0  1761    3       0  0  0  1759    3       0  0  0   362    3      26  0  0  1775    4
 1760      24  1  0  1681    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  768
 PROCEDURE  137
 1764       0  0  0     0    0       0  1  0  2404    4       0  0  3     0    4       0  0  2    12    4
 1768       6  1  0  2474    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 1772      23  0  2     0  256       0  1  1  2404    4      26  0  1  1764    4
 PROCEDURE  138
 1775                                                                                  0  0  0     0    0
 1776       0  1  0  2404    4       0  0  3     0    4       0  1  2  2488    4       6  1  0  2490    4
 1780       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1784       0  0  3  2408    4      26  0  1  1775    4
 PROCEDURE  139
 1786                                                         0  0  0     0    0      25  0  2     2    0
 1788      24  1  0  1791    4      26  0  0  1764    4      26  1  2  2460    4      26  0  1  1786    4
 PROCEDURE  140
 1792       0  0  0     0    0       6  0  0  3575    4       1  1  2   460    0      27  0  2  1818    4
 1796       1  1  3     0    0       1  0  1     3    0      15  0  0  3586    4       2  0  0  1680    4
 1800       6  0  0  3586    4      18  0  1  4126    0      26  0  0  1839    4       2  0  0  1819    4
 1804      24  0  1  1819    4       6  0  0  2572    4      26  0  0  1845    4      18  0  1     2    0
 1808       4  0  0  1680    4      24  0  1  3575    4       2  0  0  4122    4       6  0  0  3587    4
 1812      24  0  1  3575    4       2  0  0  4123    4       0  0  3  2509    4       1  1  3     2    0
 1816       7  0  0  3575    4       0  0  3  2511    4      26  0  1  1792    4
 PROCEDURE  141
 1819                                                                                  0  0  0     0    0
 1820       0  1  0  3594    4       0  0  3  2509    4       0  0  2    14    4       6  0  0  6276    4
 1824       1  1  1     4    0      26  0  0  1404    4       0  1  1  3594    4      24  1  2    15    4
 1828       6  1  0     0    0       5  1  0  2492    4      27  0  1  1833    4      26  0  0  1492    4
 1832      24  1  0  1820    4      24  1  2    15    4       6  1  0     0    0      18  0  1  4124    0
 1836      18  0  1     4    0       5  1  0  2210    4      26  0  1  1819    4
 PROCEDURE  142
 1839                                                                                  0  0  0     0    0
 1840       2  1  0  2192    4       0  0  3  2509    4      24  0  2  2172    4      12  1  0  2192    4
 1844      26  0  1  1839    4
 PROCEDURE  143
 1845                                0  0  0     0    0       2  1  0  2192    4       0  0  3  2511    4
 1848      24  0  2  2152    4      12  1  0  2192    4      26  0  1  1845    4
 PROCEDURE  144
 1851                                                                                 26  0  0  2005    4
 1852       0  1  0  2404    4       0  0  3     0    4       0  1  2  2426    4       6  1  0  2428    4
 1856       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1860       0  0  3  2408    4      24  1  2    13    4       6  1  0    13    0       2  0  0  6266    4
 1864       1  1  3     0    0      24  1  2    13    4       0  1  2    12    0      18  1  1     2    0
 1868       1  1  2    71    0      27  0  3   625    4      24  1  2    13    4       6  1  0    17    0
 1872       2  0  0  6267    4       6  1  0  2222    4       2  1  0  2202    4      24  0  2  2260    4
 1876      18  1  1  4123    0       1  1  3     4    0      18  1  1     5    0      28  1  1  2258    4
 1880      24  0  2  2250    4      24  0  3     1    4      28  1  2    74    0       0  1  0  2404    4
 1884       0  0  3     0    4      24  0  3     1    4      24  0  2    74    0      25  1  1  4096    0
 1888      24  0  3     0    4      23  0  2     0 1280       0  1  1  2404    4      26  0  0  1492    4
 1892      26  0  0  1819    4      27  0  1  1891    4      26  0  0  1492    4       0  1  0  2404    4
 1896       0  0  3     0    4       6  1  0  2470    4       4  0  0    11    4      25  1  1  4096    0
 1900      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4       0  0  3  2509    4
 1904       6  0  0  6276    4       1  1  1    24    0      26  0  0  1404    4       6  1  0  2494    4
 1908      24  1  2    19    4      28  1  1     4    0       0  1  0  2404    4       0  0  3     0    4
 1912       0  1  2  2496    4       6  1  0  2428    4       4  0  0    10    4      25  1  1  4096    0
 1916      24  0  3     0    4      23  0  2     0  256       0  0  3  2408    4      18  1  1    10    0
 1920       2  0  0  7344    4      26  0  0  2027    4      26  0  0  2027    4      24  0  2  2224    4
 1924      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0      24  1  2    19    4
 1928      28  1  1     4    0      26  0  0  2027    4       6  0  0  3600    4       3  0  0  5406    4
 1932      24  1  2    19    4       3  1  0     5    0      24  1  2    19    4       3  1  0    13    0
 1936       0  0  3  2511    4       1  1  3     1    0       1  0  1     3    0      15  0  0  3601    4
 1940      14  0  0  3601    4       0  0  3  2509    4       6  0  0  3601    4      24  1  2    19    4
 1944       3  1  0     7    0      24  1  2    19    4       2  1  0    15    0       1  1  3     2    0
 1948      24  1  2    19    4       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4
 1952       2  1  0    19    0       1  1  3     4    0      24  1  2    19    4       2  1  0    17    0
 1956       6  1  0  2228    4      24  1  2    19    4       2  1  0    20    0      26  0  0  2027    4
 1960       6  0  0  3600    4      24  1  2    19    4       2  1  0     5    0       6  0  0  3601    4
 1964      24  1  2    19    4       2  1  0     7    0       6  1  0  2228    4      24  1  2    19    4
 1968       2  1  0     8    0       6  1  0  2204    4      24  1  2    19    4       2  1  0    10    0
 1972       6  1  0  2498    4      24  1  2    19    4       2  1  0    12    0      24  1  2    19    4
 1976       2  1  0    14    0       6  0  0  6267    4      24  1  2    19    4       2  1  0    17    0
 1980      26  0  0  2027    4      26  0  0  1764    4      26  0  0  1430    4      26  0  0  1430    4
 1984       6  0  0  3601    4       3  0  0  5407    4      24  1  2    13    4       2  1  0    13    0
 1988      26  0  0  1430    4       6  0  0  6267    4      27  0  0  1994    4      24  1  2    13    4
 1992       6  1  0    12    0      24  1  0  1996    4      24  1  2    13    4       6  1  0    10    0
 1996       5  1  0  2196    4      27  0  0  2044    4       4  1  0  2196    4       5  1  0  2200    4
 2000      27  0  0  2044    4       4  1  0  2200    4       5  1  0  2198    4      27  0  1  1988    4
 2004      24  1  0  2044    4
 PROCEDURE  145
 2005                                0  0  0     0    0      24  0  1  6276    4      26  0  1  2007    4
 2008       0  0  0  2014    3       0  0  0  2010    3      24  0  2  2288    4      24  1  2    15    4
 2012      28  0  2     0    0      24  1  0  2017    4      24  0  2  2288    4      24  1  2    15    4
 2016      28  0  3     0    0       6  0  0  2574    4      18  0  1     2    0       4  0  0  2575    4
 2020       3  0  0  2574    4       2  0  0  3600    4       6  0  0  2576    4       2  0  0  3601    4
 2024      26  0  0  1775    4      26  0  0  1680    4      26  0  1  2005    4
 PROCEDURE  146
 2027                                                                                  0  0  0     0    0
 2028       6  1  0  2436    4      24  1  2    19    4       2  1  0    50    0       0  1  0  2404    4
 2032       0  0  3     0    4       0  0  2    18    4       6  1  0  2478    4       4  0  0    10    4
 2036      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2404    4
 2040       6  1  0  2494    4      24  1  2    19    4      28  1  1     4    0      26  0  1  2027    4
 PROCEDURE  147
 2044       6  0  0  6267    4      27  0  0  2063    4      24  1  2    13    4       6  1  0     5    0
 2048      18  0  1     5    0       3  1  0  2404    4      26  1  1  2404    4      24  1  2    13    4
 2052       6  1  1    12    0       5  1  0  2210    4      27  0  0  2067    4      24  1  2    13    4
 2056       6  1  1     7    0       2  0  0  2027    4      24  0  1  2027    4      25  0  1     0    0
 2060      24  1  0  2051    4      26  0  0  1430    4      24  1  0  2044    4      24  1  2    13    4
 2064       6  1  0    10    0       5  1  0  2210    4      27  0  1  2061    4      26  0  0  1430    4
 2068      24  1  2    13    4       6  1  0     6    0       5  1  0  2226    4      27  0  1  2067    4
 2072      24  1  2    13    4       6  1  0    11    0       1  1  2     3    0      27  0  0  2093    4
 2076       6  0  0  7347    4       2  0  0  1839    4       0  1  0  2404    4       0  0  3     0    4
 2080       6  0  0  1839    4       4  1  0  2500    4      18  1  1  4118    0       6  1  0  2458    4
 2084       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 2088       0  1  1  2404    4      26  0  0  1764    4       1  1  3     3    0      24  1  2    13    4
 2092       2  1  0    11    0      26  0  0  1430    4      26  1  1  2486    4      24  1  2    13    4
 2096       6  1  1     5    0       5  0  0  2170    4      27  0  0  2103    4      25  0  1     8    0
 2100      24  1  0  2095    4      26  0  0  1764    4      24  1  0  2094    4       6  0  0  2520    4
 2104       3  0  0  6000    4       3  0  0  6279    4       3  0  0  6277    4       2  0  0    35    4
 2108       1  1  3     2    0       2  0  0  6278    4      26  0  0  1535    4       6  0  0  6275    4
 2112      27  0  0  2120    4       6  1  0  2502    4       2  1  0  7358    4       6  0  0  7351    4
 2116      27  0  1  2129    4       6  1  0  2428    4       0  1  2  2248    4      24  1  0  2123    4
 2120       6  0  0  6274    4       1  1  1    10    0      18  0  1     5    0       4  0  0     7    4
 2124      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0       6  0  0  6275    4
 2128      27  0  0  1383    4       6  1  0  2504    4      24  1  2    13    4       2  1  0     4    0
 2132       6  0  0  2521    4      24  1  2    13    4       2  1  0     7    0       6  1  0  2498    4
 2136      24  1  2    13    4       2  1  0     8    0       6  0  0  3600    4      24  1  2    13    4
 2140       2  1  0    11    0       6  1  0  2436    4      24  1  2    13    4       2  1  0    12    0
 2144       6  1  0  2478    4       0  0  2    12    4      25  1  1  4096    0       4  0  0     7    4
 2148      24  0  3     0    4      23  0  2   160    0      24  1  0  1383    4       0  0  0     0    0
  SECTION   148
 2152           1       0                0       0               16       0                0       0
 2156         256       0                0       0             4096       0                0       0
 2160       65536       0                0       0            48576       0               10       0
 2164       77216       0              167       0            35456       0             2684       0
 2168       67296       0            42949       0            £££££       0            £££££       0
 2172           1       0                0       0                Ю       0                0       0
 2176          64       0                0       0              3.8       0                0       0
 2180        2710       0                0       0            186Ю0       0                0       0
 2184       £4240       0                0       0            89680       0                9       0
 2188       5.100       0               5£       0            Ю+Ю00       0              3‼9       0
 2192           0       0                0       0            65764       0            67696       0
 2196       65369       0            67696       0            26355       0            73515       0
 2200       57273       0            53666       0            56554       0            51645       0
 2204       27259       0            67517       0            46772       0            54746       0
 2208       35572       0            56596       0            40000       0            55655       0
 2212       45577       0            59655       0            55972       0            56596       0
 2216        5.5.       0                0       0              3££       0                0       0
 2220        8000       0             5241       0            16454       0            73695       0
 2224       £6£6£       0            6£6£6       0            45577       0            59655       0
 2228       £4£4£       0            4£4£4       0               42       0                0       0
 2232       15965       0            53585       0            56554       0            56595       0
 2236        3030       0            30483       0            36653       0            51636       0
 2240       55400       0            51735       0            36951       0            55777       0
 2244       47355       0            69667       0               £8       0                0       0
 2248        8000       0             5149       0
  SECTION   149
 2250                                                      0   2236   3        5   3  0  0  0  5   0
 2252    0   2202   3       37   3  0  0  2  5   0         0   2574   3       37   0  0  0  2  5   0
 2256    0   2576   3    16405   0  4  0  1  5   0         0   2216   3      818   3  0  3  3  2   1
 2260    0   2306   3       85   3  0  0  5  5   0         0   2216   3      818   3  0  3  3  2   1
 2264    0   2236   3        5   3  0  0  0  5   0         0   2238   3       21   3  0  0  1  5   0
 2268    0   2240   3        5   3  0  0  0  5   0         0   2242   3        5   3  0  0  0  5   0
 2272    0   2244   3       21   3  0  0  1  5   0         0   2192   3     4898   0  1  3  2  2   0
 2276    0   1449   3     1025   0  0  4  0  1   0         0   2216   3      786   3  0  3  1  2   1
  SECTION   150
 2280    0   2574   3        5   3  0  0  0  5   0         0   2578   3        5   3  0  0  0  5   0
 2284    0   2580   3        3   2  0  0  0  3   0         0   2588   3        1   0  0  0  0  1   1
 2288    0   2578   3        5   3  0  0  0  5   0         0   2574   3        3   0  0  0  0  3   0
 2292    0   2575   3        2   0  0  0  0  2   0         0   2576   3        5   0  0  0  0  5   1
 2296    0   2574   3        5   3  0  0  0  5   0         0   2576   3        5   3  0  0  0  5   0
 2300    0   2578   3        5   3  0  0  0  5   0         0   2580   3        3   2  0  0  0  3   0
 2304    0   2588   3        1   0  0  0  0  1   1
  SECTION   151
 2306                                                         77372       0            4+006       0
 2308           0       0                0       0                0       0                0       0
 2312           0       0                0       0                0       0                0       0
 2316           0       0                0       0                0       0                0       0
 2320           0       0                0       0                0       0                0       0
 2324           0       0                0       0                0       0                0       0
 2328           0       0                0       0                0       0                0       0
 2332           0       0                0       0                0       0                0       0
 2336           0       0                0       0                0       0                0       0
 2340           0       0                0       0                0       0                0       0
 2344           0       0                0       0                0       0                0       0
 2348           0       0                0       0                0       0                0       0
 2352           0       0                0       0                0       0                0       0
 2356           0       0                0       0                0       0                0       0
 2360           0       0                0       0                0       0                0       0
 2364           0       0                0       0                0       0                0       0
 2368           0       0                0       0                0       0                0       0
 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                0       0
 2388           0       0                0       0                0       0                0       0
 2392           0       0                0       0                0       0                0       0
 2396           0       0                0       0                0       0                0       0
 2400           0       0                0       0                0       0                0       0
  SECTION  1015
 2404           0       0                0       0                0       0                0       0
 2408           0       0                0       0                0       0                0       0
 2412           0       0                0       0                0       0                0       0
 2416           0       0                0       0               40       0               80       0
 2420          +0       0               £0       0                0       0            2086.       0
 2424           0       0            20346       0             8000       0             5146       0
 2428           0       0               12       0                0       0            20012       0
 2432           0       0                9       0                0       0            20032       0
 2436          7.       0            7.000       0            37455       0            75516       0
 2440           0       0              384       0                0       0                2       0
 2444           0       0               1‼       0                0       0               22       0
 2448           0       0              1++       0                0       0               Ю0       0
 2452           0       0               32       0                0       0               64       0
 2456       £££££       0                8       0                0       0               24       0
 2460           0       0               2.       0                0       0            2002:       0
 2464           0       0               2:       0                0       0               14       0
 2468           0       0              1+2       0                0       0               21       0
 2472           0       0               28       0                0       0                7       0
 2476           0       0               1+       0                0       0                8       0
 2480           0       0               20       0            10008       0             £££.       0
 2484           0       0               38       0                0       0               30       0
 2488        8000       0             5141       0                0       0               11       0
 2492       55573       0            72585       0                0       0            2002.       0
 2496        8000       0             5142       0            83041       0                4       0
 2500           0       0                Ю       0                0       0              12+       0
 2504       96573       0            67695       0                0       0                0       0
  SECTION  1016
 2508           2       0                0       0                3       0            66666       0
 2512          14       0             9999       0            20000       0                1-      0
 2516       10002       0                1       0                5       0            £££££       0
 2520       1.006       0             8000       0                0       0                0       0
  SECTION  1017
 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  152
   33                                0  1  0  5070    4       0  0  3     0    4       1  1  3     4    0
   36       0  0  2  5206    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  5070    4       0  0  3  5207    4       6  1  0  5084    4      28  1  1  6204    4
   44       6  0  0  6276    4       1  1  2     1    0      27  0  0    50    4       6  0  0  5069    4
   48       2  0  0  5065    4      24  1  0    55    4       1  0  1   512    0      18  1  3     3    0
   52       1  1  3     0    0      14  1  0  4554    4      14  1  0  4560    4       6  0  0  5067    4
   56       3  0  0  6202    4       2  0  0  5064    4       6  1  0  5086    4      28  1  1  5234    4
   60       1  1  3     1    0       2  0  0  7340    4       2  0  0  6272    4       2  0  0  7342    4
   64       2  0  0  7343    4       2  0  0  6270    4       1  1  3     5    0       2  0  0  7327    4
   68      24  0  3     0    4       6  1  0     2   22      27  0  0   229    4       3  1  0  5234    4
   72       6  1  0  5088    4      28  1  1  6266    4      24  0  3     0    4       6  0  0     6   22
   76       3  0  0  6275    4       6  0  0  5208    4       3  0  0  6266    4       3  0  0  6270    4
   80       2  0  0  6267    4       6  1  0  5090    4      28  1  1  5354    4       0  0  2  5235    4
   84      15  0  0  4792    4      27  0  0    88    4       1  1  3     2    0       2  0  0  7340    4
   88      15  0  0  4710    4       1  1  2     2    0       2  0  0  6202    4      15  0  0  4718    4
   92       1  1  2     4    0      27  0  0    96    4       1  1  3     2    0       2  0  0  6278    4
   96      15  0  0  4715    4       2  0  0  6268    4       1  1  3   450    0      18  0  1     5    0
  100       4  0  0  5234    4      24  0  3     1    4      28  1  1    74    0       2  0  0   140    4
  104      26  1  3  5092    4       0  1  0  5070    4       0  0  3     0    4       6  0  0     1    4
  108      24  0  3     0    4       4  0  0     6   22       2  0  0  5076    4       0  1  1  5070    4
  112      24  0  3  5076    4       0  0  2    74    0      18  1  1     7    0      18  1  3     2    0
  116       5  0  0   140    4      27  0  3   119    4       7  0  0   140    4       1  1  3     0    0
  120      18  1  3    10    0       5  0  0   140    4      27  0  3   124    4       7  0  0   140    4
  124       1  1  3     0    0      25  0  3     1    0      24  1  0   105    4       6  0  0   140    4
  128       1  1  1     1    0      24  0  3     1    4       2  0  0  1129    0       6  1  0  5094    4
  132      24  0  3     1    4      28  1  1   524    0      24  0  3     0    4       6  1  0     4   22
  136       2  1  0  5234    4      25  1  1  4096    0      23  0  2   140    4      24  1  0   204    4
 PROCEDURE  153
  140       0  0  0     0    0       1  1  3    15    0      24  0  3  4706    4      23  1  0    56    0
  144      24  0  3  4706    4      23  1  0   210    0      24  0  3  4706    4      23  1  0   364    0
  148      24  0  3  4706    4      23  1  0   518    0      24  0  3  4706    4      23  1  0   576    0
  152      24  0  3  4706    4      23  1  0   730    0      24  0  3  4706    4      23  1  0   884    0
  156      24  0  3  4706    4      23  1  0  1038    0
 PROCEDURE  154
  158                                                        23  0  3  4616    4      18  0  1     4    0
  160       7  0  0  4706    4       6  0  0  4706    4      24  1  2    14    4       3  0  0    64    0
  164       1  1  1    58    0      24  1  2    16    4       3  0  0    64    0       1  1  1   154    0
  168      24  1  2    18    4       3  0  0    64    0       1  1  1   154    0      24  1  2    20    4
  172       3  0  0    64    0       1  1  1   154    0      24  0  3     8    4       3  0  0    64    0
  176       1  1  1    58    0      24  0  3     9    4       3  0  0    64    0       1  1  1   154    0
  180      24  0  3    10    4       3  0  0    64    0       1  1  1   154    0      24  0  3    11    4
  184       2  0  0    64    0
 PROCEDURE  155
  185                               24  0  3     5    4       6  0  0    34    0      18  0  1  4124    0
  188       2  0  0  6274    4       1  0  1    15    0       6  0  0     5    4       1  1  1   204    0
  192      24  1  2    12    4      14  0  0    64    0       6  0  0     5    4       1  1  1   598    0
  196      24  1  2     7    4      14  0  0    64    0       1  1  3    15    0      24  0  3     5    4
  200      23  1  0   596    0      24  0  3     5    4      23  1  0   990    0      26  0  3   140    4
 PROCEDURE  156
  204       6  1  0  5096    4      28  1  1    50    4       6  1  0  5234    4       2  1  0    50    4
  208       0  1  0  5070    4       0  0  3     0    4       0  1  2  5098    4       6  1  0  5100    4
  212       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  216       0  0  3  5074    4      26  0  0  4110    4      24  1  2    17    4       6  1  0    10    0
  220       5  1  0  1338    4      27  0  1   217    4       1  1  3     1    0       3  0  0  6000    4
  224       2  0  0    58    4       6  1  0  4734    4      24  1  2    21    4       2  1  0     4    0
  228      24  1  0   306    4
 PROCEDURE  157
  229                                0  1  0  5070    4       0  0  3     0    4       0  1  2  5102    4
  232       6  1  0  5100    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
  236      23  0  2     0  256       0  0  3  5074    4       6  1  0  5096    4      28  1  1    50    4
  240       6  0  0  5209    4       2  0  0    53    4      26  0  0  4121    4      24  0  2  1236    4
  244      26  0  0  5063    4       0  0  3  5210    4       6  1  0  5236    4       5  1  0  1334    4
  248      27  0  0   256    4      26  0  0  4249    4      26  0  0  1184    4       1  1  3     2    0
  252       3  0  0    83    4       2  0  0  6278    4       2  1  0  5242    4      24  1  0   343    4
  256       2  1  0  5250    4       2  1  0  5252    4      24  0  2  1272    4      26  0  0  5063    4
  260       1  1  3     0    0       0  0  2  5250    4      15  0  0  4710    4       2  0  0  6202    4
  264      24  0  1  6276    4      26  0  1   265    4       0  0  0   271    3       0  0  0   268    3
  268       6  1  0  5252    4       1  1  2   115    0      24  1  0   273    4       6  1  0  5254    4
  272       5  1  0  5104    4      27  0  1   276    4       1  1  3     2    0      24  1  0   277    4
  276       1  1  3     0    0       2  0  0  6278    4       6  0  0  6266    4      27  0  1   283    4
  280       6  0  0  5250    4       1  1  2     4    0       2  0  0  6202    4       6  0  0  5211    4
  284      15  0  0  4772    4       2  0  0  7340    4       6  0  0  5251    4       2  0  0  1586    4
  288      26  0  0  4249    4      27  0  1   294    4       6  1  0  5242    4      18  0  1     6    0
  292       4  1  0  5254    4       2  1  0  5242    4       6  0  0  5238    4      18  0  1     2    0
  296       4  0  0  5240    4       2  0  0    50    4       0  1  2  5242    4      26  0  0  4820    4
  300       6  1  0   139    4       2  0  0    51    4       1  1  3     1    0       3  0  0  6000    4
  304       2  0  0    58    4
 PROCEDURE  158
  305                               26  0  0  4121    4       6  1  0  5086    4      28  0  0  5234    4
  308      26  0  0  4110    4      24  1  2    17    4       6  1  0     6    0       5  1  0  1330    4
  312      27  0  1   308    4      24  1  2    21    4       6  1  0     4    0       5  1  0  1330    4
  316      27  0  0   332    4      24  0  2  1170    4      24  1  2    17    4      28  0  2     4    0
  320      24  1  2    17    4      24  0  2    20    0      18  1  1  4123    0       1  1  3    30    0
  324      18  1  1     5    0      28  1  1  5250    4       0  0  3  5210    4       1  1  3     1    0
  328       1  0  1     3    0      15  1  0  5243    4      14  1  0  5243    4      24  1  0   343    4
 PROCEDURE  159
  332      24  0  2  1236    4      26  0  0  5063    4      26  0  0  4249    4       6  0  0    51    4
  336       3  1  0  5243    4       1  1  1     1    0      18  0  1     2    0       2  0  0  5234    4
  340       2  0  0    58    4      26  0  0  1184    4      24  1  0   326    4
 PROCEDURE  160
  343                                                                                  6  1  0  5086    4
  344      24  1  2    19    4      28  0  0     4    0       6  0  0  6270    4      27  0  0   359    4
  348       0  1  0  5070    4       0  0  3     0    4       0  0  2     0    4       6  1  0  5106    4
  352       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  356       0  1  1  5070    4       1  1  3     0    0      24  1  0   369    4       0  1  0  5070    4
  360       0  0  3     0    4       0  1  2  5108    4       6  1  0  5110    4       4  0  0    10    4
  364      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  5074    4
  368      18  1  1    10    0       2  0  0  7344    4      26  0  0  4090    4      26  0  0  4090    4
  372      24  0  2  4750    4      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0
  376      24  1  2    19    4      28  1  1     4    0      26  0  0  4090    4       6  0  0  5238    4
  380      18  0  1     2    0       4  0  0  5240    4       3  0  0    82    4      24  1  2    19    4
  384       3  1  0     5    0      24  1  2    19    4       3  1  0    13    0       6  1  0  5243    4
  388       2  0  0    51    4       6  0  0  1586    4      27  0  0   394    4      18  0  1     2    0
  392       1  0  1    28    0      14  0  0    51    4      24  0  2  1168    4      28  1  2  5242    4
  396       6  1  0  5242    4      24  1  2    19    4       3  1  0     6    0      24  1  2    19    4
  400       2  1  0    14    0       1  1  3     2    0      24  1  2    19    4       2  1  0    11    0
  404       1  1  3     3    0      24  1  2    19    4       3  1  0    19    0       1  1  3     2    0
  408       4  0  0  6278    4      24  1  2    19    4       2  1  0    17    0       6  1  0  4751    4
  412      24  1  2    19    4       2  1  0    21    0      26  0  0  4090    4       6  0  0    82    4
  416      24  1  2    19    4       2  1  0     5    0       6  1  0  5242    4      24  1  2    19    4
  420       2  1  0     6    0       6  0  0  5212    4      24  1  2    19    4       2  1  0     9    0
  424       6  1  0  1338    4      24  1  2    19    4       2  1  0    10    0       6  0  0  6270    4
  428      24  1  2    19    4       3  1  0    15    0      27  0  1   434    4       6  1  0  5112    4
  432      24  1  2    19    4       3  1  0    12    0      24  1  2    19    4       2  1  0    17    0
  436      26  0  0  4090    4      24  0  3     1    4       6  0  0  1129    0       2  0  0  4743    4
  440       6  0  0  6270    4      27  0  1   458    4      24  0  3     1    4      24  0  2  1084    0
  444      18  1  1  4123    0       1  1  3    23    0      18  1  1     5    0      24  1  2    19    4
  448      28  0  1     5    0      26  0  0  4090    4      24  0  3     1    4      24  0  2  1107    0
  452      18  1  1  4123    0       1  1  3    23    0      18  1  1     5    0      24  1  2    19    4
  456      28  0  1     5    0      26  0  0  4090    4      24  0  2  1170    4      24  1  2    19    4
  460      28  1  2     4    0      24  0  2  5250    4      18  1  1  4123    0       1  1  3    30    0
  464      18  1  1     5    0      24  1  2    19    4      28  1  1    20    0      26  0  0  4090    4
  468       6  0  0  4703    4       2  0  0  5979    4       0  0  3  5210    4
 PROCEDURE  161
  471                                                                                  6  0  0    58    4
  472      27  0  0   556    4      26  0  0  4110    4       1  1  3     0    0      24  1  2    17    4
  476       2  1  0    46    0      24  1  2    17    4       2  1  0    48    0       2  0  0    83    4
  480      24  1  2    17    4       6  1  0     9    0      26  0  0  1613    4      24  1  0   485    4
  484       0  0  0  1217    3      27  0  1   490    4       6  1  0  4760    4      24  1  2    17    4
  488       2  1  0    48    0      24  1  0   492    4      24  1  2    17    4       2  1  0     9    0
  492      26  0  0  1050    4      26  0  0  4110    4      24  1  2    17    4       6  1  0     6    0
  496       5  1  0  1336    4      27  0  0   515    4      24  1  2    17    4       6  1  0     9    0
  500      26  0  0  2765    4      18  1  3     2    0      18  1  1  4127    0      24  1  2    17    4
  504       4  0  0     7    0      18  1  3     2    0      18  1  1  4123    0      24  1  2    17    4
  508       6  1  0    46    0      26  0  0   759    4      27  0  1   514    4       6  1  0  4746    4
  512      24  1  2    17    4       2  1  0    46    0      24  1  0   492    4      24  1  2    21    4
  516       6  1  0     4    0       5  1  0  1336    4      27  0  0   799    4      24  1  2    17    4
  520      24  0  2     9    0      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0
  524      28  1  0    63    4       2  0  0    83    4       6  0  0    63    4      26  0  0  2765    4
  528       2  0  0    63    4      26  1  2    62    4       6  0  2    64    4      26  0  0  1613    4
  532      24  1  0   534    4       0  0  0  1217    3      27  0  1   539    4       6  1  0  4760    4
  536      24  1  2    19    4       2  1  0    48    0      24  1  0   540    4       2  0  2    64    4
  540      25  0  2     1    0      24  1  0   530    4      24  0  2    64    4      18  1  1  4123    0
  544       1  1  3    14    0      18  1  1     5    0      24  1  2    17    4      28  0  1    11    0
  548      24  1  2    17    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    34    0
  552      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0      24  1  0   860    4
 PROCEDURE  162
  556       6  1  0  5086    4      28  1  1  5234    4      26  0  0  4121    4      24  0  2  1236    4
  560      26  0  0  5063    4      26  0  0  4249    4       6  0  0  5213    4       2  0  0    53    4
  564       6  1  0  5236    4       5  1  0  1332    4      27  0  0   569    4       1  1  3     1    0
  568      26  0  0  1206    4       6  0  0  5238    4       1  1  2   256    0      27  0  3   574    4
  572       1  1  2  2201    0      27  0  3   577    4       1  1  3     2    0      26  0  0  1206    4
  576      26  0  0  4239    4       1  1  3     1    0       2  0  0    83    4       6  0  0  5238    4
  580      26  0  0  1613    4      24  1  0   583    4       0  0  0  1217    3      27  0  1   587    4
  584       6  1  0  4760    4       2  1  0  5278    4      24  1  0   588    4       2  0  0  5238    4
  588       6  1  0  5240    4       1  1  2     1    0      27  0  3   593    4       1  1  2     4    0
  592      27  0  3   596    4       1  1  3     3    0      26  0  0  1206    4      26  0  0  4239    4
  596      24  0  2  1170    4      24  1  2    19    4      28  1  2     4    0      24  0  2  5250    4
  600      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0      24  1  2    19    4
  604      28  1  1    20    0      26  0  0  4090    4      26  0  0  4121    4       6  0  0  6000    4
  608      27  0  0   621    4      26  0  0  4195    4      27  0  1   615    4      24  1  2    21    4
  612       6  1  0     4    0       5  1  0  1336    4      27  0  1   645    4      26  0  0  4110    4
  616      24  1  2    17    4       6  1  0     6    0       5  1  0  1336    4      27  0  1   615    4
  620      24  1  0   515    4      24  1  2    21    4       6  1  0     4    0       5  1  0  1336    4
  624      27  0  0   799    4      24  1  2    21    4       6  1  0     4    0      18  0  1  4124    0
  628      18  0  1     4    0       5  1  0  4734    4      27  0  1   645    4       6  1  0  5114    4
  632       4  0  0  6275    4       3  1  0  5070    4      26  1  3  5070    4       1  1  3     1    0
  636       0  0  2  5206    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
  640       0  0  0   642    3       0  0  0    33    1      25  1  1  4096    0      24  0  3     0    4
  644      26  0  2     0  768       6  1  0  5086    4      28  1  1  5234    4       2  0  0    52    4
  648      24  0  2  1246    4      26  0  0  5063    4      26  0  0  4249    4
 PROCEDURE  163
  651                                                                                  6  0  0  5214    4
  652       2  0  0    53    4       0  1  2  5236    4      26  0  0  4282    4       3  1  0  5236    4
  656      18  1  1  4119    0       1  1  2     5    0      27  0  3   673    4       1  1  3     0    0
  660      18  1  1     1    0       1  1  2    10    0      27  0  2   673    4       1  1  3     0    0
  664      18  1  1     2    0       1  1  2    48    0      27  0  0   671    4       1  1  2    17    0
  668      27  0  3   673    4       1  1  2     9    0      27  0  2   673    4       1  1  3     0    0
  672      27  1  0   675    4       1  1  3     1    0      26  0  0  1206    4       6  1  0  5238    4
  676       1  1  2     1    0      27  0  3   715    4       1  1  2     2    0      27  0  1   682    4
  680       1  1  3    38    0      24  1  0   713    4       1  1  2     1    0      27  0  0   700    4
  684       1  1  2    21    0      27  0  0   700    4       1  1  2     1    0      27  0  0   723    4
  688       1  1  2     1    0      27  0  0   715    4       1  1  2     1    0      27  0  0   723    4
  692       1  1  2     1    0      27  0  0   715    4       1  1  2     1    0      27  0  0   723    4
  696       1  1  2     1    0      27  0  0   723    4      27  0  2   715    4      24  1  0   723    4
  700       6  1  0  5242    4      26  0  0  2765    4      18  1  3     2    0      18  1  1  4126    0
  704       2  1  0  5070    4      27  1  0   707    4       1  1  3     1    0       4  1  0  5070    4
  708       1  1  2     5    0      27  0  2   719    4       1  1  1     5    0      18  0  3     6    0
  712      26  0  0  2759    4       2  1  0  5242    4      24  1  0   723    4       1  1  3     2    0
  716      26  0  0  1206    4      26  0  0  4239    4      24  1  0   723    4       1  1  3     4    0
  720      26  0  0  1206    4      26  0  0  4239    4      24  1  0   726    4       6  1  0  5242    4
  724      27  0  3   719    4      27  0  0   719    4      24  1  0   772    4       1  1  3     5    0
  728      26  0  0  1206    4      26  0  0  4239    4       6  1  0  5240    4      27  0  3   734    4
  732       1  1  2   256    0      27  0  3   737    4       1  1  3     3    0      26  0  0  1206    4
  736      26  0  0  4239    4       6  1  0  5238    4      26  0  0  2765    4      18  1  3     2    0
  740      18  1  1  4127    0       4  0  0  5237    4      18  1  3     2    0      18  1  1  4123    0
  744       6  1  0  5276    4      26  0  0   759    4      27  0  1   748    4      26  0  0  4239    4
  748      24  0  2  1140    4      24  1  2    19    4      28  1  2     6    0      24  0  2  5262    4
  752      18  1  1  4123    0       1  1  3    18    0      18  1  1     5    0      24  1  2    19    4
  756      28  1  1    32    0      26  0  0  4090    4      24  1  0   606    4
 PROCEDURE  164
  759                                                                                  0  0  0     0    0
  760       5  1  0  4746    4      27  0  0   770    4       1  1  3    16    0       5  0  0  6009    4
  764      27  0  0   770    4      18  1  1     5    0      24  0  1  6009    4       2  0  0  6013    4
  768       1  1  3     2    0       7  0  0  6009    4       0  0  3  5210    4      26  0  1   759    4
  772       6  0  0  5244    4      27  0  1   778    4       6  0  0  5238    4       1  1  2    25    0
  776      27  0  0   727    4      24  1  0   730    4       6  0  0  5238    4       1  1  2     5    0
  780      27  0  0   795    4       1  1  2     2    0      27  0  0   795    4       1  1  2     1    0
  784      27  0  0   795    4       1  1  2     3    0      27  0  0   795    4       1  1  2     4    0
  788      27  0  0   795    4       1  1  2     4    0      27  0  1   727    4       6  0  0  5244    4
  792       5  0  0  5215    4      27  0  2   727    4      24  1  0   730    4       6  0  0  5244    4
  796       1  1  2     1    0      27  0  0   730    4      24  1  0   727    4
 PROCEDURE  165
  799                                                                                  6  0  0  5216    4
  800       3  0  0    83    4       2  0  0    53    4       6  1  0  5086    4      28  1  1  5234    4
  804       6  0  0    51    4      18  0  1     2    0       2  0  0  5234    4      24  0  2  1288    4
  808      26  0  0  5063    4       6  0  0  5238    4       1  1  2     1    0      27  0  3   814    4
  812       1  1  2    20    0      27  0  3   817    4       1  1  3     1    0       3  0  0  5238    4
  816      26  0  0  1206    4       6  0  0  5238    4      26  0  0  2765    4       2  0  0    63    4
  820       0  0  3  5210    4      26  1  2    62    4       6  0  2  5239    4      26  0  0  1613    4
  824      24  1  0   826    4       0  0  0  1217    3      27  0  1   830    4       6  1  0  4760    4
  828       2  1  0  5278    4       6  0  2  5239    4       3  0  2    64    4       3  0  2  5239    4
  832       1  1  2   256    0      27  0  3   836    4       1  1  2  2201    0      27  0  3   838    4
  836       1  1  3     2    0      26  0  0  1206    4      25  0  2     1    0      24  1  0   822    4
  840       6  0  2  5239    4      27  0  0   844    4       1  1  3     3    0      26  0  0  1206    4
  844      24  0  2  5238    4      18  1  1  4123    0       1  1  3    15    0      18  1  1     5    0
  848      24  1  2    19    4      28  0  1     9    0      24  0  2  5268    4      18  1  1  4123    0
  852       1  1  3    12    0      18  1  1     5    0      24  1  2    19    4      28  1  1    38    0
  856      24  0  2  1164    4      24  1  2    19    4      28  1  2     4    0      26  0  0  4121    4
  860      24  1  2    21    4       6  1  0     4    0       5  1  0  1340    4      27  0  0   867    4
  864       6  0  0  6000    4      27  0  1   891    4      24  1  0   905    4       6  0  0  6000    4
  868      27  0  0   875    4      26  0  0  4110    4      24  1  2    17    4       6  1  0     6    0
  872       5  1  0  1340    4      27  0  1   875    4      26  0  0  4110    4       6  1  0  5088    4
  876      28  1  1  5234    4      24  0  2  1288    4      26  0  0  5063    4      26  0  0  4090    4
  880      24  0  2  5238    4      18  1  1  4123    0       1  1  3     7    0      18  1  1     5    0
  884      24  1  2    19    4      28  0  1     9    0       6  1  0  1340    4      24  1  2    19    4
  888       2  1  0     6    0      26  0  0  4121    4      24  1  0   905    4      26  0  0  4110    4
  892      24  1  2    17    4       6  1  0     6    0       5  1  0  1340    4      27  0  1   905    4
  896      26  0  0  4090    4      24  1  2    17    4      24  0  2     4    0      18  1  1  4123    0
  900       1  1  3    40    0      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0
  904      26  0  0  4110    4
 PROCEDURE  166
  905                                6  1  0  5116    4      24  0  3     1    4       2  1  0  2572    0
  908      24  0  3     1    4       2  1  0  2570    0       1  1  3     1    0       2  0  0  7334    4
  912       6  0  0    63    4      26  0  0  2759    4       2  0  0  1326    4       6  0  0  5217    4
  916       2  0  0    53    4       1  1  3   153    0       2  0  0  5973    4       6  1  0  5118    4
  920       2  1  0  7356    4       0  0  3  5207    4      26  1  3    62    4       1  1  1     1    0
  924       3  0  3  5980    4      25  0  3     1    0      24  1  0   923    4       0  0  3  5210    4
  928       1  1  3  4097    0       2  0  0    59    4       6  0  0  6000    4      27  0  1   946    4
  932      24  0  1  6276    4      26  0  1   933    4       0  0  0   936    3       0  0  0   939    3
  936      24  1  2    21    4       6  1  0     4    0      24  1  0   941    4      24  1  2    21    4
  940       6  1  0     8    0      26  0  0  3997    4       6  0  0    88    4      27  0  3  1364    4
  944      26  0  0  1032    4      24  1  0   932    4
 PROCEDURE  167
  946                                                        26  0  0  1118    4      27  0  1   951    4
  948       0  1  2  1328    4      24  1  0  1008    4      26  0  0  4110    4       6  0  0    95    4
  952      27  0  1   959    4      24  1  2    17    4       6  1  0     5    0      24  1  2    21    4
  956       5  1  0     5    0      27  0  0   974    4      27  0  3  1007    4      26  0  0  1129    4
  960       6  0  0    88    4      27  0  3  1364    4      24  0  2  1154    4      24  1  2    17    4
  964      28  0  2     6    0      24  1  2    17    4      24  0  2    32    0      18  1  1  4123    0
  968       1  1  3    16    0      18  1  1     5    0      28  1  1  5262    4       2  1  0  5278    4
  972      26  0  0  1061    4      24  1  0   950    4
 PROCEDURE  168
  974                                                        24  0  1  7327    4      26  0  1   975    4
  976       0  0  0   980    3       0  0  0   988    3       0  0  0  1002    3       0  0  0   980    3
  980      26  0  0  1129    4       6  0  0    88    4      27  0  3  1364    4      26  0  0  1032    4
  984      26  0  0  1118    4      27  0  1   950    4      26  0  0  4110    4      24  1  0   980    4
  988      26  0  0  4121    4      26  0  0  1118    4      27  0  1   950    4      26  0  0  4110    4
  992      26  0  0  1129    4       6  0  0    88    4      27  0  3  1364    4      24  1  2    17    4
  996       6  1  0     5    0      24  1  2    21    4       5  1  0     5    0      27  0  3  1007    4
 1000      27  0  0   988    4      24  1  0   991    4      26  0  0  4121    4      26  0  0  1032    4
 1004      26  0  0  1118    4      27  0  0  1003    4      24  1  0   951    4
 PROCEDURE  169
 1007                                                                                  0  1  2  5236    4
 1008      24  1  2    19    4       6  0  0    47    0       5  0  0  4735    4      27  0  0  1017    4
 1012       1  1  3     0    0      18  1  1    10    0      24  1  2    19    4       2  1  0    46    0
 1016      24  1  0  1020    4      18  1  1    10    0      24  1  2    19    4       2  1  0    44    0
 1020       6  1  0  5238    4      24  1  2    19    4       2  1  0    48    0       1  0  1    15    0
 1024       1  1  3  7453    0       3  0  0  6272    4      24  1  2    19    4      14  1  0    48    0
 1028      26  0  0  4121    4      26  0  0  1118    4      27  0  0  1028    4      24  1  0   951    4
 PROCEDURE  170
 1032       0  0  0     0    0       6  1  0  5086    4      28  1  1  5234    4      24  0  2  1260    4
 1036      26  0  0  5063    4      26  0  0  4249    4       6  0  0  7327    4       1  1  2     4    0
 1040      27  0  1  1045    4      24  0  2  1154    4      24  1  2    17    4      28  0  2     6    0
 1044      24  1  0  1047    4       6  0  0    51    4       2  0  0  5240    4      26  0  0  4121    4
 1048      26  0  0  1061    4      26  0  1  1032    4
 PROCEDURE  171
 1050                                                         0  0  0     0    0       0  1  0  5070    4
 1052       0  0  3     0    4       0  0  2    16    4       6  1  0  5120    4       4  0  0    10    4
 1056      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  5070    4
 1060      26  0  1  1050    4
 PROCEDURE  172
 1061                                0  0  0     0    0      26  0  0  1505    4      26  1  1  5122    4
 1064      26  1  2  5120    4       1  1  3     0    0       2  1  0  5278    4       6  0  1  5236    4
 1068       5  0  2  1321    4      27  0  3  1073    4       6  0  2  1320    4       5  0  1  5236    4
 1072      27  0  2  1079    4      24  0  3     0    4       6  0  0     2   22       1  1  1     1    0
 1076      26  0  0  1206    4      26  0  0  4239    4      24  1  0  1104    4      25  0  1     1    0
 1080      24  1  0  1081    4      25  0  2     2    0      24  1  0  1067    4       6  0  0  5238    4
 1084      27  0  0  1091    4       7  0  0  5976    4       6  0  0  5976    4       1  1  2     9    0
 1088      27  0  3  1091    4       1  1  3     5    0      24  1  0  1076    4       6  0  0  5236    4
 1092      26  0  0  1352    4       0  0  2    90    4      15  0  3   122    4      27  0  1  1089    4
 1096       0  0  3  5207    4       6  0  0    90    4       7  0  3   122    4       6  0  0  5238    4
 1100      27  0  0  1104    4       6  0  0    90    4      18  0  3    10    0       7  0  3   122    4
 1104       0  0  3  5210    4      26  0  0  4090    4      24  0  2  1150    4      24  1  2    19    4
 1108      28  1  2     4    0       1  1  3     1    0       7  0  0    59    4      24  0  2  5262    4
 1112      18  1  1  4123    0       1  1  3    18    0      18  1  1     5    0      24  1  2    19    4
 1116      28  1  1    32    0      26  0  1  1061    4
 PROCEDURE  173
 1118                                                         0  0  0     0    0      26  0  0  4195    4
 1120      27  0  0  1128    4       6  0  0  5237    4      18  0  1  4125    0       1  1  2    91    0
 1124      27  0  0  1127    4       1  1  3     1    0       2  0  0    95    4       1  1  3     1    0
 1128      26  0  1  1118    4
 PROCEDURE  174
 1129                                0  0  0     0    0       6  0  0  6267    4      27  0  0  1136    4
 1132      24  1  2    17    4       6  1  0    12    0      26  0  0  3997    4      26  0  1  1129    4
 1136      24  1  2    17    4       6  1  0    10    0      24  1  0  1134    4       0  0  0     0    0
  SECTION   175
 1140    0   5236   3        5   3  0  0  0  5   0         0   5238   3    20485   0  5  0  0  5   0
 1144    0   5240   3    20485   0  5  0  0  5   0         0   5242   3    20485   0  5  0  0  5   0
 1148    0   5244   3    20485   0  5  0  0  5   1         0   4728   3        1   3  0  0  0  1   0
 1152    0     59   3    12548   0  3  1  0  4   0         0   5236   3    16389   0  4  0  0  5   0
 1156    0   5237   3    16389   0  4  0  0  5   0         0   5238   3    16389   0  4  0  0  5   0
 1160    0   5239   3    16389   0  4  0  0  5   0         0   5240   3    20485   0  5  0  0  5   1
 1164    0   5234   3    20485   0  5  0  0  5   0         0   5236   3        5   3  0  0  0  5   1
 1168    0     51   3    16389   0  4  0  0  5   1         0   5234   3    20485   0  5  0  0  5   0
 1172    0   5236   3        5   3  0  0  0  5   0         0   5238   3    20485   0  5  0  0  5   0
 1176    0   5240   3    16389   0  4  0  0  5   0         0   5242   3        5   3  0  0  0  5   0
 1180    0   5244   3    40970   2 10  0  0 10   0         0   5244   3    20485   0  5  0  0  5   1
 PROCEDURE  176
 1184       0  0  0     0    0       6  0  0  5238    4       1  1  2  4096    0      27  0  3  1190    4
 1188       1  1  3    65    0      26  0  0  1206    4       6  0  0  5240    4       1  1  2   256    0
 1192      27  0  3  1195    4       1  1  3    66    0      26  0  0  1206    4       6  0  0  5238    4
 1196       4  0  0  5240    4      27  0  1  1200    4       1  1  3    67    0      26  0  0  1206    4
 1200       6  0  0  6000    4      27  0  1  1203    4       2  1  0  5242    4       1  1  3     0    0
 1204       2  0  0    52    4      26  0  1  1184    4
 PROCEDURE  177
 1206                                                         0  0  0     0    0       2  0  0    54    4
 1208      26  1  3    52    4       6  1  0  4728    4       4  0  0    54    4       4  0  0    53    4
 1212       2  1  3  5272    4       1  1  2     2    0       7  0  0    52    4       1  1  3     0    0
 1216      26  0  1  1206    4
 PROCEDURE  178
 1217                                0  0  0     0    0       6  0  0   169    4      26  0  0  2765    4
 1220      18  1  3     3    0      18  1  1  4127    0       2  1  0  4812    4      26  1  1  4812    4
 1224      27  1  0  1230    4      24  0  3     1    4       6  0  1    24    0      18  0  3     2    0
 1228      18  0  1  4125    0      24  1  0  1233    4       0  0  2  4740    4      24  0  3     1    4
 1232      15  0  1    24    0      26  0  0  2759    4      26  0  1  1217    4       0  0  0     0    0
  SECTION   179
 1236    0   5236   3        5   3  0  0  0  5   0         0   5238   3        3   2  0  0  0  3   0
 1240    0   5240   3        2   2  0  0  0  2   0         0   5242   3        5   3  0  0  0  5   0
 1244    0   5250   3        5  11  0  0  0  5   1         0     98   3        2   0  0  0  0  2   0
 1248    0   5236   3        2   3  0  0  0  2   0         0   5238   3        2   2  0  0  0  2   0
 1252    0   5240   3        2   2  0  0  0  2   0         0   5242   3        4   2  0  0  0  4   0
 1256    0   5244   3        4   2  0  0  0  4   0         0   5262   3        5   3  0  0  0  5   1
 1260    0     98   3        6   0  0  0  0  6   0         0   5236   3        2   0  0  0  0  2   0
 1264    0   5237   3        4   0  0  0  0  4   0         0   5238   3        1   0  0  0  0  1   0
 1268    0   5239   3        2   0  0  0  0  2   0         0   5262   3        5   3  0  0  0  5   1
 1272    0   5236   3        5   3  0  0  0  5   0         0   5238   3        3   2  0  0  0  3   0
 1276    0   5240   3        2   2  0  0  0  2   0         0   5242   3        2   3  0  0  0  2   0
 1280    0   5254   3        3   3  0  0  0  3   0         0   5250   3        1   0  0  0  0  1   0
 1284    0   5251   3        3   0  0  0  0  3   0         0   5252   3        1   3  0  0  0  1   1
  SECTION   180
 1288    0   5236   3        5   3  0  0  0  5   0         0   5238   3        2   0  0  0  0  2   0
 1292    0   5239   3        3   0  0  0  0  3   0         0   5240   3        3   0  0  0  0  3   0
 1296    0   5241   3        3   0  0  0  0  3   0         0   5242   3        3   0  0  0  0  3   0
 1300    0   5243   3        3   0  0  0  0  3   0         0   5244   3        3   0  0  0  0  3   0
 1304    0   5245   3        3   0  0  0  0  3   0         0   5246   3        3   0  0  0  0  3   0
 1308    0   5247   3        3   0  0  0  0  3   0         0   5248   3        3   0  0  0  0  3   0
 1312    0   5249   3        3   0  0  0  0  3   0         0   5250   3        3   0  0  0  0  3   0
 1316    0   5251   3        3   0  0  0  0  3   0         0   5252   3        3   0  0  0  0  3   1
  SECTION   181
 1320          99       0                1       0             4096       0                0       0
 1324           1       0                0       0                0       0                0       0
 1328       £1£1£       0            1£1£1       0            65764       0            67696       0
 1332       36978       0            55657       0            56554       0            51645       0
 1336       16772       0            53585       0            27259       0            67517       0
 1340       66955       0            72736       0
  SECTION   182
 1342                                                             0       0                0       0
 1344           0       0                0       0                0       0                0       0
 1348           0       0                0       0                0       0                0       0
 PROCEDURE  183
 1352       0  0  0     0    0      27  0  0  1362    4      18  1  1  4127    0      24  0  3     0    4
 1356       2  0  0     6   22      18  1  1     1    0       2  0  0    90    4       1  1  3     1    0
 1360      24  0  0    90    4      18  0  3     0    0       2  0  0    90    4      26  0  1  1352    4
  SECTION   184
 PROCEDURE  185
 1364      24  0  3     1    4      24  0  2    74    0      18  1  1  4123    0       1  1  3  1010    0
 1368      18  1  1     5    0      28  0  0   170    4       6  1  0  5124    4      28  1  1  5326    4
 1372       1  1  3     2    0       2  0  0  7328    4       1  1  3     1    0       2  0  0  6271    4
 1376       6  0  0  6000    4       3  1  0    58    4      27  0  0  1389    4       0  1  0  5070    4
 1380       0  0  3     0    4      24  1  2    17    4      24  0  2     6    0       3  0  0  7354    4
 1384      24  1  2    17    4       4  1  0     5    0       2  0  0  7355    4       0  1  1  5070    4
 1388      24  1  0  2935    4       1  1  3     1    0       2  0  0    83    4      24  1  2    21    4
 1392       6  1  0     4    0      18  0  1  4124    0      18  0  1     4    0       5  1  0  4734    4
 1396      27  0  0  4829    4      24  1  2    21    4       6  1  0     4    0       5  1  0  4766    4
 1400      27  0  0  4829    4      24  0  1  6276    4      26  0  1  1402    4       0  0  0  1405    3
 1404       0  0  0  1408    3      24  1  2    21    4       6  1  0     4    0      24  1  0  1410    4
 1408      24  1  2    21    4       6  1  0     8    0      26  0  0  3997    4      26  0  0  3806    4
 1412      26  0  0  1415    4      26  0  0  4121    4      24  1  0  1391    4
 PROCEDURE  186
 1415                                                                                  0  0  0     0    0
 1416       6  0  0    88    4      27  0  0  1517    4      27  0  2  1533    4       6  0  0   111    4
 1420      27  0  0  1422    4      26  0  0  4243    4       6  0  0   104    4       1  1  2    85    0
 1424      27  0  0  1427    4       1  1  3     0    0       2  1  0   110    4       2  0  0    59    4
 1428       2  0  0    93    4       6  0  0  6000    4      27  0  1  1436    4      24  1  2    21    4
 1432       6  1  0    51    0      27  0  0  1436    4       6  1  0  4760    4       2  1  0  5278    4
 1436       6  0  0  6271    4       1  1  2     4    0      27  0  0  1485    4       6  0  0  5973    4
 1440       1  1  1     1    0       3  0  0  5973    4       3  0  0    50    4       2  0  0    54    4
 PROCEDURE  187
 1444       6  1  0  5243    4      18  0  1  4126    0       3  0  0  5248    4      26  0  0  1613    4
 1448      24  1  0  1450    4       0  0  0  1667    3       5  0  0  5973    4      27  0  0  1454    4
 1452       6  1  0  4760    4       2  1  0  5278    4      24  0  2  4426    4      28  1  2  5242    4
 1456       6  0  0  6270    4      27  0  1  1462    4       6  0  0  5248    4       5  0  0    54    4
 1460      27  0  0  1462    4      26  0  0  1488    4       6  0  0  5973    4       1  1  2   256    0
 1464      27  0  1  1468    4       6  0  0    50    4       2  0  0    64    4      24  1  0  1478    4
 1468      24  0  1  7356    4       6  0  0    64    4       5  0  0    50    4      27  0  1  1485    4
 1472       6  0  0  5973    4       1  1  2     1    0      26  0  0  2765    4      18  0  1     2    0
 1476      24  0  1  7356    4       7  0  0  5979    4       0  0  3  5207    4       1  1  3     1    0
 1480       7  0  0  5970    4       0  0  3  5210    4      23  0  0     1    0       0  0  0  7356    3
 1484      24  1  0  1485    4       1  1  3     1    0       2  0  0  7328    4      24  1  0  1533    4
 PROCEDURE  188
 1488       0  0  0     0    0       6  0  0  5973    4      26  0  0  2765    4       1  0  1     0    0
 1492      18  1  1  4119    0      13  0  0  5218    4       2  0  0  4812    4      18  1  1     9    0
 1496       2  0  0  4813    4       0  0  2  4792    4      24  0  1  4813    4      18  1  3     0    0
 1500       6  0  0  4790    4      24  0  1  4812    4      14  0  0  6151    4       0  0  3  5210    4
 1504      26  0  1  1488    4
 PROCEDURE  189
 1505                                0  0  0     0    0       6  1  0  5276    4       5  1  0  4746    4
 1508      27  0  0  1515    4       6  1  0  5276    4       5  1  0  5126    4      27  0  0  1515    4
 1512       6  1  0  5276    4       5  1  0  4744    4      27  0  1  1516    4       2  1  0  5276    4
 1516      26  0  1  1505    4
 PROCEDURE  190
 1517                                6  0  0  6000    4      27  0  1  1533    4       0  1  2  5236    4
 1520      26  0  0  4820    4       6  1  0   139    4       5  0  0    93    4      27  0  0  1529    4
 1524       6  0  0  7328    4       1  1  2     6    0      27  0  2  1533    4       6  1  0  5128    4
 1528       2  1  0  5278    4       6  1  0   139    4       4  0  0   140    4       1  1  1     1    0
 1532       2  0  0    93    4
 PROCEDURE  191
 1533                               26  0  0  1505    4       6  0  0    83    4      27  0  0  1540    4
 1536       6  0  0  6000    4      27  0  0  1540    4      26  0  0  1488    4       1  1  3     0    0
 1540      24  0  1  7328    4      26  0  1  1541    4       0  0  0  1756    3       0  0  0  1938    3
 1544       0  0  0  3607    3       0  0  0  3189    3       0  0  0  1547    3       6  0  0  5243    4
 1548       0  0  2  5244    4      27  1  0  1555    4      26  0  0  3601    4       6  0  0    54    4
 1552       2  0  0  5243    4      26  0  0  3625    4      24  1  0  2804    4      24  0  1  7329    4
 1556      26  0  1  1556    4       0  0  0  2804    3       0  0  0  1559    3      26  0  0  1578    4
 1560      26  0  0  4239    4      24  1  0  2804    4
 PROCEDURE  192
 1562                                                         0  0  0     0    0       2  0  0  2765    4
 1564       1  1  3     1    0      18  1  1  4118    0      15  0  0  2765    4      27  0  0  1569    4
 1568      26  0  0  1582    4      26  0  1  1562    4
 PROCEDURE  193
 1570                                                         0  0  0     0    0       1  1  3    84    0
 1572      26  0  0  1594    4      26  0  1  1570    4
 PROCEDURE  194
 1574                                                         0  0  0     0    0       1  1  3   100    0
 1576      26  0  0  1594    4      26  0  1  1574    4
 PROCEDURE  195
 1578                                                         0  0  0     0    0       1  1  3   105    0
 1580      26  0  0  1594    4      26  0  1  1578    4
 PROCEDURE  196
 1582                                                         0  0  0     0    0       1  1  3    89    0
 1584      26  0  0  1594    4      26  0  1  1582    4
 PROCEDURE  197
 1586                                                         0  0  0     0    0       1  1  3    99    0
 1588      26  0  0  1594    4      26  0  1  1586    4
 PROCEDURE  198
 1590                                                         0  0  0     0    0       1  1  3   115    0
 1592      26  0  0  1594    4      26  0  1  1590    4
 PROCEDURE  199
 1594                                                         0  0  0     0    0      18  1  1  4118    0
 1596       6  1  0  5278    4      18  0  1  4126    0       5  1  0  5130    4      27  0  0  1612    4
 1600       6  1  0  5278    4       5  1  0  5128    4      27  0  1  1604    4       2  1  0  5278    4
 1604       1  1  3     0    0      18  1  1    10    0      24  1  2   165    4      18  0  1     0    0
 1608       7  1  0  5278    4       1  1  3     2    0       4  0  0   165    4       2  0  0   165    4
 1612      26  0  1  1594    4
 PROCEDURE  200
 1613                                0  0  0     0    0       3  0  0   169    4       3  0  0   168    4
 1616       1  1  2   256    0      27  0  3  1640    4       1  1  2  2201    0      27  0  2  1640    4
 1620       6  0  0    83    4      27  0  1  1632    4       6  0  0  6266    4      27  0  1  1632    4
 1624       6  0  0  6270    4      27  0  1  1632    4      26  0  0  1641    4      27  0  1  1630    4
 1628      26  0  0  1578    4      24  1  0  1632    4       3  0  0   169    4       2  0  0   168    4
 1632      24  0  3  1613    4      24  1  2     1    0      26  0  0     0    0      27  0  1  1639    4
 1636       6  1  0  4760    4       2  1  0  5278    4      26  0  1  1613    4       3  0  0   169    4
 1640      26  0  1  1613    4
 PROCEDURE  201
 1641                                0  0  0     0    0       6  0  0  6268    4      27  0  0  1646    4
 1644       6  0  0   169    4      24  1  0  1664    4       6  0  0   169    4       1  1  2  1536    0
 1648      27  0  2  1665    4       6  0  0   169    4      26  0  0  2765    4      18  1  3     3    0
 1652      18  1  1  4127    0       2  0  0  2765    4      27  1  0  1660    4      24  0  1  2765    4
 1656       6  0  0  5456    4      18  0  3     2    0      18  0  1  4125    0      24  1  0  1663    4
 1660       0  0  2  4740    4      24  0  1  2765    4      15  0  0  5456    4      26  0  0  2759    4
 1664      26  0  1  1641    4       1  1  3     0    0      26  0  1  1641    4
 PROCEDURE  202
 1667                                                                                  0  0  0     0    0
 1668       6  0  0   169    4      26  0  0  2765    4      18  1  3     3    0      18  1  1  4127    0
 1672       2  0  0  2765    4      27  1  0  1679    4      24  0  1  2765    4       6  0  0   120    4
 1676      18  0  3     2    0      18  0  1  4125    0      24  1  0  1682    4       0  0  2  4740    4
 1680      24  0  1  2765    4      15  0  0   120    4      26  0  0  2759    4      26  0  1  1667    4
 PROCEDURE  203
 1684       0  0  0     0    0      26  1  1  5132    4       2  0  0   108    4       2  0  0    96    4
 1688       1  0  1    28    0      15  0  0   108    4       2  0  0    80    4      15  0  1  5760    4
 1692      27  0  0  1699    4       5  0  0    80    4      27  0  0  1702    4      27  0  2  1699    4
 1696       1  1  3     0    0      25  0  1     2    0      24  1  0  1691    4       6  0  0    96    4
 1700       4  0  0   108    4      26  0  1  1684    4       6  0  0   108    4       5  0  1  5760    4
 1704      27  0  3  1696    4       6  0  1  5761    4       7  0  0    96    4      24  1  0  1696    4
 PROCEDURE  204
 1708       0  0  0     0    0      26  1  1  5134    4       1  1  3     0    0       2  0  0    96    4
 1712       1  0  1    28    0      15  0  0   108    4       2  0  0    80    4      15  0  1   620    4
 1716      27  0  0  1729    4       5  0  0    80    4      27  0  3  1726    4      27  0  1  1729    4
 1720       6  0  1   620    4       5  0  0   108    4      27  0  0  1724    4      27  0  2  1738    4
 1724       6  0  1   621    4       7  0  0    96    4       1  1  3     0    0      25  0  1     2    0
 1728      24  1  0  1715    4       1  0  1     3    0       6  0  0    96    4      15  0  0   108    4
 1732       3  0  0   108    4       1  1  2   256    0      27  0  3  1737    4       6  1  0  4762    4
 1736       2  1  0  5278    4      26  0  1  1708    4       4  0  1   621    4      27  0  0  1741    4
 1740      27  0  2  1729    4       6  0  0  5241    4       5  0  0  5219    4      27  0  0  1753    4
 1744       6  0  0   104    4       1  1  2    83    0      27  0  0  1729    4       1  1  2     1    0
 1748      27  0  0  1729    4       1  1  2     1    0      27  0  0  1729    4       1  1  2     1    0
 1752      27  0  0  1729    4       6  1  0  4764    4       2  1  0  5278    4      24  1  0  1729    4
 PROCEDURE  205
 1756       6  1  0  5240    4       5  1  0  4726    4      27  0  1  1761    4       2  1  0   140    4
 1760      24  1  0  2804    4       6  1  0  5240    4       5  1  0  4722    4      27  0  1  1780    4
 1764       6  1  0  5136    4       2  1  0   140    4       0  1  2  5250    4      26  0  0  4820    4
 1768       6  1  0   139    4      27  0  3  1774    4       3  0  0   109    4      27  0  0  1774    4
 1772       1  1  2     5    0      27  0  3  1777    4       1  1  3     5    0       2  0  0  7335    4
 1776      24  1  0  3803    4
 PROCEDURE  206
 1777                                6  0  0   109    4       2  0  0  7335    4      24  1  0  2804    4
 1780       6  1  0  5240    4       5  1  0  4724    4      27  0  1  1802    4       6  1  0  5138    4
 1784      28  0  0  5466    4       0  0  2  4711    4      15  1  0  5251    4      18  0  1  4124    0
 1788       3  0  0   140    4      27  0  1  1791    4       1  1  3    48    0      18  0  1     3    0
 1792       1  0  1    24    0      14  0  0  5251    4      24  1  0  1797    4       1  1  3     1    0
 1796       3  0  0   140    4       1  1  3     1    0       2  0  0  7333    4       1  1  3     4    0
 1800       2  0  0  7328    4      24  1  0  2804    4       6  1  0  5240    4       5  1  0  4748    4
 1804      27  0  1  1809    4       1  1  3     5    0       2  0  0  7328    4       2  1  0   140    4
 1808      24  1  0  2804    4
 PROCEDURE  207
 1809                                6  0  0   141    4      27  0  1  1813    4       1  1  3     2    0
 1812      24  1  0  1814    4       1  1  3     3    0       2  0  0  7328    4       5  0  0    88    4
 1816      27  0  3  2804    4       1  1  3     2    0       2  0  0    59    4      24  1  0  1534    4
 PROCEDURE  208
 1820       0  0  0     0    0       0  1  2  5242    4      26  0  0  4820    4       1  1  2   103    0
 1824       3  0  0  3587    4      27  0  1  1828    4       6  0  0    50    4       2  1  0   139    4
 1828       6  1  0   139    4       3  0  0    54    4       1  1  2   256    0      27  0  3  1850    4
 1832       1  1  2  2201    0      27  0  2  1850    4       6  1  0  5244    4       2  0  0  4195    4
 1836      26  0  0  1851    4       6  0  0  6270    4      27  0  1  1846    4       6  1  0   139    4
 1840       5  0  0    54    4      27  0  1  1845    4       6  1  0  5244    4       5  0  0  4195    4
 1844      27  0  0  1846    4      26  0  0  1488    4       6  1  0   139    4       2  0  0    54    4
 1848      24  0  2  4426    4      28  1  2  5242    4      26  0  1  1820    4
 PROCEDURE  209
 1851                                                                                  0  0  0     0    0
 1852       6  0  0  6000    4      27  0  1  1857    4       1  1  3     2    0       7  1  0  5244    4
 1856      24  1  0  1899    4       6  0  0  6266    4       0  0  2    83    4      27  1  1  1899    4
 1860       6  0  0  3587    4      27  0  0  1899    4       6  0  0  6270    4      27  0  1  1899    4
 1864       6  1  0   139    4       2  0  0   169    4      26  0  0  1641    4      27  0  1  1887    4
 1868       6  1  0   139    4      18  0  1     2    0       4  0  0  5244    4      26  1  1  5140    4
 1872       2  0  0  2765    4       6  0  1  5921    4      27  0  0  1879    4       5  0  0  2765    4
 1876      27  0  0  1881    4      25  0  1     2    0      24  1  0  1873    4      26  0  0  1578    4
 1880      24  1  0  1899    4       6  0  1  5920    4      18  1  1  4126    0       2  1  0   139    4
 1884      18  1  1     2    0       2  0  0  5244    4      24  1  0  1899    4       3  1  0   139    4
 1888      18  0  1     2    0       4  0  0  5244    4       2  0  0  1684    4       6  1  0  5244    4
 1892      27  0  3  1899    4       6  0  0  1684    4      26  0  0  1684    4      18  1  1  4126    0
 1896       2  1  0   139    4      18  1  1     2    0       2  0  0  5244    4       6  1  0   139    4
 1900       3  0  0   168    4       2  0  0   169    4       6  0  0  3587    4      27  0  1  1906    4
 1904       6  1  0   139    4      24  1  0  1928    4      26  0  0  1667    4      27  0  1  1928    4
 1908       6  1  0   139    4      18  0  1     2    0       4  0  0  5244    4      26  1  1  5142    4
 1912       2  0  0  2765    4       6  0  1  1080    4      27  0  0  1919    4       5  0  0  2765    4
 1916      27  0  0  1922    4      25  0  1     2    0      24  1  0  1913    4       6  1  0  4760    4
 1920       2  1  0  5278    4      24  1  0  1937    4       6  0  1  1081    4      18  1  1  4126    0
 1924       2  1  0   139    4      18  1  1     2    0       2  0  0  5244    4      24  1  0  1937    4
 1928       3  1  0   139    4      18  0  1     2    0       4  0  0  5244    4       2  0  0   108    4
 1932       6  1  0  5244    4      27  0  3  1937    4      26  0  0  1708    4       6  0  0   108    4
 1936       2  0  0  5244    4      26  0  1  1851    4
 PROCEDURE  210
 1938                                                        26  0  0  1820    4       6  0  0    54    4
 1940       1  1  2   256    0      27  0  3  1946    4       1  1  2  2201    0      27  0  2  1946    4
 1944       6  0  0   168    4       2  0  0  5256    4       6  0  0  5241    4       5  0  0  5219    4
 1948      27  0  1  1964    4       6  1  0   110    4      27  0  0  2001    4      24  1  2   105    4
 1952       0  0  2     1    0       6  0  0  4702    4       2  0  0  4639    4       0  0  3  5207    4
 1956       6  0  0   104    4       1  1  2    43    0      27  0  0  1961    4       1  1  1     1    0
 1960      27  0  1  1998    4       1  1  3     1    0       7  0  0   105    4      24  1  0  1998    4
 1964       6  0  0   111    4      27  0  0  1967    4      26  0  0  4243    4       0  1  2  5240    4
 1968      26  0  0  4820    4       6  1  0   139    4      27  0  3  2001    4       1  1  2   345    0
 1972      27  0  2  2001    4       6  1  0   139    4      26  0  0  2765    4       3  0  0   104    4
 1976       1  1  2    65    0      27  0  2  1990    4       6  0  0   104    4      18  0  1     3    0
 1980       1  0  0  4606    4      18  1  1    10    0       3  0  0   105    4       6  0  0   104    4
 1984       1  1  2    55    0      27  0  1  1996    4       6  1  0  5250    4      27  0  1  1994    4
 1988       6  0  0  4700    4      24  1  0  1995    4       6  0  0   104    4      18  0  1     3    0
 1992       1  0  0  4648    4      24  1  0  1981    4       6  0  0  4702    4       2  0  0  4639    4
 1996      24  1  2   105    4       0  0  2     0    0       1  1  3     0    0      15  0  0  4712    4
 2000      27  0  1  2005    4
 PROCEDURE  211
 2001                                6  1  0  5144    4       2  1  0  5278    4      26  0  0  4239    4
 2004      24  1  0  2804    4      18  0  1  4126    0       2  0  0  7332    4      15  0  0  4713    4
 2008      18  0  1  4127    0       2  0  0  7331    4      15  0  0  4714    4       2  0  0  7330    4
 2012      15  0  0  4715    4       2  0  0   111    4      15  0  0  4716    4       2  0  0   110    4
 2016       2  0  0   109    4
 PROCEDURE  212
 2017                                0  0  3  5210    4       6  0  0  5244    4       5  0  0  5220    4
 2020      27  0  2  2023    4       6  0  0  5245    4      27  0  0  2024    4      26  0  0  1582    4
 2024       6  0  0   104    4       1  1  2   100    0      27  0  3  2041    4       6  0  0   104    4
 2028       1  1  2   132    0      27  0  2  2041    4       6  1  0  5246    4      27  0  0  2035    4
 2032       1  1  2     1    0      27  0  0  2035    4      26  0  0  1570    4       6  1  0  5248    4
 2036      27  0  0  2098    4       1  1  2     4    0      27  0  3  2098    4      26  0  0  1574    4
 2040      24  1  0  2098    4       6  1  0  5246    4      27  0  0  2050    4       6  0  0  5244    4
 2044      26  0  0  1562    4
 PROCEDURE  213
 2045                                6  1  0  5246    4      27  0  3  2049    4       1  1  2     3    0
 2048      27  0  3  2050    4      26  0  0  1570    4       6  1  0  5248    4      27  0  0  2063    4
 2052      27  0  3  2061    4       1  1  2    33    0      27  0  2  2061    4       6  0  0  5248    4
 2056       1  1  2     4    0      27  0  2  2063    4       1  1  3     1    0       2  0  0  5974    4
 2060      24  1  0  2063    4      26  0  0  1574    4      24  1  0  2003    4
 PROCEDURE  214
 2063                                                                                 24  0  1  7330    4
 2064      26  0  1  2064    4       0  0  0  2098    3       0  0  0  2081    3       0  0  0  2086    3
 2068       0  0  0  2082    3       0  0  0  2088    3       0  0  0  2089    3       0  0  0  2072    3
 2072       6  0  0  5250    4      27  0  0  2078    4       6  1  0  5243    4      27  0  0  2081    4
 2076      26  0  0  1578    4      24  1  0  2081    4       6  1  0  5243    4      27  0  1  2081    4
 2080      26  0  0  1586    4
 PROCEDURE  215
 2081                               26  0  0  2093    4       6  1  0  5248    4      27  0  0  2098    4
 2084      26  0  0  1574    4      24  1  0  2098    4      26  0  0  2093    4      24  1  0  2098    4
 2088      26  0  0  2093    4       6  1  0  5248    4      27  0  1  2098    4      26  0  0  4239    4
 2092      24  1  0  2084    4
 PROCEDURE  216
 2093                                0  0  0     0    0       6  1  0  5246    4      27  0  0  2097    4
 2096      26  0  0  1570    4      26  0  1  2093    4
 PROCEDURE  217
 2098                                                        24  0  1  7331    4      26  0  1  2099    4
 2100       0  0  0  2107    3       0  0  0  2165    3       0  0  0  2171    3       0  0  0  2345    3
 2104       0  0  0  2365    3       0  0  0  2400    3       0  0  0  2163    3
 PROCEDURE  218
 2107                                                                                  6  0  0    54    4
 2108      27  0  3  2141    4      27  0  1  2125    4       6  0  0  5248    4      27  0  1  2154    4
 2112       6  1  0  5244    4      27  0  3  2118    4      27  0  1  2160    4       6  0  0   104    4
 2116      27  0  0  2141    4      24  1  0  2160    4       1  1  3     0    0       1  0  1     1    0
 2120      15  0  0  5244    4       1  1  2    12    0      27  0  0  2160    4      26  0  0  4239    4
 2124      24  1  0  2169    4       1  1  2   256    0      27  0  3  2136    4       1  1  2  2304    0
 2128      27  0  3  2160    4      27  0  0  2141    4       1  1  2    33    0      27  0  2  2141    4
 2132       6  0  0   104    4       1  1  2    80    0      27  0  0  2141    4      24  1  0  2160    4
 2136       6  0  0    54    4      26  0  0  1352    4       0  0  2    90    4      15  0  3   122    4
 2140      27  0  1  2160    4      26  0  0  4239    4      26  0  0  1578    4       6  0  0  7331    4
 2144       1  1  2     5    0      27  0  0  2398    4       6  0  0   104    4       1  1  2    40    0
 2148      27  0  0  2398    4       1  1  2    93    0      27  0  0  2398    4       1  1  2     1    0
 2152      27  0  0  2398    4      24  1  0  2405    4       6  0  0   104    4       1  1  2    93    0
 2156      27  0  0  2141    4       6  0  0   104    4       1  1  2    97    0      27  0  0  2141    4
 2160       6  0  0   109    4      27  0  0  2405    4      24  1  0  2368    4      26  0  0  3625    4
 2164      24  1  0  2405    4
 PROCEDURE  219
 2165                                6  1  0  5243    4      27  0  1  2142    4       6  1  0  5244    4
 2168      27  0  0  2405    4      26  0  0  1582    4      24  1  0  2405    4
 PROCEDURE  220
 2171                                                                                  6  0  0   104    4
 2172       1  1  2    40    0      27  0  1  2181    4       6  1  0   110    4      27  0  0  2181    4
 2176       6  0  0  5241    4       5  0  0  5219    4      27  0  1  2181    4       6  1  0  5246    4
 2180      27  0  1  2107    4       6  0  0  6009    4      18  0  1     5    0       2  1  0  7360    4
 2184       6  0  0  4708    4       2  0  0  4628    4      24  0  1  7360    4       6  0  0  6013    4
 2188      18  1  3     2    0      18  1  1  4126    0      27  0  0  2203    4       4  0  0  5221    4
 2192      18  0  1     1    0       5  0  0  5243    4      27  0  0  2212    4      23  0  0     2    0
 2196       0  0  0  7360    3      24  1  0  2186    4       6  0  0  5241    4       5  0  0  5219    4
 2200      27  0  1  2203    4      26  0  0  4239    4      26  0  0  4243    4      26  0  0  1578    4
 2204      26  0  0  4239    4       6  0  0   104    4       1  1  2    42    0      27  0  0  2210    4
 2208       1  1  2     1    0      27  0  1  2506    4       2  1  0   110    4      24  1  0  2506    4
 2212       0  0  3  5207    4       6  0  0   104    4       1  1  2   132    0      27  0  3  2220    4
 2216       1  1  2     3    0      27  0  3  2329    4      24  1  0  2405    4      27  0  0  2405    4
 2220       1  1  3     0    0      18  1  3     6    0       1  1  2     5    0      27  0  3  2278    4
 2224      27  0  0  2271    4       1  1  2     1    0      27  0  0  2260    4       1  1  2     3    0
 2228      27  0  3  2282    4      27  0  0  2278    4       1  1  2     1    0      27  0  0  2260    4
 2232       1  1  2     1    0      27  0  0  2282    4       1  1  2     1    0      27  0  0  2260    4
 2236       1  1  2     1    0      27  0  0  2325    4       1  1  2     2    0      27  0  0  2260    4
 2240       1  1  2     1    0      27  0  0  2278    4       1  1  2     2    0      27  0  0  2325    4
 2244       1  1  2     1    0      27  0  0  2278    4       1  1  2     1    0      27  0  0  2255    4
 2248       1  1  2     2    0      27  0  0  2314    4       1  1  2     2    0      27  0  0  2267    4
 2252       1  1  2     1    0      27  0  1  2319    4      24  1  0  2278    4       6  0  0   104    4
 2256       1  1  2    40    0      27  0  0  2333    4       1  1  2     1    0      27  0  0  2319    4
 PROCEDURE  221
 2260       6  0  0   104    4       1  1  2    42    0      27  0  0  2506    4       6  0  0   104    4
 2264       1  1  2    42    0      27  0  3  2506    4      24  1  0  2319    4       6  0  0   104    4
 2268       1  1  2    42    0      27  0  0  2506    4      24  1  0  2319    4       6  0  0   104    4
 2272       1  1  2    44    0      27  0  1  2260    4       6  0  0  5250    4       1  1  2     3    0
 2276      27  0  0  2506    4      24  1  0  2427    4       6  0  0   104    4       1  1  2    43    0
 2280      27  0  0  2506    4      24  1  0  2263    4       6  0  0   104    4       1  1  2    48    0
 2284      27  0  0  2309    4       6  0  0   104    4       1  1  2    41    0      27  0  0  2309    4
 2288       6  0  0   104    4       1  1  2    44    0      27  0  0  2304    4       1  1  2     2    0
 2292      27  0  0  2295    4       1  1  2     1    0      27  0  1  2405    4       6  1  0  5244    4
 2296      27  0  3  2302    4       1  0  1     0    0      18  1  3     3    0      18  1  1  4127    0
 2300       1  1  3     0    0      27  1  0  2405    4      26  0  0  1582    4      24  1  0  2405    4
 2304       6  1  0  5250    4       1  1  2     2    0      27  0  0  2506    4       1  1  2     1    0
 2308      24  1  0  2425    4       6  1  0  5250    4      27  0  3  2428    4       1  1  2     4    0
 2312      27  0  2  2428    4      24  1  0  2506    4       6  0  0  4701    4       2  0  0  4628    4
 2316       6  0  0   104    4       1  1  2    41    0      27  0  1  2278    4       6  1  0  5144    4
 2320       2  1  0  5278    4      26  0  0  4239    4      24  0  3     1    4       2  1  0   124    0
 2324      24  1  0  2205    4       6  0  0   104    4       1  1  2    44    0      27  0  3  2506    4
 2328      24  1  0  2319    4
 PROCEDURE  222
 2329                                1  1  3     0    0      18  1  3     6    0       1  1  2    17    0
 2332      27  0  1  2319    4       6  1  0  5244    4      27  0  3  2123    4      27  0  0  2123    4
 2336       1  1  2   256    0      27  0  2  2123    4       6  1  0  5244    4      26  0  0  1352    4
 2340       0  0  2    90    4      18  1  3    10    0      15  0  3   122    4      27  0  0  2123    4
 2344      24  1  0  2381    4
 PROCEDURE  223
 PROCEDURE  224
 2345                                6  0  0    54    4      27  0  1  2349    4       6  0  0  5248    4
 2348      27  0  1  2357    4       1  1  2   256    0      27  0  3  2141    4       1  1  2  2201    0
 2352      27  0  3  2357    4       1  1  2     2    0      27  0  3  2141    4       1  1  2    32    0
 2356      27  0  2  2141    4       6  0  0   104    4       1  1  2    70    0      27  0  3  2362    4
 2360       1  1  2    10    0      27  0  3  2405    4       6  0  0  5244    4      26  0  0  1562    4
 2364      24  1  0  2405    4
 PROCEDURE  225
 2365                                1  1  3     1    0       2  0  0   109    4      24  1  0  2107    4
 2368       1  1  3     0    0       0  0  2    90    4      18  1  3    10    0      15  0  3   122    4
 2372      27  0  0  2398    4       1  1  3     0    0       0  0  2  4814    4      24  0  1  7360    4
 2376      15  0  0  6013    4       1  1  2     3    0      27  0  0  2405    4       1  1  2     1    0
 2380      27  0  0  2405    4      24  0  3     0    4       6  0  0     6   22       1  0  1     0    0
 2384      18  1  3     3    0      18  1  1  4127    0      24  0  3     0    4       2  0  0     6   22
 2388      27  1  0  2393    4       0  0  2    90    4       6  0  0    90    4      18  1  3    10    0
 2392      24  1  0  2395    4       6  0  0    90    4       0  0  2    90    4      14  0  3   150    4
 2396       0  0  3  5210    4      24  1  0  2405    4      26  0  0  4243    4      24  1  0  2203    4
 PROCEDURE  226
 2400       6  0  0    54    4       1  1  2   256    0      27  0  3  2141    4       1  1  2  2304    0
 2404      27  0  2  2141    4
 PROCEDURE  227
 2405                                6  1  0  5252    4      27  0  1  2427    4       0  1  2  5250    4
 2408      18  1  1    10    0       2  1  0  5252    4      24  0  1  7332    4      26  0  1  2411    4
 2412       0  0  0  2506    3       0  0  0  2453    3       0  0  0  2430    3       0  0  0  2433    3
 2416       0  0  0  2438    3       0  0  0  2448    3       0  0  0  2463    3       0  0  0  2472    3
 2420       0  0  0  2475    3       0  0  0  2487    3       0  0  0  2490    3       0  0  0  2492    3
 2424       0  0  0  2502    3
 PROCEDURE  228
 2425                               27  0  0  2506    4      24  1  0  2428    4      26  0  0  4239    4
 2428      26  0  0  1586    4      24  1  0  2506    4
 PROCEDURE  229
 2430                                                         6  1  0  5250    4      27  0  2  2506    4
 2432      24  1  0  2427    4
 PROCEDURE  230
 2433                                6  1  0  5252    4      27  0  0  2428    4       1  1  2    50    0
 2436      27  0  2  2428    4      24  1  0  2506    4
 PROCEDURE  231
 2438                                                        26  1  3  5146    4       1  1  3     0    0
 2440       0  1  2  5250    4      18  1  1     1    0      27  0  0  2445    4       1  1  2     1    0
 2444      27  0  1  2428    4      25  0  3     1    0      24  1  0  2441    4      24  1  0  2506    4
 PROCEDURE  232
 2448       6  1  0  5250    4      27  0  3  2427    4       1  1  2    22    0      27  0  2  2428    4
 2452      24  1  0  2506    4
 PROCEDURE  233
 2453                                6  0  0   111    4      27  0  1  2458    4       6  0  0    96    4
 2456       0  0  2  5252    4      27  1  0  2428    4       6  1  0  5252    4       3  0  0    96    4
 2460       5  0  0  5220    4      27  0  2  2428    4      24  1  0  2506    4       6  1  0  5250    4
 2464      27  0  3  2427    4       6  0  0  5246    4      27  0  0  2468    4       6  0  0  5222    4
 2468       4  0  0  5222    4       5  1  0  5250    4      27  0  3  2427    4      24  1  0  2506    4
 PROCEDURE  234
 2472       6  1  0  5250    4      18  0  1  4123    0      24  1  0  2425    4       6  0  0   104    4
 2476       1  1  2    54    0      27  0  1  2484    4       6  1  0  5250    4      27  0  3  2427    4
 2480      27  0  0  2504    4       1  1  3     0    0       2  1  0   110    4      24  1  0  2465    4
 2484       6  1  0  5252    4       5  0  0  5215    4      24  1  0  2436    4       6  1  0  5250    4
 2488      27  0  0  2428    4      24  1  0  2506    4       6  1  0  5250    4      24  1  0  2425    4
 2492       6  1  0  5250    4      27  0  3  2428    4       1  1  2   256    0      27  0  2  2427    4
 2496       6  0  0   104    4       1  1  2    83    0      27  0  1  2506    4       6  0  0  5250    4
 2500      27  0  0  2427    4      24  1  0  2506    4       6  1  0  5250    4      27  0  1  2506    4
 2504       1  1  3     1    0       2  0  0   111    4
 PROCEDURE  235
 2506                                                         0  0  3  5207    4       6  0  0   104    4
 2508       1  1  2    20    0      27  0  3  2804    4       1  1  2    10    0      27  0  3  2521    4
 2512       1  1  2    21    0      27  0  3  2804    4       1  1  2    15    0      27  0  0  2518    4
 2516       1  1  2     1    0      27  0  1  2523    4       6  0  0  5223    4       2  0  0  5975    4
 2520      24  1  0  2523    4       2  0  0  5975    4      24  1  0  2804    4       6  0  0  5248    4
 2524      26  0  0  2765    4       3  0  0   138    4      27  0  0  2551    4       1  1  2     4    0
 2528      27  0  3  2551    4       6  0  0   104    4       1  1  2    59    0      27  0  0  2536    4
 2532       1  1  2    31    0      27  0  3  2551    4       1  1  2     4    0      27  0  2  2551    4
 2536      26  1  3  5386    4       1  1  3     0    0       1  0  1     3    0      15  0  3  5388    4
 2540      27  0  0  2545    4       5  0  0   138    4      27  0  0  2551    4      25  0  3     1    0
 2544      24  1  0  2537    4       6  0  0  5970    4      18  0  1     4    0       4  0  0   138    4
 2548       2  0  3  5388    4       1  1  3     1    0       7  0  0  5387    4
 PROCEDURE  236
 2551                                                                                  0  0  3  5207    4
 PROCEDURE  237
 2552       6  0  0   104    4       1  1  2    70    0      27  0  3  2720    4       1  1  2     7    0
 2556      27  0  3  2626    4       1  1  2     2    0      27  0  0  2626    4      27  0  2  2564    4
 2560       6  1  0  5240    4       5  1  0  5148    4      27  0  1  2626    4      24  1  0  2804    4
 2564       1  1  2     6    0      27  0  0  2579    4       1  1  2     2    0      27  0  0  2572    4
 2568       1  1  2     7    0      27  0  0  2616    4       1  1  2     3    0      27  0  1  2576    4
 2572       6  0  0  5241    4       5  0  0  5219    4      27  0  0  2626    4      24  1  0  2804    4
 2576       1  1  2    53    0      27  0  0  2572    4      24  1  0  2605    4
 PROCEDURE  238
 2579                                                                                  6  0  0  5241    4
 2580       5  0  0  5219    4      27  0  0  2626    4      26  1  3  6056    4       6  0  0    54    4
 2584      26  0  0  2765    4       2  0  0    82    4       1  1  3     0    0       0  0  2  4740    4
 2588      15  0  3  6058    4      27  0  0  2594    4       5  0  0    82    4      27  0  0  2603    4
 2592      25  0  3     1    0      24  1  0  2586    4       6  0  0  6057    4       1  1  2    48    0
 2596      27  0  2  2603    4       6  0  0  5970    4      18  0  1     4    0       4  0  0    82    4
 2600       2  0  3  6058    4       1  1  3     1    0       7  0  0  6057    4       0  0  3  5210    4
 2604      24  1  0  2804    4
 PROCEDURE  239
 2605                                6  0  0   104    4       1  1  2   127    0      27  0  0  2626    4
 2608       1  1  1     3    0      27  0  1  2666    4       6  0  0  5246    4       1  1  2     1    0
 2612      27  0  1  2666    4       6  0  0  5248    4      27  0  1  2666    4      24  1  0  2626    4
 2616       0  0  3  5210    4       6  1  0  5250    4      27  0  1  2620    4      26  0  0  1586    4
 2620       6  1  0  5242    4      27  0  1  2626    4       6  0  0  5244    4      27  0  0  2804    4
 2624      26  0  0  1582    4      24  1  0  2804    4
 PROCEDURE  240
 2626                                                         6  0  0    54    4       1  1  2  2457    0
 2628      27  0  2  2804    4       6  0  0  5973    4      18  0  1     2    0       4  0  0    59    4
 2632       3  0  0   168    4       5  1  0  5243    4       5  0  0  5244    4      27  0  3  2804    4
 2636       6  1  0  5243    4      27  0  0  2804    4       4  0  0  5244    4      27  0  3  2804    4
 2640       2  0  0   169    4       6  1  0   168    4       0  0  3  5207    4      24  1  2  5979    4
 2644       1  1  0     0    0      18  1  1    10    0       3  1  0  5070    4      26  1  1  5070    4
 2648       5  0  0  5979    4      18  0  1     5    0       4  0  0  5979    4       2  1  0   138    4
 2652       6  0  0  5979    4       5  0  0  4704    4      27  0  0  2804    4       6  0  0  5211    4
 2656       7  0  0  5979    4       6  1  0   138    4      24  1  2  5979    4      28  1  1     0    0
 2660      25  0  1  4098    0      24  1  0  2662    4       6  1  0   168    4      24  0  3     0    4
 2664       2  1  1     0    0      24  1  0  2804    4
 PROCEDURE  241
 2666                                                         6  0  0   104    4       1  1  2   152    0
 2668      27  0  1  2720    4      26  1  3    62    4       6  0  0    54    4       5  0  3    64    4
 2672      27  0  0  2678    4      25  0  3     1    0      24  1  0  2670    4      26  0  0  1578    4
 2676      26  0  0  4239    4      24  1  0  2680    4      24  0  3     0    4       6  1  0     6   22
 2680       1  1  1     1    0       2  0  0    96    4       6  0  0   111    4      27  0  0  2687    4
 2684       6  0  0    96    4       2  0  0    97    4      24  1  0  2804    4
 PROCEDURE  242
 2687                                                                                  1  1  3    16    0
 2688      18  1  1  4118    0       1  1  3    16    0      24  0  1    96    4      14  0  0  5979    4
 2692      24  0  1    97    4      14  0  0  5979    4       1  1  3     0    0       1  0  1     1    0
 2696      24  0  1    96    4      15  0  0  5979    4       2  0  0    96    4      24  0  1    97    4
 2700      15  0  0  5979    4       3  0  0    97    4       5  0  0    96    4      27  0  0  2804    4
 2704      27  0  3  2709    4       0  0  2    96    4       7  0  0    96    4      18  1  1    10    0
 2708       2  0  0    97    4      26  1  3    62    4       1  0  1     1    0       1  1  3     0    0
 2712      15  0  3  5980    4       5  0  0    96    4      27  0  1  2717    4       6  0  0    97    4
 2716      14  0  3  5980    4      25  0  3     1    0      24  1  0  2711    4      24  1  0  2804    4
 PROCEDURE  243
 2720       0  0  3  5207    4       6  0  0   104    4       1  1  2    93    0      27  0  0  2732    4
 2724       1  1  1    28    0      27  0  0  2752    4       1  1  1     2    0      27  0  0  2731    4
 2728       1  1  2     1    0      27  0  1  2771    4       6  1  0  5150    4       4  0  0  5224    4
 2732       4  1  0  5152    4       2  1  0    96    4       6  0  0  5977    4      18  0  1     5    0
 2736       3  1  0  5070    4      26  1  3  5070    4      27  0  0  2747    4       6  1  3  6106    4
 2740       5  1  0    96    4      27  0  0  2804    4      25  0  3     2    0      24  1  0  2739    4
 2744       6  0  0  5977    4       1  1  2    50    0      27  0  2  2804    4       6  1  0    96    4
 2748       2  1  3  6106    4       1  1  3     2    0       7  0  0  5977    4      24  1  0  2804    4
 2752       6  0  0  5250    4       2  0  0    96    4       6  0  0   111    4      27  0  0  2734    4
 2756       6  0  0    96    4       2  0  0    97    4      24  1  0  2804    4
 PROCEDURE  244
 2759                                                                                  0  0  0     0    0
 2760       2  1  0  4812    4       0  0  3  5210    4      24  0  2  4772    4      12  1  0  4812    4
 2764      26  0  1  2759    4
 PROCEDURE  245
 2765                                0  0  0     0    0       2  1  0  4812    4       0  0  3  5207    4
 2768      24  0  2  4792    4      12  1  0  4812    4      26  0  1  2765    4
 PROCEDURE  246
 2771                                                                                  6  0  0   111    4
 2772      27  0  0  2804    4       6  0  0   104    4       1  1  2    51    0      27  0  0  2780    4
 2776       1  1  2     2    0      27  0  0  2780    4       1  1  2   104    0      27  0  1  2804    4
 2780       6  0  0    54    4      26  0  0  2765    4       3  0  0   138    4       1  1  2   100    0
 2784      27  0  2  2804    4       6  1  0  6044    4      26  1  3  6044    4      27  0  0  2798    4
 2788       1  1  3     0    0       1  0  1     3    0      15  0  3  6046    4       5  0  0   138    4
 2792      27  0  0  2804    4      25  0  3     1    0      24  1  0  2788    4       6  0  0  6045    4
 2796       1  1  2    10    0      27  0  2  2804    4       6  0  0  5970    4      18  0  1     4    0
 2800       4  0  0   138    4       2  0  3  6046    4       1  1  3     1    0       7  0  0  6045    4
 PROCEDURE  247
 2804       6  0  0   135    4      27  0  0  2807    4      26  0  0  4239    4       0  0  3  5210    4
 2808       6  0  0  5973    4      18  0  1     2    0       2  0  0   138    4       6  0  0  7328    4
 2812       1  1  2     5    0      27  0  0  2828    4       6  0  0    59    4       1  1  2   256    0
 2816      27  0  3  2828    4       6  0  0  7328    4       1  1  2     2    0      27  0  0  2824    4
 2820       1  0  1    63    0       6  1  0  5128    4      14  1  0  5278    4      24  1  0  2825    4
 2824      26  0  0  4239    4       1  1  3   153    0       5  0  0   140    4      24  1  0  2829    4
 2828       6  0  0    59    4       7  0  0   138    4      24  0  2  4430    4      28  1  2  5236    4
 PROCEDURE  248
 2832       1  1  3     0    0      24  0  1  7328    4      26  0  1  2834    4       0  0  0  2842    3
 2836       0  0  0  2862    3       0  0  0  2851    3       0  0  0  2856    3       0  0  0  2840    3
 2840       2  1  0  5236    4      24  1  0  2844    4       6  0  0    59    4      27  0  1  2849    4
 2844       6  0  0  4742    4       1  1  2     3    0      27  0  1  2849    4       1  1  3     1    0
 2848       2  1  0  5332    4       1  1  3     0    0      24  1  0  2862    4
 PROCEDURE  249
 2851                                                                                  6  0  0    59    4
 2852       1  1  2     1    0      27  0  0  2862    4       1  1  3     2    0      24  1  0  2863    4
 2856       6  0  0    59    4      27  0  1  2861    4       1  1  3     1    0       7  0  0    59    4
 2860      24  1  0  2844    4       6  0  0   140    4       1  1  1     1    0       7  0  0    59    4
 2864       6  0  0    83    4      27  0  0  2869    4       6  0  0    51    4      18  0  1     2    0
 2868       2  1  0  5234    4       2  1  0  6004    4
 PROCEDURE  250
 2870                                                         0  0  3  5207    4       6  0  0  4719    4
 2872      27  0  0  2875    4      26  0  0  4033    4      24  1  0  2876    4      26  0  0  4090    4
 2876       6  0  0    88    4      27  0  1  2901    4       6  0  0  6271    4       1  1  2     4    0
 2880      27  0  0  2893    4      24  0  1  6271    4       6  0  0  4416    4      28  1  2  5328    4
 2884       6  1  0  4768    4      24  0  1  6271    4      24  0  1  4412    4      28  1  1  5326    4
 2888       6  1  0  5278    4      24  0  1  6271    4      24  0  1  4412    4       2  1  0  5324    4
 2892      24  1  0  2922    4      24  0  2  5245    4      18  1  1  4123    0       1  1  3    16    0
 2896      18  1  1     5    0      28  0  1  5337    4      24  0  2  4602    4      28  1  2  5332    4
 2900      24  1  0  2922    4      24  0  2  4450    4      28  1  2  5328    4       1  1  3     0    0
 2904       2  0  0  4742    4       6  0  0  6271    4       1  1  2     1    0      27  0  1  2914    4
 2908       6  0  0    88    4      27  0  3  2914    4       6  1  0  5242    4       2  1  0  5338    4
 2912       2  1  0  5334    4      24  1  0  2916    4       6  1  0  5278    4       2  1  0  5338    4
 2916      24  0  2  5250    4      18  1  1  4123    0       1  1  3    28    0      18  1  1     5    0
 2920      28  1  1  5340    4      24  1  0  2924    4       6  0  0  6271    4       2  0  0  4742    4
 2924       1  1  3     1    0       2  0  0  4719    4       0  0  3  5210    4       1  1  3     0    0
 2928       2  0  0   165    4       6  0  0  6203    4       1  0  1    15    0      14  1  0  5328    4
 2932       1  1  3     0    0       2  0  0  6203    4      26  0  1  1415    4
 PROCEDURE  251
 2935                                                                                 26  0  0  4195    4
 2936      27  0  0  2958    4       6  0  0    95    4      27  0  1  2950    4       6  0  0  6267    4
 2940      27  0  0  2944    4      24  0  3  7354    4       6  1  0     5    0      24  1  0  2946    4
 2944      24  1  2    17    4       6  1  0     7    0      24  1  2    21    4       5  1  0     5    0
 2948      27  0  0  2958    4      27  0  2  2964    4      26  0  0  4265    4       1  1  3     0    0
 2952       2  0  0    83    4      26  0  0  4323    4      26  0  0  3863    4      26  0  0  1415    4
 2956      26  0  0  4300    4      24  1  0  2937    4
 PROCEDURE  252
 2958                                                        24  0  1  7327    4      26  0  1  2959    4
 2960       0  0  0  2980    3       0  0  0  3017    3       0  0  0  3114    3       0  0  0  3091    3
 PROCEDURE  253
 2964       6  1  0  5238    4      24  0  1  4742    4      24  0  1  4420    4       2  1  0  5326    4
 2968       0  1  2  5236    4      26  0  0  3172    4       1  1  3  7517    0       3  0  0  6272    4
 2972       1  0  1    15    0      24  0  1  4742    4      24  0  1  4420    4      14  1  0  5326    4
 2976      26  0  0  4121    4      26  0  0  4195    4      27  0  0  2976    4      24  1  0  2937    4
 PROCEDURE  254
 2980      24  1  2    21    4       6  1  0    51    0      27  0  1  3015    4       6  0  0  6271    4
 2984       2  0  0  4243    4      26  0  0  4323    4       6  0  0    88    4       2  0  0  1586    4
 2988      26  0  0  4176    4       6  0  0    88    4       5  0  0  1586    4      27  0  1  3010    4
 2992       1  1  3     1    0       2  0  0    83    4      26  0  0  3806    4      26  0  0  4265    4
 2996       6  0  0    88    4      27  0  2  3006    4       6  0  0  6267    4      27  0  0  3003    4
 3000      24  0  3  7354    4       6  1  0     8    0      24  1  0  3005    4      24  1  2    17    4
 3004       6  1  0    16    0       2  1  0  5242    4      26  0  0  4300    4      26  0  0  1415    4
 3008      26  0  0  4121    4      24  1  0  2935    4       6  0  0    88    4       4  0  0  1586    4
 3012      27  0  2  2992    4       6  0  0  4243    4       2  0  0  6271    4       1  1  3   105    0
 3016      24  1  0  3058    4
 PROCEDURE  255
 3017                               26  0  0  4265    4      24  1  2    21    4       6  1  0     4    0
 3020       2  1  0  5234    4      24  1  2    21    4       6  1  0    51    0      27  0  1  3057    4
 3024      26  0  0  4121    4      26  0  0  4195    4      27  0  1  3070    4      24  1  2    21    4
 3028       6  1  0    51    0      27  0  1  3057    4       6  0  0  6267    4      27  0  0  3035    4
 3032      24  0  3  7354    4       6  1  0     5    0      24  1  0  3037    4      24  1  2    17    4
 3036       6  1  0     7    0      18  0  1     8    0      27  0  0  3040    4      26  0  0  1488    4
 3040      26  0  0  4300    4      26  0  0  4265    4       6  0  0  6267    4      27  0  0  3047    4
 3044      24  0  3  7354    4       6  1  0     5    0      24  1  0  3049    4      24  1  2    17    4
 3048       6  1  0     7    0       5  1  0  5237    4      27  0  1  3056    4      26  0  0  4300    4
 3052      26  0  0  4121    4      26  0  0  4195    4      27  0  1  2937    4      24  1  0  3057    4
 3056      27  0  3  3040    4       1  1  3    84    0      18  0  1     8    0      24  0  1  4742    4
 3060      24  0  1  4420    4       2  1  0  5326    4       6  0  0  6267    4      27  0  0  3067    4
 3064      24  0  3  7354    4       0  1  2     4    0      24  1  0  2969    4      24  1  2    17    4
 3068       0  1  2     6    0      24  1  0  2969    4       6  0  0  6267    4      27  0  0  3075    4
 3072      24  0  3  7354    4       6  1  0     5    0      24  1  0  3077    4      24  1  2    17    4
 3076       6  1  0     7    0      18  0  1     8    0      27  0  0  3080    4      26  0  0  1488    4
 3080      26  0  0  4300    4       6  0  0  6267    4      27  0  0  3086    4      24  0  3  7354    4
 3084       6  1  0     5    0      24  1  0  3088    4      24  1  2    17    4       6  1  0     7    0
 3088       5  1  0  5235    4      27  0  0  3080    4      24  1  0  2935    4
 PROCEDURE  256
 3091                                                                                 26  0  0  4323    4
 3092      26  0  0  3806    4      24  1  2    21    4       6  1  0    51    0      27  0  0  3098    4
 3096       1  1  3    81    0      24  1  0  3058    4       1  1  3     1    0       3  0  0  6203    4
 3100       2  0  0   136    4      26  0  0  3110    4       1  1  3     0    0       2  0  0   136    4
 3104      26  0  0  4121    4       1  1  3     0    0       2  0  0    83    4      26  0  0  1415    4
 3108      26  0  0  4300    4      24  1  0  2935    4
 PROCEDURE  257
 3110                                                         0  0  0     0    0       6  0  0  3110    4
 3112       2  0  0  3863    4      24  1  0  3866    4
 PROCEDURE  258
 3114                                                        24  1  2    21    4       6  1  0    51    0
 3116      27  0  1  3164    4       2  0  0    88    4      24  0  1  6271    4      26  0  1  3119    4
 3120       0  0  0  3132    3       0  0  0  3132    3       0  0  0  3124    3       0  0  0  3132    3
 3124       6  1  0  5086    4      28  1  1  5234    4      24  0  2  4548    4      26  0  0  5063    4
 3128       1  1  3     0    0       2  1  0  5254    4       2  1  0  5278    4      24  1  0  3133    4
 3132      26  0  0  3806    4      26  1  1  5154    4       6  1  1  5234    4      27  0  1  3139    4
 3136      25  0  1     2    0      24  1  0  3134    4      24  1  0  3158    4       1  1  3   115    0
 3140      18  0  1     8    0      24  0  1  4742    4      24  0  1  4420    4       2  1  0  5326    4
 3144       6  0  0  6267    4      27  0  0  3149    4      24  0  3  7354    4       0  1  2     4    0
 3148      24  1  0  3151    4      24  1  2    17    4       0  1  2     6    0      26  0  0  3172    4
 3152       1  1  3  7517    0       3  0  0  6272    4       1  0  1    15    0      24  0  1  4742    4
 3156      24  0  1  4420    4      14  1  0  5326    4      26  0  0  4121    4      26  0  0  4195    4
 3160      27  0  1  2937    4      24  1  2    21    4       6  1  0    51    0      27  0  0  3166    4
 3164       1  1  3   115    0      24  1  0  3058    4      26  0  0  4176    4       1  1  3     1    0
 3168       2  0  0    83    4      26  0  0  3806    4      26  0  0  1415    4      24  1  0  3158    4
 PROCEDURE  259
 3172       0  0  0     0    0      24  0  1  4742    4      24  0  1  4412    4       6  0  0  5341    4
 3176       5  0  0  4747    4      27  0  0  3184    4       1  1  3     0    0      18  1  1    10    0
 3180      24  0  1  4742    4      24  0  1  4412    4       2  1  0  5340    4      26  0  1  3172    4
 3184      18  1  1    10    0      24  0  1  4742    4      24  0  1  4412    4       2  1  0  5338    4
 3188      26  0  1  3172    4
 PROCEDURE  260
 3189                                2  0  0   119    4       2  1  0   116    4       2  0  0   120    4
 3192       2  0  0  7341    4      26  1  2   116    4      26  1  3  5156    4      26  1  1  5110    4
 3196       6  1  0  5158    4      28  0  0  5406    4       0  0  3  5207    4       0  1  2  5240    4
 3200       6  0  0    83    4       2  0  0   120    4      24  1  0  3205    4      26  0  0  4239    4
 PROCEDURE  261
 3204      26  0  0  3587    4      18  1  1     2    0       3  1  0   138    4       1  1  2   125    0
 3208      27  0  0  3214    4       1  1  2     1    0      27  0  0  3371    4       6  0  0   120    4
 3212      27  0  1  3204    4      24  1  0  3219    4       6  0  0   120    4      27  0  0  3371    4
 3216       2  0  0   120    4       2  0  0   120    4      24  1  0  3204    4       6  0  0   138    4
 3220       2  0  2  5406    4
 PROCEDURE  262
 3221                               24  0  3     0    4       6  0  0     4   22      25  0  2     1    0
 3224      24  1  0  3225    4      27  0  1  3245    4       6  0  0   138    4       1  1  2   122    0
 3228      27  0  0  3247    4       1  1  3     5    0       2  0  0  7333    4       2  0  0  5466    4
 3232       6  0  0  5467    4      27  0  0  3242    4       6  0  0  5468    4       2  0  0  7334    4
 3236       6  0  0  5468    4       1  1  2     5    0      27  0  1  3245    4       1  1  3     1    0
 3240       2  0  0  7341    4      24  1  0  3245    4       1  1  3     1    0       2  0  0  7333    4
 3244      26  0  0  3249    4       6  0  0   138    4      24  1  0  3257    4      26  0  0  3249    4
 3248      24  1  0  3268    4
 PROCEDURE  263
 3249                                0  0  0     0    0       2  1  0  5466    4       2  1  0  5468    4
 3252       2  1  0  5470    4       2  1  0  5472    4       2  1  0  5474    4       2  1  0  5476    4
 3256      26  0  1  3249    4      24  0  1  7333    4      26  0  1  3258    4       0  0  0  3203    3
 3260       0  0  0  3290    3       0  0  0  3354    3       0  0  0  3264    3       0  0  0  3271    3
 3264       1  1  2   124    0      27  0  0  3242    4       1  1  1     2    0      27  0  1  3315    4
 3268       1  1  3     2    0       2  0  0  7333    4      24  1  0  3204    4       1  1  2   124    0
 3272      27  0  1  3287    4       1  1  3     2    0       7  0  0  5466    4      24  0  0  5466    4
 3276       6  0  0  5468    4      27  0  0  3242    4       2  0  0  7334    4       6  0  0  7334    4
 3280       1  1  2     5    0      27  0  1  3204    4      24  0  3     0    4       6  0  0     4   22
 3284       1  1  1     1    0       2  0  0  7341    4      24  1  0  3204    4       1  1  1     2    0
 3288      27  0  1  3315    4      24  1  0  3203    4       1  1  2    81    0      27  0  0  3310    4
 3292       1  1  2     1    0      27  0  0  3308    4       1  1  2     1    0      27  0  0  3302    4
 3296       1  1  2     1    0      27  0  0  3309    4       1  1  2    19    0      27  0  0  3307    4
 3300       1  1  2     2    0      27  0  1  3242    4      24  0  3     0    4       6  0  0     4   22
 3304       1  1  1     2    0       2  0  0  7341    4       1  1  3     1    0       1  1  1     1    0
 3308       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0       2  0  0  7334    4
 3312       1  1  3     3    0       2  0  0  7333    4      24  1  0  3204    4
 PROCEDURE  264
 3315                                                                                 24  0  1  7334    4
 3316      26  0  1  3316    4       0  0  0  3204    3       0  0  0  3322    3       0  0  0  3331    3
 3320       0  0  0  3335    3       0  0  0  3340    3       6  0  0   138    4      18  0  1  4127    0
 3324       1  1  2     2    0      27  0  0  3328    4       1  1  2     3    0      27  0  3  3204    4
 3328       1  1  3    91    0       2  1  0  5278    4      24  1  0  3204    4       6  1  0   139    4
 3332       1  1  2    10    0      27  0  2  3328    4      24  1  0  3322    4       6  1  0   139    4
 3336      27  0  0  3322    4       1  1  2     1    0      27  0  0  3322    4      24  1  0  3328    4
 3340       6  0  0   138    4       1  1  2    77    0      27  0  1  3347    4       6  0  0   116    4
 3344       2  0  0   117    4       2  0  0   116    4      24  1  0  3322    4       6  0  0   116    4
 3348      18  0  1     1    0       4  1  0   139    4       2  0  0   116    4       1  1  3     5    0
 3352       2  0  0  7333    4      24  1  0  3331    4       1  1  2   123    0      27  0  0  3363    4
 3356       6  0  2  5404    4       1  1  2    82    0      27  0  0  3331    4       6  0  2  5403    4
 3360       1  1  2    82    0      27  0  0  3331    4      24  1  0  3242    4       6  0  0  7334    4
 3364      24  0  0  5467    4       2  0  0  5468    4       1  1  3     2    0       7  0  0  5467    4
 3368       1  1  3     4    0       2  0  0  7333    4      24  1  0  3204    4
 PROCEDURE  265
 3371                                                                                  1  1  3   125    0
 3372       2  0  2  5406    4       6  0  0  7333    4       1  1  2     4    0      27  0  2  3377    4
 3376      26  0  0  4239    4       6  0  0  5466    4      27  0  0  3383    4       1  1  1     2    0
 3380       5  0  0  5467    4      27  0  0  3383    4      26  0  0  4239    4       6  0  0  5467    4
 3384       1  1  2    12    0      27  0  3  3387    4      26  0  0  4239    4      24  0  3     0    4
 3388       6  0  0     4   22       2  0  0   120    4       3  1  0  5070    4      26  1  2  5070    4
 3392       3  1  0  5070    4      26  1  3  5070    4       6  0  0  7341    4      27  0  0  3422    4
 3396       3  1  0  5070    4      26  1  1  5070    4       6  0  0   117    4       1  1  2   256    0
 3400      27  0  3  3422    4       1  1  2  2201    0      27  0  2  3422    4       6  0  0   117    4
 3404      26  0  0  1613    4      24  1  0  3407    4       0  0  0  1667    3       6  0  0   169    4
 3408       0  0  3  5207    4      18  1  1  4126    0       2  0  1  5405    4      18  1  1     1    0
 3412      27  0  1  3414    4       1  1  3    48    0       2  0  1  5406    4      18  1  1     1    0
 3416      27  0  1  3418    4       1  1  3    48    0       2  0  1  5407    4       6  1  0  5160    4
 3420      28  0  0  5240    4      24  1  0  3464    4       6  0  0    83    4      27  0  0  3481    4
 3424       6  1  0  5160    4      28  0  0  5240    4      24  0  1  6276    4      26  0  1  3427    4
 3428       0  0  0  3464    3       0  0  0  3430    3       6  0  0  5467    4       1  1  2     4    0
 3432      27  0  2  3452    4       6  0  0  7334    4       1  1  2     1    0      27  0  1  3452    4
 3436       6  0  0  5406    4       1  1  2   122    0      27  0  0  3440    4       6  0  0  5225    4
 3440       1  1  1     3    0       0  0  2  5226    4      10  0  0   140    4       4  1  0  5162    4
 3444       3  0  0   120    4       3  1  0  5070    4      26  1  1  5070    4       1  1  3   125    0
 3448       2  0  1  5406    4      25  0  1     1    0      24  1  0  3448    4      24  1  0  3464    4
 3452      26  1  1  5164    4       6  0  1  5406    4      27  0  1  3457    4      25  0  1  4097    0
 3456      24  1  0  3453    4       1  1  3   125    0       2  0  1  5407    4       2  0  0  5435    4
 3460      24  0  3     0    4       6  0  0     2   22       1  1  1     1    0       2  0  0   120    4
 3464       6  0  2  5406    4
 PROCEDURE  266
 3465                               18  0  1     2    0       4  0  2  5407    4      18  0  1     2    0
 3468       4  0  2  5408    4      18  0  1     2    0       4  0  2  5409    4      18  0  1     2    0
 3472       4  0  2  5410    4       2  1  3  5240    4      25  0  3     2    0      25  0  2     5    0
 3476      24  0  3     0    4       6  0  0     4   22       1  1  2     1    0       5  0  0   120    4
 3480      27  0  3  3464    4       6  1  0  5276    4       5  1  0  4746    4      27  0  1  3486    4
 3484      26  0  0  3249    4      24  1  0  2804    4       6  0  0  5467    4       1  1  2     4    0
 3488      27  0  2  2804    4      26  1  1  5166    4       6  0  1  5406    4       1  1  2   122    0
 3492      27  0  1  3500    4       6  0  1  5407    4      25  0  1     1    0      24  1  0  3496    4
 3496       1  1  2   123    0      27  0  1  3493    4      25  0  1     1    0      24  1  0  3500    4
 PROCEDURE  267
 3500      24  0  1  7334    4      26  0  1  3501    4       0  0  0  3533    3       0  0  0  3542    3
 3504       0  0  0  3556    3       0  0  0  3579    3       0  0  0  3507    3       6  0  0   117    4
 3508       1  1  2  4096    0      27  0  2  3527    4       1  1  1  3943    0      27  0  2  3529    4
 3512       6  0  0   117    4      27  0  0  2804    4      26  0  0  1352    4       0  0  2    90    4
 3516      15  0  3   122    4      27  0  0  3527    4       1  1  3     0    0      18  1  3    10    0
 3520      15  0  3   122    4      27  0  1  3527    4       6  0  0   116    4       5  0  0  5227    4
 3524      27  0  3  2804    4      26  0  0  1582    4      24  1  0  2804    4      26  0  0  1578    4
 3528      24  1  0  2804    4       6  0  0   116    4       1  1  2   153    0      27  0  2  3525    4
 3532      24  1  0  2804    4
 PROCEDURE  268
 3533                                6  0  0   140    4      27  0  0  3536    4       1  1  3     3    0
 3536       1  1  1     2    0      24  0  3     0    4       4  0  0     2   22       5  0  0   120    4
 3540      27  0  2  2804    4      24  1  0  3584    4
 PROCEDURE  269
 3542                                                         6  0  0   140    4      27  0  0  3545    4
 3544       1  1  3     5    0       1  1  1     5    0       2  0  0   117    4      24  0  0   120    4
 3548       6  0  0  5405    4       1  1  2    16    0      27  0  0  3553    4       6  0  0   117    4
 3552      24  1  0  3537    4       6  0  0   117    4       1  1  1     1    0      24  1  0  3537    4
 PROCEDURE  270
 3556      26  1  2  5168    4       6  0  1  5406    4       1  1  2   125    0      27  0  0  3573    4
 3560       1  1  1   109    0      27  0  0  3573    4       1  1  1    16    0       2  1  0    60    4
 3564       6  1  0   116    4      18  0  1     1    0       4  1  0    61    4       2  1  0   116    4
 3568      25  0  1     1    0      24  1  0  3570    4      25  0  2     1    0      24  1  0  3557    4
 3572      24  1  0  3584    4
 PROCEDURE  271
 3573                                6  0  0   140    4      27  0  1  2804    4       6  1  0   116    4
 3576       5  1  0  5170    4      27  0  2  3584    4      24  1  0  2804    4
 PROCEDURE  272
 3579                                                                                  6  0  0   140    4
 3580      27  0  0  3582    4       1  1  3    20    0       1  1  1    20    0      24  1  0  3546    4
 PROCEDURE  273
 3584       1  1  3    91    0       2  1  0  5278    4      24  1  0  2804    4
 PROCEDURE  274
 3587                                                                                  0  0  0     0    0
 3588       1  1  3     0    0      25  0  3     1    0      24  1  0  3600    4      25  0  1     2    0
 3592      24  1  0  3597    4      26  0  0  4239    4       1  1  3   125    0      18  1  1  4126    0
 3596      26  0  1  3587    4      26  1  3  5156    4      24  0  0    23    4       0  1  2  5240    4
 3600      26  0  1  3587    4
 PROCEDURE  275
 3601                                0  0  0     0    0       2  1  0   139    4       6  0  0  3601    4
 3604       3  0  0  3587    4       2  0  0  1820    4      24  1  0  1828    4
 PROCEDURE  276
 3607                                                                                  2  0  0    53    4
 3608      26  1  2  5120    4       6  0  2  5256    4       2  0  0  5244    4       6  1  2  5254    4
 3612      26  0  0  3601    4       6  0  0  5244    4       2  0  2  5256    4       6  0  0    54    4
 3616       2  0  2  5254    4      26  0  0  3625    4       6  0  0  5253    4      27  0  0  3622    4
 3620       6  0  0  5244    4      26  0  0  1562    4      25  0  2     4    0      24  1  0  3609    4
 3624      24  1  0  3655    4
 PROCEDURE  277
 3625                                0  0  0     0    0       1  1  3     1    0       2  0  0  7329    4
 3628       6  0  0    54    4       1  1  2   256    0      27  0  2  3652    4       6  0  0    54    4
 3632      27  0  3  3647    4      27  0  0  3642    4      26  0  0  1352    4       0  0  2    90    4
 3636      15  0  3   122    4      27  0  0  3647    4      18  1  3    10    0       1  1  3     0    0
 3640      15  0  3   122    4      27  0  1  3647    4       6  0  0  5244    4       5  0  0  5220    4
 3644      27  0  3  3654    4      26  0  0  1582    4      24  1  0  3648    4      26  0  0  1578    4
 3648      26  0  0  4239    4       1  1  3     2    0       2  0  0  7329    4      24  1  0  3654    4
 3652       1  1  2  2304    0      27  0  2  3647    4      26  0  1  3625    4
 PROCEDURE  278
 3655                                                                                  6  0  0  5253    4
 3656      27  0  3  3792    4       1  1  2     3    0      27  0  2  3792    4       6  0  0  5254    4
 3660      27  0  0  3798    4      24  0  1  7335    4      26  0  1  3662    4       0  0  0  3668    3
 3664       0  0  0  3734    3       0  0  0  3676    3       0  0  0  3755    3       0  0  0  2804    3
 PROCEDURE  279
 3668       6  0  0  5246    4       4  0  0  5248    4       7  0  0    55    4       6  0  0  5250    4
 3672       1  1  2     2    0      27  0  1  3676    4       1  1  3     1    0       7  0  0    55    4
 3676       6  0  0  5258    4       0  0  2  5260    4      27  1  1  3796    4       6  0  0  5245    4
 3680      27  0  1  3790    4       6  0  0  5253    4       1  1  2     1    0      27  0  0  3685    4
 3684       6  0  0  5228    4       1  1  1    16    0       5  0  0  5246    4       5  0  0  5247    4
 3688      27  0  3  3788    4       4  0  0  5246    4       4  0  0  5247    4       5  0  0  5249    4
 3692      27  0  3  3782    4       6  0  0  5246    4       5  0  0  5249    4      27  0  3  3782    4
 PROCEDURE  280
 3696       6  0  0  5248    4       1  1  2    22    0      27  0  2  3784    4       6  0  0  5246    4
 3700      27  0  0  3788    4       6  0  0  5253    4       1  1  2     2    0      27  0  1  3706    4
 3704       6  0  0  5249    4      27  0  1  3782    4       6  0  0  5251    4      27  0  1  3711    4
 3708       5  0  0   113    4      27  0  0  3718    4      24  1  0  3732    4       1  1  2     1    0
 3712      27  0  1  3778    4       6  0  0   113    4       1  1  2     2    0      27  0  0  3717    4
 3716       1  1  1     3    0       2  0  0   113    4       6  0  0  5252    4       3  0  0    56    4
 3720      27  0  0  2804    4       1  1  2     1    0      27  0  1  3776    4       6  0  0    55    4
 3724       4  0  0    55    4      18  0  1     9    0      27  0  0  3729    4       6  1  0  5172    4
 3728       2  1  0  5278    4       2  0  0    55    4       5  0  0   113    4      27  0  0  2804    4
 3732       7  0  0   113    4      24  1  0  3778    4
 PROCEDURE  281
 3734                                                         6  0  0  5258    4      27  0  0  3755    4
 3736      18  0  1  4126    0      27  0  1  3745    4       6  0  0  5254    4      18  1  1  4126    0
 3740      27  0  1  3796    4      18  1  1     2    0       5  0  0  5258    4      27  0  1  3796    4
 3744      24  1  0  3752    4       6  0  0  5254    4      18  1  1  4126    0      27  0  0  3796    4
 3748       6  0  0  5258    4       5  0  0  5254    4      27  0  3  3796    4      27  0  1  3755    4
 3752       6  0  0  5260    4       5  0  0  5256    4      27  0  3  3794    4       6  0  0  5245    4
 3756      27  0  0  3761    4       1  1  2     1    0      27  0  1  3790    4       6  0  0  5252    4
 3760      27  0  0  3776    4       6  0  0  5246    4      27  0  1  3788    4       6  0  0  5247    4
 3764      27  0  1  3786    4       6  0  0  5248    4      27  0  1  3784    4       6  0  0  5249    4
 3768      27  0  1  3782    4       6  0  0  5250    4      27  0  0  3773    4       1  1  2     2    0
 3772      27  0  1  3780    4       6  0  0  5251    4      27  0  1  3778    4      24  1  0  2804    4
 PROCEDURE  282
 3776       1  1  3     1    0       2  0  0    53    4       1  1  3     1    0       7  0  0    53    4
 3780       1  1  3     1    0       7  0  0    53    4       1  1  3     1    0       7  0  0    53    4
 3784       1  1  3     1    0       7  0  0    53    4       1  1  3     1    0       7  0  0    53    4
 3788       1  1  3     1    0       7  0  0    53    4       1  1  3     1    0       7  0  0    53    4
 3792       1  1  3     1    0       7  0  0    53    4       1  1  3     1    0       7  0  0    53    4
 3796       1  1  3     2    0       7  0  0    53    4       1  1  3     1    0       4  0  0    53    4
 3800       2  0  0   138    4      24  0  2  4430    4      28  1  2  5278    4       6  1  0  5174    4
 3804       7  1  0  5278    4      24  1  0  2804    4
 PROCEDURE  283
 3806                                                         0  0  0     0    0       6  1  0  5086    4
 3808      28  1  1  5234    4       6  0  0    88    4      27  0  0  3935    4      24  0  1  6276    4
 3812      26  0  1  3812    4       0  0  0  3815    3       0  0  0  3837    3       6  0  0  6000    4
 3816      27  0  0  3819    4      24  0  2  4534    4      24  1  0  3820    4      24  0  2  4536    4
 3820      26  0  0  5063    4       6  0  0  6271    4       1  1  2     2    0      27  0  1  3834    4
 3824       6  0  0    88    4      27  0  3  3834    4       1  1  3     0    0       2  1  0  5242    4
 3828       6  0  0  6000    4      27  0  0  3832    4      24  0  2  4542    4      24  1  0  3833    4
 3832      24  0  2  4544    4      26  0  0  5063    4       1  1  3     0    0       2  1  0  5278    4
 3836      26  0  1  3806    4      24  0  2  4536    4      24  1  2    21    4      28  0  2     8    0
 3840      24  1  2    21    4      24  0  2    18    0      18  1  1  4123    0       1  1  3    16    0
 3844      18  1  1     5    0      28  1  1  5252    4       6  1  0  5242    4      18  0  1     4    0
 3848       2  1  0  5242    4       6  0  0    88    4      27  0  3  3834    4       6  0  0  6271    4
 3852       1  1  2     1    0      27  0  1  3834    4       6  1  0  5252    4       2  1  0  5242    4
 3856      24  1  2    21    4      24  0  2    20    0      18  1  1  4123    0       1  1  3    16    0
 3860      18  1  1     5    0      28  1  1  5252    4      26  0  1  3806    4
 PROCEDURE  284
 3863                                                                                  0  0  0     0    0
 3864       6  1  0  5138    4      28  1  1  5240    4       6  0  0  6267    4      27  0  1  4333    4
 3868       6  0  0    88    4      27  0  0  3889    4      24  0  2  4436    4      24  1  2    17    4
 3872      28  0  2     4    0       6  0  0   136    4      27  0  0  3882    4       6  0  0  6271    4
 3876       1  1  2     1    0      27  0  0  3934    4      24  1  2    17    4       6  1  0    20    0
 3880       2  1  0  5250    4      24  1  0  3934    4      24  1  2    17    4      24  0  2    20    0
 3884      18  1  1  4123    0       1  1  3    30    0      18  1  1     5    0      28  1  1  5250    4
 3888      24  1  0  3933    4      24  0  1  6271    4      26  0  1  3890    4       0  0  0  3908    3
 3892       0  0  0  3912    3       0  0  0  3916    3       0  0  0  3895    3      24  1  2    17    4
 3896      24  0  2     9    0      18  1  1  4123    0       1  1  3    36    0      18  1  1     5    0
 3900      28  1  0  5243    4      24  1  2    17    4      24  0  2    44    0      18  1  1  4123    0
 3904       1  1  3     6    0      18  1  1     5    0      28  1  1  5274    4      26  0  1  3863    4
 3908      24  0  2  4460    4      24  1  2    17    4      28  0  2     4    0      24  1  0  3925    4
 3912      24  0  2  4480    4      24  1  2    17    4      28  0  2     4    0      24  1  0  3925    4
 3916      24  1  2    17    4      24  0  2    12    0      18  1  1  4123    0       1  1  3    18    0
 3920      18  1  1     5    0      28  1  1  5240    4      24  1  2    17    4       6  1  0     5    0
 3924       2  1  0  5234    4       6  0  0   136    4      27  0  1  3934    4      24  1  2    17    4
 3928      24  0  2    32    0      18  1  1  4123    0       1  1  3    18    0      18  1  1     5    0
 3932      28  1  1  5262    4       2  1  0  5278    4      26  0  1  3863    4
 PROCEDURE  285
 3935                                                                                 24  0  1  6271    4
 3936      26  0  1  3936    4       0  0  0  3941    3       0  0  0  3949    3       0  0  0  3955    3
 3940       0  0  0  3834    3
 PROCEDURE  286
 3941                               24  0  2  4548    4      26  0  0  5063    4       1  1  3     0    0
 3944       2  1  0  5254    4      24  0  1  6276    4      26  0  1  3946    4       0  0  0  3981    3
 3948       0  0  0  3961    3      24  0  2  4566    4      26  0  0  5063    4      24  0  1  6276    4
 3952      26  0  1  3952    4       0  0  0  3834    3       0  0  0  3977    3      24  0  2  4596    4
 3956      26  0  0  5063    4      24  0  1  6276    4      26  0  1  3958    4       0  0  0  3993    3
 3960       0  0  0  3982    3       0  0  3  5207    4       6  1  0  5242    4      18  1  1  4124    0
 3964       1  1  2    16    0      27  0  0  3968    4       1  1  2    58    0      27  0  1  3969    4
 3968       6  0  0  5229    4       1  1  1    74    0       0  0  3  5210    4      18  1  1  4122    0
 3972      26  0  0  4282    4       2  1  0  5242    4       0  1  2  5240    4      26  0  0  4282    4
 3976       2  1  0  5240    4      24  1  2    21    4       6  1  0     4    0       2  1  0  5236    4
 3980      26  0  0  4257    4      24  1  0  3834    4      24  1  2    21    4       6  1  0     4    0
 3984       2  1  0  5236    4      26  0  0  4257    4       1  1  3   125    0       1  0  1     3    0
 3988      18  1  1     8    0      24  1  2    21    4      14  1  0    18    0      24  1  2    21    4
 3992      14  1  0     6    0      24  0  2  4516    4      24  1  2    21    4      28  0  2     4    0
 3996      24  1  0  3834    4
 PROCEDURE  287
 3997                                0  0  0     0    0       5  1  0  4724    4      27  0  3  4030    4
 4000      27  0  0  4023    4       4  1  0  4724    4       5  1  0  4732    4      27  0  1  4009    4
 4004       6  0  0  6271    4       1  1  2     3    0      27  0  0  4030    4       1  1  3    16    0
 4008      24  1  0  4028    4       4  1  0  4732    4       5  1  0  4726    4      27  0  0  4025    4
 4012      27  0  3  4030    4       4  1  0  4726    4       5  1  0  4722    4      27  0  0  4024    4
 4016      27  0  3  4030    4       4  1  0  4722    4       5  1  0  4748    4      27  0  1  4030    4
 4020       6  0  0    83    4      27  0  1  4030    4       1  1  3     1    0       1  1  1     1    0
 4024       1  1  1     1    0       1  1  1     1    0       2  0  0  6271    4       1  1  2    16    0
 4028       2  0  0    88    4      26  0  1  3997    4       1  1  3     0    0       2  0  0    88    4
 4032      26  0  1  3997    4
 PROCEDURE  288
 4033                                0  0  0     0    0       6  0  0   160    4      27  0  0  4042    4
 4036       6  0  0   161    4      27  0  0  4041    4      24  0  1  4742    4      24  0  1  4420    4
 4040       2  1  0  5326    4       2  0  0   160    4      26  1  1  5176    4       6  1  1  5324    4
 4044      27  0  0  4047    4       5  1  0  4730    4      27  0  1  4049    4      25  0  1  4098    0
 4048      24  1  0  4043    4      24  0  3     0    4       6  0  0     2   22       3  1  0  5327    4
 4052       1  1  3   144    0       5  0  0  4720    4       5  1  0  5327    4      27  0  2  4068    4
 4056       6  0  0  4720    4      24  1  2    19    4       3  1  0     5    0      26  1  1  4720    4
 4060       6  1  0  4730    4      24  1  2    19    4       2  1  1     6    0      26  0  0  4099    4
 4064       6  1  0  5086    4      24  1  2    19    4      28  1  1     4    0       2  0  0  4720    4
 4068       1  1  3     6    0       2  0  0    52    4      26  1  1  4720    4      24  0  2  5326    4
 4072      18  1  1  4123    0       6  1  0  5327    4      18  1  1     5    0       0  1  0  5070    4
 4076       0  0  3     0    4      24  1  2    19    4      24  0  2     0    0      24  0  3     0    4
 4080       4  0  0     2   22       2  0  0  5076    4       0  1  1  5070    4      24  0  3  5076    4
 4084      28  1  1     6    0       6  1  0  5327    4       7  0  0  4720    4       6  1  0  5124    4
 4088      28  1  1  5326    4      26  0  1  4033    4
 PROCEDURE  289
 4090                                                         0  0  0     0    0       6  1  0  4730    4
 4092      24  1  2    19    4       2  1  0    50    0      26  0  0  4099    4       6  1  0  5086    4
 4096      24  1  2    19    4      28  1  1     4    0      26  0  1  4090    4
 PROCEDURE  290
 4099                                                                                  0  0  0     0    0
 4100       0  1  0  5070    4       0  0  3     0    4       0  0  2    18    4       6  1  0  5120    4
 4104       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4108       0  1  1  5070    4      26  0  1  4099    4
 PROCEDURE  291
 4110                                                         0  0  0     0    0       0  1  0  5070    4
 4112       0  0  3     0    4       0  0  2    16    4       6  1  0  5178    4       4  0  0     9    4
 4116      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  5070    4
 4120      26  0  1  4110    4
 PROCEDURE  292
 4121                                0  0  0     0    0      26  0  0  4289    4      24  0  1  6276    4
 4124      26  0  1  4124    4       0  0  0  4135    3       0  0  0  4127    3      24  1  2    21    4
 4128       6  1  0    35    0       5  0  0   161    4       7  0  0   161    4       1  1  2     1    0
 4132       2  0  0   160    4      24  1  2    21    4       2  1  0    34    0      24  1  2    21    4
 4136       6  1  0     4    0       5  1  0  4744    4      27  0  1  4157    4      24  0  2  4432    4
 4140      26  0  0  5063    4       0  1  2   138    4      26  0  0  4820    4       6  1  0   139    4
 4144       5  0  0   142    4       7  0  0   142    4       1  1  2     1    0      27  0  0  4122    4
 4148       6  1  0  4744    4      24  0  1  4742    4      24  0  1  4412    4       2  1  0  5340    4
 4152       6  1  0   138    4      24  0  1  4742    4      24  0  1  4420    4       2  1  0  5326    4
 4156      24  1  0  4122    4      24  1  2    21    4       6  1  0     4    0       5  1  0  4766    4
 4160      27  0  0  4175    4      24  1  2    21    4       0  1  2    49    0       1  1  3     0    0
 4164      18  1  1     7    0       2  1  0  4812    4      26  1  1  4812    4      18  1  1     3    0
 4168       2  0  0  4033    4       1  0  1     3    0       1  1  3   126    0      24  0  1  4033    4
 4172      18  1  1     0    0      24  1  2    21    4      14  1  1     0    0      26  0  1  4121    4
 PROCEDURE  293
 4176       0  0  0     0    0       6  1  0  5180    4      28  1  1  5234    4      24  0  1  6276    4
 4180      26  0  1  4180    4       0  0  0  4190    3       0  0  0  4183    3      24  0  2  4536    4
 4184      24  1  2    21    4      28  0  2     8    0       6  1  0  5242    4      18  0  1     4    0
 4188       2  1  0  5242    4      24  1  0  4192    4      24  0  2  4534    4      26  0  0  5063    4
 4192       6  1  0  5240    4      26  0  0  3997    4      26  0  1  4176    4
 PROCEDURE  294
 4195                                                                                  0  0  0     0    0
 4196      24  1  2    21    4       6  1  0     4    0      18  0  1  4124    0      18  0  1     4    0
 4200       5  1  0  4734    4      27  0  0  4206    4      24  1  2    21    4       6  1  0     4    0
 4204       5  1  0  4766    4      27  0  1  4208    4       6  1  0  5182    4      24  1  0  4235    4
 4208       1  1  3     0    0       2  1  0  5238    4      24  0  2  4542    4      26  0  0  5063    4
 4212      24  0  1  6276    4      26  0  1  4213    4       0  0  0  4218    3       0  0  0  4216    3
 4216       0  1  2  5240    4      24  1  0  4219    4       0  1  2  5238    4       1  1  3     0    0
 4220      18  1  1     2    0       1  1  2   105    0      27  0  0  4232    4       1  1  1    21    0
 4224      27  0  0  4231    4       1  1  2    25    0      27  0  0  4230    4       1  1  1    34    0
 4228      27  0  1  4237    4       1  1  3     1    0       1  1  1     1    0       1  1  1     1    0
 4232       1  1  1     1    0       2  0  0  7327    4       1  1  3     1    0       3  1  0    94    4
 4236      26  0  1  4195    4       1  1  3     0    0      24  1  0  4235    4
 PROCEDURE  295
 4239                                                                                  0  0  0     0    0
 4240       6  1  0  4746    4       2  1  0  5276    4      26  0  1  4239    4
 PROCEDURE  296
 4243                                                                                  0  0  0     0    0
 4244       6  1  0  4746    4      24  0  1  4742    4      24  0  1  4412    4       2  1  0  5340    4
 4248      26  0  1  4243    4
 PROCEDURE  297
 4249                                0  0  0     0    0       1  1  3    15    0      24  0  1  6276    4
 4252      26  0  1  4252    4       0  0  0  4256    3       0  0  0  4255    3      26  0  0  4257    4
 4256      26  0  1  4249    4
 PROCEDURE  298
 4257                                0  0  0     0    0      24  1  2    21    4      24  0  2    18    0
 4260      18  1  1  4123    0       1  1  3    16    0      18  1  1     5    0      28  1  1  5262    4
 4264      26  0  1  4257    4
 PROCEDURE  299
 4265                                0  0  0     0    0       6  0  0  6267    4      27  0  0  4271    4
 4268      24  0  3  7354    4       6  1  0     6    0      24  1  0  4273    4      24  1  2    17    4
 4272       6  1  0    10    0       5  1  0  4734    4      27  0  0  4829    4       4  1  0  4734    4
 4276       5  1  0  4736    4      27  0  0  4829    4       4  1  0  4736    4       5  1  0  4738    4
 4280      27  0  0  4829    4      26  0  1  4265    4
 PROCEDURE  300
 4282                                                         0  0  0     0    0       1  1  3     0    0
 4284      27  1  0  4288    4      18  1  1     2    0      27  0  0  4285    4      18  1  1     8    0
 4288      26  0  1  4282    4
 PROCEDURE  301
 4289                                0  0  0     0    0       0  1  0  5070    4       0  0  3     0    4
 4292       0  0  2    20    4       6  1  0  5178    4       4  0  0    11    4      25  1  1  4096    0
 4296      24  0  3     0    4      23  0  2     0  256       0  1  1  5070    4      26  0  1  4289    4
 PROCEDURE  302
 4300       0  0  0     0    0       6  0  0  6267    4      27  0  0  4321    4      24  0  3  7354    4
 4304       6  1  0     1    0       2  0  0  4110    4      24  0  1  4110    4      23  0  0     0    0
 4308       0  0  0  7354    3      24  1  0  4320    4      26  0  0  4110    4       0  1  0  5070    4
 4312       0  0  3     0    4      24  1  2    17    4      24  0  2     6    0       3  0  0  7354    4
 4316      24  1  2    17    4       4  1  0     5    0       2  0  0  7355    4       0  1  1  5070    4
 4320      26  0  1  4300    4      26  0  0  4110    4      26  0  1  4300    4
 PROCEDURE  303
 4323                                                                                  0  0  0     0    0
 4324       6  0  0  6267    4      27  0  0  4330    4      24  0  3  7354    4       6  1  0     6    0
 4328      26  0  0  3997    4      26  0  1  4323    4      24  1  2    17    4       6  1  0    10    0
 4332      24  1  0  4328    4
 PROCEDURE  304
 4333                                0  0  3  5207    4       6  1  0  5086    4      28  1  1  5280    4
 4336       6  0  0    88    4      27  0  0  4373    4      24  0  3  7354    4       6  1  0     1    0
 4340      18  0  1     5    0       4  0  0  7354    4      28  1  1  5280    4      24  0  2  4450    4
 4344      28  0  2  5282    4       6  0  0  6271    4       1  1  2     1    0      27  0  1  4352    4
 4348       6  0  0    88    4      27  0  3  4352    4       6  1  0  5292    4       2  1  0  5242    4
 4352       6  0  0   136    4      27  0  0  4367    4       6  0  0  6271    4       1  1  2     1    0
 4356      27  0  0  4362    4       1  1  2     1    0      27  0  1  4364    4       6  0  0    88    4
 4360      27  0  2  4389    4      24  1  0  4364    4       6  0  0    88    4      27  0  3  4389    4
 4364       6  1  0  5294    4       2  1  0  5250    4      24  1  0  4389    4      24  0  2  5294    4
 4368      18  1  1  4123    0       1  1  3    26    0      18  1  1     5    0      28  1  1  5250    4
 4372      24  1  0  4389    4       6  0  0  6271    4       1  1  2     4    0      27  0  0  4403    4
 4376      24  0  3  7354    4       6  1  0     1    0       3  0  0  4812    4      24  0  1  6271    4
 4380       5  0  0  4412    4      27  0  2  4391    4       6  0  0  4812    4      18  0  1     5    0
 4384       4  0  0  7354    4      28  1  1  5280    4      24  0  1  6271    4       6  0  0  4416    4
 4388      28  0  2  5282    4       0  0  3  5210    4      26  0  1  3863    4       2  0  0  4813    4
 4392       6  0  0   136    4      27  0  1  4400    4       6  0  0  4813    4      18  0  1     5    0
 4396       4  0  0  7354    4      24  0  1  6271    4       4  0  0  4412    4      28  1  1  5262    4
 4400      24  0  1  6271    4       6  0  0  4412    4      24  1  0  4383    4      24  0  3  7354    4
 4404       6  1  0     1    0       1  1  2     6    0      18  0  1     5    0       4  0  0  7354    4
 4408       1  1  1     7    0      28  1  0  5243    4      24  1  0  4389    4       0  0  0     0    0
  SECTION   305
 4412          18       0               18       0               18       0               1+       0
 4416          1+       0             116+       3             1180       3             119.       3
 4420           +       0               16       0               16       0               1Ю       0
 4424          2Ю       0                0       0
  SECTION   306
 4426                                                      0     54   3     8707   0  2  2  0  3   0
 4428    0   5978   3     8194   0  2  0  0  2   1         0    138   3    20485   0  5  0  0  5   1
 4432    0    138   3        5   3  0  0  0  5   0         0    138   3        5   3  0  0  0  5   1
  SECTION   307
 4436    0   5234   3    20485   0  5  0  0  5   0         0   5236   3        5   3  0  0  0  5   0
 4440    0   6005   3    20485   0  5  0  0  5   0         0   5240   3        5   3  0  0  0  5   0
 4444    0   6004   3    40970   2 10  0  0 10   0         0   5242   3        5   3  0  0  0  5   0
 4448    0   5248   3    16389   0  4  0  0  5   1         0   5234   3    20485   0  5  0  0  5   0
 4452    0   5236   3        5   3  0  0  0  5   0         0   5240   3        5   3  0  0  0  5   0
 4456    0   5242   3        5   3  0  0  0  5   0         0   5248   3    20485   0  5  0  0  5   1
  SECTION   308
 4460    0   5234   3    20485   0  5  0  0  5   0         0   5236   3        5   3  0  0  0  5   0
 4464    0   5240   3        5   3  0  0  0  5   0         0   5242   3        5   3  0  0  0  5   0
 4468    0   5244   3    21765  14  5  5  0  5   0         0   5246   3     8962   0  2  3  0  2   0
 4472    0   5248   3    12803   0  3  2  0  3   0         0   5250   3    40970  14 10  0  0 10   0
 4476    0   5254   3        5   3  0  0  0  5   0         0   5256   3    20485   0  5  0  0  5   1
  SECTION   309
 4480    0   5234   3    20485   0  5  0  0  5   0         0   5236   3        5   3  0  0  0  5   0
 4484    0   5254   3    20485   0  5  0  0  5   0         0   5256   3    20485   0  5  0  0  5   0
 4488    0   5258   3    20485   0  5  0  0  5   0         0   5260   3    20485   0  5  0  0  5   0
 4492    0   5253   3     8962   0  2  3  0  2   0         0   5245   3    12803   0  3  2  0  3   0
 4496    0   5246   3     8962   0  2  3  0  2   0         0   5247   3    12803   0  3  2  0  3   0
 4500    0   5248   3     8962   0  2  3  0  2   0         0   5249   3    12803   0  3  2  0  3   0
 4504    0   5250   3     5121   0  1  4  0  1   0         0   5251   3     8962   0  2  3  0  2   0
 4508    0   5252   3     8962   0  2  3  0  2   1
  SECTION   310
 4510                                                      0   5234   3    20485   0  5  0  0  5   0
 4512    0   5236   3        5   3  0  0  0  5   0         0   6004   3    20485   0  5  0  0  5   0
 4516    0   5240   3        5   3  0  0  0  5   0         0   5242   3        5   3  0  0  0  5   0
 4520    0   5244   3        5   3  0  0  0  5   0         0   5246   3        5   3  0  0  0  5   0
 4524    0   5248   3        5   3  0  0  0  5   0         0   5250   3        5   3  0  0  0  5   0
 4528    0   5252   3        5   3  0  0  0  5   0         0   5254   3        5   3  0  0  0  5   0
 4532    0   5256   3        5   3  0  0  0  5   1
  SECTION   311
 4534                                                      0   5236   3        5   3  0  0  0  5   0
 4536    0   5240   3        5   3  0  0  0  5   0         0   5242   3        3   3  0  0  0  3   0
 4540    0   5250   3        5  11  0  0  0  5   1         0   5236   3        5   3  0  0  0  5   0
 4544    0   5240   3        5   3  0  0  0  5   0         0   5250   3        5   3  0  0  0  5   1
  SECTION   312
 4548    0   5236   3        6   3  0  0  0  6   0         0   5240   3        3   3  0  0  0  3   0
 4552    0   5242   3        3   3  0  0  0  3   0         0   5244   3        5  14  0  0  0  5   0
 4556    0   5246   3        1   0  0  0  0  1   0         0   5248   3        2   0  0  0  0  2   0
 4560    0   5250   3       10  14  0  0  0 10   0         0   5262   3        5   3  0  0  0  5   0
 4564    0   5270   3        5   3  0  0  0  5   1
  SECTION   313
 4566                                                      0   5236   3        6   3  0  0  0  6   0
 4568    0   5254   3        3   0  0  0  0  3   0         0   5256   3        5   0  0  0  0  5   0
 4572    0   5258   3        3   0  0  0  0  3   0         0   5260   3        5   0  0  0  0  5   0
 4576    0   5253   3        1   0  0  0  0  1   0         0   5245   3        1   0  0  0  0  1   0
 4580    0   5246   3        2   0  0  0  0  2   0         0   5247   3        2   0  0  0  0  2   0
 4584    0   5248   3        2   0  0  0  0  2   0         0   5249   3        2   0  0  0  0  2   0
 4588    0   5250   3        1   0  0  0  0  1   0         0   5251   3        1   0  0  0  0  1   0
 4592    0   5252   3        1   0  0  0  0  1   0         0   5262   3        5   3  0  0  0  5   1
  SECTION   314
 4596    0   5236   3        6   3  0  0  0  6   0         0   5240   3        5   3  0  0  0  5   0
 4600    0   5262   3        5   3  0  0  0  5   1
  SECTION   315
 4602                                                      0   5243   3    16389   0  4  0  0  5   0
 4604    0   5244   3    16389  12  4  0  0  5   1
  SECTION   316
 4606                                                          6‼11       0             8‼19       0
 4608         ‼11       0             9‼11       0             Ю122       0             +322       0
 4612        £000       0            11Ю11       0            12000       0            13Ю91       0
  SECTION   317
 4616       1Ю‼11       0            1+000       0            1:‼11       0            21422       0
 4620       22‼11       0            23522       0            25‼11       0            26622       0
 4624       27‼22       0            295‼2       0              5‼2       0            2‼‼39       0
 4628         ‼:1       0              ‼41       0            2++32       0            2:531       0
 4632       3153Ю       0              114       0            35‼1‼       0              ‼43       0
 4636       36991       0              ‼13       0            37719       0              ‼91       0
 4640       38‼11       0            39117       0            3Ю112       0            3‼11:       0
 4644         ‼14       0            3:‼22       0            3.822       0            40‼11       0
 4648       41819       0              822       0            43‼22       0            45000       0
 4652       4+‼42       0            4.:+2       0              ‼12       0            4£‼42       0
 4656       50‼+2       0              ‼92       0            52‼42       0            53+62       0
 4660       54‼.2       0              ‼11       0            55‼6Ю       0              ‼.1       0
 4664       56162       0            57‼1‼       0              ‼.1       0            59000       0
 4668       5Ю22:       0              222       0            5:‼16       0            5.915       0
 4672       60‼25       0            61‼95       0              ‼62       0            63‼26       0
 4676       83‼91       0              ‼11       0            84‼32       0            8653Ю       0
 4680         ‼62       0            8‼000       0            8£‼91       0            90000       0
 4684       94‼91       0              ‼11       0            95000       0            96+1£       0
 4688         ‼.1       0            97‼22       0            98‼4Ю       0              ‼42       0
 4692       99‼22       0            9Ю‼12       0            9‼‼22       0            9+‼31       0
 4696       9:‼1‼       0              ‼43       0            9.511       0            ££000       0
 4700         ‼19       0              ‼:9       0              ‼11       0              Ю0Ю       1
 4704          4Ю       1               ЮЮ       3             188.       3                0       0
 4708         ‼:1       0                0       0
  SECTION   318
 4710                                                             2       0            10000       0
 4712         £££       0               70       0                7       0                8       0
 4716          80       0              £00       0                4       0                0       0
 4720           0       0                0       0
  SECTION   319
 4722                                                         26355       0            73515       0
 4724       57273       0            53666       0            65369       0            67696       0
 4728           0       0            5‼000       0               7.       0            7.000       0
 4732       35572       0            65667       0            40000       0            55655       0
 4736       46772       0            54746       0            35572       0            56596       0
 4740         3££       0            ££+00       0                0       0                0       0
 4744       55573       0            72585       0            :5:5:       0            5:5:5       0
 4748       37455       0            75516       0            £6£6£       0            6£6£6       0
 4752       45577       0            59655       0            £4£4£       0            4£4£4       0
 4756          42       0                0       0            15965       0            53585       0
 4760       :5:69       0            5:5:5       0            :5:59       0            5:5:5       0
 4764       :5:5‼       0            5:5:5       0            16454       0            73695       0
 4768        148.       3               10       0            55972       0            56596       0
  SECTION   320
 4772           1       0                0       0               16       0                0       0
 4776         256       0                0       0             4096       0                0       0
 4780       65536       0                0       0            48576       0               10       0
 4784       77216       0              167       0            35456       0             2684       0
 4788       67296       0            42949       0            £££££       0            £££££       0
 4792           1       0                0       0                Ю       0                0       0
 4796          64       0                0       0              3.8       0                0       0
 4800        2710       0                0       0            186Ю0       0                0       0
 4804       £4240       0                0       0            89680       0                9       0
 4808       5.100       0               5£       0            Ю+Ю00       0              3‼9       0
 4812           0       0                0       0               3£       0                0       0
 4816       16773       0            53585       0            56554       0            67695       0
 PROCEDURE  321
 4820       0  0  0     0    0       1  1  3     0    0       2  1  0   138    4       4  1  0   138    4
 4824      18  1  1     2    0       2  1  0   138    4      27  1  1  4823    4       6  1  0   138    4
 4828      26  0  1  4820    4
 PROCEDURE  322
 4829                                0  0  3  5210    4       1  1  3     1    0       7  0  0  5973    4
 4832       0  0  3  5207    4       6  0  0  4742    4       1  1  2     3    0      27  0  1  4838    4
 4836       1  1  3     1    0       2  0  0  5332    4      26  0  0  4033    4       6  0  0  5973    4
 4840      18  0  1     2    0       2  0  0   138    4      24  0  2  4430    4      28  1  2  5330    4
 4844      24  1  2    21    4       6  1  0     4    0      18  0  1  4124    0      18  0  1     4    0
 4848       5  1  0  4734    4      27  0  0  4859    4      24  1  2    21    4       6  1  0     4    0
 4852       5  1  0  4766    4      27  0  0  4862    4       6  1  0  5126    4       3  0  0  6272    4
 4856       2  1  0  5338    4      26  0  0  4289    4      24  1  0  4844    4       6  1  0  4770    4
 4860      24  1  2    21    4       2  1  0     4    0       6  1  0  4734    4       2  1  0  5332    4
 4864      26  0  0  4033    4      26  0  0  5059    4      26  1  1  5184    4      26  1  2  5186    4
 4868      24  0  3     0    4       6  0  0     2   22      26  0  0  2759    4       0  0  3  5207    4
 4872      18  1  1  4127    0      24  0  3     0    4       2  0  0     6   22      18  1  1     1    0
 4876       2  0  0  2759    4       1  1  3     1    0      24  0  1  2759    4      18  0  3     0    0
 4880       3  0  0  2759    4      18  1  3     2    0      18  1  1  4120    0      15  0  3   122    4
 4884      27  0  0  4904    4      24  0  3     0    4       6  0  0     6   22       1  0  1     0    0
 4888      18  1  3     3    0      18  1  1  4127    0      24  0  3     0    4       2  0  0     6   22
 4892      27  1  1  4895    4       0  0  2  2759    4      24  1  0  4897    4       0  0  2  2759    4
 4896      18  1  3    10    0      15  0  3   150    4      27  0  1  4904    4      24  0  3     0    4
 4900       6  0  0     2   22       2  0  2  6004    4      25  0  2     1    0      24  1  0  4904    4
 4904      25  0  1     1    0      24  1  0  4868    4
 PROCEDURE  323
 4906                                                         6  0  0  5230    4       3  0  0  6203    4
 4908      24  0  0  5970    4       7  0  0  5979    4      26  1  3    62    4       6  0  3  5980    4
 4912      18  0  1     9    0      18  0  1  4119    0       5  0  0  5999    4      27  0  3  4917    4
 4916       7  0  0  5999    4      25  0  3     1    0      24  1  0  4911    4       1  1  3     1    0
 4920       7  0  0  5999    4       6  0  0  5979    4       2  0  0  5978    4       6  0  0  5999    4
 4924       2  0  0  5979    4
 PROCEDURE  324
 4925                               26  0  0  4090    4      26  0  0  4090    4       6  1  0  4750    4
 4928      24  1  2    19    4       2  1  0     4    0       1  1  3     6    0      24  1  2    19    4
 4932       2  0  0    10    0      26  0  0  4090    4       6  1  0  4752    4      24  1  2    19    4
 4936       2  1  0     4    0      26  0  0  4090    4      26  1  1  5188    4      26  1  2  5190    4
 4940       6  0  1   170    4      24  1  2    19    4       2  1  2     5    0      25  0  2     2    0
 4944      24  1  0  4950    4       6  1  0  4730    4      24  1  2    19    4       2  1  0    52    0
 4948      26  0  0  4099    4      26  1  2  5190    4      25  0  1     1    0      24  1  0  4940    4
 4952      26  0  0  4099    4      26  0  0  4090    4      26  0  0  4090    4      24  1  2    21    4
 4956       6  1  0     4    0       5  1  0  4770    4      27  0  0  4969    4      24  1  2    21    4
 4960      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0
 4964      24  1  2    19    4      28  1  1     4    0      26  0  0  4090    4      26  0  0  4289    4
 4968      24  1  0  4955    4       6  0  0  6270    4      27  0  0  4981    4       0  1  0  5070    4
 4972       0  0  3     0    4       0  1  2  5192    4       6  1  0  5194    4       4  0  0    10    4
 4976      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  5070    4
 4980      24  1  0  4997    4       0  1  0  5070    4       0  0  3     0    4       6  1  0  5196    4
 4984       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4988       0  1  1  5070    4       0  1  0  5070    4       0  0  3     0    4       6  1  0  5198    4
 4992       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4996       0  1  1  5070    4       6  1  0    62    4       2  1  0  5406    4       6  0  0  6000    4
 5000      27  0  0    33    4       6  0  0  6270    4      27  0  0  5006    4       6  0  0  6268    4
 5004      27  0  0  5038    4      24  1  0  5021    4       6  0  0  7347    4      27  0  0  5038    4
 5008       2  0  0  4090    4       0  1  0  5070    4       0  0  3     0    4       6  0  0  4090    4
 5012       4  1  0  5146    4      18  1  1  4118    0       6  1  0  5200    4       4  0  0     9    4
 5016      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  5070    4
 5020      26  0  0  4110    4      24  1  2    17    4       6  1  0     4    0       5  1  0  4818    4
 5024      27  0  0  5038    4       4  1  0  4818    4       5  1  0  4738    4      27  0  0  5035    4
 5028       4  1  0  4738    4       5  1  0  4816    4      27  0  0  5035    4       4  1  0  4816    4
 5032       5  1  0  4770    4      27  0  0  5038    4      24  1  0  5020    4       1  1  3     1    0
 5036       2  0  0  6269    4      24  1  0    33    4       2  0  0  6269    4       6  0  0  6270    4
 5040      27  0  0  5050    4       0  1  0  5070    4       0  0  3     0    4       6  1  0  5198    4
 5044       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 5048       0  1  1  5070    4      24  1  0    33    4       0  1  0  5070    4       0  0  3     0    4
 5052       6  1  0  5202    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 5056      23  0  2     0  256       0  1  1  5070    4      24  1  0    33    4
 PROCEDURE  325
 5059                                                                                  0  0  0     0    0
 5060       6  0  0  5059    4       2  0  0  4033    4      24  1  0  4056    4
 PROCEDURE  326
 5063                                                                                  0  0  0     0    0
 5064      24  1  2     0    4      28  0  3     4    0      26  0  1  5063    4      24  1  2    21    4
 5068       6  0  0     0    0      28  0  2     4    0
  SECTION  1018
 5070                                                             0       0                0       0
 5072           0       0                0       0                0       0                0       0
 5076           0       0                0       0                0       0                0       0
 5080           0       0                0       0                0       0                0       0
 5084           0       0            2002Ю       0                0       0            2002.       0
 5088           0       0            20014       0                0       0            20378       0
 5092           0       0              1+2       0                0       0            20254       0
 5096           0       0            20078       0             8000       0             5141       0
 5100           0       0               11       0             8000       0             5146       0
 5104           0       0            73000       0                0       0               2+       0
 5108        8000       0             5142       0                0       0               12       0
 5112       83041       0                4       0                0       0                9       0
 5116       £££££       0            £££££       0                0       0                .       0
 5120           0       0                8       0                0       0                4       0
 5124           0       0            2002+       0            £5£5£       0            5£5£5       0
 5128       25569       0                7       0            :5:5:       0              5:5       0
 5132           0       0               Ю0       0                0       0              1++       0
 5136           1       0                1       0                0       0            20028       0
 5140           0       0               32       0                0       0               64       0
 5144           0       0            51000       0                0       0                Ю       0
 5148           0       0            53000       0            ££802       0              7£:       0
 5152           0       0            66666       0                6       0               2+       0
 5156           0       0                5       0                0       0            2003+       0
 5160           0       0            20012       0                2       0               1.       0
 5164          1+       0                0       0                0       0                0       0
 5168           0       0                ‼       0            48576       0               10       0
 5172       27464       0                7       0            30000       0                7       0
 5176          2+       0                2       0                0       0                7       0
 5180           0       0            20008       0                0       0                1       0
 5184           1       0               64       0                0       0               +8       0
 5188           0       0              3£2       0                0       0               30       0
 5192           2       0                Ю       0                0       0               23       0
 5196           0       0               21       0                0       0               22       0
 5200           0       0               25       0                0       0               1‼       0
 5204           0       0                0       0
  SECTION  1019
 5206                                                             2       0                0       0
 5208       70000       0             6700       0            66666       0                2-      0
 5212       £££££       0             5500       0             5600       0             4096       0
 5216        5300       0             7200       0               14       0            53000       0
 5220        8192       0             4000       0             4095       0                1-      0
 5224       66.64       0                3-      0                3       0             8191       0
 5228           5-      0             40.6       0            £££00       0                0       0
 5232           0       0                0       0
  SECTION  1020
 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  327
   33                                0  1  0  5102    4       0  0  3     0    4       1  1  3     5    0
   36       0  0  2  5190    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  5102    4       6  1  0    16    4       2  1  0    30    4       6  1  0  5116    4
   44      24  1  2    15    4      28  0  0     0    0      24  0  2   718    4      24  1  2    15    4
   48      28  1  2     2    0
 PROCEDURE  328
   49                                6  1  0  5118    4      28  0  0  5357    4       6  1  0  5120    4
   52       2  1  0  7362    4       6  1  0  5120    4       2  1  0  7364    4       1  1  3     1    0
   56       2  0  0  5238    4       6  0  0  6057    4      27  0  0    64    4       2  0  0  5235    4
   60       1  1  3    10    0       2  0  0  5237    4      24  0  2  6056    4      26  0  0   101    4
   64       1  1  3     8    0       2  0  0  5237    4       6  0  0  6045    4      27  0  0    71    4
   68       2  0  0  5235    4      24  0  2  6044    4      26  0  0   101    4      26  1  3  5406    4
   72       1  1  3     1    0      18  1  1  4118    0      15  0  3  5357    4       7  0  3  5357    4
   76      25  0  3     1    0      24  1  0    72    4       6  0  0  5387    4      27  0  0    85    4
   80       2  0  0  5235    4       1  1  3     2    0       2  0  0  5238    4      24  0  2  5386    4
   84      26  0  0   101    4       1  1  3     2    0       7  0  0  5978    4       4  0  0  4982    4
   88       5  0  0  5978    4       3  0  0   766    4      27  0  0    95    4      18  0  1     5    0
   92       4  0  0  5978    4      24  1  2  4897    4      28  1  1     0    0       6  0  0  4897    4
   96       4  0  0   766    4       2  0  0  5978    4       6  0  0  6270    4      27  0  0   142    4
  100      24  1  0   151    4
 PROCEDURE  329
  101                                0  0  0     0    0       3  0  0  5234    4       7  0  0  5235    4
  104      26  1  1  5234    4      24  0  3     0    4       6  0  1     2    0      18  0  1  4124    0
  108       2  0  0  5236    4       1  0  1     1    0      24  0  1  5236    4      15  0  0  5979    4
  112      18  1  1     4    0      24  0  3     0    4      14  0  1     2    0      25  0  1     1    0
  116      24  1  0   105    4       1  1  3     0    0       2  0  0  5236    4      26  1  2  5406    4
  120       1  1  3     1    0       7  0  0  5236    4      26  1  1  5234    4      24  0  3     0    4
  124       6  0  1     2    0      18  0  1  4124    0       5  0  0  5236    4      27  0  1   137    4
  128      24  0  1  5236    4       6  0  0  5356    4      24  0  1  5237    4      18  0  3     0    0
  132      24  0  3     0    4       7  0  1     2    0       6  0  0  5238    4      24  0  1  5236    4
  136       7  0  0  5356    4      25  0  1     1    0      24  1  0   123    4      25  0  2     1    0
  140      24  1  0   120    4      26  0  1   101    4
 PROCEDURE  330
  142                                                         0  1  0  5102    4       0  0  3     0    4
  144       0  1  2  5122    4       6  1  0  5124    4       4  0  0    10    4      25  1  1  4096    0
  148      24  0  3     0    4      23  0  2     0  256       0  0  3  5106    4       6  0  0  6275    4
  152      27  0  1   161    4       6  0  0  6274    4       1  1  1    10    0      18  0  1     5    0
  156       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
  160       0  0  3  5191    4       6  1  0  5126    4      28  0  0  5234    4       6  1  0  5128    4
  164      28  0  0  5406    4       6  1  0  5130    4      28  0  0  5206    4       1  1  3     1    0
  168       7  0  0  5970    4       1  1  3   998    0       4  0  0  5970    4       3  0  0  5239    4
  172       1  1  1     1    0       3  0  0  5240    4       1  1  1     1    0       2  0  0  5241    4
  176       6  1  0  5132    4       4  0  0  6275    4       3  1  0  5102    4      26  1  3  5102    4
 PROCEDURE  331
  180      26  0  0  4749    4      24  1  2    19    4       6  1  0     6    0       5  1  0   752    4
  184      27  0  0   198    4      24  1  2    19    4       6  1  0     4    0       5  1  0  5134    4
  188      27  0  1   180    4       1  1  3     4    0       0  0  2  5192    4      25  1  1  4096    0
  192      24  0  3     0    4      26  0  2     0  512       0  0  0   195    3      25  1  1  4096    0
  196      24  0  3     0    4      26  0  2     0  768      24  0  2   610    4      24  1  2    19    4
  200      28  0  2     4    0      24  0  2   610    4      24  1  2    19    4      28  1  2     2    0
  204       6  1  0  5210    4      18  0  1     2    0       4  1  0  5213    4       2  0  0  5346    4
  208       6  1  0  5214    4       2  1  0  5354    4       6  0  0  6275    4      27  0  0   241    4
  212       6  0  0  6270    4      27  0  1   239    4       6  0  0  7351    4      27  0  1   222    4
  216       6  1  0  5136    4       0  1  2   762    4       4  0  0     7    4      25  1  1  4096    0
  220      24  0  3     0    4      23  0  2   160    0       0  0  3  5191    4       6  1  0  5138    4
  224      24  1  2    13    4       2  1  0     4    0       6  0  0  5193    4      24  1  2    13    4
  228       2  1  0     7    0       6  1  0  5140    4      24  1  2    13    4       2  1  0     8    0
  232       6  0  0  5346    4      24  1  2    13    4       2  1  0    11    0       6  1  0  4882    4
  236      24  1  2    13    4       2  1  0    12    0      26  0  0  4780    4       6  1  0  5142    4
  240       2  1  0  7358    4      26  0  0   597    4       6  0  0  6270    4      27  0  1   254    4
  244       0  1  0  5102    4       0  0  3     0    4       0  1  2  5144    4       6  1  0  5136    4
  248       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  252       0  0  3  5106    4      24  1  0   264    4       0  1  0  5102    4       0  0  3     0    4
  256       0  0  2     0    4       6  1  0  5146    4       4  0  0    11    4      25  1  1  4096    0
  260      24  0  3     0    4      23  0  2     0  256       0  1  1  5102    4      24  1  0   275    4
  264      24  0  2   620    4      24  1  2    21    4      28  1  2     4    0      26  0  0  4280    4
  268       6  0  0  4856    4      24  1  2    21    4       2  1  0     5    0       6  1  0  4882    4
  272      24  1  2    21    4       2  1  0     6    0      26  0  0  4280    4      24  0  2   628    4
  276      24  1  2    21    4      28  1  2     4    0      24  1  2    21    4       2  1  0    16    0
  280      26  0  0  4280    4      26  0  0  4749    4      24  0  2   610    4      24  1  2    19    4
  284      28  0  2     4    0       6  1  0  5210    4      26  0  0  4737    4       2  0  0  5356    4
  288      24  0  2   610    4      24  1  2    19    4      28  1  2     2    0      26  0  0   597    4
  292      24  0  2   636    4      24  1  2    21    4      28  1  2     4    0      26  0  0  4280    4
 PROCEDURE  332
  296       0  0  2  5194    4      10  0  0  5977    4       1  1  1   204    0       2  0  0  5334    4
  300       6  0  0  6009    4      18  0  3     3    0      18  0  1  4127    0       4  0  0  5999    4
  304       4  0  0  5999    4       3  0  0  5274    4       2  0  0  5273    4       6  0  0  6009    4
  308       3  0  0  6010    4       2  0  0  6011    4      26  1  2  6008    4      26  1  1  5148    4
  312      26  0  0  4749    4      24  1  2    19    4       6  1  0     6    0       5  1  0   756    4
  316      27  0  0   458    4      24  0  2   660    4      24  1  2    19    4      28  0  2     4    0
  320      24  1  2    19    4       6  1  0    46    0       5  1  0  4814    4       3  1  0   766    4
  324      27  0  0   401    4       6  0  0  5210    4       1  1  2    25    0      27  0  0   355    4
  328       6  0  0  5212    4      26  0  0  4737    4       5  0  0  5970    4      27  0  3   368    4
  332       6  1  0  4814    4      24  1  2    19    4       2  1  0    46    0       2  1  0   766    4
  336       6  0  0  6011    4      24  0  3     0    4       5  0  0     4   22      18  0  1     5    0
  340       4  0  0   750    4      24  0  3     0    4       4  0  0     4   22      24  0  0    24    4
  344      28  0  0  6012    4       1  1  2     2    0       7  0  0  6009    4       7  0  0  6010    4
  348       7  0  0  6011    4      24  0  3    22    4       7  0  0     5    0       1  1  1     1    0
  352       7  0  0  5273    4       7  0  0  5274    4      24  1  0   401    4       6  0  0  5212    4
  356      18  0  1     2    0       1  0  1     8    0      24  0  1  6011    4      14  0  0  6012    4
  360       6  0  0  5216    4      26  0  0  4737    4       1  0  1     7    0      24  0  1  6011    4
  364      14  0  0  6012    4       6  0  0  5214    4      26  0  0  4737    4      24  1  0   375    4
 PROCEDURE  333
  368       6  0  0  5210    4       1  1  2     3    0      27  0  0   378    4       1  1  2     1    0
  372      27  0  1   401    4       6  0  0  5214    4      26  0  0  4737    4      18  1  3     2    0
  376      18  1  1  4126    0       2  0  0  5242    4       6  0  0  5273    4       1  1  1     1    0
  380      24  0  1  6011    4       2  0  0  6013    4       1  0  1     8    0       6  0  0  5214    4
  384      26  0  0  4737    4       1  0  1     7    0       1  1  1     2    0      14  1  2  6012    4
  388       1  0  1    16    0       6  0  0  6011    4       5  0  0  6010    4      18  0  1     4    0
  392      14  1  2  6012    4       1  1  3     0    0      24  0  1  6011    4       5  0  0  6012    4
  396      24  0  1  6011    4       2  0  0  6012    4       1  1  3     2    0       7  0  0  6011    4
  400       7  0  0  5273    4
 PROCEDURE  334
  401                               24  0  2   660    4      24  1  2    19    4      28  1  2     2    0
  404      26  0  0   597    4       6  1  0   766    4      27  0  0   312    4      25  0  2     2    0
  408      24  1  0   409    4      26  1  3  5150    4       6  1  3  5210    4      26  0  0  4737    4
  412       2  1  3  5210    4      25  0  3     2    0      24  1  0   410    4       1  0  1     8    0
  416       6  1  0  5212    4      18  0  1     3    0      14  1  2  6010    4       6  0  0  5210    4
  420       1  1  2    19    0      27  0  1   429    4       6  0  0  5212    4      26  0  0  4743    4
  424       0  0  3  5191    4       1  0  1     8    0      18  0  1     3    0      14  1  2  6010    4
  428      24  1  0   434    4       6  1  0  5214    4       1  1  1     2    0       7  1  2  6010    4
  432       3  1  0  5214    4       7  1  0  5214    4       6  1  0  5210    4      18  0  1     1    0
  436       2  1  0  5210    4       6  1  0  5208    4      18  0  1  4122    0       2  1  0  5208    4
  440      24  0  2   672    4       0  1  0  5102    4       0  0  3     0    4      24  1  2    21    4
  444      24  0  2     0    0      24  0  3     0    4       4  0  0     2   22       2  0  0  5108    4
  448       0  1  1  5102    4      24  0  3  5108    4      28  1  2     4    0      25  0  1    12    0
  452      24  1  0   312    4       6  1  0  4882    4      24  1  2    21    4       2  1  0    52    0
  456      26  0  0  4280    4      24  1  0   311    4
 PROCEDURE  335
  458                                                        24  0  3     0    4       6  0  0     2   22
  460      27  0  0   465    4       6  1  0  4882    4      24  1  2    21    4       2  1  1     4    0
  464      26  0  0  4280    4      24  0  2   684    4      24  1  2    19    4      28  0  2     4    0
  468       6  1  0  5128    4      28  1  1  5550    4      26  0  0  4210    4      24  0  2   684    4
  472      24  1  2    19    4      28  1  2     2    0      26  0  0   597    4      26  0  0  4749    4
  476      24  1  2    19    4       6  1  0     6    0       5  1  0  5152    4      27  0  1   512    4
  480      24  0  2   690    4      24  1  2    19    4      28  0  2     8    0       6  1  0  5152    4
  484       2  1  0  5208    4       2  1  0  5210    4      24  0  2   686    4      24  1  2    19    4
  488      28  1  2     4    0      24  1  2    19    4       2  1  0     8    0
 PROCEDURE  336
  491                                                                                 26  1  1  5998    4
  492      24  0  3     0    4       2  0  0     2   22       6  0  1  5212    4       1  1  2     1    0
  496      27  0  0   503    4       1  1  2     1    0      27  0  1   507    4       1  1  3    32    0
  500      18  1  1  4118    0       1  1  3    32    0      14  0  1  5980    4      25  0  1     1    0
  504      24  1  0   494    4       6  0  1  5213    4      27  0  0   510    4       6  1  0  4814    4
  508      24  1  2    19    4       2  1  0    46    0      26  0  0   597    4      26  0  0  4749    4
 PROCEDURE  337
  512      26  0  0  4647    4      26  0  0  4647    4      24  1  0   517    4      26  0  0   597    4
  516      26  0  0  4749    4      24  1  2    19    4       6  1  0    12    0       5  1  0  4794    4
  520      27  0  0   772    4       4  1  0  4794    4       5  1  0  4790    4      27  0  0   772    4
  524       4  1  0  4790    4       5  1  0  4792    4      27  0  0   772    4
 PROCEDURE  338
  527                                                                                 24  1  2    19    4
  528       6  1  0    14    0      18  0  1     4    0      24  1  2    19    4       2  1  0     2    0
  532      24  1  2    19    4       2  1  0    14    0      24  0  2   648    4      24  1  2    19    4
  536      28  0  2     2    0      24  0  2   648    4      24  1  2    19    4      28  1  2     2    0
  540      24  1  2    19    4       6  1  0    46    0       5  1  0  4814    4      27  0  0   515    4
  544      26  0  0   597    4       6  1  0  5210    4      26  0  0  4737    4       2  1  0  5210    4
  548       6  1  0  5214    4      26  0  0  4737    4       2  1  0  5214    4       6  1  0  5208    4
  552      26  0  0  4737    4       3  1  0  5208    4      24  0  3     0    4       2  0  0     2   22
  556       6  1  0  5212    4      27  0  0   582    4      26  1  2  5154    4       6  0  2  6004    4
  560       5  1  0  5208    4      27  0  0   582    4      25  0  2     1    0      24  1  0   559    4
  564       1  1  3     2    0       7  0  0  6011    4       7  1  0  5210    4       7  0  0  5273    4
 PROCEDURE  339
  568       6  1  0  5210    4      18  0  3     5    0       1  0  1     1    0      24  0  0  5214    4
  572      15  0  0  5979    4      18  0  1     2    0       4  0  0  5273    4       1  1  2     1    0
  576      18  0  1     3    0       4  1  0  5208    4      24  0  1  6011    4       2  1  0  6010    4
  580       6  0  0  4966    4      24  1  0   583    4       6  0  0  4917    4       0  0  2  5195    4
  584      10  1  0  5210    4       4  1  0  5214    4       2  0  1  5550    4       6  0  0  5214    4
  588      24  0  3     0    4       2  0  0     4   22       6  0  2  5288    4      24  0  0  5208    4
  592       2  0  0  5406    4       6  0  0  5210    4       4  0  0  5210    4       7  0  2  5288    4
  596      24  1  0   516    4
 PROCEDURE  340
  597                                0  0  0     0    0      24  1  2    19    4      24  0  2     0    0
  600      18  1  1  4123    0       1  1  3    52    0      18  1  1     5    0      24  1  2    17    4
  604      28  1  1     0    0       1  0  1    15    0      24  1  2    17    4      14  0  0     2    0
  608      26  0  0  4134    4      26  0  1   597    4
  SECTION   341
  610                                                      0   5206   3        5   3  0  0  0  5   0
  612    0   5208   3      181   3  0  0 11  5   0         0   5210   3     9493   2  2  5  1  5   0
  616    0   5212   3       37   3  0  0  2  5   0         0   5214   3       21   3  0  0  1  5   1
  620    0    760   3        5   3  0  0  0  5   0         0    758   3        5   3  0  0  0  5   0
  624    0   4856   3        5   0  0  0  0  5   0         0    763   3      833   0  0  3  4  1   0
  628    0   5210   3     1795   2  0  7  0  3   0         0   5212   3      770   3  0  3  0  2   0
  632    0   5214   3        5   3  0  0  0  5   0         0   4882   3        5   3  0  0  0  5   1
  636    0   5975   3    16389   0  4  0  0  5   0         0   5974   3    16389   0  4  0  0  5   0
  640    0   5212   3        5   3  0  0  0  5   0         0   5970   3    16389   0  4  0  0  5   0
  644    0   5999   3    16389   0  4  0  0  5   0         0   4882   3        5   3  0  0  0  5   1
  648    0   5216   3        5   3  0  0  0  5   0         0   5206   3       85   3  0  0  5  5   0
  652    0   5208   3    17733   2  4  5  4  5   0         0   5210   3    17717   2  4  5  3  5   0
  656    0   5212   3    17669   2  4  5  0  5   0         0   5214   3    17717   2  4  5  3  5   1
  660    0   5206   3        5   3  0  0  0  5   0         0   5208   3      245   3  0  0 15  5   0
  664    0   5210   3    17685   2  4  5  1  5   0         0   5212   3    17701   2  4  5  2  5   0
  668    0   5214   3    17701   2  4  5  2  5   0         0   5216   3    17669   2  4  5  0  5   1
  672    0   5208   3        5   3  0  0  0  5   0         0   5210   3    17669   2  4  5  0  5   0
  676    0   5212   3    17669   2  4  5  0  5   0         0   5214   3    17669   2  4  5  0  5   0
  680    0   5234   3    16389   0  4  0  0  5   0         0   5216   3    17669   2  4  5  0  5   1
  SECTION   342
  684    0   5206   3        5   3  0  0  0  5   0         0   5208   3       21   3  0  0  1  5   0
  688    0   5210   3    16389   0  4  0  0  5   0         0   5212   3    16405   0  4  0  1  5   0
  692    0   5213   3    20501   0  5  0  1  5   0         0   5214   3    20501   0  5  0  1  5   0
  696    0   5215   3    20501   0  5  0  1  5   0         0   5216   3    20501   0  5  0  1  5   0
  700    0   5217   3    20501   0  5  0  1  5   0         0   5218   3    20501   0  5  0  1  5   0
  704    0   5219   3    20501   0  5  0  1  5   0         0   5220   3    20501   0  5  0  1  5   0
  708    0   5221   3    20501   0  5  0  1  5   0         0   5222   3    20501   0  5  0  1  5   0
  712    0   5223   3    20501   0  5  0  1  5   0         0   5224   3    20501   0  5  0  1  5   0
  716    0   5225   3    20501   0  5  0  1  5   1         0    758   3      101   3  0  0  6  5   0
  720    0   5999   3     1089   0  0  4  4  1   0         0   5980   3     5201   0  1  4  5  1   0
  724    0   5981   3     5201   0  1  4  5  1   0         0   5982   3     5201   0  1  4  5  1   0
  728    0   5983   3     5201   0  1  4  5  1   0         0   5984   3     5201   0  1  4  5  1   0
  732    0   5985   3     5201   0  1  4  5  1   0         0   5986   3     5201   0  1  4  5  1   0
  736    0   5987   3     5201   0  1  4  5  1   0         0   5988   3     5201   0  1  4  5  1   0
  740    0   5989   3     5201   0  1  4  5  1   0         0   5990   3     5201   0  1  4  5  1   0
  744    0   5991   3     5201   0  1  4  5  1   0         0   5992   3     5201   0  1  4  5  1   0
  748    0   5993   3     5201   0  1  4  5  1   1
  SECTION   343
  750                                                          177.       3                0       0
  752       65764       0            67696       0            36978       0            55657       0
  756       16772       0            53585       0            45577       0            59655       0
  760       £6£6£       0            6£6£6       0             8000       0             5149       0
  764           0       0                0       0
 PROCEDURE  344
  766                                                         6  0  0  5234    4       6  0  0  5235    4
 PROCEDURE  345
  768       0  0  0     0    0       6  0  0   768    4       2  0  0  4099    4      24  1  0  4108    4
 PROCEDURE  346
  772      26  0  0   768    4      26  0  0  1011    4       1  1  3     0    0       2  0  0  5007    4
  776       6  0  0  5273    4       1  1  1     1    0       3  0  0  5275    4       1  1  1     4    0
  780       2  0  0  5273    4       6  0  0  5978    4      18  0  1     5    0       4  0  0  4897    4
  784       3  1  0  5102    4      26  1  1  5102    4       6  0  0  4896    4       2  0  0  5352    4
  788       6  1  0  4884    4       2  1  0  5278    4       1  1  3     1    0       2  0  0  5345    4
  792       2  0  0  6008    4       6  1  0  5156    4      28  1  1    50    4       1  1  3    65    0
  796       2  1  0  5260    4       2  1  0  5262    4      26  0  0  4301    4       1  1  3     1    0
  800       2  1  0  5276    4       2  0  0  5343    4       2  0  0  5230    4
 PROCEDURE  347
  803                                                                                  6  0  0  5273    4
  804      18  0  1     5    0       2  1  0  5234    4      26  1  3  5234    4      24  0  3     0    4
  808       6  1  0     6   22       2  0  0  5232    4      26  0  0  4332    4      25  0  3     1    0
  812      24  1  0   807    4       1  1  3     3    0       7  0  0  5239    4       7  0  0  5240    4
  816       7  0  0  5241    4       1  1  3     0    0       1  0  1     1    0      24  0  0  5345    4
  820      15  0  0  5979    4       3  0  0  5285    4       4  0  0  5285    4       2  0  0  5237    4
  824       6  0  0  5239    4      18  0  1     2    0       4  0  0  5237    4       2  0  0  5238    4
  828       6  1  0  5158    4       2  1  0  5246    4       2  1  0  5248    4       6  1  0  4898    4
  832       2  1  0  5250    4       2  1  0  5244    4      26  0  0  4332    4      26  0  0  3129    4
  836       1  1  3  1792    0       2  0  0  5231    4       6  0  0  4968    4      26  0  0   963    4
  840      26  0  0  4332    4      26  0  0  4332    4       6  0  0  5021    4      26  0  0  3928    4
 PROCEDURE  348
  844       0  0  3  5191    4      24  0  3  7366    4       6  1  0     6    0       5  1  0  4794    4
  848      27  0  1   852    4       1  1  3     1    0       2  0  0  5276    4      24  1  0   868    4
  852       4  1  0  4794    4       5  1  0  4788    4      27  0  0   895    4      26  0  0   913    4
  856      24  0  3  7366    4       6  1  0    15    0      18  0  1  4124    0       2  0  0  5281    4
  860       1  1  3     2    0       2  0  0  5276    4      24  0  3  7366    4       6  1  0     6    0
  864       5  1  0  4790    4      27  0  0   867    4
 PROCEDURE  349
 PROCEDURE  350
  866                                                         1  1  3     1    0       1  1  1     1    0
  868       1  1  1     1    0       3  1  0  5261    4       2  0  0  7336    4      24  1  2    17    4
  872       6  1  0    13    0
 PROCEDURE  351
  873                               26  0  0  4737    4       3  1  0  5263    4       3  0  0  5244    4
  876       5  0  0  5356    4      27  0  1   880    4       6  0  0  5277    4       2  0  0  6271    4
  880       6  0  0  5277    4       2  0  0  5245    4      26  0  0   923    4      26  0  0  4301    4
  884       1  1  3   128    0       2  0  0  5280    4       6  0  0  6270    4      27  0  0   891    4
  888       2  0  0  5007    4       6  0  0  6202    4      27  0  0   892    4      26  0  0  4647    4
  892      26  0  0  4125    4      26  0  0   967    4      24  1  0   979    4       6  0  0  7336    4
  896       1  1  2     7    0      27  0  0   884    4       1  1  3     7    0       3  1  0  5261    4
  900       2  0  0  7336    4       2  1  0  5262    4       2  0  0  5276    4      24  1  0   883    4
 PROCEDURE  352
  904      24  0  1  7336    4      26  0  1   905    4       0  0  0  1206    3       0  0  0  3458    3
  908       0  0  0  3134    3       0  0  0   979    3       0  0  0   979    3       0  0  0   979    3
  912       0  0  0  3561    3
 PROCEDURE  353
  913                                0  0  0     0    0       1  1  3     0    0       0  0  2  4886    4
  916      15  0  0  5277    4      27  0  0   922    4       2  0  0  5276    4       2  1  0  5230    4
  920       2  1  0  5232    4      26  0  0  4332    4      26  0  1   913    4
 PROCEDURE  354
  923                                                                                  0  0  0     0    0
  924       1  0  1     0    0       6  0  0  5244    4      18  1  1  4119    0      13  0  0  5196    4
  928       2  0  0   938    4      18  1  1     9    0       2  0  0   944    4       0  0  2  4858    4
  932      24  0  1   944    4      18  1  3     0    0      24  0  1   938    4      15  0  0  6151    4
  936       2  0  0  6203    4      26  0  1   923    4
 PROCEDURE  355
  938                                                         0  0  0     0    0       2  0  0  5233    4
  940       6  0  0  5237    4       2  0  0  5232    4      26  0  0  4332    4      26  0  1   938    4
 PROCEDURE  356
  944       0  0  0     0    0       2  0  0  5234    4       1  1  3     1    0       2  0  0  5235    4
  948      26  0  0  4725    4      26  0  1   944    4
 PROCEDURE  357
  950                                                         0  0  0     0    0       2  0  0  5234    4
  952       6  0  0  5287    4      27  0  0   956    4      26  0  0  3625    4      26  0  1   950    4
  956      26  0  0  3666    4      26  0  1   950    4
 PROCEDURE  358
  958                                                         0  0  0     0    0       2  0  0  5234    4
  960       2  0  0  5235    4      26  0  0  4725    4      26  0  1   958    4
 PROCEDURE  359
  963                                                                                  0  0  0     0    0
  964       2  0  0  5233    4      26  0  0  4332    4      26  0  1   963    4
 PROCEDURE  360
  967                                                                                  0  0  0     0    0
  968       6  1  0  5160    4      24  1  2    17    4      28  1  1     2    0      26  0  1   967    4
 PROCEDURE  361
  972       0  0  0     0    0       2  0  0  5233    4       6  0  0  5238    4       2  0  0  5232    4
  976      26  0  0  4332    4      26  0  1   972    4      26  0  0   972    4
 PROCEDURE  362
  979                                                                                 26  0  0  4099    4
  980      24  0  3  7366    4       6  1  0     6    0       5  1  0  4792    4      27  0  3   904    4
  984      26  0  0  1011    4      24  0  3  7366    4       6  1  0     6    0       5  1  0  4792    4
  988      27  0  0  1070    4       4  1  0  4792    4       5  1  0  4790    4      27  0  0  1070    4
  992       4  1  0  4790    4       5  1  0  4794    4      27  0  0  1070    4       4  1  0  4794    4
  996       5  1  0  4788    4      27  0  0   895    4       4  1  0  4788    4       5  1  0  4798    4
 1000      27  0  1  1005    4       1  1  3     1    0       2  0  0  5282    4      26  0  0  1056    4
 1004      24  1  0  1083    4       4  1  0  4798    4       5  1  0  4796    4      27  0  1   904    4
 1008      26  0  0  4125    4      26  0  0   967    4      24  1  0   979    4
 PROCEDURE  363
 1011                                                                                  0  0  0     0    0
 1012      26  0  0   967    4       6  1  0  5508    4      24  1  2    17    4       2  1  0     2    0
 1016       6  1  0  5510    4      24  1  2    17    4       2  1  0     6    0       6  1  0  5512    4
 1020      24  1  2    17    4       2  1  0    10    0       6  1  0  5514    4      18  0  1  4124    0
 1024      24  1  2    17    4       2  1  0    12    0       6  1  0  5516    4      24  1  2    17    4
 1028       2  1  0    16    0       6  1  0  5512    4       5  1  0  4796    4      27  0  1  1036    4
 1032       6  1  0  5518    4      24  1  2    17    4       2  1  0    16    0      24  1  0  1039    4
 1036       6  1  0  5518    4      24  1  2    17    4       2  1  0    48    0       6  1  0  5512    4
 1040       5  1  0  4794    4      27  0  0  1046    4       6  1  0  5520    4      24  1  2    17    4
 1044       2  1  0    20    0      24  1  0  1049    4       6  1  0  5520    4      24  1  2    17    4
 1048       2  1  0    20    0      24  0  2  5522    4      18  1  1  4123    0       1  1  3    26    0
 1052      18  1  1     5    0      24  1  2    17    4      28  1  1    22    0      26  0  1  1011    4
 PROCEDURE  364
 1056       0  0  0     0    0       6  0  0  7336    4       1  1  2     7    0      27  0  1  1069    4
 1060       6  1  0  4796    4       2  1  0  5260    4       2  0  0  5232    4       6  0  0  5277    4
 1064       2  0  0  5233    4      26  0  0  4316    4       1  1  3     6    0       2  1  0  5261    4
 1068      26  0  0  4301    4      26  0  1  1056    4
 PROCEDURE  365
 1070                                                        26  0  0  1056    4      24  1  2    17    4
 1072       6  1  0    13    0       2  0  0  5269    4      24  0  0  5345    4       6  0  0  5979    4
 1076      18  0  1  4126    0      26  0  0  4743    4       5  0  0  5269    4      27  0  2   844    4
 1080       1  1  1     1    0      27  0  1   844    4       0  0  3  5191    4      26  0  0   913    4
 1084      26  0  0  1087    4      26  0  0  1098    4      24  1  0  1132    4
 PROCEDURE  366
 1087                                                                                  0  0  0     0    0
 1088      26  1  2  5150    4       6  0  2  5247    4      18  0  3     2    0      18  1  1  4127    0
 1092       1  0  2     4    0      18  0  3     2    0       2  0  2  5247    4      25  0  2     2    0
 1096      24  1  0  1089    4      26  0  1  1087    4
 PROCEDURE  367
 1098                                                         0  0  0     0    0       6  1  0  5150    4
 1100       2  1  0  5234    4       2  0  0  5246    4       2  0  0  5236    4      26  1  3  5236    4
 1104       6  0  3  4887    4       2  1  0  5260    4       6  0  3  5239    4       2  1  0  5263    4
 1108      26  0  0  4301    4       6  0  3  4890    4       2  0  0  5276    4      24  0  0  5234    4
 1112       6  1  0  5246    4       2  1  0  5264    4       6  0  0  5264    4       5  0  0  5265    4
 1116      27  0  0  1126    4       6  0  0  4890    4      18  0  1     5    0       4  0  3  4893    4
 1120       4  0  0  5264    4      28  0  0  5230    4      26  0  0  4332    4      23  0  0     4    0
 1124       0  0  0  5264    3      24  1  0  1117    4       1  1  3     1    0       7  0  0  5236    4
 1128      23  0  0     2    0       0  0  0  5234    3      24  1  0  1103    4      26  0  1  1098    4
 PROCEDURE  368
 1132       1  1  3     1    0       2  1  0  5261    4       1  1  3  1001    0       4  0  0  5345    4
 1136       2  1  0  5263    4      26  0  0  4301    4       6  0  0  5277    4      24  0  1  5345    4
 1140       2  0  0  5371    4       6  1  0  4810    4       2  1  0  5260    4       2  1  0  5262    4
 1144      26  0  0  4316    4       1  1  3     1    0       4  0  0  5345    4       3  0  0  5345    4
 1148       6  0  0  5282    4      27  0  0   795    4      24  1  0  1152    4
 PROCEDURE  369
 1151                                                                                 24  1  0  1158    4
 1152      26  0  0  4363    4       6  0  0  4914    4       2  1  0  5208    4       6  0  0  1151    4
 1156       2  0  0  4512    4      24  1  0  4406    4       1  1  3     1    0       2  0  0  6203    4
 1160      26  0  0  4647    4      26  0  0  4134    4       6  0  0  5356    4       2  0  0  5269    4
 1164      26  0  0  3717    4       2  0  0  5978    4       6  0  0  6271    4       2  0  0  5976    4
 1168       6  1  0  4816    4      24  1  2    21    4       2  1  0     4    0       6  1  0  4882    4
 1172      24  1  2    21    4       2  1  0     6    0      26  0  0  4280    4      26  0  0  4749    4
 1176      24  1  2    19    4       6  1  0     4    0       5  1  0  5162    4      27  0  0  1189    4
 1180      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0
 1184      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0      26  0  0  4280    4
 1188      24  1  0  1175    4      24  0  2  5550    4      18  1  1  4123    0       1  1  3   100    0
 1192      18  1  1     5    0      24  1  2    21    4      28  1  1     0    0       6  0  0  6270    4
 1196      27  0  1    33    4       0  1  0  5102    4       0  0  3     0    4       6  1  0  5164    4
 1200       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1204       0  1  1  5102    4      24  1  0    33    4
 PROCEDURE  370
 1206                                                         1  1  3     1    0       2  0  0  5333    4
 1208      26  0  0  4377    4       6  1  0  5208    4       2  1  0  5230    4       2  0  0  5236    4
 1212       2  0  0  5259    4       6  0  0  5344    4      27  0  0   979    4      27  0  3   979    4
 1216       1  1  2    17    0      27  0  2   979    4       6  0  0  5344    4       2  0  0  7337    4
 1220       6  0  0  5284    4       2  0  0  7338    4       6  0  0  5247    4       1  1  2   148    0
 1224      27  0  2  1231    4       6  0  0  5249    4       1  1  2    56    0      27  0  2  1231    4
 1228       6  0  0  5251    4       1  1  2   218    0      27  0  3  1267    4
 PROCEDURE  371
 1231                                                                                 26  0  0  1087    4
 1232       6  0  0  5251    4       5  0  0  5250    4      18  0  3     3    0      18  0  1  4127    0
 1236       4  0  0  5249    4       4  0  0  5247    4       2  0  0  1087    4       0  0  2  4886    4
 1240      15  0  0  5277    4       1  1  2     2    0       5  0  0  1087    4       4  0  0  4954    4
 1244      26  0  0  3928    4      26  0  0   913    4      26  0  0  1098    4       1  1  3     1    0
 1248       2  0  0  5276    4       2  0  0  5236    4       6  1  0  5166    4      28  1  1    50    4
 1252       6  1  0  4792    4      24  1  2    15    4       2  1  0     2    0       2  1  0  5246    4
 1256       2  1  0  5248    4      26  0  0  4647    4       6  1  0  4898    4       2  1  0  5250    4
 1260       1  1  3     3    0       7  0  0  5239    4       7  0  0  5240    4       7  0  0  5241    4
 1264       1  1  3     6    0       2  1  0  5261    4      26  0  0  4301    4
 PROCEDURE  372
 1267                                                                                  1  1  3     0    0
 1268      24  0  1  7337    4      26  0  1  1269    4       0  0  0  1286    3       0  0  0  1301    3
 1272       0  0  0  1377    3       0  0  0  1410    3       0  0  0  1480    3       0  0  0  1951    3
 1276       0  0  0  2152    3       0  0  0  2255    3       0  0  0  2402    3       0  0  0  2582    3
 1280       0  0  0  2768    3       0  0  0  2767    3       0  0  0  2766    3       0  0  0  2765    3
 1284       0  0  0  2928    3       0  0  0  2975    3
 PROCEDURE  373
 1286                                                         6  0  0  5284    4       1  1  2     8    0
 1288      27  0  3  1294    4       1  1  2     2    0      27  0  2  1298    4       6  0  0  4935    4
 1292      26  0  0   944    4      26  0  0  4371    4      24  0  1  5284    4       6  0  0  4915    4
 1296      26  0  0   958    4      24  1  0   979    4       6  0  0  4926    4      26  0  0   963    4
 1300      24  1  0  1294    4
 PROCEDURE  374
 1301                                6  1  0  5220    4       2  1  0  5286    4       6  0  0  5284    4
 1304       1  1  2     4    0      27  0  2  1330    4       6  0  0  5221    4      27  0  0  1313    4
 1308      24  0  0  5284    4       6  0  0  4915    4       2  1  0  5234    4      26  0  0  3625    4
 1312      24  1  0   979    4       6  0  0  5284    4       1  1  2     2    0      27  0  2  1318    4
 1316       6  1  0  5220    4      27  0  3  1325    4
 PROCEDURE  375
 1318                                                         6  0  0  4902    4       5  0  0  5220    4
 1320      27  0  3  1325    4      24  0  0  5284    4       6  0  0  4929    4       4  0  0  5220    4
 1324      24  1  0  1429    4      24  0  0  5284    4       6  0  0  4915    4       2  0  0  5234    4
 1328      26  0  0  3666    4      24  1  0   979    4
 PROCEDURE  376
 1330                                                        26  0  0  4707    4       6  1  0  5168    4
 1332      28  0  0  5212    4       6  0  0  5284    4       1  1  2     8    0      27  0  2  1356    4
 1336       6  1  0  5260    4       0  1  2  5262    4      27  1  1  1341    4       6  1  0  5266    4
 1340      27  0  0  1344    4       6  0  0  4930    4      26  0  0   963    4      24  1  0  1346    4
 1344       6  0  0  5010    4      26  0  0   972    4       6  0  0  4935    4      26  0  0   950    4
 1348       6  1  0  5260    4       0  1  2  5262    4      27  1  1  1353    4       6  0  0  4911    4
 1352      24  1  0   978    4      26  0  0  4716    4       6  0  0  4923    4      24  1  0  1296    4
 PROCEDURE  377
 1356      27  0  1  1362    4       6  1  0  5260    4       0  1  2  5262    4      27  1  1  1346    4
 1360       6  0  0  5011    4      24  1  0  1345    4       6  0  0  4944    4      26  0  0   963    4
 1364       6  1  0  5260    4       0  1  2  5262    4      27  1  0  1370    4      26  0  0  4716    4
 1368       6  0  0  4916    4      26  0  0   958    4       6  0  0  4972    4      26  0  0   963    4
 PROCEDURE  378
 1372       6  1  0  5168    4      28  0  0  5212    4       6  0  0  4925    4      26  0  0   950    4
 1376      24  1  0   979    4
 PROCEDURE  379
 1377                                2  1  0  5216    4      24  0  1  7338    4      26  0  1  1379    4
 1380       0  0  0  1393    3       0  0  0  1390    3       0  0  0  1390    3       0  0  0  1390    3
 1384       0  0  0  1396    3       0  0  0  1390    3       0  0  0  1390    3       0  0  0   979    3
 1388       0  0  0   979    3       0  0  0  1390    3      24  0  0  5284    4       6  0  0  4988    4
 1392      24  1  0  1296    4       6  0  0  4994    4      26  0  0  1404    4      24  1  0   979    4
 1396      26  0  0  4707    4       6  0  0  4992    4      26  0  0  1404    4      26  0  0  4716    4
 1400       6  0  0  4994    4      26  0  0   958    4       6  0  0  4993    4      24  1  0   978    4
 PROCEDURE  380
 1404       0  0  0     0    0       1  1  2     8    0      26  0  0   972    4       6  0  0  4990    4
 1408      26  0  0   958    4      26  0  1  1404    4
 PROCEDURE  381
 1410                                                        24  0  1  7338    4      26  0  1  1411    4
 1412       0  0  0  1422    3       0  0  0  1434    3       0  0  0  1422    3       0  0  0  1434    3
 1416       0  0  0  1432    3       0  0  0  1454    3       0  0  0  1466    3       0  0  0  1466    3
 1420       0  0  0  1469    3       0  0  0  1472    3
 PROCEDURE  382
 1422                                                         6  1  0  5220    4      27  0  2  1426    4
 1424       1  1  3  4128    0       7  1  0  5220    4      24  0  0  5284    4       6  0  0  4939    4
 1428       5  0  0  5220    4       2  0  0  5233    4      26  0  0  4332    4      24  1  0   979    4
 1432       6  0  0  4935    4      24  1  0  2020    4       6  1  0  5220    4      27  0  2  1426    4
 1436      18  1  1  4118    0       1  1  3     0    0      15  0  0  4900    4       2  0  0  4332    4
 1440      15  0  0  4999    4      15  0  0  4999    4      15  0  0  4999    4      15  0  0  4999    4
 1444      18  0  1  4127    0       2  1  0  5220    4       5  0  0  4332    4      27  0  0  1451    4
 1448      24  0  0  5284    4       4  0  0  4939    4      26  0  0   963    4       1  1  2     1    0
 1452       7  0  0  5284    4      24  1  0  1426    4
 PROCEDURE  383
 1454                                                         6  1  0  5220    4      26  0  0  4743    4
 1456       2  1  0  5220    4       0  0  3  5191    4      24  0  2  4818    4      12  1  0  5220    4
 1460      27  0  2  1464    4       2  1  0  5220    4       5  1  0  5220    4       1  1  1  1024    0
 1464       4  0  0  4944    4      24  1  0  1429    4
 PROCEDURE  384
 1466                                                        24  0  0  5284    4       6  0  0  4938    4
 1468      24  1  0  1296    4
 PROCEDURE  385
 1469                                6  0  0  4947    4       4  1  0  5220    4      24  1  0  1429    4
 PROCEDURE  386
 1472       6  0  0  4938    4      26  0  0   972    4       6  0  0  5012    4      26  0  0  3928    4
 1476       6  0  0  4961    4      26  0  0   963    4       6  0  0  4962    4      24  1  0   978    4
 PROCEDURE  387
 1480       6  0  0  5284    4       1  1  2     4    0      27  0  0  1484    4      26  0  0  4086    4
 1484       6  0  0  5212    4       2  0  0  5288    4      26  0  0  3942    4       2  0  0  5348    4
 1488      18  1  3     6    0       3  0  0  5288    4       1  1  2     7    0      27  0  0  1510    4
 1492       1  1  2     4    0      27  0  0  1510    4       1  1  2     4    0      27  0  0  1661    4
 1496       1  1  2     5    0      27  0  1  1512    4       6  0  0  5284    4       1  1  2     1    0
 1500      27  0  1  1512    4       6  0  0  5214    4      26  0  0  4737    4       2  0  0  5212    4
 1504       2  0  0  5214    4       6  0  0  4974    4      26  0  0   944    4       6  0  0  4980    4
 1508      26  0  0   963    4      24  1  0  1512    4       1  1  1     8    0       2  0  0  5288    4
 1512       6  0  3  6012    4      18  0  1  4124    0       4  0  0  6009    4       2  0  0  5349    4
 1516      24  0  1  5349    4       6  0  0  6013    4       2  0  0  5349    4       6  0  0  5284    4
 1520      18  0  3     5    0       4  0  0  5288    4      18  0  3     3    0       0  0  2  4913    4
 1524      15  0  0  5220    4      18  0  1     2    0       1  0  0  1872    4       0  1  0  5290    4
 1528       1  1  3     0    0       1  0  1     3    0      24  0  3  5292    4      15  0  0     0    0
 1532      18  1  3     1    0      18  1  1  4126    0      18  0  1     3    0      18  1  3     6    0
 1536       2  0  0  5295    4      18  1  3     1    0       2  0  0  5294    4       6  0  0  7337    4
 1540       1  1  2    14    0      27  0  0  2883    4       6  0  0  5284    4       1  1  2     4    0
 1544      27  0  1  1649    4      26  0  0  4377    4      26  0  0  4086    4       6  1  0  5213    4
 1548      26  0  0  4737    4       2  1  0  5212    4       6  0  0  5288    4       1  1  2     3    0
 1552      27  0  0  1603    4       1  1  2     1    0      27  0  0  1600    4       1  1  2     9    0
 1556      27  0  0  1640    4       1  1  2     5    0      27  0  0  1640    4       1  1  2     1    0
 1560      27  0  1  1683    4       6  0  0  4916    4       4  0  0  5348    4      26  0  0   938    4
 1564      26  0  0  1631    4      27  0  0  1571    4       6  0  0  4921    4       1  1  1     8    0
 1568      26  0  0  3928    4      26  0  0  1618    4      24  1  0  1574    4       6  0  0  4921    4
 1572       1  1  1     4    0      26  0  0  3928    4       6  0  0  5999    4      26  0  0  4023    4
 1576       1  1  3  1001    0      18  0  1     2    0       2  0  0  5232    4
 PROCEDURE  388
 1579                                                                                  6  0  0  4955    4
 1580      26  0  0   963    4       6  0  0  5032    4      26  0  0  3928    4       6  0  0  5348    4
 1584       2  0  0  5232    4      26  0  0   963    4      26  0  0  3747    4       1  1  1     1    0
 1588       2  0  0  5232    4      26  0  0   963    4       6  0  0  5349    4       1  1  1     1    0
 1592       2  0  0  5232    4      26  0  0   963    4       6  0  0  5242    4      18  0  3     7    0
 1596       4  0  0  4921    4      26  0  0   963    4      26  0  0  1942    4      24  1  0   979    4
 1600      26  0  0  1631    4      27  0  0  1603    4      26  0  0  1618    4       2  1  0  5216    4
 1604       6  0  0  4974    4      26  0  0   944    4       6  0  0  4927    4       5  0  0  5349    4
 1608       1  1  2     1    0      26  0  0   938    4       6  0  0  5288    4       1  1  2     4    0
 1612      27  0  0  1614    4       6  0  0  4934    4       4  0  0  4975    4      26  0  0   963    4
 1616       6  0  0  5349    4      24  1  0  1684    4
 PROCEDURE  389
 1618                                                         0  0  0     0    0       6  0  0  4935    4
 1620      26  0  0   950    4       6  0  0  4916    4      26  0  0   950    4      26  0  0  4716    4
 1624       1  1  3     1    0       2  1  0  5216    4       6  0  0  4946    4      26  0  0   958    4
 1628       6  1  0  5260    4       2  1  0  5212    4      26  0  1  1618    4
 PROCEDURE  390
 1631                                                                                  0  0  0     0    0
 1632      26  0  0  4707    4       1  1  2     1    0      24  0  1  5242    4      18  0  3     0    0
 1636       1  1  1    16    0      18  0  1     9    0       3  1  0  5286    4      26  0  1  1631    4
 PROCEDURE  391
 1640       6  0  0  4935    4      26  0  0   972    4      24  1  0  1784    4
 PROCEDURE  392
 1643                                                                                  0  0  0     0    0
 1644       6  0  0  5273    4       2  0  0  5232    4       6  0  0  4930    4      26  0  0   963    4
 1648      26  0  1  1643    4      24  0  1  7338    4      26  0  1  1650    4       0  0  0  1700    3
 1652       0  0  0  1784    3       0  0  0  1679    3       0  0  0  1679    3       0  0  0  1696    3
 1656       0  0  0  1785    3       0  0  0  1757    3       0  0  0  1757    3       0  0  0  1757    3
 1660       0  0  0  1757    3       6  0  0  5284    4       1  1  2     2    0      27  0  0  1673    4
 1664      27  0  2  1679    4      26  0  0  1643    4       6  0  0  5029    4      26  0  0   972    4
 1668       6  0  0  5028    4      26  0  0   963    4       6  0  0  5014    4      26  0  0   963    4
 1672      24  1  0  1700    4      26  0  0  1643    4       6  0  0  5030    4      26  0  0   963    4
 1676       6  0  0  5014    4      26  0  0   963    4      24  1  0  1784    4
 PROCEDURE  393
 1679                                                                                 26  0  0  4377    4
 1680       6  1  0  5213    4      26  0  0  4737    4       2  0  0  5212    4      26  0  0  3747    4
 1684       4  0  0  4935    4      26  0  0   938    4       6  0  0  5288    4       1  1  2    24    0
 1688      27  0  1  1784    4       6  0  0  4963    4      26  0  0   963    4       6  0  0  5036    4
 1692      26  0  0   963    4       6  0  0  4980    4      26  0  0   963    4      24  1  0  1784    4
 1696       6  0  0  4935    4      26  0  0   972    4       1  1  3     1    0      24  1  0  1785    4
 PROCEDURE  394
 1700       6  0  0  5288    4       1  1  2    12    0      27  0  1  1732    4       6  0  0  5295    4
 1704       2  0  0  4879    4       1  0  1     7    0      15  0  3  6012    4      15  0  3  6012    4
 1708       1  1  2     2    0       4  0  0  4921    4      18  0  1     5    0       2  1  0  5294    4
 1712       1  1  2    64    0       2  1  0  5286    4       6  0  0  4916    4      26  0  0   950    4
 1716       6  0  0  5348    4       4  0  0  4918    4      26  0  0   938    4       6  0  0  5022    4
 1720      26  0  0   972    4       6  1  0  5294    4       2  1  0  5286    4       6  0  0  4916    4
 1724      26  0  0   950    4       6  0  0  5027    4      26  0  0   972    4       6  0  0  5197    4
 1728      26  0  0   963    4       6  0  0  4879    4       2  0  0  5295    4      24  1  0  1784    4
 1732       1  1  2     8    0      27  0  0  1784    4       6  1  0  5212    4      18  0  1     5    0
 1736       4  0  0  5346    4       2  1  0  5286    4      26  0  0  1838    4       3  0  0  1838    4
 1740      27  0  1  1752    4      26  0  0  4707    4       6  0  0  5216    4      27  0  0  1752    4
 1744       6  1  0  5213    4      26  0  0  4737    4       2  1  0  5212    4       1  1  3     1    0
 1748       2  1  0  5216    4       6  0  0  4935    4      26  0  0   944    4      24  1  0  1784    4
 1752       6  0  0  4935    4      26  0  0   950    4       6  0  0  1838    4      27  0  1  1802    4
 1756      24  1  0  1788    4      26  0  0  4377    4       6  1  0  5213    4      26  0  0  4737    4
 1760       3  1  0  5212    4      27  0  1  1769    4       6  1  0  5262    4      18  0  1     5    0
 1764       4  1  0  5220    4       2  1  0  5286    4       6  0  0  4935    4      26  0  0   950    4
 1768      24  1  0  1784    4
 PROCEDURE  395
 1769                                6  0  0  5284    4       1  1  2     9    0      27  0  3  1775    4
 1772       6  0  0  4935    4      26  0  0   944    4      24  1  0  1784    4       6  0  0  4916    4
 1776      26  0  0   958    4       6  1  0  5262    4      18  0  1     5    0       2  1  0  5286    4
 1780       6  0  0  4917    4      26  0  0   950    4       6  0  0  4970    4      26  0  0   963    4
 PROCEDURE  396
 1784      26  0  0  1838    4       3  0  0  1838    4      27  0  1  1802    4      26  0  0  4707    4
 1788       6  0  0  5284    4       1  1  2     3    0      27  0  3  1802    4       6  0  0  4963    4
 1792      26  0  0   963    4       6  1  0  5213    4      26  0  0  4737    4       2  1  0  5212    4
 1796       2  1  0  5214    4       6  0  0  4974    4      26  0  0   944    4       6  0  0  4980    4
 1800      26  0  0   963    4      26  0  0  1838    4       6  0  0  5288    4       1  1  2    15    0
 1804      27  0  1  1812    4       6  0  0  5284    4       1  1  2     3    0      27  0  1  1826    4
 1808      26  0  0  1643    4       6  0  0  5014    4      26  0  0   963    4      24  1  0  1826    4
 1812       6  0  0  5288    4       1  1  2     2    0      27  0  0  1817    4       1  1  2     1    0
 1816      27  0  1  1822    4       6  0  0  5284    4       1  1  2     2    0      27  0  1  1822    4
 1820       6  0  0  4935    4      26  0  0   938    4       6  1  0  5294    4       2  1  0  5286    4
 1824       6  0  0  4916    4      26  0  0   950    4       6  0  0  5348    4       4  0  0  4917    4
 1828      26  0  0   938    4      26  0  0  3129    4       1  1  3   256    0       2  0  0  5231    4
 1832       6  0  0  4968    4      26  0  0   963    4       6  0  0  1838    4      27  0  1  1849    4
 1836      26  0  0  4716    4      24  1  0  1484    4
 PROCEDURE  397
 1838                                                         0  0  0     0    0      26  0  0  4099    4
 1840      24  0  3  7366    4       6  0  0     7    0       5  0  0  4813    4      27  0  1  1848    4
 1844       1  1  3     1    0       2  0  0  5333    4      26  0  0  4377    4       1  1  3     0    0
 1848      26  0  1  1838    4       6  0  0  5284    4       1  1  2     1    0      27  0  1  1858    4
 1852       6  0  0  5288    4       1  1  2    15    0      27  0  1  1864    4       6  0  0  5031    4
 1856      26  0  0   972    4      24  1  0  1864    4       1  1  2     4    0      27  0  0  1864    4
 1860       1  1  2     1    0      27  0  0  1869    4      26  0  0  1942    4      24  1  0   980    4
 1864      26  0  0  2064    4       6  0  0  5284    4       1  1  2     1    0      27  0  0   980    4
 1868      24  1  0   979    4      26  0  0  1942    4      24  1  0   979    4       0  0  0     0    0
  SECTION   398
 1872       10£16       0            11£1Ю       0            1271+       0            12£1.       0
 1876       13720       0            14024       0            14722       0            14£26       0
 1880       15720       0            16728       0            16£20       0            18796       0
 1884       19720       0            19£26       0            1Ю76Ю       0            1‼776       0
 1888       1+£6.       0            20£2Ю       0            21£2.       0            22730       0
 1892       22£32       0            23734       0            24038       0            24136       0
 1896       2425Ю       0            2475+       0            24£3Ю       0            25734       0
 1900       2673+       0            26£34       0            287ЮЮ       0            29734       0
 1904       29£3Ю       0            2+£70       0            32£0Ю       0            3370+       0
 1908       3470.       0            3570:       0            36714       0            36£0+       0
 1912       38£68       0            3970:       0            3Ю76+       0            3+70Ю       0
 1916       40£02       0            41£06       0            42708       0            44710       0
 1920       44£12       0            46£62       0            48782       0            48£64       0
 1924       49762       0            4‼774       0            52£60       0            5425.       0
 1928       54760       0            58£66       0            5+£72       0            64042       0
 1932       64744       0            74046       0            74748       0            8474Ю       0
 1936       9404.       0            94150       0            94256       0            94758       0
 1940       Ю4052       0            Ю4754       0
 PROCEDURE  399
 1942                                                         0  0  0     0    0       6  0  0  5259    4
 1944       1  1  2     1    0       3  0  0  5259    4      27  0  0  1948    4       1  1  3     8    0
 1948       4  0  0  4929    4      26  0  0   972    4      26  0  1  1942    4
 PROCEDURE  400
 1951                                                                                 24  0  1  7338    4
 1952      26  0  1  1952    4       0  0  0  1965    3       0  0  0  1963    3       0  0  0  1965    3
 1956       0  0  0  1964    3       0  0  0  1991    3       0  0  0  2022    3       0  0  0  2100    3
 1960       0  0  0  2121    3       0  0  0  2130    3       0  0  0  2133    3
 PROCEDURE  401
 1963                                                                                  1  1  3     1    0
 1964       1  1  1     1    0       2  0  0  5318    4       2  1  0  5216    4      26  0  0  4377    4
 1968       1  1  3     0    0       2  1  0  5216    4       6  0  0  4974    4      26  0  0   944    4
 1972      26  0  0  4716    4      24  0  0  5284    4       6  0  0  4975    4      26  0  0   944    4
 1976       6  0  0  5318    4      27  0  0   979    4       1  1  2     1    0      27  0  0  1984    4
 1980      26  0  0  4086    4       6  0  0  5013    4      26  0  0   963    4      26  0  0  2064    4
 1984       6  0  0  5260    4       1  1  2   100    0      27  0  2   979    4      26  0  0  4716    4
 1988       6  0  0  4919    4      26  0  0  3985    4      24  1  0   979    4
 PROCEDURE  402
 1991                                                                                 26  0  0  4707    4
 1992       6  1  0  5220    4      27  0  0  1997    4       4  0  0  4921    4      18  0  1     5    0
 1996      24  1  0  2001    4      26  0  0  4371    4      26  0  0  4086    4      26  0  0  2072    4
 2000       6  0  0  4921    4       2  1  0  5286    4       6  0  0  4916    4      26  0  0   950    4
 2004       6  1  0  5220    4      27  0  1  2012    4      26  0  0  2086    4       6  0  0  4917    4
 2008      26  0  0   958    4      26  0  0  2064    4
 PROCEDURE  403
 2010                                                         6  0  0  5014    4      26  0  0   963    4
 2012      26  0  0  4716    4       6  0  0  5216    4      27  0  0  2019    4       1  1  3     0    0
 2016       2  1  0  5216    4       6  0  0  5035    4      24  1  0  2020    4       6  0  0  4973    4
 2020      26  0  0   944    4      24  1  0   979    4
 PROCEDURE  404
 2022                                                         6  1  0  5220    4       2  0  0  5347    4
 2024      26  0  0  4377    4      26  0  0  2072    4       6  0  0  5296    4      27  0  0  2030    4
 2028       1  1  3     1    0       2  0  0  5296    4       6  0  0  5264    4      27  0  0  2036    4
 2032       1  1  3     1    0       3  0  0  5264    4       5  0  0  5296    4       7  1  0  5262    4
 2036      26  0  0  4716    4       2  1  0  5216    4       6  0  0  4974    4      26  0  0   944    4
 2040       6  0  0  4980    4      26  0  0   963    4       6  0  0  5347    4      27  0  1  2048    4
 2044      26  0  0  4371    4       6  0  0  4916    4      26  0  0   958    4      24  1  0  2050    4
 2048       4  0  0  4930    4      26  0  0   963    4       6  0  0  4963    4      26  0  0   963    4
 2052      26  0  0  2086    4       6  0  0  5264    4       3  0  0  5216    4      27  0  1  2060    4
 2056       6  0  0  5296    4      27  0  0  2060    4       1  1  3     1    0       7  1  0  5214    4
 2060       6  0  0  4973    4      24  0  0  5296    4       5  0  0  4933    4      24  1  0  2020    4
 PROCEDURE  405
 2064       0  0  0     0    0       6  0  0  5259    4       1  1  2     1    0       3  0  0  5259    4
 2068      27  0  1  2071    4       6  0  0  5015    4      26  0  0   972    4      26  0  1  2064    4
 PROCEDURE  406
 2072       0  0  0     0    0       6  1  0  5212    4       2  0  0  5294    4       6  1  0  5214    4
 2076       2  0  0  5295    4       6  1  0  5216    4       2  0  0  5296    4       6  1  0  5218    4
 2080       2  0  0  5297    4       6  1  0  5220    4       2  0  0  5298    4       6  0  0  5222    4
 2084       2  0  0  5224    4      26  0  1  2072    4
 PROCEDURE  407
 2086                                                         0  0  0     0    0       6  0  0  5294    4
 2088       2  1  0  5212    4       6  0  0  5295    4       2  1  0  5214    4       6  0  0  5296    4
 2092       2  1  0  5216    4       6  0  0  5297    4       2  1  0  5218    4       6  0  0  5298    4
 2096       2  1  0  5220    4       6  0  0  5224    4       2  0  0  5222    4      26  0  1  2086    4
 PROCEDURE  408
 2100      26  0  0  4086    4      26  0  0  4707    4       6  0  0  4957    4      26  0  0   944    4
 2104       6  0  0  4958    4      26  0  0   963    4       6  0  0  5266    4      27  0  0  2117    4
 2108       6  0  0  4918    4      26  0  0  2746    4       6  0  0  5260    4      27  0  1  2117    4
 2112       6  0  0  5262    4      27  0  0  2119    4       4  0  0  4932    4      26  0  0   963    4
 2116      24  1  0  2119    4       6  0  0  4918    4      26  0  0  3694    4      26  0  0  2064    4
 2120      24  1  0   979    4
 PROCEDURE  409
 2121                                6  0  0  4959    4       2  0  0  5234    4       6  1  0  5220    4
 2124      27  0  0  2127    4       2  1  0  5286    4      24  1  0  1328    4       2  1  0  5218    4
 2128       6  0  0  4959    4      24  1  0  2020    4       6  0  0  4960    4      26  0  0   938    4
 2132      24  1  0   979    4
 PROCEDURE  410
 2133                               26  0  0  4086    4       6  1  0  5218    4       2  0  0  5272    4
 2136       2  1  0  5218    4       6  0  0  4974    4      26  0  0   944    4       6  0  0  5272    4
 2140       2  0  0  5266    4       6  0  0  4919    4      26  0  0  2746    4      26  0  0  4377    4
 2144       6  0  0  4917    4      26  0  0   958    4       6  0  0  5272    4       2  0  0  5266    4
 2148       6  0  0  5016    4      26  0  0  2746    4      26  0  0  1942    4      24  1  0   979    4
 PROCEDURE  411
 2152       6  0  0  5284    4       1  1  2     3    0      27  0  2  2160    4      24  0  0  5284    4
 2156       6  0  0  4902    4       2  1  0  5286    4       6  0  0  4936    4      24  1  0  1327    4
 2160      27  0  1  2163    4       6  1  0  5220    4      24  1  0  2157    4
 PROCEDURE  412
 2163                                                                                  1  1  2     4    0
 2164      27  0  2  2209    4       6  0  0  5218    4      27  0  1  2173    4       6  0  0  5212    4
 2168       0  0  2  5214    4      27  1  1  2173    4       1  1  3     6    0       4  0  0  4938    4
 2172      26  0  0   972    4
 PROCEDURE  413
 2173                                6  0  0  5284    4       1  1  2     6    0      27  0  0  2200    4
 2176      26  0  0  4707    4      24  0  0  5284    4       6  0  0  4900    4       3  0  0  5310    4
 2180       2  1  0  5286    4       6  0  0  4936    4      26  0  0   950    4       6  0  0  5284    4
 2184       1  1  2     6    0      27  0  0  2207    4      24  0  0  5284    4       6  0  0  4899    4
 2188       2  0  0  5311    4      26  0  0  2226    4      26  0  0  4716    4       6  0  0  5218    4
 2192      27  0  1  2198    4       6  0  0  5212    4       0  0  2  5214    4      27  1  1  2198    4
 2196       6  0  0  4912    4      24  1  0   978    4
 PROCEDURE  414
 2198                                                         6  0  0  4966    4      24  1  0  1296    4
 2200       6  0  0  5220    4       2  0  0  5272    4      26  0  0  4377    4       6  1  0  5168    4
 2204      28  0  0  5212    4       6  0  0  5220    4      24  1  0  2179    4       6  0  0  5272    4
 2208      24  1  0  2188    4
 PROCEDURE  415
 2209                               27  0  0  2212    4       6  1  0  5170    4      24  1  0  2213    4
 2212       5  1  0  5170    4       2  1  0  5286    4       6  0  0  4916    4      26  0  0   950    4
 2216       1  1  3     0    0      26  0  0  4023    4       6  0  0  5198    4      26  0  0   963    4
 2220       6  0  0  5284    4       1  1  2     7    0      27  0  1   979    4      26  0  0  4023    4
 2224       6  0  0  5199    4      24  1  0  1429    4
 PROCEDURE  416
 2226                                                         0  0  0     0    0       6  0  0  5977    4
 2228      18  0  1     5    0       3  1  0  5102    4      26  1  2  5102    4      27  0  0  2237    4
 2232       6  1  0  5310    4       5  1  2  6106    4      27  0  0  2239    4      25  0  2     2    0
 2236      24  1  0  2232    4       1  1  3    83    0      26  0  0  3972    4       1  1  3  1000    0
 2240      18  0  1     2    0       4  0  0  5999    4       4  0  0  5999    4       1  1  2     1    0
 2244       2  0  0  5286    4      24  0  3     0    4       6  0  0     4   22       2  1  0  5108    4
 2248       0  0  2  5194    4      10  1  0  5108    4       2  0  0  5287    4       6  0  0  4916    4
 2252       2  0  0  5234    4      26  0  0  3709    4      26  0  1  2226    4
 PROCEDURE  417
 2255                                                                                  6  0  0  5284    4
 2256       1  1  2     8    0      27  0  3  2290    4      26  0  0  4707    4      26  0  0  4023    4
 2260       6  0  0  5284    4       1  1  2    10    0      27  0  0  2264    4       6  0  0  5200    4
 2264       5  0  0  5201    4      26  0  0   963    4       6  0  0  5284    4       1  1  2    10    0
 2268      27  0  0  2287    4       6  0  0  4918    4       2  1  0  5234    4       6  1  0  5220    4
 2272      27  0  1  2280    4      26  0  0  4377    4      26  0  0  4725    4       0  0  3  5202    4
 2276       1  1  2     1    0       7  1  0  5208    4       0  0  3  5191    4      24  1  0  2283    4
 2280       2  1  0  5286    4       6  0  0  4918    4      26  0  0   950    4      26  0  0  4716    4
 2284       6  0  0  5284    4       1  1  2     8    0      27  0  0  2288    4       6  0  0  5203    4
 2288       1  1  1     4    0       3  0  0  5284    4       2  0  0  5235    4      26  0  0  3759    4
 2292      26  0  0  2297    4      24  0  0  5284    4       6  0  0  4947    4       2  0  0  5234    4
 2296      24  1  0  2851    4
 PROCEDURE  418
 2297                                0  0  0     0    0       6  1  0  5212    4      27  0  0  2383    4
 2300       1  1  2   999    0      27  0  2  2383    4       6  1  0  5214    4      27  0  1  2308    4
 2304       6  0  0  5244    4       5  0  0  5212    4      27  0  2  2373    4      24  1  0  2323    4
 2308      24  0  3     0    4       6  1  0     2   22      18  0  1     5    0       4  0  0  4897    4
 2312       3  1  0  5102    4      26  1  2  5102    4      25  0  2     0    0      24  1  0  2317    4
 2316      24  1  0  2323    4       6  0  0  5208    4      24  0  3     0    4       5  0  2     1    0
 2320      27  0  0  2374    4      25  0  2     2    0      24  1  0  2317    4       6  1  0  5212    4
 2324      26  0  0  4743    4      18  0  1     2    0       2  0  0  5252    4       6  1  0  5214    4
 2328      26  0  0  4743    4       1  1  1     2    0       7  0  0  5252    4       0  0  3  5191    4
 2332       6  0  0  5351    4       3  1  0  5102    4      26  1  2  5102    4      27  0  0  2352    4
 2336       1  1  2   300    0      27  0  3  2341    4       1  1  3   120    0      26  0  0  3972    4
 2340      26  0  1  2297    4       6  0  2   327    4       5  0  0  5252    4      27  0  3  2352    4
 PROCEDURE  419
 2344       6  0  2   327    4       2  0  2   330    4       6  0  2   328    4       2  0  2   331    4
 2348       6  0  2   329    4       2  0  2   332    4      25  0  2  4099    0      24  1  0  2341    4
 2352       6  0  0  5252    4       2  0  2   330    4       6  1  0  5208    4       2  0  2   331    4
 2356       6  1  0  5214    4       3  0  2   332    4      27  0  0  2371    4       1  1  3     1    0
 2360       2  0  0  5231    4       6  0  0  5025    4      18  0  1     4    0       4  0  0  5352    4
 2364       2  0  2   332    4       1  1  3    10    0       5  0  0  5025    4       3  0  0  5025    4
 2368      27  0  1  2371    4       1  1  2     1    0       7  0  0  5352    4       1  1  3     3    0
 2372       7  0  0  5351    4      26  0  1  2297    4
 PROCEDURE  420
 2374                                                        24  1  2    24    4       0  0  2     0    0
 2376      18  1  3    30    0       2  1  0  5212    4      18  1  3    10    0       2  1  0  5214    4
 2380      24  0  3     0    4       6  0  0     4   22      26  0  0  2384    4      26  0  1  2297    4
 PROCEDURE  421
 2384       0  0  0     0    0       2  0  0  5348    4      24  0  3     0    4       6  1  0     2   22
 2388       2  1  0  5252    4       6  0  0  5253    4       5  0  0  5348    4      27  0  0  2401    4
 2392      18  0  1     5    0       4  0  0  5348    4       1  1  1     2    0      24  0  3  5348    4
 2396      28  1  1     0    0       1  1  2     2    0       7  0  0  5252    4       7  0  0  5253    4
 2400      26  1  1  5252    4      26  0  1  2384    4
 PROCEDURE  422
 2402                                                        24  0  1  7338    4      26  0  1  2403    4
 2404       0  0  0  2419    3       0  0  0  2416    3       0  0  0  2495    3       0  0  0  2504    3
 2408       0  0  0  2518    3       0  0  0  2529    3       0  0  0  2500    3       0  0  0  2412    3
 2412       2  1  0  5216    4       6  0  0  5009    4      26  0  0   944    4      24  1  0  2534    4
 PROCEDURE  423
 2416       6  0  0  5244    4       2  0  0  5243    4      24  1  0  1429    4      26  0  0  4707    4
 2420      26  1  2  5172    4      26  0  0  1838    4      27  0  1  2433    4       6  0  0  5212    4
 2424       2  0  2  5288    4       6  0  0  5216    4      18  0  1     4    0       7  0  2  5288    4
 2428       6  1  0  5214    4       2  0  2  5289    4      25  0  2     2    0      24  1  0  2421    4
 2432      26  0  0  4099    4      26  0  0  4716    4      24  0  3     0    4       6  0  0     4   22
 2436       2  0  0  5221    4       6  0  0  5212    4       1  1  2  1000    0      27  0  3  2442    4
 2440       1  1  3     0    0      24  1  0  2444    4       1  1  3     0    0       2  1  0  5214    4
 2444       2  1  0  5216    4       2  1  0  5218    4       2  0  0  5220    4       6  0  0  4955    4
 2448      26  0  0   944    4       6  0  0  5221    4      27  0  0   980    4      18  0  3     3    0
 2452      18  0  1  4127    0       2  0  0  5252    4       6  0  0  5017    4       5  0  0  5252    4
 2456      26  0  0  3928    4       6  1  0  5220    4       2  1  0  7356    4       1  0  1     7    0
 2460      24  0  1  7356    4      15  0  0  5288    4       3  0  0  5212    4       2  0  0  5269    4
 2464      26  0  0  3717    4      18  1  1  4127    0      27  0  1  2469    4      18  1  1     1    0
 2468      24  1  0  2474    4      26  0  0  3747    4       1  1  1     1    0       2  0  0  5268    4
 2472       2  1  0  5212    4      24  1  0  2486    4       3  0  0  5268    4      27  0  0  2478    4
 2476       1  1  2     1    0       7  0  0  5268    4      24  0  1  7356    4       6  0  0  5288    4
 2480      18  0  1  4124    0      27  0  0  2484    4       1  1  3     2    0       2  0  0  5231    4
 2484      24  0  1  7356    4       6  0  0  5289    4       2  1  0  5214    4       2  0  0  5234    4
 2488      26  0  0  4660    4      26  0  0  4676    4      26  0  0  4332    4      23  0  0     2    0
 2492       0  0  0  7356    3      24  1  0  2459    4      24  1  0   980    4
 PROCEDURE  424
 2495                                                                                  6  1  0  5174    4
 2496      28  0  0  5214    4       6  0  0  4956    4      26  0  0   944    4      24  1  0   979    4
 2500       1  1  3     0    0       2  0  0  5347    4       6  0  0  4916    4      24  1  0  2509    4
 PROCEDURE  425
 2504       6  0  0  4930    4       4  0  0  5220    4      26  0  0   963    4       2  0  0  5347    4
 2508       6  0  0  4921    4       2  0  0  5234    4      26  0  0  2550    4       6  0  0  5347    4
 2512      27  0  0  2851    4      26  0  0  4676    4      26  0  0  4332    4       6  0  0  1838    4
 2516       2  0  0  5007    4      24  1  0   980    4
 PROCEDURE  426
 2518                                                        26  0  0  4707    4      26  0  0  1838    4
 2520       3  0  0  5347    4      27  0  0  2525    4       6  0  0  5007    4       2  0  0  1838    4
 2524      24  1  0  2527    4       6  0  0  4916    4      26  0  0   958    4      26  0  0  4716    4
 2528      24  1  0  2508    4
 PROCEDURE  427
 2529                               26  0  0  2550    4       6  0  0  5009    4       2  0  0  5234    4
 2532      26  0  0  4676    4      26  0  0  4332    4       6  0  0  4956    4      26  0  0  3928    4
 2536      26  0  0  4377    4       1  1  3     0    0       2  0  0  5234    4
 PROCEDURE  428
 2539                                                                                  6  0  0  5212    4
 2540       2  0  0  5269    4      26  0  0  3717    4       3  0  0  5268    4      27  0  0  2545    4
 2544       1  1  2     1    0       7  0  0  5268    4      26  0  0  2297    4      26  0  0  4676    4
 2548      26  0  0  4332    4      24  1  0  2536    4
 PROCEDURE  429
 2550                                                         0  0  0     0    0       6  1  0  6056    4
 2552       2  1  0  7354    4       0  0  2  4906    4       1  1  3     0    0      24  0  1  7354    4
 2556      15  0  0  6058    4      27  0  0  2563    4       5  1  0  5212    4      27  0  0  2565    4
 2560      23  0  0     1    0       0  0  0  7354    3      24  1  0  2554    4       1  1  3   114    0
 2564      26  0  0  3972    4      24  0  1  7354    4       6  0  0  6058    4      18  1  1  4124    0
 2568       3  0  0  5288    4       1  1  1  1001    0       2  0  0  5212    4      18  1  3     6    0
 2572       2  0  0  5214    4       6  0  0  5288    4       5  0  0  5285    4      27  0  0  2579    4
 2576       4  0  0  5285    4      26  0  0  4023    4      24  1  0  2580    4       6  0  0  5237    4
 2580       2  0  0  5268    4      26  0  1  2550    4
 PROCEDURE  430
 2582                                                        24  0  1  7338    4      26  0  1  2583    4
 2584       0  0  0  2604    3       0  0  0  2635    3       0  0  0  2662    3       0  0  0  2673    3
 2588       0  0  0  2693    3       0  0  0  2725    3       0  0  0  2726    3       0  0  0  2733    3
 2592       0  0  0  2594    3       0  0  0  2595    3       5  0  0  4957    4       4  0  0  4918    4
 2596       2  0  0  4737    4      26  0  0  4707    4       6  1  0  5216    4      27  0  0  2601    4
 2600       6  0  0  4937    4       4  0  0  4737    4      26  0  0  2746    4      24  1  0   979    4
 PROCEDURE  431
 2604      26  0  0  4707    4       6  1  0  5220    4       2  0  0  5286    4      26  0  0  4371    4
 2608       6  1  0  5220    4       2  0  0  5287    4       6  0  0  5286    4      27  0  3  2614    4
 2612       6  0  0  5287    4      27  0  2  2617    4       6  0  0  4957    4       7  0  0  5286    4
 2616       7  0  0  5287    4       6  1  0  5266    4       1  1  2     4    0      27  0  3  2624    4
 2620       6  0  0  4916    4       2  0  0  5234    4      26  0  0  3625    4      24  1  0  2630    4
 2624       6  0  0  4955    4      24  0  0  5266    4       5  0  0  4933    4       2  0  0  5234    4
 2628      26  0  0  3625    4      24  1  0   979    4       6  0  0  5266    4       2  0  0  5236    4
 2632       6  0  0  4938    4      26  0  0  4036    4      24  1  0   979    4
 PROCEDURE  432
 2635                                                                                  1  1  3     0    0
 2636       2  1  0  5216    4       6  1  0  5212    4       0  1  2  5214    4      27  1  0  2652    4
 2640       6  0  0  5218    4       3  0  0  5266    4       1  1  2     4    0      27  0  2  2647    4
 2644       6  0  0  4964    4      26  0  0   958    4      24  1  0   979    4       1  1  3     0    0
 2648       2  1  0  5218    4       6  0  0  4965    4      26  0  0   958    4      24  1  0  2630    4
 2652       6  0  0  5218    4       3  0  0  5266    4       1  1  2     4    0      27  0  2  2630    4
 2656       6  0  0  4939    4      26  0  0   972    4       6  0  0  4964    4      24  0  0  5218    4
 2660       5  0  0  4933    4      24  1  0   978    4
 PROCEDURE  433
 2662                                                         6  0  0  5218    4       2  0  0  5266    4
 2664       2  0  0  5218    4       6  0  0  5212    4       0  0  2  5214    4      27  1  0  2670    4
 2668       6  0  0  4916    4      26  0  0   958    4       6  0  0  4921    4      26  0  0  2746    4
 2672      24  1  0   979    4
 PROCEDURE  434
 2673                               26  0  0  4086    4      26  0  0  4707    4       6  0  0  4903    4
 2676      18  0  1     5    0       2  1  0  5310    4      26  0  0  2226    4      26  0  0  4716    4
 2680       2  1  0  5218    4       6  0  0  4966    4      26  0  0   958    4       6  0  0  5018    4
 2684      26  0  0  3928    4       6  0  0  4957    4       2  1  0  5286    4       6  0  0  4917    4
 2688      26  0  0   950    4       6  0  0  4921    4      26  0  0  2746    4      26  0  0  1942    4
 2692      24  1  0   979    4
 PROCEDURE  435
 2693                                6  1  0  5220    4      27  0  2  2697    4       1  1  3  4096    0
 2696       7  0  0  5220    4       6  0  0  5218    4       3  0  0  5236    4       1  1  2     4    0
 2700      27  0  2  2720    4       6  0  0  4967    4       5  0  0  5220    4      24  0  0  5218    4
 2704       5  0  0  4933    4      26  0  0   963    4
 PROCEDURE  436
 2706                                                         6  1  0  5212    4       0  1  2  5214    4
 2708      27  1  1  2715    4       6  0  0  5017    4      26  0  0  3928    4       6  0  0  5284    4
 2712       1  1  2     8    0      27  0  1   979    4      24  1  0   980    4       1  1  3     7    0
 2716       2  0  0  5284    4       2  0  0  5236    4       2  1  0  5218    4      24  1  0  2255    4
 2720       6  0  0  4969    4       5  0  0  5220    4      26  0  0   963    4      26  0  0  4036    4
 2724      24  1  0  2706    4
 PROCEDURE  437
 2725                                6  0  0  4937    4       4  0  0  4916    4      18  1  1  4118    0
 2728       6  0  0  5218    4       2  0  0  5266    4      18  1  1    10    0      26  0  0  2746    4
 2732      24  1  0   979    4
 PROCEDURE  438
 2733                               26  0  0  4707    4       2  1  0  5218    4       2  1  0  5216    4
 2736       6  0  0  5009    4      26  0  0   944    4      26  0  0  1838    4      27  0  0  2743    4
 2740       1  1  3     0    0       2  1  0  5212    4       2  1  0  5214    4       6  1  0  5266    4
 2744       2  1  0  5218    4      24  1  0  2693    4
 PROCEDURE  439
 2746                                                         0  0  0     0    0       2  0  0  4737    4
 2748       6  0  0  5266    4       1  1  2     4    0      27  0  2  2760    4      26  0  0  4032    4
 2752       6  0  0  4737    4       4  0  0  5266    4       4  0  0  5266    4       2  0  0  5233    4
 2756       6  0  0  5275    4       2  0  0  5232    4      26  0  0  4332    4      26  0  1  2746    4
 2760       6  0  0  5266    4       2  0  0  5236    4       6  0  0  4737    4      26  0  0  4036    4
 2764      26  0  1  2746    4
 PROCEDURE  440
 2765                                1  1  3    10    0       1  1  1    10    0       1  1  1    10    0
 2768       1  1  2     1    0       4  0  0  5284    4       3  0  0  5234    4       1  1  2    23    0
 2772      27  0  0  2861    4       1  1  2     9    0      27  0  2  2881    4       6  0  0  5212    4
 2776      27  0  0  2813    4       3  0  0  5269    4       1  1  2   999    0      27  0  1  2800    4
 2780       6  1  0  4880    4      27  0  0  2800    4      18  1  1  4122    0      27  0  0  2787    4
 2784       2  0  0  5288    4      26  0  0  3942    4      24  1  0  2797    4      18  1  1     2    0
 2788      27  0  0  2793    4       2  1  0  4880    4       6  0  0  5275    4       4  1  0  4881    4
 2792      24  1  0  2797    4       6  1  0  4881    4       2  0  0  5212    4      26  0  0  3747    4
 2796       1  1  1     1    0       2  1  0  5214    4       2  1  0  5212    4      24  1  0  2810    4
 2800       6  0  0  5346    4      18  0  1  4126    0       1  1  2   144    0      27  0  1  2807    4
 2804      26  0  0  3717    4      18  0  3     1    0      24  1  0  2814    4      26  0  0  3717    4
 2808       5  0  0  5285    4      27  0  1  2813    4       6  0  0  5285    4       4  0  0  5285    4
 2812      24  1  0  2814    4       1  1  3     0    0       2  0  0  5268    4       6  0  0  5216    4
 2816       1  1  2     2    0      27  0  1  2821    4       1  1  3     1    0       3  0  0  5216    4
 2820       7  1  0  5214    4       6  0  0  5234    4       3  0  0  2297    4      18  0  3     1    0
 2824       0  0  2  4838    4      15  0  0  5216    4      18  0  3     2    0       0  0  2  4900    4
 2828      15  0  0  5218    4      18  0  3     1    0      18  0  1     3    0       3  0  0  5234    4
 2832      18  0  1  4123    0      27  0  0  2841    4       6  0  0  5234    4      27  0  1  2838    4
 2836       1  1  3     2    0       2  0  0  5231    4       1  1  3     0    0       5  0  0  5234    4
 2840       2  0  0  5234    4       2  1  0  5216    4       2  1  0  5218    4       6  0  0  5234    4
 2844       5  0  0  4954    4      27  0  0  2849    4       6  0  0  2297    4       1  1  2    27    0
 2848      27  0  1  2853    4
 PROCEDURE  441
 2849                               26  0  0  2297    4      26  0  0  4660    4      26  0  0  4676    4
 2852      24  1  0  1430    4       6  0  0  5220    4      27  0  0  2850    4      18  0  1  4127    0
 2856      26  0  0  4737    4       2  0  0  5218    4       6  0  0  5234    4      26  0  0   944    4
 2860      24  1  0   979    4
 PROCEDURE  442
 2861                                6  0  0  5218    4       0  0  2  5216    4      27  1  1  2775    4
 2864       2  0  0  5268    4       6  0  0  4969    4       2  0  0  5234    4      26  0  0  4676    4
 2868      26  0  0  4332    4      26  0  0  4371    4       6  0  0  5212    4      27  0  0  2878    4
 2872       2  0  0  5269    4      26  0  0  3717    4       3  0  0  5268    4       4  0  0  5268    4
 2876      27  0  0  2878    4       1  1  2     1    0       2  0  0  5268    4       2  0  0  5234    4
 2880      24  1  0  2850    4
 PROCEDURE  443
 2881                               26  0  0  4707    4      24  1  0  1483    4      26  0  0  4716    4
 2884       6  0  0  5214    4       2  1  0  5212    4       2  1  0  5214    4       2  1  0  5216    4
 2888       2  1  0  5218    4      26  0  0  4707    4       6  0  0  5284    4       1  1  2     3    0
 2892      27  0  1  2900    4       6  0  0  4974    4      26  0  0   944    4       6  0  0  4980    4
 2896      26  0  0   963    4       2  0  0  5284    4      26  0  0  1838    4      24  1  0  1822    4
 2900       1  1  2     1    0      27  0  1  2920    4
 PROCEDURE  444
 2902                                                         0  0  2  4901    4      24  0  1  5212    4
 2904      15  0  0  5550    4      18  0  1  4127    0       1  1  2     2    0       4  0  0  4921    4
 2908       2  0  0  5287    4       2  0  0  5286    4       6  0  0  4916    4      26  0  0   950    4
 2912      26  0  0  4716    4       6  0  0  4973    4      26  0  0   944    4       6  1  0  5220    4
 2916       4  0  0  4930    4      26  0  0   963    4       6  0  0  4980    4      26  0  0   963    4
 2920      26  0  0  4377    4       6  1  0  5213    4      26  0  0  4737    4       2  1  0  5212    4
 2924       2  1  0  5214    4       2  1  0  5216    4       2  1  0  5218    4      24  1  0  2893    4
 PROCEDURE  445
 2928       2  1  0  5216    4      24  0  1  7338    4      26  0  1  2930    4       0  0  0  2940    3
 2932       0  0  0  2944    3       0  0  0  2944    3       0  0  0  2944    3       0  0  0   979    3
 2936       0  0  0  2944    3       0  0  0  2947    3       0  0  0  2950    3       0  0  0  2954    3
 2940       6  0  0  4930    4      26  0  0   963    4       6  0  0  4944    4      24  1  0  1429    4
 2944      24  0  0  5284    4       6  0  0  4982    4      24  1  0  1296    4       1  1  3     0    0
 2948      26  0  0  2962    4      24  1  0   979    4       6  0  0  4987    4      26  0  0  2962    4
 2952       6  0  0  4989    4      24  1  0   978    4       6  0  0  4987    4      26  0  0  2962    4
 2956       6  0  0  4996    4      26  0  0   972    4       6  0  0  4989    4      26  0  0   972    4
 2960       6  0  0  4997    4      24  1  0   978    4
 PROCEDURE  446
 2962                                                         0  0  0     0    0      27  0  0  2965    4
 2964      26  0  0   972    4       1  1  3     1    0       2  1  0  5216    4       6  0  0  4916    4
 2968      26  0  0   958    4      26  0  0  4377    4       1  1  3     1    0       2  1  0  5216    4
 2972       6  0  0  4922    4      26  0  0   958    4      26  0  1  2962    4
 PROCEDURE  447
 2975                                                                                 24  0  1  7338    4
 2976      26  0  1  2976    4       0  0  0  2986    3       0  0  0  3083    3       0  0  0  3069    3
 2980       0  0  0  3053    3       0  0  0  3078    3       0  0  0  3020    3       0  0  0  3024    3
 2984       0  0  0  3037    3       0  0  0  3047    3       6  1  0  5220    4       2  1  0  5286    4
 2988      26  0  0  4707    4      26  1  2  5176    4      26  0  0  1838    4      27  0  1  3000    4
 2992       6  1  0  5212    4      18  0  1     2    0       4  1  0  5214    4       2  0  2  5288    4
 2996       6  1  0  5208    4       2  0  2  5289    4      25  0  2     2    0      24  1  0  2990    4
 PROCEDURE  448
 3000      24  0  3     0    4       6  0  0     4   22       3  1  0  5228    4      18  0  3     3    0
 3004      18  0  1  4127    0       2  0  0  5257    4       6  1  0  5286    4      27  0  1  3012    4
 3008      26  0  0  4716    4       6  0  0  4916    4      26  0  0   958    4      24  1  0  3015    4
 3012       6  0  0  4930    4       4  0  0  5286    4      26  0  0   963    4       6  0  0  5257    4
 3016       2  1  0  5286    4       6  0  0  4935    4      26  0  0   950    4      24  1  0  3083    4
 3020       6  1  0  5354    4       2  1  0  5286    4       6  0  0  4916    4      24  1  0  1375    4
 3024      26  0  0  4086    4       6  1  0  5212    4       2  0  0  5288    4      26  0  0  3942    4
 3028       4  0  0  4916    4      26  0  0   938    4      26  0  0  3129    4       1  1  3  2304    0
 3032       2  0  0  5231    4       6  0  0  4968    4      26  0  0   963    4      26  0  0  1942    4
 3036      24  1  0   979    4       2  1  0  5216    4      26  0  0  4377    4       1  1  3     0    0
 3040       2  1  0  5216    4       6  0  0  4974    4      26  0  0   944    4      26  0  0  4716    4
 3044       6  0  0  5033    4      26  0  0   944    4      24  1  0  1980    4       2  1  0  5216    4
 3048       6  0  0  5220    4      27  0  0  3051    4       6  0  0  5204    4       4  0  0  5034    4
 3052      24  1  0  2020    4
 PROCEDURE  449
 3053                                6  0  0  4981    4      26  0  0   963    4       6  0  0  5024    4
 3056      26  0  0  3928    4       6  0  0  5019    4      26  0  0  3928    4      26  0  0   963    4
 3060      26  0  0  4023    4       6  0  0  5003    4      26  0  0   963    4      26  0  0  4023    4
 3064       6  0  0  5001    4      26  0  0   963    4       6  0  0  5020    4      26  0  0  3928    4
 3068      24  1  0   979    4
 PROCEDURE  450
 3069                               26  0  0  4377    4       6  1  0  5212    4       2  0  0  5269    4
 3072      26  0  0  3717    4       2  0  0  5257    4       6  0  0  5252    4       2  1  0  5286    4
 3076      26  0  0  4086    4      24  1  0  3006    4       2  1  0  5216    4       2  1  0  5218    4
 3080      26  0  0  4086    4       6  0  0  4974    4      26  0  0   944    4
 PROCEDURE  451
 3083                                                                                 26  0  0  3129    4
 3084       6  0  0  5284    4       1  1  2     3    0      27  0  2  3122    4      24  0  1  5284    4
 3088       6  0  0  5003    4       2  0  0  5231    4       6  0  0  4971    4      26  0  0   963    4
 3092       6  0  0  5284    4       1  1  2     2    0      27  0  0   979    4
 PROCEDURE  452
 3095                                                                                  6  1  0  5228    4
 3096      18  0  1     5    0      27  0  0   980    4       3  1  0  5102    4      26  1  3  5102    4
 3100      24  0  0    25    4       0  0  2  5288    4       1  1  3     0    0      18  1  1     8    0
 3104       3  0  0  5212    4       2  0  0  5269    4      18  1  1     2    0       2  0  0  5214    4
 3108      26  0  0  3717    4       3  0  0  5268    4      27  0  0  3112    4       1  1  2     1    0
 3112       7  0  0  5268    4       6  0  3  5289    4       2  1  0  5208    4       2  0  0  5234    4
 3116      26  0  0  2297    4      26  0  0  4676    4      26  0  0  4332    4      25  0  3     2    0
 3120      24  1  0  3100    4      24  1  0   980    4      24  0  0  5284    4       6  0  0  4997    4
 3124       2  0  0  5231    4       6  0  0  4968    4      26  0  0   963    4      26  0  0  1942    4
 3128      24  1  0   979    4
 PROCEDURE  453
 3129                                0  0  0     0    0       6  0  0  4981    4      26  0  0   963    4
 3132      26  0  0  4023    4      26  0  1  3129    4
 PROCEDURE  454
 3134                                                         6  1  0  5118    4      28  0  0  5289    4
 3136      26  0  0  3272    4      26  0  0  3309    4       1  1  3     0    0
 PROCEDURE  455
 3139                                                                                 26  0  0  3309    4
 3140       1  1  3     1    0       2  0  0  5264    4       2  1  0  5332    4      26  1  2  5294    4
 3144       6  0  0  5258    4       1  1  2    81    0      27  0  0  3163    4       1  1  2     1    0
 3148      27  0  0  3160    4       1  1  2     1    0      27  0  1  3153    4       1  1  3    16    0
 3152      24  1  0  3158    4       1  1  2     1    0      27  0  0  3161    4       1  1  2    19    0
 3156      27  0  0  3162    4       1  1  3    15    0       2  0  2  5289    4
 PROCEDURE  456
 3159                                                                                  1  1  3     1    0
 3160       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0       1  1  1     1    0
 3164       3  0  2  5296    4       2  0  0  7339    4      26  0  0  3309    4       1  1  2   123    0
 3168      27  0  0  3174    4       6  1  0  5332    4      18  0  1     2    0       4  0  0  5258    4
 3172       2  1  0  5332    4      24  1  0  3166    4
 PROCEDURE  457
 3174                                                        18  1  1    10    0       2  1  0  5330    4
 3176       6  1  0  5333    4      26  0  0  4737    4      27  0  3  3180    4       7  0  2  5289    4
 3180       0  1  2  5330    4       1  1  3     0    0
 PROCEDURE  458
 3182                                                        26  0  0  3309    4       1  1  2   122    0
 3184      27  0  0  3196    4       1  1  2     2    0      27  0  0  3211    4       1  1  2     1    0
 3188      27  0  0  3218    4      24  0  1  7339    4      26  0  1  3190    4       0  0  0  3334    3
 3192       0  0  0  3344    3       0  0  0  3362    3       0  0  0  3386    3       0  0  0  3418    3
 3196       1  1  3     1    0       2  0  0  5295    4      26  0  0  3200    4      24  1  0  3138    4
 PROCEDURE  459
 3200       0  0  0     0    0       6  1  0  5260    4      24  0  0  5294    4      24  0  0  5289    4
 3204      18  0  3     0    0       4  1  0  5262    4       2  1  0  5260    4       2  1  0  5262    4
 3208       1  1  3     1    0       7  0  0  5294    4      26  0  1  3200    4
 PROCEDURE  460
 3211                                                                                 26  0  0  3309    4
 3212      26  0  0  3200    4      26  1  2  5294    4       6  0  2  5296    4       2  0  0  7339    4
 3216       6  0  0  5258    4      24  1  0  3183    4
 PROCEDURE  461
 3218                                                        26  0  0  3200    4       6  0  0  5266    4
 3220      27  0  0  3229    4       6  0  0  5281    4      27  0  0  3227    4       1  1  3     0    0
 3224       5  1  0  5260    4       2  1  0  5260    4      24  1  0  3229    4       5  0  0  5260    4
 3228       2  0  0  5260    4      24  0  3  7366    4       6  1  0     7    0       2  0  0  5265    4
 3232      26  0  0  4134    4      26  0  0  3250    4       6  0  0  5265    4      27  0  1   979    4
 3236      26  0  0  4099    4      26  0  0  3272    4       1  1  3     0    0      26  0  0  3309    4
 3240       1  1  2   122    0      27  0  0  3246    4       6  0  0  5295    4      27  0  1  3213    4
 3244       6  0  0  5258    4      24  1  0  3183    4       2  0  0  5289    4       2  1  0  5290    4
 3248       2  1  0  5292    4      24  1  0  3139    4
 PROCEDURE  462
 3250                                                         0  0  0     0    0       6  0  0  5261    4
 3252       2  0  0  5233    4       6  0  0  5260    4      24  0  0  5302    4       2  0  0  5231    4
 3256       6  0  0  5281    4      27  0  1  3264    4       6  0  0  5265    4      27  0  1  3264    4
 3260       1  1  3     2    0       5  0  0  5302    4       3  0  0  5302    4      27  0  1  3271    4
 3264       6  1  0  5260    4      27  0  2  3270    4       6  0  0  5261    4      27  0  1  3270    4
 3268       1  1  3   128    0       7  0  0  5232    4      26  0  0  4332    4      26  0  1  3250    4
 PROCEDURE  463
 3272       0  0  0     0    0       6  1  0  5168    4      28  0  0  5260    4       6  1  0  5508    4
 3276      24  1  2    17    4       2  1  0     2    0       6  1  0  5510    4      24  1  2    17    4
 3280       2  1  0     6    0      24  0  2  5514    4      18  1  1  4123    0       1  1  3    18    0
 3284      18  1  1     5    0      24  1  2    17    4      28  1  1    12    0       6  1  0  5532    4
 3288      24  1  2    17    4       2  1  0    48    0      24  0  2  5534    4      18  1  1  4123    0
 3292       1  1  3    16    0      18  1  1     5    0      24  1  2    17    4      28  1  1    32    0
 3296       6  0  0  5302    4      27  0  1  3299    4       2  0  0  5230    4      24  1  2    17    4
 3300       6  1  0    46    0       5  1  0  4814    4      27  0  0  3229    4      26  1  3  5120    4
 3304       0  1  2  5514    4       1  1  3     2    0       2  0  0  5272    4       2  0  0  5294    4
 3308      26  0  1  3272    4
 PROCEDURE  464
 3309                                0  0  0     0    0      18  1  1     2    0       2  1  0  5258    4
 3312      25  0  3     2    0      24  1  0  3319    4      24  0  0  5272    4       0  1  2  5514    4
 3316       1  1  3     2    0       7  0  0  5272    4      26  1  3  5120    4       6  1  0  5258    4
 3320      26  0  1  3309    4
 PROCEDURE  465
 3321                                0  0  0     0    0       1  1  2   122    0      27  0  0  3327    4
 3324       1  1  2     2    0      27  0  0  3327    4       1  1  2     1    0      26  0  1  3321    4
 PROCEDURE  466
 3328       0  0  0     0    0       6  1  0  5262    4      18  0  1     1    0       4  1  0  5259    4
 3332       2  1  0  5262    4      26  0  1  3328    4
 PROCEDURE  467
 3334                                                         6  0  0  5264    4      27  0  0  3339    4
 3336       1  1  3     8    0      24  0  0  5294    4       7  0  0  5289    4       6  1  0  5262    4
 3340      18  0  1     2    0       4  0  0  5258    4       2  1  0  5262    4      24  1  0  3182    4
 PROCEDURE  468
 3344       6  0  0  5258    4       1  1  2    16    0      27  0  0  3357    4       6  0  0  5264    4
 3348      27  0  0  3352    4       1  1  3     1    0      24  0  0  5294    4       7  0  0  5289    4
 3352       6  1  0  5262    4       4  1  0  5262    4       4  1  0  5259    4       2  1  0  5262    4
 3356      24  1  0  3181    4       6  0  0  5294    4      27  0  1  3181    4       1  1  3     1    0
 3360       2  0  0  5266    4      24  1  0  3181    4
 PROCEDURE  469
 3362                                                         6  0  0  5258    4       1  1  2    16    0
 3364      27  0  1  3379    4       6  0  0  5294    4      27  0  1  3370    4       1  1  3     1    0
 3368       2  0  0  5266    4      24  1  0  3182    4       1  1  3     1    0      24  0  0  5294    4
 3372      24  0  0  5289    4      18  0  3     0    0       0  0  3  5202    4       5  1  0  5262    4
 3376       2  1  0  5262    4       0  0  3  5191    4      24  1  0  3182    4
 PROCEDURE  470
 3379                                                                                  6  0  0  5264    4
 3380      27  0  0  3384    4       1  1  3     4    0      24  0  0  5294    4       7  0  0  5289    4
 3384      26  0  0  3328    4      24  1  0  3182    4
 PROCEDURE  471
 3386                                                         6  0  0  5258    4       1  1  2    16    0
 3388      27  0  1  3392    4       1  1  3     1    0       2  0  0  5267    4      24  1  0  3393    4
 3392      26  0  0  3328    4      26  0  0  3309    4      26  0  0  3321    4      27  0  1  3386    4
 3396      18  1  1    10    0       2  1  0  5268    4       6  1  0  5262    4      26  0  0  4737    4
 3400       2  1  0  5262    4       0  1  2  5268    4       6  0  0  5267    4      27  0  0  3416    4
 3404       6  0  0  5294    4      27  0  0  3413    4       1  1  3     1    0      24  0  0  5294    4
 3408      24  0  0  5289    4      18  0  3     0    0       5  1  0  5262    4       2  1  0  5262    4
 3412      24  1  0  3415    4
 PROCEDURE  472
 3413                                1  1  3     1    0       2  0  0  5266    4       2  0  0  5267    4
 3416       6  0  0  5258    4      24  1  0  3183    4
 PROCEDURE  473
 3418                                                         6  0  0  5258    4       1  1  2    77    0
 3420      27  0  0  3427    4       1  1  1    77    0      26  0  0  3321    4      27  0  0  3449    4
 3424      26  0  0  3328    4      26  0  0  3309    4      24  1  0  3418    4
 PROCEDURE  474
 3427                                                                                 18  1  1    10    0
 3428       2  1  0  5332    4       6  1  0  5262    4      26  0  0  4737    4       2  0  0  5269    4
 3432      26  1  2  5302    4      26  0  0  3717    4       3  0  2  5230    4      27  0  0  3438    4
 3436       1  1  2     1    0       7  0  2  5230    4       6  0  0  5269    4      18  0  1     2    0
 3440       7  0  2  5230    4       1  1  3     0    0       2  1  0  5262    4       0  1  2  5332    4
 3444      26  0  0  3309    4      26  0  0  3321    4      27  0  0  3451    4      26  0  0  3328    4
 3448      24  1  0  3444    4      26  1  2  5302    4       2  0  2  5230    4      18  1  1    10    0
 3452       2  1  0  5268    4       6  1  0  5262    4      26  0  0  4737    4       2  1  0  5262    4
 3456       0  1  2  5268    4      24  1  0  3416    4
 PROCEDURE  475
 3458                                                        24  0  2  5056    4      28  0  2  5508    4
 3460      24  0  2  5056    4      24  1  2    17    4      28  1  2     2    0       6  1  0  5528    4
 3464      24  1  2    17    4       2  1  0    48    0      24  0  2  5530    4      18  1  1  4123    0
 3468       1  1  3    16    0      18  1  1     5    0      24  1  2    17    4      28  1  1    32    0
 3472      26  0  0  4134    4
 PROCEDURE  476
 3473                               26  1  2  5176    4       6  0  2  5209    4      26  0  0  4737    4
 3476       2  0  2  5209    4      25  0  2     1    0      24  1  0  3474    4      26  1  2  5154    4
 3480       6  0  2  5222    4       1  1  2   100    0      27  0  3  3487    4       1  1  2   899    0
 3484      27  0  2  3487    4       6  0  0  5200    4       7  0  2  5223    4      25  0  2     2    0
 3488      24  1  0  3480    4       1  1  3     0    0       0  0  2  5281    4      15  0  0  4886    4
 3492      27  0  1  3499    4       6  0  0  5225    4      27  0  1  3498    4       6  0  0  5223    4
 3496      27  0  1  3498    4       6  0  0  4916    4       2  0  0  5232    4       6  0  0  5222    4
 3500       2  0  0  5269    4      26  0  0  3717    4
 PROCEDURE  477
 3502                                                         3  0  0  5230    4      27  0  0  3506    4
 3504       1  1  2     1    0       7  0  0  5230    4       6  0  0  5269    4      18  0  1     2    0
 3508       7  0  0  5230    4       6  0  0  5209    4      27  0  0  3515    4       1  1  2     1    0
 3512      27  0  0  3514    4       6  0  0  4957    4       4  0  0  4921    4       2  0  0  5233    4
 3516       6  0  0  5219    4      27  0  0  3523    4       1  1  2     2    0      27  0  0  3521    4
 3520       6  0  0  4959    4       4  0  0  4917    4       7  0  0  5233    4
 PROCEDURE  478
 3523                                                                                  6  0  0  5210    4
 3524      27  0  0  3527    4       6  0  0  4959    4       7  0  0  5233    4       6  0  0  5218    4
 3528      18  0  1     1    0       4  0  0  5216    4      18  0  1     1    0       4  0  0  5217    4
 3532      18  0  1     1    0       4  0  0  5211    4       7  0  0  5233    4       6  0  0  5221    4
 3536      27  0  0  3544    4       1  1  3     0    0       5  0  0  5233    4      27  0  0  3542    4
 3540       2  0  0  5233    4      24  1  0  3544    4
 PROCEDURE  479
 3542                                                         1  1  3   128    0       7  0  0  5230    4
 3544       6  0  0  5223    4       2  0  0  5231    4       6  0  0  5220    4      27  0  0  3556    4
 3548       7  0  0  5343    4       6  0  0  5343    4       1  1  2     2    0      27  0  1  3556    4
 3552       1  1  2     1    0       2  0  0  5343    4       6  0  0  4957    4       7  0  0  5231    4
 3556       6  0  0  5221    4      27  0  0  1430    4       2  0  0  5343    4       2  0  0  5343    4
 3560      24  1  0  1430    4
 PROCEDURE  480
 3561                               26  0  0   967    4      24  0  3  7366    4       6  1  0     9    0
 3564      26  0  0  4737    4       2  1  0  5214    4      24  0  3  7366    4       6  1  0     7    0
 3568      26  0  0  4737    4       3  1  0  5213    4       0  0  2  5214    4      27  1  0  3591    4
 3572       1  1  2   100    0      27  0  3  3576    4       6  0  0  5200    4       7  1  0  5214    4
 3576       6  1  0  4796    4       3  1  0  5260    4       2  1  0  5262    4       6  1  0  5213    4
 3580       2  0  0  5232    4       6  1  0  5214    4       2  0  0  5233    4       2  0  0  5230    4
 3584      26  0  0  4316    4       6  1  0  5512    4      24  1  2    17    4       2  1  0     8    0
 3588       6  1  0  5514    4      24  1  2    17    4       2  1  0    10    0      26  1  3  5178    4
 3592       6  1  3  5519    4      27  0  3  3619    4       2  0  0  5232    4       6  1  3  5517    4
 3596       2  0  0  5233    4      24  0  2  5086    4       0  1  0  5102    4       0  0  3     0    4
 3600      24  1  2    17    4      24  0  2     0    0      24  0  3     0    4       4  0  0     6   22
 3604       2  0  0  5108    4       0  1  1  5102    4      24  0  3  5108    4      28  1  2    12    0
 3608      26  0  0  4332    4      25  0  3     4    0      24  1  0  3592    4       6  0  0  5512    4
 3612      24  1  2    17    4       2  0  0     8    0       6  0  0  5514    4      24  1  2    17    4
 3616       2  0  0    10    0      26  0  0  4134    4      24  1  0   979    4       1  1  3    85    0
 3620      24  1  2    17    4       2  1  3    14    0      24  1  2    17    4       2  1  3    12    0
 3624      24  1  0  3617    4
 PROCEDURE  481
 3625                                0  0  0     0    0      26  1  3  5246    4       6  0  0  5239    4
 3628       2  1  0  5212    4       1  1  3     1    0       2  1  0  5216    4      26  0  0  3634    4
 3632       7  0  0  5247    4      26  0  1  3625    4
 PROCEDURE  482
 3634                                                         0  0  0     0    0      25  0  3     0    0
 3636      24  1  0  3638    4      24  1  0  3646    4       6  0  0  5287    4       5  0  3   111    4
 3640      27  0  1  3644    4       6  1  3   110    4       5  1  0  5286    4      27  0  0  3649    4
 3644      25  0  3     2    0      24  1  0  3638    4       6  1  0  5286    4       2  1  3   110    4
 3648       1  1  3     2    0       2  0  0  4737    4      24  0  3     0    4       6  0  0     6   22
 3652       1  1  2   180    0      27  0  3  3657    4      18  0  3     3    0      18  0  1  4127    0
 3656      24  1  0  3658    4       1  1  1   180    0       2  1  0  5214    4       6  0  0  5237    4
 3660       2  0  0  5268    4       2  1  0  5218    4      26  0  0  4676    4      26  0  0  4332    4
 3664       6  0  0  4737    4      26  0  1  3634    4
 PROCEDURE  483
 3666                                                         0  0  0     0    0      26  1  3  5248    4
 3668       6  0  0  5249    4      27  0  0  3675    4       6  1  0  5286    4       5  0  3    50    4
 3672      27  0  0  3682    4      25  0  3     1    0      24  1  0  3670    4       6  1  0  5286    4
 3676       2  0  3    50    4       6  0  0  5249    4       2  1  0  5214    4       1  1  3     1    0
 3680       7  0  0  5249    4      24  1  0  3685    4      24  0  3     0    4       6  0  0     6   22
 3684       2  1  0  5214    4       6  0  0  5240    4       2  1  0  5212    4       2  1  0  5216    4
 3688       2  1  0  5218    4       6  0  0  5237    4       2  0  0  5268    4      26  0  0  4676    4
 3692      26  0  0  4332    4      26  0  1  3666    4
 PROCEDURE  484
 3694                                                         0  0  0     0    0       2  0  0  5234    4
 3696       6  1  0  5212    4       2  0  0  5269    4      26  0  0  3717    4       3  0  0  5286    4
 3700       1  1  2     1    0       7  0  0  5286    4       6  1  0  5262    4       2  0  0  5287    4
 3704       6  0  0  5269    4      18  0  1     2    0       7  0  0  5286    4      26  0  0  3709    4
 3708      26  0  1  3694    4
 PROCEDURE  485
 3709                                0  0  0     0    0      26  1  3  5250    4       6  0  0  5241    4
 3712       2  1  0  5212    4       2  1  0  5216    4      26  0  0  3634    4       7  0  0  5251    4
 3716      26  0  1  3709    4
 PROCEDURE  486
 3717                                0  0  0     0    0       6  0  0  5269    4      27  0  0  3733    4
 3720       1  1  2   100    0      27  0  2  3734    4       1  0  1     1    0       1  1  3     0    0
 3724      24  0  0  5269    4      15  0  0  5550    4       2  0  0  5252    4       0  0  2  4959    4
 3728      24  0  0  5269    4      15  0  0  5550    4       1  0  1     1    0      24  0  0  5252    4
 3732      15  0  0  5979    4      26  0  1  3717    4
 PROCEDURE  487
 3734                                                         1  1  2   899    0      27  0  3  3740    4
 3736      27  0  1  3742    4       2  0  0  5269    4       6  0  0  5285    4      26  0  1  3717    4
 3740       1  1  1   999    0      18  0  1     2    0       1  0  0  5980    4      18  1  1    10    0
 3744       5  0  0  4910    4       2  0  0  5252    4      24  1  0  3730    4
 PROCEDURE  488
 3747                                                                                  0  0  0     0    0
 3748      26  1  3  6010    4       1  0  1  1031    0       1  1  3     0    0      15  0  3  6012    4
 3752       5  0  0  5212    4      27  0  0  3756    4      25  0  3     2    0      24  1  0  3750    4
 3756       6  0  3  6012    4      18  0  1  4125    0      26  0  1  3747    4
 PROCEDURE  489
 3759                                                                                  0  0  0     0    0
 3760       6  0  0  5222    4      27  0  1  3846    4       6  0  0  5212    4       1  1  2  1000    0
 3764      27  0  2  3868    4       6  0  0  5212    4      27  0  0  3808    4       2  0  0  5269    4
 3768      26  0  0  3717    4      18  1  1  4127    0      27  0  1  3857    4      18  1  1     1    0
 3772       3  0  0  5268    4       5  0  0  5285    4      27  0  1  3793    4
 PROCEDURE  490
 3775                                                                                  6  0  0  5236    4
 3776      27  0  0  3790    4       1  1  2     4    0      27  0  2  3786    4       6  0  0  5235    4
 3780      27  0  0  3790    4       6  0  0  4928    4       5  0  0  5275    4       5  0  0  5236    4
 3784      26  0  0   938    4      24  1  0  3788    4       6  0  0  5009    4      26  0  0  4036    4
 3788       1  1  3     0    0       2  0  0  5236    4       6  0  0  5237    4       2  0  0  5268    4
 3792      26  0  1  3759    4
 PROCEDURE  491
 3793                               26  0  0  3919    4      27  0  1  3801    4       6  0  0  5008    4
 3796       5  0  0  5268    4       5  0  0  5268    4       1  1  1     1    0      26  0  0   938    4
 3800      24  1  0  3791    4      26  0  0  4086    4       6  0  0  4916    4       4  0  0  5268    4
 3804       4  0  0  5268    4       1  1  2     1    0      26  0  0   938    4      24  1  0  3889    4
 PROCEDURE  492
 3808       6  0  0  5236    4      27  0  0  3844    4       1  1  2     4    0      27  0  2  3831    4
 3812       6  0  0  5235    4      27  0  0  3842    4       6  1  0  5214    4      27  0  3  3821    4
 3816       6  0  0  4927    4       5  0  0  5275    4       5  0  0  5236    4      26  0  0   938    4
 3820      24  1  0  3835    4      26  0  0  4086    4      26  0  0  4032    4       6  0  0  4916    4
 3824       4  0  0  5236    4       4  0  0  5236    4       2  0  0  5233    4       6  0  0  5275    4
 3828       2  0  0  5232    4      26  0  0  4332    4      24  1  0  3840    4       6  1  0  5214    4
 3832      27  0  3  3837    4       6  0  0  5008    4      26  0  0  4036    4       2  0  0  5236    4
 3836      24  1  0  3916    4      26  0  0  4086    4       6  0  0  4916    4      26  0  0  4036    4
 3840       2  0  0  5236    4      24  1  0  3889    4       6  1  0  5214    4      27  0  3  3821    4
 3844      26  0  0  4032    4      24  1  0  3916    4
 PROCEDURE  493
 3846                                                        26  0  0  3919    4      27  0  1  3850    4
 3848       6  1  0  5214    4      27  0  2  3854    4      26  0  0  4086    4       6  0  0  4916    4
 3852      26  0  0  3985    4      24  1  0  3889    4       6  0  0  5008    4      26  0  0  3985    4
 3856      24  1  0  3916    4
 PROCEDURE  494
 3857                               26  0  0  3919    4      27  0  1  3861    4       6  1  0  5214    4
 3860      27  0  2  3866    4      26  0  0  4086    4      26  0  0  3963    4       6  0  0  4974    4
 3864      26  0  0   963    4      24  1  0  3889    4      26  0  0  3963    4      24  1  0  3916    4
 PROCEDURE  495
 3868      26  0  0  3919    4      27  0  1  3872    4       6  1  0  5214    4      27  0  2  3882    4
 3872      26  0  0  4086    4      26  0  0  4004    4       6  0  0  4927    4       5  0  0  5212    4
 3876       1  1  1  1000    0      26  0  0   963    4       6  0  0  4974    4      26  0  0   963    4
 3880       2  1  0  5212    4      24  1  0  3889    4      26  0  0  4004    4       6  0  0  4927    4
 3884       5  0  0  5212    4       1  1  1  1000    0      26  0  0   963    4       2  1  0  5212    4
 3888      24  1  0  3916    4
 PROCEDURE  496
 3889                                6  0  0  5236    4      27  0  0  3904    4       1  1  2     4    0
 3892      27  0  2  3902    4      26  0  0  4032    4       6  0  0  4917    4       4  0  0  5236    4
 3896       4  0  0  5236    4       2  0  0  5233    4       6  0  0  5275    4       2  0  0  5232    4
 3900      26  0  0  4332    4      24  1  0  3904    4       6  0  0  4917    4      26  0  0  4036    4
 3904       6  1  0  5214    4      27  0  2  3909    4       6  0  0  5214    4       4  0  0  4932    4
 3908      26  0  0   963    4       2  1  0  5214    4       2  0  0  5236    4       6  0  0  5022    4
 3912      26  0  0   972    4      26  0  0  1942    4       6  0  0  5023    4      26  0  0   972    4
 3916       1  1  3     0    0       2  0  0  5268    4      26  0  1  3759    4
 PROCEDURE  497
 3919                                                                                  0  0  0     0    0
 3920       6  0  0  5236    4      27  0  0  3925    4       1  1  2     4    0      27  0  2  3926    4
 3924       6  0  0  5235    4      26  0  1  3919    4       1  1  3     1    0      26  0  1  3919    4
 PROCEDURE  498
 3928       0  0  0     0    0      27  0  3  3933    4       4  0  0  5277    4       5  0  0  5245    4
 3932      24  1  0  3935    4       5  0  0  5277    4       4  0  0  5245    4       2  0  0  5233    4
 3936       6  0  0  5244    4      18  0  1     2    0       4  0  0  5237    4       2  0  0  5232    4
 3940      26  0  0  4332    4      26  0  1  3928    4
 PROCEDURE  499
 3942                                                         0  0  0     0    0      26  1  3  6008    4
 3944       6  0  3  6013    4      27  0  0  3953    4      18  1  3     2    0      18  1  1  4126    0
 3948       4  0  0  4935    4       5  0  0  5288    4      27  0  0  3955    4      25  0  3     2    0
 3952      24  1  0  3944    4       1  1  3    93    0      26  0  0  3972    4      24  0  3     0    4
 3956       6  0  0     6   22      18  0  3     3    0      18  0  1  4127    0       4  0  0  5999    4
 3960       4  0  0  5999    4       1  1  1     1    0      26  0  1  3942    4
 PROCEDURE  500
 3963                                                                                  0  0  0     0    0
 3964      26  0  0  3747    4       1  1  1     1    0       5  0  0  4927    4       2  0  0  5233    4
 3968       5  0  0  5233    4      26  0  0   938    4       2  0  0  5212    4      26  0  1  3963    4
 PROCEDURE  501
 3972       0  0  0     0    0      18  1  1  4126    0       4  1  0  4814    4      18  1  1     2    0
 3976      24  1  2    15    4       2  1  0    46    0       6  0  0  5026    4      27  0  1  3983    4
 3980       1  1  3     1    0       2  0  0  5007    4      26  0  0  4134    4      26  0  0  4647    4
 3984      26  0  1  3972    4
 PROCEDURE  502
 3985                                0  0  0     0    0       2  0  0  5292    4      26  1  3  6044    4
 3988       6  0  0  6045    4      27  0  0  3997    4       1  0  1     3    0       1  1  3     0    0
 3992      15  0  3  6046    4       5  1  0  5212    4      27  0  0  3999    4      25  0  3     1    0
 3996      24  1  0  3991    4       1  1  3    76    0      26  0  0  3972    4       6  0  3  6046    4
 4000      26  0  0  4054    4       2  0  0  5222    4       2  1  0  5212    4      26  0  1  3985    4
 PROCEDURE  503
 4004       0  0  0     0    0       6  0  0  5243    4       2  0  0  5269    4      26  0  0  3717    4
 4008       3  0  0  5268    4       5  0  0  5285    4      27  0  0  4019    4       6  0  0  5268    4
 4012      26  0  0  4023    4       6  0  0  5243    4      18  0  1     2    0       2  0  0  5232    4
 4016       6  0  0  5008    4      26  0  0   963    4      26  0  1  4004    4       6  0  0  5243    4
 4020      18  0  1     2    0       4  0  0  5237    4      24  1  0  4015    4
 PROCEDURE  504
 4023                                                                                  0  0  0     0    0
 4024      27  0  0  4029    4       2  0  0  5233    4       1  1  3     1    0       5  0  0  5233    4
 4028       5  0  0  5233    4       4  0  0  5008    4      26  0  0   938    4      26  0  1  4023    4
 PROCEDURE  505
 4032       0  0  0     0    0       1  1  3     0    0      26  0  0  4023    4      26  0  1  4032    4
 PROCEDURE  506
 4036       0  0  0     0    0       2  0  0  5292    4      26  1  3  5386    4      25  0  3     0    0
 4040      24  1  0  4042    4      24  1  0  4049    4       1  0  1     3    0       1  1  3     0    0
 4044      15  0  3  5388    4       5  0  0  5236    4      27  0  0  4051    4      25  0  3     1    0
 4048      24  1  0  4043    4       1  1  3   100    0      26  0  0  3972    4       6  0  3  5388    4
 4052      26  0  0  4054    4      26  0  1  4036    4
 PROCEDURE  507
 4054                                                         0  0  0     0    0       2  0  0  4004    4
 4056       6  0  0  5292    4      27  0  0  4067    4       6  0  0  4004    4      18  0  1  4124    0
 4060       5  0  0  5285    4      27  0  0  4065    4       4  0  0  5285    4      26  0  0  4023    4
 4064      24  1  0  4072    4       6  0  0  5237    4      24  1  0  4072    4       6  0  0  4004    4
 4068      18  0  1  4124    0       3  0  0  5232    4       4  0  0  5232    4       1  1  2     1    0
 4072       2  0  0  5232    4       6  0  0  4004    4      18  1  1  4124    0       1  1  1  1001    0
 4076      18  0  1     2    0       7  0  0  5232    4       1  1  3     0    0      18  1  1     2    0
 4080       0  0  2  4902    4      15  0  0  5292    4      14  0  0  5292    4       6  0  0  5292    4
 4084      26  0  0   963    4      26  0  1  4054    4
 PROCEDURE  508
 4086                                                         0  0  0     0    0       6  0  0  5259    4
 4088      27  0  0  4090    4       1  1  3     8    0       4  0  0  4937    4      26  0  0   972    4
 4092       6  0  0  5259    4      27  0  1  4096    4       6  0  0  4936    4      26  0  0   938    4
 4096       1  1  3     1    0       7  0  0  5259    4      26  0  1  4086    4
 PROCEDURE  509
 4099                                                                                  0  0  0     0    0
 4100      24  0  3  7366    4       6  1  0     1    0       2  0  0  4737    4      24  0  1  4737    4
 4104      23  0  0     0    0       0  0  0  7366    3      24  1  0  4108    4      26  0  0  4749    4
 4108       1  1  3     0    0       1  0  1    15    0      24  0  3  7366    4      15  1  0     2    0
 4112       2  0  0  5007    4      24  0  3  7366    4      14  1  0     2    0       6  1  0  5180    4
 4116      28  1  1  5506    4      24  0  3  7366    4      24  0  2     0    0      18  1  1  4123    0
 4120      24  0  3  7366    4       6  1  0     1    0      18  1  1     5    0      28  1  1  5506    4
 4124      26  0  1  4099    4
 PROCEDURE  510
 4125                                0  0  0     0    0      24  1  2    19    4       6  1  0     4    0
 4128      24  1  2    19    4       2  1  0     2    0      24  1  2    19    4       2  1  0     4    0
 4132      26  0  0  4134    4      26  0  1  4125    4
 PROCEDURE  511
 4134                                                         0  0  0     0    0       6  1  0  4882    4
 4136      24  1  2    17    4       2  1  0    50    0      24  1  2    17    4       6  1  0    46    0
 4140      26  0  0  4291    4      27  0  0  4147    4      24  1  2    17    4       6  1  0    48    0
 4144      27  0  0  4195    4      26  0  0  4291    4      27  0  1  4165    4      23  0  0     0    0
 4148       0  0  0  7364    3      24  1  0  4151    4      24  1  0  4193    4      24  1  2    17    4
 4152       6  1  0     6    0      27  0  0  4193    4      18  0  1  4120    0       1  1  2    91    0
 4156      27  0  0  4193    4      24  1  2    17    4       6  1  0     7    0      24  0  1  7364    4
 4160       2  0  0  6246    4      23  0  0     1    0       0  0  0  7364    3      24  1  0  4193    4
 4164      24  1  0  4193    4      24  1  2    17    4       6  1  0    32    0       5  1  0  5182    4
 4168      27  0  1  4173    4       1  0  1    63    0      24  1  2    17    4      14  1  0    48    0
 4172      24  1  0  4195    4      23  0  0     0    0       0  0  0  7362    3      24  1  0  4177    4
 4176      24  1  0  4190    4      24  1  2    17    4       6  1  0     6    0      27  0  0  4190    4
 4180      18  0  1  4120    0       1  1  2    91    0      27  0  0  4190    4      24  1  2    17    4
 4184       6  1  0     7    0      24  0  1  7362    4       2  0  0  6256    4      23  0  0     1    0
 4188       0  0  0  7362    3      24  1  0  4190    4       6  0  0  7343    4       1  1  1     1    0
 4192       2  0  0  7343    4       1  1  3     1    0       2  0  0  5007    4       6  1  0  6202    4
 4196      27  0  1  4202    4       6  0  0  5007    4      27  0  0  4208    4       6  0  0  5026    4
 4200      27  0  1  4202    4      26  0  0  4210    4       6  0  0  5280    4      24  1  2    17    4
 4204       2  1  0     1    0      26  0  0  4233    4       1  1  3     1    0       3  0  0  5280    4
 4208       2  0  0  5026    4      26  0  1  4134    4
 PROCEDURE  512
 4210                                                         0  0  0     0    0       6  1  0    16    4
 4212       2  1  0  4878    4       6  0  0     8    4       2  0  0    16    4       5  0  0     8    4
 4216       1  1  2    64    0       2  0  0    17    4      24  1  2    17    4       2  1  0     0    0
 4220       6  0  0  6275    4      27  0  0  4226    4       6  1  0  5116    4      24  1  2    17    4
 4224      28  1  1     0    0      24  1  0  4229    4       6  1  0  4882    4      24  1  2    17    4
 4228       2  1  0     2    0      26  0  0  4233    4       6  1  0  4878    4       2  1  0    16    4
 4232      26  0  1  4210    4
 PROCEDURE  513
 4233                                0  0  0     0    0       6  0  0  6275    4      27  0  0  4252    4
 4236      24  1  2    17    4      24  0  2     0    0      18  1  1  4123    0       1  1  3    50    0
 4240      18  1  1     5    0       0  1  0  5102    4       0  0  3     0    4      24  1  2    13    4
 4244      24  0  2     0    0       4  0  0  7358    4       2  0  0  5108    4       0  1  1  5102    4
 4248      24  0  3  5108    4      28  1  1     4    0      26  0  0  4769    4      26  0  1  4233    4
 4252       6  0  0  6274    4       1  1  2     9    0      27  0  0  4271    4       6  0  0  4959    4
 4256      24  1  2    17    4       2  0  0     1    0      24  1  2    17    4      24  0  2     0    0
 4260      24  1  2    13    4      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0
 4264       4  0  0     7    4       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4
 4268      23  0  2   160    0       0  0  3  5191    4      26  0  1  4233    4      24  1  2    17    4
 4272      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0
 4276      24  1  2    13    4      28  1  1     0    0       1  1  3     9    0      24  1  0  4263    4
 PROCEDURE  514
 4280       0  0  0     0    0       0  1  0  5102    4       0  0  3     0    4       0  0  2    20    4
 4284       6  1  0  5132    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 4288      23  0  2     0  256       0  1  1  5102    4      26  0  1  4280    4
 PROCEDURE  515
 4291                                                                                  0  0  0     0    0
 4292      18  0  1  4126    0      18  0  1     2    0       1  1  1    93    0       5  1  0  4814    4
 4296      27  0  1  4300    4       6  0  0  7342    4       1  1  1     1    0       2  0  0  7342    4
 4300      26  0  1  4291    4
 PROCEDURE  516
 4301                                0  0  0     0    0      26  1  2  5278    4       6  1  0  5260    4
 4304       4  1  0  4804    4      24  1  2    21    4       2  1  2     4    0       6  1  0  5262    4
 4308      24  1  2    21    4       2  1  2     6    0       6  0  0  5277    4      24  1  2    21    4
 4312       2  1  2     9    0      24  1  2    21    4       2  1  2    10    0      24  1  0  4350    4
 PROCEDURE  517
 4316       0  0  0     0    0      26  1  2  5278    4       6  1  0  5260    4      24  1  2    21    4
 4320       2  1  2     4    0       6  1  0  5262    4      24  1  2    21    4       2  1  2     6    0
 4324       6  0  0  5232    4      24  1  2    21    4       2  1  2     9    0       6  0  0  5233    4
 4328      24  1  2    21    4       2  1  2    11    0       6  0  0  4316    4      24  1  0  4349    4
 PROCEDURE  518
 4332       0  0  0     0    0       6  0  0  5276    4       7  0  0  5277    4      26  1  2  5278    4
 4336       6  0  0  5230    4      24  1  2    21    4       2  1  2     5    0       6  0  0  5231    4
 4340      24  1  2    21    4       2  1  2     7    0       6  0  0  5232    4      24  1  2    21    4
 4344       2  1  2     9    0       6  0  0  5233    4      24  1  2    21    4       2  1  2    11    0
 4348       6  0  0  4332    4       2  0  0  4301    4
 PROCEDURE  519
 4350                                                        25  0  2     8    0      24  1  0  4357    4
 4352       6  1  0  4882    4      24  1  2    21    4       2  1  2     4    0      26  0  0  4280    4
 4356      26  1  2  5184    4      24  0  3     0    4       6  1  0     4   22       2  1  0  5278    4
 4360       2  0  0  5231    4       2  1  0  5232    4      26  0  1  4301    4
 PROCEDURE  520
 4363                                                                                  0  0  0     0    0
 4364       6  0  0  5278    4      27  0  0  4370    4      26  1  2  5278    4       6  0  0  4363    4
 4368       2  0  0  4301    4      24  1  0  4352    4      26  0  1  4363    4
 PROCEDURE  521
 4371                                                                                  0  0  0     0    0
 4372      26  0  0  4099    4       1  1  3     1    0       2  0  0  5333    4      26  0  0  4377    4
 4376      26  0  1  4371    4
 PROCEDURE  522
 4377                                0  0  0     0    0       6  0  0  5333    4      27  0  1  4386    4
 4380      26  0  0  4707    4      26  0  0  4099    4      24  0  3  7366    4       6  1  0     6    0
 4384       5  1  0  4812    4      27  0  1   980    4      24  0  2  5038    4      28  0  2  5508    4
 4388      24  0  2  5038    4      24  1  2    17    4      28  1  2     2    0       6  1  0  5526    4
 4392      24  1  2    17    4       2  1  0    28    0       6  1  0  5528    4      24  1  2    17    4
 4396       2  1  0    48    0      24  0  2  5530    4      18  1  1  4123    0       1  1  3    16    0
 4400      18  1  1     5    0      24  1  2    17    4      28  1  1    32    0       6  1  0  5210    4
 4404       5  1  0  4812    4      27  0  0  4512    4       1  1  3     0    0       2  1  0  5254    4
 4408      25  0  1     0    0      24  1  0  4411    4      24  1  0  4453    4      24  0  3     0    4
 4412       6  0  1     1    0       5  1  0  5208    4      27  0  0  4446    4      27  0  2  4453    4
 4416       6  1  0  4814    4       2  1  0  5254    4      26  0  0  4421    4      26  0  0  4632    4
 4420      24  1  0  4406    4
 PROCEDURE  523
 4421                                0  0  0     0    0      24  0  3     0    4       6  0  1     0    0
 4424       3  0  0  5234    4      24  0  3     0    4       2  0  1     1    0       6  1  0  5254    4
 4428      27  0  1  4437    4       1  0  1     3    0      15  0  0  5208    4       1  1  2     2    0
 4432      27  0  1  4437    4      24  0  3     0    4       6  0  0     2   22      26  0  0  2384    4
 4436      24  1  0  4443    4       6  0  0  5244    4      18  0  3    10    0       4  0  0  5277    4
 4440       5  0  0  5245    4      24  0  3     0    4       2  0  1     0    0      25  0  1     2    0
 4444      24  1  0  4445    4      26  0  1  4421    4
 PROCEDURE  524
 4446                                                        26  0  0  4421    4      24  0  3     0    4
 4448       6  0  1     1    0       5  0  0  5208    4      27  0  1  4495    4      26  0  0  4632    4
 4452      24  1  0  4446    4
 PROCEDURE  525
 4453                                6  0  0  5351    4      27  0  0  4512    4       6  0  0   330    4
 4456      27  0  0  4512    4       5  1  0  5208    4      27  0  0  4462    4      27  0  2  4512    4
 4460       6  1  0  4814    4       2  1  0  5254    4       6  0  0   332    4      18  0  1     6    0
 4464      18  0  1  4127    0      27  0  0  4471    4      24  0  3     0    4       5  1  0     2   22
 4468      27  0  2  4471    4       1  1  3   121    0      26  0  0  3972    4       6  0  0   331    4
 4472       2  0  0  5234    4       6  0  0   332    4      27  0  0  4484    4      18  0  1  4124    0
 4476       2  0  0  4421    4       6  0  0  5277    4       5  0  0  5245    4       0  0  2  4906    4
 4480      24  0  1  4421    4      18  1  3     0    0      24  0  3   332    4      14  0  0     0    0
 4484       6  0  0  5351    4       1  1  2     3    0       3  0  0  5351    4      27  0  1  4490    4
 4488       2  0  0   330    4      24  1  0  4493    4      24  0  2   333    4       4  1  0  5350    4
 4492      28  0  0   330    4       6  1  0  5254    4      27  0  1  4419    4       6  0  0  5351    4
 4496      27  0  0  4509    4       6  0  0  5208    4       5  0  0   330    4      27  0  0  4507    4
 4500      27  0  3  4509    4       6  0  0  5234    4      27  0  0  4504    4      26  0  0  4632    4
 4504       6  1  0  4814    4       2  1  0  5254    4      24  1  0  4462    4      26  0  0  4632    4
 4508      24  1  0  4462    4      24  0  2  5096    4      24  1  2    17    4      28  1  2     2    0
 PROCEDURE  526
 4512       1  1  3     0    0       0  1  2  5212    4      26  0  0  4698    4       2  1  0  5212    4
 4516       2  0  0  5222    4       1  0  1     1    0      15  1  0  5214    4       1  1  2    12    0
 4520      27  0  1  4528    4       1  1  3     1    0       2  0  0  5222    4       6  1  0  5214    4
 4524      18  0  1  4127    0      27  0  2  4527    4       1  1  1     1    0       2  1  0  5214    4
 PROCEDURE  527
 4528       6  1  0  5544    4       5  1  0  4814    4       3  1  0  5332    4      27  0  0  4557    4
 4532       6  1  0  5530    4       5  1  0  5186    4      27  0  1  4557    4       6  1  0  5210    4
 4536       5  1  0  4812    4      27  0  0  4626    4       6  0  0  5211    4       5  0  0  5205    4
 4540      27  0  0  4626    4       1  1  2   336    0      27  0  0  4626    4       1  1  2  4080    0
 4544      27  0  0  4626    4       1  1  2    48    0      27  0  0  4626    4       6  0  0  6204    4
 4548       1  1  2    40    0      27  0  2  4626    4       6  0  0  5277    4      18  0  1     5    0
 4552       4  0  0  5208    4      24  0  1  6204    4       2  1  0  6206    4       1  1  3     2    0
 4556       7  0  0  6204    4      26  0  0  4134    4       6  1  0  5213    4       1  1  2   256    0
 4560      27  0  3  4567    4       1  1  2  2201    0      27  0  2  4567    4       0  0  3  5202    4
 4564       6  0  0  5200    4       7  1  0  5214    4       0  0  3  5191    4       6  1  0  5210    4
 4568       5  1  0  4812    4      27  0  0  4583    4       0  1  2  5210    4      26  0  0  4698    4
 4572       2  1  0  5210    4       6  1  0  5211    4      18  1  1  4127    0       2  0  0  5344    4
 4576      18  1  1     1    0       1  1  1     1    0       2  0  0  5284    4
 PROCEDURE  528
 4579                                                                                  6  0  0  5344    4
 4580      26  0  0  4737    4       1  1  1     1    0       2  0  0  5344    4       6  1  0  5332    4
 4584      27  0  1  4587    4       2  0  0  5344    4      24  1  0   979    4      24  0  2  4858    4
 4588      12  1  0  5214    4       2  1  0  5214    4      24  0  2  4858    4      12  1  0  5218    4
 4592       2  1  0  5218    4       6  0  0  5344    4       1  1  2     2    0      27  0  0  4621    4
 4596       1  1  2     3    0      27  0  0  4624    4       1  1  2     2    0      27  0  0  4621    4
 4600       1  1  2     1    0      27  0  0  4621    4       1  1  2     3    0      27  0  3  4618    4
 4604       1  1  2     3    0      27  0  3  4621    4      27  0  0  4613    4       1  1  2     1    0
 4608      27  0  0  4621    4       6  0  0  5284    4       1  1  2     7    0      27  0  0  4624    4
 4612      24  1  0  4621    4       6  0  0  5284    4       1  1  2     3    0      27  0  3  4621    4
 4616       1  1  3     0    0      24  1  0  4624    4      24  0  2  4858    4      12  1  0  5220    4
 4620       2  1  0  5220    4      24  0  2  4858    4      12  1  0  5213    4       2  1  0  5212    4
 4624       2  0  0  5333    4      26  0  1  4377    4       1  1  3   101    0       1  0  1    24    0
 4628      18  0  1     3    0      24  1  2    17    4      14  0  0    49    0      24  1  0  4557    4
 PROCEDURE  529
 4632       0  0  0     0    0       6  1  0  5254    4      27  0  1  4637    4       6  1  0  6202    4
 4636      27  0  0  4644    4      24  0  2  5090    4      24  1  2    15    4      28  1  2     2    0
 4640       6  1  0  5254    4      24  1  2    15    4       2  1  0    46    0      26  0  0  4647    4
 4644       1  1  3     0    0       2  0  0  5234    4      26  0  1  4632    4
 PROCEDURE  530
 4647                                                                                  0  0  0     0    0
 4648       6  1  0  4882    4      24  1  2    15    4       2  1  0    50    0       6  1  0    14    4
 4652       2  1  0    16    4      26  0  0  4134    4       6  1  0    30    4       2  1  0    16    4
 4656       6  1  0  5160    4      24  1  2    15    4      28  1  1     2    0      26  0  1  4647    4
 PROCEDURE  531
 4660       0  0  0     0    0       1  1  3     0    0       5  1  0  5214    4      27  0  0  4675    4
 4664      27  0  3  4675    4       2  1  0  5214    4       1  1  3   128    0       7  0  0  5268    4
 4668       6  1  0  5216    4       1  1  2     2    0      27  0  1  4675    4       1  1  2     1    0
 4672       7  1  0  5214    4       1  1  3     1    0       2  1  0  5216    4      26  0  1  4660    4
 PROCEDURE  532
 4676       0  0  0     0    0       6  0  0  5234    4       2  0  0  5233    4       6  1  0  5212    4
 4680      18  0  1     2    0       4  0  0  5268    4       2  0  0  5232    4       6  1  0  5216    4
 4684      27  0  0  4690    4       1  1  2     2    0      27  0  1  4689    4       1  1  3     1    0
 4688       7  1  0  5214    4       6  0  0  4937    4      24  0  1  5218    4       4  0  0  4933    4
 4692       4  0  0  5214    4       1  0  1    15    0      15  0  0  5233    4      14  0  0  5233    4
 4696       1  1  3     0    0      26  0  1  4676    4
 PROCEDURE  533
 4698                                                         0  0  0     0    0       1  1  3     0    0
 4700       2  1  0  5252    4       6  1  0  5252    4      18  1  1     2    0       2  1  0  5252    4
 4704      27  1  1  4701    4       6  1  0  5252    4      26  0  1  4698    4
 PROCEDURE  534
 4707                                                                                  0  0  0     0    0
 4708      24  0  2  5212    4      18  1  1  4123    0       1  1  3     8    0      18  1  1     5    0
 4712      28  1  1  5260    4       6  0  0  5222    4       2  0  0  5223    4      26  0  1  4707    4
 PROCEDURE  535
 4716       0  0  0     0    0      24  0  2  5260    4      18  1  1  4123    0       1  1  3     8    0
 4720      18  1  1     5    0      28  1  1  5212    4       6  0  0  5223    4       2  0  0  5222    4
 4724      26  0  1  4716    4
 PROCEDURE  536
 4725                                0  0  0     0    0       6  1  0  5218    4       2  0  0  5236    4
 4728      26  0  0  3759    4       6  0  0  5236    4       2  1  0  5218    4       6  1  0  5214    4
 4732      27  0  2  4734    4      26  0  0  4660    4      26  0  0  4676    4      26  0  0  4332    4
 4736      26  0  1  4725    4
 PROCEDURE  537
 4737                                0  0  0     0    0       2  1  0  4878    4       0  0  3  5191    4
 4740      24  0  2  4858    4      12  1  0  4878    4      26  0  1  4737    4
 PROCEDURE  538
 4743                                                                                  0  0  0     0    0
 4744       2  1  0  4878    4       0  0  3  5202    4      24  0  2  4838    4      12  1  0  4878    4
 4748      26  0  1  4743    4
 PROCEDURE  539
 4749                                0  0  0     0    0       0  1  0  5102    4       0  0  3     0    4
 4752       0  0  2    18    4       6  1  0  5188    4       4  0  0    10    4      25  1  1  4096    0
 4756      24  0  3     0    4      23  0  2     0  256       0  1  1  5102    4       0  1  0  5102    4
 4760       0  0  3     0    4      24  1  2    19    4      24  0  2     6    0       3  0  0  7366    4
 4764      24  1  2    19    4       4  1  0     5    0       2  0  0  7367    4       0  1  1  5102    4
 4768      26  0  1  4749    4
 PROCEDURE  540
 4769                                0  0  0     0    0      23  0  0    50    0       0  0  0  7358    3
 4772      24  1  0  4779    4       6  1  0  4882    4      24  1  2    13    4       2  1  0   306    0
 4776      26  0  0  4780    4       6  1  0  5142    4       2  1  0  7358    4      26  0  1  4769    4
 PROCEDURE  541
 4780       0  0  0     0    0       6  1  0  5132    4       0  0  2    12    4      25  1  1  4096    0
 4784       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0      26  0  1  4780    4
  SECTION   542
 4788       37455       0            75516       0            26355       0            73515       0
 4792       57273       0            53666       0            65369       0            67696       0
 4796       35572       0            65667       0            40000       0            55655       0
 4800       46772       0            54746       0            35572       0            56596       0
 4804       75500       0            73786       0            56554       0            56595       0
 4808           0       0            6+000       0            7554.       0            73786       0
 4812           0       0            53000       0            :5:5:       0            5:5:5       0
 4816       7554£       0            73786       0                1       0                0       0
 4820           2       0                0       0                4       0                0       0
 4824           8       0                0       0               10       0                0       0
 4828          20       0                0       0               40       0                0       0
 4832          80       0                0       0              100       0                0       0
 4836         200       0                0       0
  SECTION   543
 4838                                                             1       0                0       0
 4840          16       0                0       0              256       0                0       0
 4844        4096       0                0       0            65536       0                0       0
 4848       48576       0               10       0            77216       0              167       0
 4852       35456       0             2684       0            67296       0            42949       0
 4856       £££££       0            £££££       0                1       0                0       0
 4860           Ю       0                0       0               64       0                0       0
 4864         3.8       0                0       0             2710       0                0       0
 4868       186Ю0       0                0       0            £4240       0                0       0
 4872       89680       0                9       0            5.100       0               5£       0
 4876       Ю+Ю00       0              3‼9       0                0       0                0       0
 4880           0       0                0       0
  SECTION   544
 4882                                                            7.       0            7.000       0
 4884           0       0               90       0                1       0               45       0
 4888          45       0               44       0                4       0                4       0
 4892           2       0               6.       3               32       3               6.       3
 4896         Ю0:       1               4Ю       1               ‼4       0               ‼4       0
 4900           3       0            7£££0       0             1£££       0            66666       0
 4904       66.64       0            66666       0              3££       0             1000       0
 4908          3£       0                0       0
  SECTION   545
 4910                                                          175‼       3            Ю8006       0
 4912       +8006       0                7       0            £££££       0            £££££       0
 4916       60000       0            40000       0            50000       0            30000       0
 4920       70000       0            20000       0            90000       0            Ю0000       0
 4924       ‼0000       0            :0000       0            2Ю001-      0            8+000-      0
 4928       80000-      0             Ю000       0            1.000       0            1Ю000       0
 4932       1+000       0                0       0             2000       0             4000       0
 4936        6000       0             8000       0            28000       0            38000       0
 4940       22000-      0            26000-      0            2Ю000-      0            2.000-      0
 4944       12000       0            £0000       0            .0000       0            14000       0
 4948       ‼0000-      0            ‼2000-      0            ‼4000-      0            ‼6000-      0
 4952       ‼8000-      0            ‼Ю000-      0            88000-      0            Ю0000-      0
 4956       Ю2000-      0            10000       0            2Ю00Ю-      0            80000       0
 4960       88000       0            1.001       0            48000       0            2Ю005-      0
 4964       Ю8000-      0            68000       0            +0000       0            90000-      0
 4968       74000-      0            70000-      0            2‼016-      0            Ю4000-      0
 4972       2‼017-      0            +0000-      0            84000-      0            :2000-      0
 4976       +4000-      0            +6000-      0            ++000-      0            +.000-      0
 4980       2‼01‼-      0            9‼000-      0              Ю0Ю       1                1       0
 4984       £0000-      0            £8000-      0            .8000-      0            .0008-      0
 4988       .0000-      0            £0008-      0            40000-      0            48000-      0
 4992       58000-      0            40008-      0            50000-      0            60000-      0
 4996       .0004-      0            £8004-      0            68000-      0             407+       0
 5000         400       0            6808Ю       0              500       0             409+       0
 5004         200       0              300       0            Ю6000-      0                0       0
  SECTION   546
 5008       86000-      0            82000-      0            28006       0            38006       0
 5012       ‼8002-      0            1Ю002       0            22005-      0             6004       0
 5016       20001       0            88001-      0            ‼4002-      0            88007-      0
 5020       Ю5££‼-      0            Ю1££Ю-      0            20006       0            86006-      0
 5024       74002-      0                0       0                0       0            8+006-      0
 5028       1Ю00Ю       0            30002       0            1Ю014       0             4002       0
 5032       88005-      0            :6000-      0             8000-      0            +Ю000-      0
 5036       1.001       0                0       0
  SECTION   547
  SECTION   548
 5038                                                      0   5206   3        5   3  0  0  0  5   0
 5040    0   5208   3     1365   2  0  5  5  5   0         0   5210   3       69   3  0  0  4  5   0
 5044    0   5212   3       53   3  0  0  3  5   0         0   5214   3    17669   6  4  5  0  5   0
 5048    0   5216   3     6162   2  1  8  1  2   0         0   5218   3     9987   2  2  7  0  3   0
 5052    0   5220   3    36954   6  9  0  5 10   0         0   4880   3        5   3  0  0  0  5   1
  SECTION   549
 5056    0   5206   3        5   3  0  0  0  5   0         0   5208   3       85   0  0  0  5  5   0
 5060    0   5222   3    16405   0  4  0  1  5   0         0   5223   3    16405   0  4  0  1  5   0
 5064    0   5224   3    16405   0  4  0  1  5   0         0   5225   3    16405   0  4  0  1  5   0
 5068    0   5209   3     4882   0  1  3  1  2   0         0   5210   3     8707   0  2  2  0  3   0
 5072    0   5211   3     4898   0  1  3  2  2   0         0   5216   3     8723   0  2  2  1  3   0
 5076    0   5217   3     4898   0  1  3  2  2   0         0   5218   3     8723   0  2  2  1  3   0
 5080    0   5219   3     1057   0  0  4  2  1   0         0   5220   3     4882   0  1  3  1  2   0
 5084    0   5221   3     4882   0  1  3  1  2   1
  SECTION   550
 5086                                                      0   5233   3    16405  12  4  0  1  5   0
 5088    0   5232   3    12548   0  3  1  0  4   1
  SECTION   551
 5090                                                      0   5254   3      515   3  0  2  0  3   0
 5092    0   5234   3       21   0  0  0  1  5   0         0   4808   3        1   3  0  0  0  1   1
 5096    0   5206   3        3   3  0  0  0  3   0         0   5234   3       21   0  0  0  1  5   0
 5100    0   4808   3        1   3  0  0  0  1   1
  SECTION   552
  SECTION  1021
 5102                                                             0       0                0       0
 5104           0       0                0       0                0       0                0       0
 5108           0       0                0       0                0       0                0       0
 5112           0       0                0       0                0       0                0       0
 5116           0       0            20032       0                0       0            2000.       0
 5120           0       0                Ю       0             8000       0             5142       0
 5124           0       0               11       0                0       0            20078       0
 5128           0       0            20064       0                0       0            20022       0
 5132           0       0                8       0            50000       0            56596       0
 5136           0       0               12       0            96573       0            67695       0
 5140       83041       0                4       0                0       0              12+       0
 5144        8000       0             5146       0                0       0               2+       0
 5148           0       0               30       0                0       0                6       0
 5152       66955       0            72736       0                0       0                4       0
 5156           0       0            20244       0                .       0                .       0
 5160           0       0            20030       0            55972       0            56596       0
 5164           0       0               21       0                0       0            20118       0
 5168           0       0            20008       0               25       0            80000       0
 5172           0       0               28       0                0       0            20006       0
 5176           0       0               14       0                0       0               20       0
 5180           0       0            2002+       0            17171       0            71717       0
 5184           0       0               90       0            15355       0            73695       0
 5188           0       0                7       0
  SECTION  1022
 5190                                                             2       0                0       0
 5192           1       0             8000       0               10       0               32       0
 5196          14       0            +4000-      0            38084       0            20084       0
 5200           2-      0            10080       0            66666       0                1-      0
 5204        2000-      0            48300       0
  SECTION  1023
 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  553
   33                                0  1  0  4194    4       0  0  3     0    4       1  1  3     6    0
   36       0  0  2  4266    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  4194    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  5038    4      24  0  2  6008    4
   48      18  1  1  4123    0       1  1  3    36    0      18  1  1     5    0      28  0  0  5138    4
   52       6  0  0  6270    4      27  0  0    64    4       0  1  0  4194    4       0  0  3     0    4
   56       0  1  2  4208    4       6  1  0  4210    4       4  0  0    11    4      25  1  1  4096    0
   60      24  0  3     0    4      23  0  2     0  256       0  1  1  4194    4      24  1  0    73    4
   64       0  1  0  4194    4       0  0  3     0    4       0  1  2  4212    4       6  1  0  4214    4
   68       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
   72       0  0  3  4198    4       6  1  0  4216    4      28  0  0  4998    4       6  1  0  4218    4
   76      24  1  2    15    4      28  0  0     0    0       1  1  3     0    0       2  0  0  5406    4
   80      24  0  2  5357    4      18  1  1  4123    0       1  1  3    14    0      18  1  1     5    0
   84      28  0  0  5003    4       6  1  0  4220    4      28  0  0  5357    4      26  1  3  4222    4
   88       6  0  0  5970    4      18  0  1     5    0       1  1  1     1    0       3  1  0  4194    4
   92      26  1  1  4194    4       1  1  3     0    0       1  0  1     1    0      15  0  1  5979    4
   96       2  0  0  5000    4      24  0  3     0    4       6  0  0     2   22       2  0  0  4999    4
  100       1  1  3    16    0      18  1  1  4118    0      15  0  1  5979    4      18  1  1  4126    0
  104      27  1  1   107    4      24  0  1  5000    4       6  0  0  5002    4       4  0  3  5372    4
  108       2  0  0  5001    4       2  0  0  5002    4
 PROCEDURE  554
  110                                                        26  0  0   206    4       6  0  0  5001    4
  112       4  0  0  5002    4      24  0  1  5000    4       5  0  0  5356    4      27  0  3   118    4
  116      24  0  1  5000    4       7  0  0  5356    4      25  0  3     1    0      24  1  0   120    4
  120      25  0  1     1    0      24  1  0    93    4      26  1  1  5998    4      26  1  2  4222    4
  124       1  1  3    16    0      18  1  1  4118    0      15  0  1  5980    4      27  0  0   132    4
  128       6  0  1  5357    4       2  0  2  5372    4       6  0  1  5003    4       7  0  1  5357    4
  132      25  0  2     1    0      24  1  0   134    4      25  0  1     1    0      24  1  0   124    4
  136       6  0  0  5334    4       2  0  0  5001    4       2  0  0  4999    4       6  0  0  5999    4
  140       2  0  0  5000    4       2  0  0  5002    4      26  0  0   206    4       6  0  0  5001    4
  144       4  0  0  5002    4       2  0  1  5356    4       1  1  3   214    0       5  0  1  5356    4
  148      27  0  3   150    4       7  0  1  5356    4       1  1  3   220    0       5  0  0  5357    4
  152      27  0  3   154    4       7  0  0  5357    4       6  1  0  4216    4      28  0  0  4998    4
  156       6  0  0  5999    4       1  1  2     7    0      27  0  3   160    4       1  1  3     0    0
  160       1  1  1     7    0       2  0  0  5999    4      26  0  0   964    4      26  0  0   964    4
  164      26  0  0   964    4      24  1  2    21    4       6  1  0     5    0       2  0  0  5000    4
  168      24  1  2    21    4       6  1  0     7    0       2  0  0  5001    4       6  1  0  4220    4
  172      28  0  0  4966    4       0  1  0  4194    4       0  0  3     0    4       0  1  2  4224    4
  176       6  1  0  4226    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
  180      23  0  2     0  256       0  1  1  4194    4       0  1  0  4194    4       0  0  3     0    4
  184       0  0  2  4267    4       6  1  0  4228    4       4  0  0    10    4      25  1  1  4096    0
  188      24  0  3     0    4      23  0  2     0  256       0  1  1  4194    4       6  1  0  1264    4
  192      24  1  2    19    4       2  1  0     4    0       6  1  0  1300    4      24  1  2    19    4
  196       2  1  0     6    0       6  1  0  1265    4      24  1  2    19    4       2  1  0     9    0
  200       1  1  3     3    0      24  1  2    19    4       2  1  0    10    0      26  0  0  1060    4
  204      26  0  0   271    4      24  1  0   297    4
 PROCEDURE  555
  206                                                         0  0  0     0    0      26  1  2  4230    4
  208       6  0  2  5038    4      27  0  0   222    4      18  0  1     9    0      18  0  1  4119    0
  212       5  0  0  4999    4      27  0  1   222    4       6  0  0  5001    4       7  0  2  5406    4
  216       1  1  3     0    0      24  0  0    24    4       0  0  2  5038    4      15  0  0  1366    4
  220      18  0  1  4127    0       7  0  0  5002    4      25  0  2     1    0      24  1  0   208    4
  224      26  1  2  6008    4       6  0  0  6009    4      27  0  0   270    4       1  1  3     0    0
  228       1  0  1     8    0      15  0  2  6012    4      18  0  1  4125    0       5  0  0  4999    4
  232      27  0  1   268    4       0  0  2  1361    4      15  0  2  6013    4       1  1  2     3    0
  236      27  0  0   242    4       1  1  2     1    0      27  0  0   242    4       1  1  2    15    0
  240      27  0  1   259    4      24  1  0   268    4       6  0  2  6012    4      18  0  1  4124    0
  244       4  0  0  6009    4       2  0  0  7356    4       1  0  1     7    0      15  0  2  6012    4
  248      18  0  1     1    0       4  0  0  5000    4      24  0  1  7356    4       2  0  0  6013    4
  252      15  0  2  6012    4       4  0  0  5001    4       4  0  0  5002    4       2  0  0   271    4
  256       5  0  0   271    4      24  0  1  7356    4       2  0  0  6012    4       6  0  0  5000    4
  260      18  0  1     4    0       4  0  0  5001    4       4  0  0  5002    4       2  0  2  6013    4
  264       1  0  1     7    0      15  0  2  6012    4      18  0  3     1    0       7  0  0  5002    4
  268      25  0  2     2    0      24  1  0   227    4      26  0  1   206    4
 PROCEDURE  556
  271                                                                                  0  0  0     0    0
  272       6  0  0  5000    4      24  1  2    19    4       3  1  0     5    0      24  1  2    19    4
  276       2  1  0    13    0       6  0  0  5001    4      24  1  2    19    4       3  1  0     7    0
  280      24  1  2    19    4       2  1  0    15    0       1  1  3     2    0      24  1  2    19    4
  284       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4       3  1  0    19    0
  288       1  1  3     2    0       4  0  0  6278    4      24  1  2    19    4       2  1  0    17    0
  292       6  1  0  1265    4      24  1  2    19    4       2  1  0    21    0      26  0  0  1060    4
  296      26  0  1   271    4
 PROCEDURE  557
  297                                6  1  0  4218    4      24  1  2    15    4      28  1  1     0    0
  300      26  1  1  4232    4      26  0  0   999    4      25  0  1     1    0      24  1  0   301    4
  304       6  0  0  6011    4       5  0  0  6010    4      18  0  3     3    0      18  0  1  4127    0
  308       2  0  0   999    4       6  0  0  6010    4      18  0  3     3    0      18  0  1  4127    0
  312       2  0  0  1060    4       1  1  3   128    0       2  0  0  1365    4      24  0  2  1470    4
  316      24  1  2    15    4      28  1  2     0    0       6  0  0  6278    4      27  0  0   326    4
  320      24  0  2  1308    4      18  1  1  4123    0       1  1  3     6    0      18  1  1     5    0
  324      24  1  2    15    4      28  1  1    40    0      26  0  0   999    4      26  0  0   999    4
  328       6  1  0  1265    4      24  1  2    19    4       2  1  0     5    0       1  1  3    85    0
  332      24  1  2    19    4       2  1  0     7    0       6  0  0  5000    4      24  1  2    19    4
  336       2  1  0     9    0       6  0  0  5001    4      24  1  2    19    4       2  1  0    11    0
  340       6  1  0  1274    4      24  1  2    19    4       2  1  0    12    0      26  0  0  1060    4
  344      24  0  2  3780    4       3  1  0  4194    4      26  1  3  4194    4      24  0  2  1698    4
  348       3  1  0  4194    4      26  1  2  4194    4      24  0  2  4156    4       3  1  0  4194    4
  352      26  1  1  4194    4       6  1  0  4234    4       2  1  0  7360    4       6  1  0  4236    4
  356       2  1  0  7354    4       6  0  0  3780    4      18  0  3     2    0       2  0  0  1689    4
  360       6  0  0  4156    4      18  0  3     2    0       2  0  0  1695    4      26  0  0  1568    4
  364      26  0  0  1568    4      24  0  3     0    4       6  1  0     2   22       2  1  0  1470    4
  368      24  0  3     0    4       6  1  0     4   22       2  1  0  1472    4      26  0  0   964    4
  372      24  1  2    21    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    10    0
  376      18  1  1     5    0      28  1  1  4946    4       6  0  0  6011    4       5  0  0  6010    4
  380      18  0  3     3    0      18  0  1  4127    0       2  1  0  4959    4       6  0  0  6010    4
  384      18  0  3     3    0      18  0  1  4127    0       2  1  0  4957    4       1  1  3     0    0
  388       3  1  0  4961    4       7  1  0  4957    4
 PROCEDURE  558
  390                                                        24  0  2  4946    4      18  1  1  4123    0
  392       1  1  3    16    0      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0
  396       2  0  0  5998    4       6  0  0  5976    4      24  1  2    19    4       2  1  0    21    0
  400       6  0  0  5978    4      24  1  2    19    4       2  1  0    23    0      26  1  2  5998    4
  404      26  1  1  4238    4       6  0  2  5357    4      27  0  1   409    4       6  1  0  1296    4
  408       3  0  2  5357    4      24  1  2    19    4       2  1  1    25    0       1  1  3    32    0
  412      18  1  1  4118    0      15  0  2  5980    4      27  0  0   420    4       1  1  3     0    0
  416      24  1  2    19    4       5  1  1    25    0      24  1  2    19    4       2  1  1    25    0
  420      25  0  1     2    0      24  1  0   422    4      25  0  2     1    0      24  1  0   405    4
  424       6  0  0  5000    4      24  1  2    19    4       2  1  0    39    0       6  0  0  5001    4
  428      24  1  2    19    4       2  1  0    41    0       6  1  0  4240    4      24  1  2    19    4
  432       2  1  0    42    0       6  1  0  5138    4      27  0  0   493    4      26  1  1  5138    4
  436      26  1  2  4242    4       1  1  3     0    0       0  0  2  1361    4      15  0  1  5143    4
  440       1  1  2    19    0      27  0  1   491    4       6  0  1  5142    4      18  1  1  4124    0
  444       4  0  0  5139    4       2  0  0  1060    4       1  0  1     8    0      24  0  1  1060    4
  448      15  0  0  5142    4      27  0  0   457    4      18  0  1  4125    0       5  0  0  5999    4
  452      27  0  0   456    4      27  0  3   456    4       1  1  3     0    0      24  1  0   457    4
  456       4  0  0  5999    4       2  0  0   999    4      15  0  1  5142    4      18  0  1  4125    0
  460      27  0  0   467    4       5  0  0  5999    4      27  0  0   466    4      27  0  3   466    4
  464       1  1  3     0    0      24  1  0   467    4       4  0  0  5999    4       2  0  0  1568    4
  468       1  0  1     7    0      15  0  1  5142    4      18  1  1  4125    0       6  0  0  1568    4
  472      18  0  3     3    0       4  0  0   999    4      18  1  3    13    0      24  1  2    19    4
  476       2  1  2    45    0       1  0  1     7    0      24  0  1  1060    4      15  0  0  5142    4
  480       1  1  1     2    0      18  1  1  4125    0       6  0  0  1568    4      18  0  3     3    0
  484       4  0  0   999    4      18  1  3    13    0      24  1  2    19    4       2  1  2    47    0
  488      25  0  2     4    0      24  1  0   491    4      24  1  0   493    4      25  0  1     2    0
  492      24  1  0   437    4      26  0  0  1060    4
 PROCEDURE  559
  494                                                        26  1  1  1470    4      26  1  2  1472    4
  496      26  0  0  1568    4      24  0  3     0    4       6  1  0     2   22       2  1  0  1470    4
  500      24  0  3     0    4       6  1  0     4   22       2  1  0  1472    4      26  1  2  4244    4
  504       6  1  2  4947    4      27  0  0   508    4       6  1  0  1208    4      24  1  0   509    4
  508       6  1  0  1210    4       2  1  2  4966    4      25  0  2     2    0      24  1  0   504    4
  512       6  0  0  5976    4      26  0  0  1077    4       2  0  0  5976    4       0  0  3  4268    4
  516      24  0  2  1444    4      24  1  2    15    4      28  1  2     2    0      26  0  0   999    4
  520      26  0  0   999    4       6  1  0  4955    4       2  1  0  4968    4
 PROCEDURE  560
  523                                                                                  6  1  0  4957    4
  524       2  0  0  5006    4       6  1  0  4955    4       2  0  0  5007    4       6  1  0  4220    4
  528      28  0  0  4966    4      26  1  2  5998    4       1  1  3    32    0      18  1  1  4118    0
  532      15  0  2  5980    4      27  0  0   537    4       1  1  3     0    0       5  0  2  5357    4
  536      24  1  0   538    4       6  0  2  5357    4      26  0  0  1077    4       2  0  2  4966    4
  540       0  0  3  4268    4       6  0  2  5357    4       5  0  0  4269    4      27  0  3   546    4
  544       1  1  3     1    0       3  0  0  4976    4      25  0  2     1    0      24  1  0   530    4
  548       6  0  2  4965    4       2  1  0  1316    4       6  0  0  1316    4       1  1  2  1286    0
  552      27  0  2   557    4       1  1  3  1286    0       2  0  0  1316    4       6  1  0  1316    4
  556       2  0  2  4965    4       6  0  0  4976    4      27  0  0   570    4       6  0  0  7342    4
  560       1  1  1     1    0       2  0  0  7342    4       6  1  0  4246    4      26  1  2  4232    4
  564      24  1  2    15    4       3  1  2    40    0      25  0  2     2    0      24  1  0   564    4
  568       1  1  3     1    0      24  1  0   571    4       1  1  3     0    0       2  0  0  6271    4
  572      24  0  2  1416    4      24  1  2    15    4      28  1  2     2    0      26  0  0   999    4
  576      26  0  0   999    4      24  0  2  1394    4      24  1  2    15    4      28  1  2     2    0
  580      26  0  0   999    4       6  1  0  4248    4      28  0  0  4966    4
 PROCEDURE  561
  583                                                                                  6  1  0  6008    4
  584      27  0  0   711    4       2  1  0  7356    4      26  1  1  4250    4      26  0  0   964    4
  588       0  1  0  4194    4       0  0  3     0    4      24  1  2    21    4      24  0  2     0    0
  592      24  0  3     0    4       4  0  0     2   22       2  0  0  4200    4       0  1  1  4194    4
  596      24  0  3  4200    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    12    0
  600      18  1  1     5    0      28  1  1  4946    4       6  1  0  4949    4       3  0  0  1206    4
  604       1  1  2    32    0      27  0  0   646    4       1  1  2   128    0      27  0  0   645    4
  608       1  1  2    96    0      27  0  0   643    4       1  1  2    16    0      27  0  0   632    4
  612       1  1  2    16    0      27  0  0   634    4       1  1  2    16    0      27  0  0   636    4
  616       1  1  2    16    0      27  0  0   630    4       1  1  2    32    0      27  0  1   622    4
  620       1  1  3   192    0      24  1  0   647    4       1  1  2    32    0      27  0  1   626    4
  624       1  1  3    80    0      24  1  0   647    4       1  1  2    16    0      27  0  1   648    4
  628       1  1  3   224    0      24  1  0   647    4       1  1  3    32    0      24  1  0   647    4
  632       1  1  3   176    0      24  1  0   647    4       1  1  3   208    0      24  1  0   647    4
  636       1  1  3   128    0       2  1  0  4957    4       2  1  0  4952    4       2  1  0  4954    4
  640       1  1  2     1    0       2  1  0  4951    4      24  1  0   664    4       1  1  3    16    0
  644      24  1  0   647    4       1  1  3    48    0       1  1  1    48    0       2  1  0  4949    4
  648       6  1  0  4957    4      27  0  0   653    4       1  1  3     0    0       2  1  0  4957    4
  652      24  1  0   655    4       1  1  3   128    0       2  1  0  4957    4       1  0  1    16    0
  656      24  0  1  7356    4      15  0  0  6013    4      18  0  1  4124    0      18  0  3     1    0
  660       2  1  0  4951    4       1  0  1    15    0      24  0  1  7356    4      15  0  0  6013    4
  664       2  1  0  4955    4      24  0  2  1668    4       0  1  0  4194    4       0  0  3     0    4
  668      24  1  2    19    4      24  0  2     0    0      24  0  3     0    4       4  0  0     2   22
  672       2  0  0  4200    4       0  1  1  4194    4      24  0  3  4200    4      28  1  2     4    0
  676      26  1  2  4232    4       6  1  2  4949    4      26  0  0  1077    4       2  0  2  4966    4
  680      25  0  2     2    0      24  1  0   677    4       6  0  0  1206    4      18  0  1  4127    0
  684      26  0  0  1077    4      18  0  1     1    0       2  0  0  1206    4       0  0  3  4268    4
 PROCEDURE  562
  688       6  0  0  4974    4      27  0  0   692    4       6  1  0  1210    4      24  1  0   693    4
  692       6  1  0  1208    4       2  1  0  4974    4       6  1  0  4951    4      18  0  3     3    0
  696      18  0  1  4127    0       2  0  0  4968    4      24  0  2  1500    4      24  1  2    15    4
  700      28  1  2     2    0      26  0  0   999    4      23  0  0     2    0       0  0  0  7356    3
  704      24  1  0   706    4      24  1  0   710    4      25  0  1    12    0      24  1  0   588    4
  708      26  0  0  1060    4      24  1  0   586    4      26  0  0  1060    4      24  0  2  1512    4
  712      24  1  2    15    4      28  1  2     2    0      26  0  0   999    4
 PROCEDURE  563
  715                                                                                 26  1  2  6010    4
  716      25  0  2     0    0      24  1  0   719    4      24  1  0   800    4      26  1  1  4250    4
  720       6  1  0  6008    4       2  1  0  7356    4       0  0  2  1361    4       1  1  3     0    0
  724      24  0  1  7356    4      15  0  0  5143    4       1  1  2    19    0      27  0  1   741    4
  728      24  0  1  7356    4       6  0  0  5142    4      18  0  1  4124    0       4  0  0  5139    4
  732      24  0  3     0    4       5  0  0     4   22      27  0  1   741    4       1  1  2     1    0
  736       2  1  0  4969    4       2  1  0  4971    4       2  0  0  1568    4       2  0  0  4966    4
  740      24  1  0   762    4      23  0  0     2    0       0  0  0  7356    3      24  1  0   723    4
  744       6  0  2  6012    4      27  0  2   748    4       6  1  2  6012    4      24  1  0   754    4
  748      18  0  1     8    0      18  0  1  4120    0       3  0  0  4966    4       2  0  0  1206    4
  752      24  0  1  4966    4       6  0  0  5406    4       2  0  0  4966    4       6  0  2  6013    4
  756      18  1  1  4127    0       2  1  0  4971    4      18  1  1     1    0       3  0  0  1568    4
  760      18  0  3     1    0       2  1  0  4969    4
 PROCEDURE  564
  762                                                        24  0  2  1438    4       0  1  0  4194    4
  764       0  0  3     0    4      24  1  2    19    4      24  0  2     0    0      24  0  3     0    4
  768       4  0  0     2   22       2  0  0  4200    4       0  1  1  4194    4      24  0  3  4200    4
  772      28  1  2     4    0       6  0  0  4966    4      26  0  0  1077    4       2  0  0  4966    4
  776       6  1  0  4971    4      26  0  0  1077    4       2  0  0  4970    4       6  0  0  1206    4
  780      26  0  0  1077    4       2  0  0  1206    4       0  0  3  4268    4      24  0  2  1524    4
  784      24  1  2    15    4      28  1  2     2    0       6  0  2  6012    4      27  0  2   791    4
  788       6  0  0  4270    4      24  1  2    15    4       2  1  0     4    0      26  0  0   999    4
  792      25  0  2     2    0      24  1  0   796    4      26  0  0  1060    4      24  1  0   800    4
  796      25  0  1     6    0      24  1  0   720    4      26  0  0  1060    4      24  1  0   719    4
 PROCEDURE  565
  800      26  1  1  1470    4      26  1  2  1472    4      26  0  0  1568    4      26  0  0  1568    4
  804      26  0  0  1568    4      24  1  0   806    4
 PROCEDURE  566
  806                                                         6  1  0  1266    4      24  1  2    15    4
  808       2  1  0     2    0       6  1  0  1268    4      24  1  2    15    4       2  1  0     4    0
  812       6  1  0  1288    4      24  1  2    15    4       2  1  0     6    0      26  1  1  4230    4
  816      26  0  0   999    4      26  1  2  4250    4       6  0  1  5406    4      27  0  0   842    4
  820      26  0  0  1077    4       2  0  0  1207    4      24  0  3     0    4       6  0  0     2   22
  824      26  0  0  1077    4       2  0  0  1206    4      24  0  2  1540    4       0  1  0  4194    4
  828       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4
  832       4  0  0     4   22       2  0  0  4200    4       0  1  1  4194    4      24  0  3  4200    4
  836      28  1  2     2    0       0  0  3  4268    4      25  0  2     4    0      24  1  0   842    4
  840      26  0  0   999    4      26  1  2  4250    4      25  0  1     1    0      24  1  0   818    4
  844      26  0  0   999    4      24  1  0   884    4
 PROCEDURE  567
  846                                                        24  0  2  1546    4      24  1  2    15    4
  848      28  1  2     2    0      26  0  0   999    4      26  1  1  4250    4      26  1  2  4214    4
  852      24  0  0    24    4       0  0  2  5388    4      27  1  0   857    4      26  0  0   910    4
  856      26  0  0   920    4      25  0  2     1    0      24  1  0   852    4      26  0  0   999    4
  860       6  1  0  4252    4       2  1  0  7366    4       6  1  0  4254    4       2  1  0  7360    4
  864       3  1  0  4194    4      26  1  1  4194    4      24  1  0    33    4
 PROCEDURE  568
  867                                                                                 24  0  2  1550    4
  868      24  1  2    15    4      28  1  2     2    0      26  0  0   999    4       0  0  2  6045    4
  872      27  1  0   846    4      26  1  1  4250    4      26  1  2  4232    4      24  0  0    24    4
  876       0  0  2  6046    4      27  1  0   880    4      26  0  0   910    4      26  0  0   920    4
  880      25  0  2     1    0      24  1  0   875    4      26  0  0   999    4      24  1  0   846    4
 PROCEDURE  569
  884      24  0  2  1554    4      24  1  2    15    4      28  1  2     2    0      26  0  0   999    4
  888      26  1  1  4250    4      26  1  2  6056    4      25  0  2     0    0      24  1  0   893    4
  892      24  1  0   867    4       1  1  3     0    0       0  0  2  1304    4      15  0  2  6058    4
  896      27  0  0   906    4       2  0  0  1208    4       6  0  2  6058    4      18  1  1  4124    0
  900       2  0  0  1206    4      18  1  3     6    0      24  0  1  1206    4       4  0  0  5371    4
  904       2  0  0  1207    4      26  0  0   920    4      25  0  2     1    0      24  1  0   894    4
  908      26  0  0   999    4      24  1  0   867    4
 PROCEDURE  570
  910                                                         0  0  0     0    0      18  1  1     6    0
  912       2  0  0  1206    4      18  1  1     2    0      24  0  1  1206    4       4  0  0  5371    4
  916       2  0  0  1207    4      18  1  1     2    0       2  0  0  1208    4      26  0  1   910    4
 PROCEDURE  571
  920       0  0  0     0    0       6  0  0  1206    4      26  0  0  1077    4       2  0  0  1206    4
  924       6  0  0  1207    4      26  0  0  1077    4       2  0  0  1207    4       6  0  0  1208    4
  928      26  0  0  1077    4       2  0  0  1208    4       0  0  3  4268    4      24  0  2  1558    4
  932       0  1  0  4194    4       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0
  936      24  0  3     0    4       4  0  0     2   22       2  0  0  4200    4       0  1  1  4194    4
  940      24  0  3  4200    4      28  1  2     2    0      25  0  1     6    0      24  1  0   946    4
  944      26  0  0   999    4      26  1  1  4250    4      26  0  1   920    4
 PROCEDURE  572
  947                                                                                  0  0  0     0    0
  948       0  1  0  4194    4       0  0  3     0    4       0  0  2    18    4       6  1  0  4256    4
  952       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  956       0  1  1  4194    4      26  0  1   947    4
 PROCEDURE  573
  958                                                         0  0  0     0    0      25  0  2     8    0
  960      24  1  0   963    4      26  0  0   964    4      26  1  2  4258    4      26  0  1   958    4
 PROCEDURE  574
  964       0  0  0     0    0       0  1  0  4194    4       0  0  3     0    4       0  0  2    20    4
  968       6  1  0  4256    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
  972      23  0  2     0  256       0  1  1  4194    4      26  0  1   964    4
 PROCEDURE  575
  975                                                                                  0  0  0     0    0
  976      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0
  980      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0       6  1  0  1260    4
  984      24  1  2    21    4       2  1  0    52    0       0  1  0  4194    4       0  0  3     0    4
  988       0  0  2    20    4       6  1  0  4242    4       4  0  0    11    4      25  1  1  4096    0
  992      24  0  3     0    4      23  0  2     0  256       0  1  1  4194    4       6  1  0  4260    4
  996      24  1  2    21    4      28  0  0     0    0      26  0  1   975    4
 PROCEDURE  576
  999                                                                                  0  0  0     0    0
 1000       0  0  3  4268    4       6  1  0  1260    4      24  1  2    15    4       2  1  0    52    0
 1004       6  0  0  1365    4      24  1  2    15    4       2  1  0     0    0       1  1  3     1    0
 1008       2  0  0  1365    4       6  0  0  6275    4      27  0  0  1027    4      24  1  2    15    4
 1012      24  0  2     0    0      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0
 1016       0  1  0  4194    4       0  0  3     0    4      24  1  2    13    4      24  0  2     0    0
 1020       4  0  0  7358    4       2  0  0  4200    4       0  1  1  4194    4      24  0  3  4200    4
 1024      28  1  1     4    0      26  0  0  1089    4      24  1  0  1055    4       6  0  0  6274    4
 1028       1  1  2     9    0      27  0  0  1046    4       6  0  0  4271    4      24  1  2    15    4
 1032       2  0  0     1    0      24  1  2    15    4      24  0  2     0    0      24  1  2    13    4
 1036      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0       4  0  0     7    4
 1040       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
 1044       0  0  3  4268    4      24  1  0  1055    4      24  1  2    15    4      24  0  2     0    0
 1048      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4
 1052      28  1  1     0    0       1  1  3     9    0      24  1  0  1038    4       6  1  0  4218    4
 1056      24  1  2    15    4      28  0  0     0    0       2  0  0  4999    4      26  0  1   999    4
 PROCEDURE  577
 1060       0  0  0     0    0       6  1  0  1260    4      24  1  2    19    4       2  1  0    52    0
 1064       0  1  0  4194    4       0  0  3     0    4       0  0  2    18    4       6  1  0  4242    4
 1068       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1072       0  1  1  4194    4       6  1  0  4260    4      24  1  2    19    4      28  0  0     0    0
 1076      26  0  1  1060    4
 PROCEDURE  578
 1077                                0  0  0     0    0       2  1  0  1316    4       0  0  3  4272    4
 1080      24  0  2  1338    4      12  1  0  1316    4      26  0  1  1077    4
 PROCEDURE  579
 1083                                                                                  0  0  0     0    0
 1084       2  1  0  1316    4       0  0  3  4268    4      24  0  2  1318    4      12  1  0  1316    4
 1088      26  0  1  1083    4
 PROCEDURE  580
 1089                                0  0  0     0    0      23  0  0    50    0       0  0  0  7358    3
 1092      24  1  0  1099    4       6  1  0  1260    4      24  1  2    13    4       2  1  0   306    0
 1096      26  0  0  1100    4       6  1  0  4262    4       2  1  0  7358    4      26  0  1  1089    4
 PROCEDURE  581
 1100       0  0  0     0    0       6  1  0  4242    4       0  0  2    12    4      25  1  1  4096    0
 1104       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0      26  0  1  1100    4
  SECTION   582
 1108           0       0                0       0                0       0                0       0
 1112           0       0                0       0                0       0                0       0
 1116           0       0                0       0                0       0                0       0
 1120           0       0                0       0                0       0                0       0
 1124           0       0                0       0                0       0                0       0
 1128           0       0                0       0                0       0                0       0
 1132           0       0                0       0                0       0                0       0
 1136           0       0                0       0                0       0                0       0
 1140           0       0                0       0                0       0                0       0
 1144           0       0                0       0                0       0                0       0
 1148           0       0                0       0                0       0                0       0
 1152           0       0                0       0                0       0                0       0
 1156           0       0                0       0                0       0                0       0
 1160           0       0                0       0                0       0                0       0
 1164           0       0                0       0                0       0                0       0
 1168           0       0                0       0                0       0                0       0
 1172           0       0                0       0                0       0                0       0
 1176           0       0                0       0                0       0                0       0
 1180           0       0                0       0                0       0                0       0
 1184           0       0                0       0                0       0                0       0
 1188           0       0                0       0                0       0                0       0
 1192           0       0                0       0                0       0                0       0
 1196           0       0                0       0                0       0                0       0
 1200           0       0                0       0                0       0                0       0
 1204           0       0                0       0
  SECTION   583
 1206                                                         7734.       0            564.6       0
 1208       85572       0                7       0             6566       0                0       0
 1212       6544.       0              646       0            7674.       0                5       0
 1216       96669       0            67695       0            97378       0                5       0
 1220       97273       0            56596       0            3654.       0            63665       0
 1224       16773       0            53585       0            7554£       0            73786       0
 1228       35572       0            56596       0            1654.       0            73695       0
 1232       55172       0            51695       0            34.69       0            51637       0
 1236       35572       0            66747       0            65769       0            67696       0
 1240       46455       0              516       0            95951       0            72556       0
 1244       9544.       0                5       0            3554.       0              697       0
 1248       86755       0              737       0            .6656       0            72734       0
 1252       65362       0            52636       0            97955       0              725       0
 1256       25973       0                7       0            56554       0            67695       0
 1260          7.       0            7.000       0            35871       0            5Ю005       0
 1264       £6£6£       0            6£6£6       0            25553       0                7       0
 1268       6654.       0            73596       0            96653       0              676       0
 1272       46955       0            55547       0            27243       0            67517       0
 1276       +7200       0            64695       0            23000       0            44104       0
 1280       5644+       0            59735       0            36972       0              537       0
 1284       97353       0            72765       0            20000       0            58557       0
 1288       16973       0            72735       0            35572       0            65667       0
 1292       66663       0            72676       0            36978       0            55657       0
 1296       186Ю0       0                0       0
  SECTION   584
 1298                                                          5.5.       0                0       0
 1300       45577       0            59655       0            15965       0            53585       0
 1304         3££       0            7£££0       0             3030       0            30483       0
 1308       20059       0            67737       0            37454       0            65536       0
 1312           0       0            55540       0
  SECTION   585
 1314                                                             1       0                0       0
 1316           0       0                0       0
  SECTION   586
 1318                                                             1       0                0       0
 1320           Ю       0                0       0               64       0                0       0
 1324         3.8       0                0       0             2710       0                0       0
 1328       186Ю0       0                0       0            £4240       0                0       0
 1332       89680       0                9       0            5.100       0               5£       0
 1336       Ю+Ю00       0              3‼9       0                1       0                0       0
 1340          16       0                0       0              256       0                0       0
 1344        4096       0                0       0            65536       0                0       0
 1348       48576       0               10       0            77216       0              167       0
 1352       35456       0             2684       0            67296       0            42949       0
 1356       £££££       0            £££££       0
  SECTION   587
 1358                                                             7       0            80000       0
 1360           0       0               3£       0            £0000       0               7£       0
 1364          80       0                0       0            3£££0       0                0       0
  SECTION   588
  SECTION   589
 1368    0   1224   3       20   3  0  0  1  4   0         0   1242   3        1   3  0  0  0  1   0
 1372    0   4954   3     1057   3  0  4  2  1   0         0   1228   3       53   3  0  0  3  5   0
 1376    0   4956   3     4898   0  1  3  2  2   0         0   1230   3      117   3  0  0  7  5   0
 1380    0   1232   3       37   3  0  0  2  5   0         0   4958   3     4898   0  1  3  2  2   0
 1384    0   1260   3      101   3  0  0  6  5   1         0   4970   3        5   0  0  0  0  5   0
 1388    0   4969   3        5   0  0  0  0  5   0         0   4966   3        5   0  0  0  0  5   0
 1392    0   4968   3        5   0  0  0  0  5   1
  SECTION   590
 1394                                                      0   1228   3       20   3  0  0  1  4   0
 1396    0   1244   3      547   3  0  2  2  3   0         0   1246   3      356   3  0  1  6  4   0
 1400    0   1248   3      292   3  0  1  2  4   0         0   1288   3      101   3  0  0  6  5   0
 1404    0   1222   3       37   3  0  0  2  5   0         0   1234   3      101   3  0  0  6  5   0
 1408    0   1236   3        5   3  0  0  0  5   0         0   1252   3       69   3  0  0  4  5   0
 1412    0   1254   3       21   3  0  0  1  5   0         0   1224   3      165   3  0  0 10  5   1
  SECTION   591
 1416    0   1254   3       53   3  0  0  3  5   0         0   1250   3      802   3  0  3  2  2   0
 1420    0   1224   3       36   3  0  0  2  4   0         0   1242   3        1   3  0  0  0  1   0
 1424    0   4966   3    16421   4  4  0  2  5   0         0   4967   3    16421   4  4  0  2  5   0
 1428    0   4968   3    16421   4  4  0  2  5   0         0   4969   3    16421   4  4  0  2  5   0
 1432    0   4970   3    16421   4  4  0  2  5   0         0   4971   3    16421   4  4  0  2  5   0
 1436    0   4972   3    16421   4  4  0  2  5   1         0   4966   3        5   0  0  0  0  5   0
 1440    0   4968   3        5   3  0  0  0  5   0         0   4970   3        5   3  0  0  0  5   1
  SECTION   592
 1444    0   1206   3       69   3  0  0  4  5   0         0   4966   3      547   3  0  2  2  3   0
 1448    0   1212   3      372   3  0  1  7  4   0         0   1214   3      547   3  0  2  2  3   0
 1452    0   4968   3      547   3  0  2  2  3   0         0   1216   3      117   3  0  0  7  5   0
 1456    0   1218   3      515   3  0  2  0  3   0         0   4950   3     1057   3  0  4  2  1   0
 1460    0   1294   3      117   3  0  0  7  5   0         0   1262   3        4   3  0  0  0  4   0
 1464    0   5978   3     1025   0  0  4  0  1   0         0   1262   3     1025   3  0  4  0  1   0
 1468    0   5976   3    12548   0  3  1  0  4   1
  SECTION   593
 1470                                                      0   1364   3    16389   0  4  0  0  5   0
 1472    0   1238   3       21   3  0  0  1  5   0         0   1240   3      260   3  0  1  0  4   0
 1476    0   5000   3       53   0  0  0  3  5   0         0   1242   3       53   3  0  0  3  5   0
 1480    0   1222   3        1   3  0  0  0  1   0         0   5001   3    16437   0  4  0  3  5   0
 1484    0   1224   3      244   3  0  0 15  4   0         0   1242   3        1   3  0  0  0  1   0
 1488    0   5999   3     1057   0  0  4  2  1   0         0   1228   3       53   3  0  0  3  5   0
 1492    0   1060   3     1057   0  0  4  2  1   0         0   1230   3      101   3  0  0  6  5   0
 1496    0   1232   3       37   3  0  0  2  5   0         0    999   3     1057   0  0  4  2  1   1
  SECTION   594
 1500    0   4946   3      101   3  0  0  6  5   0         0   1206   3    12484   0  3  0 12  4   0
 1504    0   4972   3    12756   0  3  1 13  4   0         0   4974   3      691   3  0  2 11  3   0
 1508    0   4970   3    12740   0  3  1 12  4   0         0   4968   3    12740   0  3  1 12  4   1
 1512    0   1230   3       21   3  0  0  1  5   0         0   1232   3       37   3  0  0  2  5   0
 1516    0   1288   3       37   3  0  0  2  5   0         0   1222   3       37   3  0  0  2  5   0
 1520    0   1224   3      117   3  0  0  7  5   0         0   1254   3      101   3  0  0  6  5   1
 1524    0   1206   3    20565   0  5  0  5  5   0         0   4966   3    12724   0  3  1 11  4   0
 1528    0   1568   3     1233   0  0  4 13  1   0         0   4970   3    12660   0  3  1  7  4   1
 1532    0   4946   3        5   3  0  0  0  5   0         0   4948   3        5   3  0  0  0  5   0
 1536    0   4950   3        5   3  0  0  0  5   0         0   4952   3        5   3  0  0  0  5   1
  SECTION   595
 1540    0   1206   3     4914   0  1  3  3  2   0         0   1262   3        1   3  0  0  0  1   0
 1544    0   1207   3    12548   0  3  1  0  4   1         0   1276   3        5   3  0  0  0  5   0
 1548    0   1278   3        5   3  0  0  0  5   1         0   1280   3        5   3  0  0  0  5   0
 1552    0   1282   3        5   3  0  0  0  5   1         0   1284   3        5   3  0  0  0  5   0
 1556    0   1286   3        5   3  0  0  0  5   1         0   1208   3    16389   0  4  0  0  5   0
 1560    0   1262   3        4   3  0  0  0  4   0         0   1206   3     1025   0  0  4  0  1   0
 1564    0   1262   3     1025   3  0  4  0  1   0         0   1207   3    12548   0  3  1  0  4   1
 PROCEDURE  596
 1568       0  0  0     0    0      24  0  3     0    4       6  0  0     4   22       2  0  0  1680    4
 1572      24  0  1  1680    4       1  1  3     0    0       2  0  0  1684    4      24  1  2    19    4
 1576      24  0  2     0    0       3  0  0  1060    4       1  1  1    48    0      18  0  1     5    0
 1580       4  0  0  1060    4       2  1  0  7356    4      24  0  3  1682    4       6  0  2     0    0
 1584       2  0  0  1685    4       0  1  2  1688    4      18  1  3     3    0       0  1  0  1686    4
 1588      23  0  0     1    0       0  0  0  7360    3      24  1  0  1599    4       6  1  0  4234    4
 1592       2  1  0  7360    4      24  0  3  1682    4       6  0  3     1    0      18  1  3     2    0
 1596       2  0  0  1689    4      25  0  3     1    0      24  1  0  1599    4       6  0  0  1686    4
 1600       1  1  2     6    0      27  0  0  1585    4       1  1  2     1    0      27  0  1  1632    4
 1604       0  1  2  1694    4      18  1  3     6    0       0  1  0  1692    4      23  0  0     1    0
 1608       0  0  0  7354    3      24  1  0  1618    4       6  1  0  4236    4       2  1  0  7354    4
 1612      24  0  3  1682    4       6  0  1     1    0      18  1  3     2    0       2  0  0  1695    4
 1616      25  0  1     1    0      24  1  0  1618    4       6  0  0  1692    4       1  1  2    63    0
 1620      27  0  0  1604    4       1  1  1     1    0      27  0  1  1630    4       6  1  0  1682    4
 1624      24  0  3  7356    4       2  1  0     4    0      24  0  3  7356    4       2  1  0     6    0
 1628      26  0  0  1060    4      26  0  1  1568    4       6  1  0  1692    4       2  1  0  1686    4
 1632       6  0  0  1686    4       1  1  2     1    0      27  0  0  1637    4       1  1  2     4    0
 1636      27  0  1  1641    4       1  0  1    15    0      15  0  0  1685    4       5  0  0  1684    4
 1640      14  0  0  1685    4       6  0  0  1685    4      24  0  3  7356    4       2  1  0     7    0
 1644       6  0  0  1686    4      24  0  3  7356    4       2  1  0     5    0      25  0  2     1    0
 1648      24  1  0  1649    4      23  0  0     4    0       0  0  0  7356    3      24  1  0  1582    4
 1652      26  0  0  1060    4      24  1  0  1575    4
  SECTION   597
 1654                                                      0   5014   3        5   0  0  0  0  5   0
 1656    0   1358   3        5   0  0  0  0  5   0         0   5000   3        5   0  0  0  0  5   0
 1660    0   5001   3        5   0  0  0  0  5   0         0   1224   3        5   3  0  0  0  5   1
 1664    0   1232   3        5   3  0  0  0  5   0         0   5014   3    16437   0  4  0  3  5   1
 1668    0   4946   3        5   3  0  0  0  5   0         0   4948   3       20   3  0  0  1  4   0
 1672    0   4954   3        5   3  0  0  0  5   0         0   4950   3        5   3  0  0  0  5   0
 1676    0   4952   3        5   3  0  0  0  5   0         0   4956   3        5   3  0  0  0  5   1
  SECTION   598
 1680           0       0                0       0                0       0            4£000       0
 1684          30       0                0       0               30       0                0       0
 1688          30       0                0       0               30       0                0       0
 1692          30       0                0       0               30       0                0       0
 1696          30       0                0       0
 PROCEDURE  599
 PROCEDURE  600
 PROCEDURE  601
 PROCEDURE  602
 PROCEDURE  603
 PROCEDURE  604
 1698                                                         1  1  3     0    0      27  0  0  1747    4
 1700      24  0  2  1974    4       2  0  0  1724    4      24  0  2  1976    4       2  0  0  1727    4
 1704      24  0  2  1980    4       2  0  0  1743    4       1  1  2     4    0       7  0  0  1973    4
 1708       7  0  0  1981    4       1  1  3     0    0      27  0  0  1712    4      24  1  0  1714    4
 1712       6  0  0  1973    4       2  0  0  1971    4      24  0  3  1974    4       6  0  0     0    0
 1716      27  0  0  1764    4       1  1  3     2    0       7  0  0  1976    4      24  0  3  1974    4
 1720       6  1  0     0    0      24  0  3  1976    4       2  1  0     0    0      23  0  0     2    0
 1724       0  0  0  1974    3      24  1  0  1714    4      23  0  0     2    0       0  0  0  1976    3
 1728      24  1  0  1730    4      24  1  0  1734    4       6  1  0  1978    4      24  0  3  1976    4
 1732       2  1  0     0    0      24  1  0  1726    4      24  0  3  1980    4       6  0  0     1    0
 1736       5  0  0  1978    4      27  0  0  1742    4       4  0  0  1978    4      18  0  0     0    0
 1740       1  1  2   516    0      27  0  2  1750    4      23  0  0     2    0       0  0  0  1980    3
 1744      24  1  0  1734    4       1  1  3     0    0       1  1  2     4    0       1  1  1    87    0
 1748      24  0  3  1982    4      24  1  0     0    0      24  0  3  1980    4       6  0  0     0    0
 1752      24  0  3  1982    4       3  0  0    28    0      24  0  3  1982    4       3  0  0     0    0
 1756       0  0  2  1987    4      14  0  0  1987    4       6  0  0  1987    4      24  0  3  1982    4
 1760       2  0  0     1    0       1  1  3     0    0      24  0  3  1982    4      24  1  0     1    0
 PROCEDURE  605
 1764       1  0  1    15    0      24  0  3  1974    4      15  0  0     1    0       2  1  0  1698    4
 1768      24  0  3  1698    4       6  0  0    37    0       2  0  0  1986    4      24  0  3  1976    4
 1772       6  0  0     1    0      24  0  3  1982    4       2  1  0    30    0      26  1  2  1698    4
 1776      24  0  3  1982    4      26  0  0     0    0      24  0  3  1986    4       6  0  0     0    0
 1780      27  0  0  1790    4      26  1  2  1982    4       1  1  3    14    0      24  0  3  1982    4
 1784      23  1  2   128    0       1  1  3     0    0      24  0  3  1982    4       2  1  2   128    0
 1788      25  0  2     2    0      24  1  0  1782    4      24  0  3  1986    4       6  0  0     1    0
 1792      27  0  0  1801    4      18  0  3     3    0       2  0  0  1698    4      26  1  2  1982    4
 1796       1  1  3    14    0      24  0  3  1698    4      23  1  2     2    0      25  0  2     2    0
 1800      24  1  0  1797    4      24  0  3  1986    4       6  0  0    10    0       3  0  0  1698    4
 1804      18  1  1  4127    0      24  0  3  1698    4      18  1  0     0    0      24  0  3  1982    4
 1808       7  1  0     0    0      24  0  3  1986    4      26  1  2    18    0      26  1  3  1982    4
 1812      25  0  3     3    0      25  0  3     3    0      24  1  0  1822    4      26  1  3  1982    4
 1816      24  0  3  1986    4       6  1  2    34    0      27  0  2  1822    4      25  0  3     3    0
 PROCEDURE  606
 1820      25  0  2     1    0      24  1  0  1858    4      24  0  3  1986    4       6  0  2    34    0
 1824      18  1  1  4124    0       2  0  0  1709    4      18  1  1     2    0       1  1  3     0    0
 1828      18  1  1     2    0      27  0  0  1858    4       1  1  2   128    0      27  0  0  1858    4
 1832       1  1  1   128    0       3  0  0  1710    4      18  1  1  4127    0      18  1  3     1    0
 1836      18  0  3     3    0       2  0  0  1711    4      18  1  3     3    0       2  0  0  1712    4
 1840       6  0  0  1709    4      27  0  1  1843    4       6  0  0  1984    4      24  0  3  1710    4
 1844       2  0  0    64    0      24  0  3  1711    4       6  0  0     0    0       5  0  0  1710    4
 1848      27  0  1  1852    4       6  0  0  1978    4      24  0  3  1711    4       2  1  0     0    0
 1852       1  0  1     1    0       1  1  3     0    0      24  0  3  1712    4      18  1  0     0    0
 1856      24  0  3  1711    4      14  1  0     2    0      25  0  2     1    0      24  1  0  1813    4
 PROCEDURE  607
 1860      24  0  3  1986    4      26  1  2    16    0      24  0  3  1986    4       6  1  2    20    0
 1864       2  1  0  1698    4      26  1  3  1698    4       1  1  3    14    0      24  0  3  1982    4
 1868      23  1  3     0    0      25  0  3     2    0      24  1  0  1867    4      26  1  3  1698    4
 1872       6  0  0  1698    4       5  0  0  1986    4      27  0  1  1878    4      25  0  3   500    0
 1876      24  1  0  1878    4      24  1  0  1883    4       1  1  3     0    0      24  0  3  1982    4
 1880       2  1  3     0    0      25  0  3     2    0      24  1  0  1879    4
 PROCEDURE  608
 1883                                                                                  1  1  3     0    0
 1884      27  0  0  1890    4       6  0  0  1698    4       5  0  0  1967    4      27  0  3  1890    4
 1888       6  1  0  1990    4      24  1  0  1891    4       6  1  0  1988    4       2  1  0  1712    4
 1892      26  1  1  1712    4      26  1  3  1712    4      24  0  3  1982    4       6  1  3     0    0
 PROCEDURE  609
 1896       2  1  0  1708    4       6  0  0  1708    4      27  0  0  1916    4       5  0  0  1978    4
 1900      27  0  0  1930    4       6  0  0  1708    4       4  0  0  1709    4       2  0  0  1711    4
 1904       0  0  2  1987    4      15  0  0  1708    4      27  0  0  1911    4       6  0  0  1708    4
 1908       5  0  0  1699    4      27  0  0  1918    4       1  1  3     0    0      15  0  0  1711    4
 1912      27  0  0  1916    4       6  0  0  1711    4       5  0  0  1698    4      27  0  0  1922    4
 1916      25  0  3     2    0      24  1  0  1894    4       6  0  0  1698    4      18  1  1  4123    0
 1920       4  0  0  1711    4      24  1  0  1925    4       6  0  0  1708    4      18  1  1  4123    0
 1924       4  0  0  1699    4      18  1  1     5    0       2  1  0  1698    4      24  0  3  1982    4
 1928       2  1  3     0    0      24  1  0  1893    4       5  0  0  1698    4       7  0  0  1699    4
 PROCEDURE  610
 1932      24  0  3  1712    4       6  1  0     0    0       3  1  0  1992    4      27  0  0  1955    4
 1936       5  1  0  1978    4      27  0  0  1958    4       6  1  0  1992    4       5  1  0  1698    4
 1940      27  0  3  1947    4       6  1  0  1698    4      24  0  3  1982    4       2  1  1     0    0
 1944       6  1  0  1992    4       2  1  0  1698    4      24  1  0  1950    4       6  1  0  1992    4
 1948      24  0  3  1982    4       2  1  1     0    0      25  0  1     2    0      24  1  0  1955    4
 1952       1  1  3    81    0      24  0  3  1982    4      24  1  0     0    0       1  1  3     2    0
 1956       7  0  0  1712    4      24  1  0  1932    4       6  1  0  1698    4      24  0  3  1982    4
 1960       2  1  1     0    0       6  1  0  1978    4      24  0  3  1982    4       2  1  1     2    0
 1964      25  0  2     2    0      24  1  0  1862    4      24  1  0  1723    4       0  1  0     0    0
 1968       6  0  0  1698    4       1  1  3     0    0
  SECTION   611
 1970                                                             0       0                0       0
 1972           0       0                0       0                2       0                0       0
 1976           0       0                0       0            £££££       0            £££££       0
 1980           0       0                0       0                0       0                6       0
 1984        ££££       0            £0000       0                0       0             1£££       0
 1988           0       0                0       0                0       0                0       0
 1992           0       0                0       0                0       0                0       0
 PROCEDURE  612
 PROCEDURE  613
 1996       1  1  3     0    0      27  0  0  2008    4       1  1  3     0    0       1  1  2     1    0
 2000       7  0  0  2244    4       1  1  3     0    0       5  0  0  2011    4       7  0  0  2302    4
 2004       1  1  3     0    0       1  1  2     0    0       7  0  0  2044    4       7  0  0  2261    4
 2008      24  0  3  2020    4      26  0  0     0    0      24  1  0  2048    4       0  0  2     0    0
 2012       0  0  0     1    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 2016       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 2020       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 2024       0  0  0     1    0       0  0  0     0    0
 PROCEDURE  614
 2026                                                        24  0  3  2044    4      28  0  0   250    0
 2028      24  0  3  2044    4      24  1  0   250    0       6  1  0  2042    4      24  0  3  2066    4
 2032      28  0  0    80    0       6  1  0  2040    4      24  0  3  2044    4      28  0  0     0    0
 2036       1  1  3     0    0      24  0  3  2039    4      24  1  0     1    0       0  0  0     0    0
 2040       0  0  0    16    0       0  0  0    54    0       0  0  0    70    0       0  0  0    40    0
 2044       0  0  0     0    0       0  0  0     0    0
  SECTION   615
 2046                                                            40-      0                0       0
 PROCEDURE  616
 2048      24  1  2  2046    4      24  0  2    25    0      18  1  1  4123    0       1  1  3    28    0
 2052      18  1  1     5    0      28  1  0  1997    4      24  1  2  2046    4      24  0  2     5    0
 2056      18  1  1  4123    0       1  1  3    20    0      18  1  1     5    0      28  1  0  2046    4
 2060       6  1  0  2004    4       2  1  0  2058    4       1  1  3  1996    4      18  1  3     3    0
 2064      18  1  1  4127    0       2  0  0  2056    4      18  1  3     1    0       3  0  0  2057    4
 2068      27  0  0  2076    4       1  1  3     0    0      27  0  0  2076    4       3  0  0  2047    4
 2072       6  0  0  2228    4       2  0  0  2118    4       1  1  3  1500    0       7  0  0  2238    4
 2076      24  0  1  2050    4       3  0  0  1997    4      24  0  1  2050    4       6  0  0  1996    4
 2080       2  0  0  2061    4       6  0  0  2050    4       4  0  0  2050    4       2  0  0  2063    4
 2084      24  0  0  2063    4       2  1  0  2066    4       1  1  3     0    0       2  0  0  2078    4
 2088       1  0  1     1    0      24  0  3  2020    4      15  0  0    27    0       1  1  2     9    0
 2092       3  0  0  2060    4      27  0  1  2099    4       1  1  3     1    0       7  0  0  2119    4
 2096       7  0  0  2122    4       6  0  0  2226    4       2  0  0  2223    4
 PROCEDURE  617
 2099                                                                                  6  0  0  2063    4
 2100       2  0  0  2014    4       6  0  0  2050    4       3  0  0  2016    4       1  1  1     4    0
 2104       2  0  0  2017    4      26  1  1  2014    4      26  1  3  2016    4       2  1  1  2068    4
 2108       1  1  3     0    0      27  0  0  2117    4       1  1  3     0    0       0  0  2  2230    4
 2112      24  0  1  2050    4      15  0  0  1996    4      24  0  1  2050    4      14  0  0  1996    4
 2116       1  1  3     0    0       6  0  0  2008    4      27  0  0  2151    4       6  0  0  2007    4
 2120      26  0  0  2216    4      25  0  1     2    0       6  0  0  2009    4      26  0  0  2216    4
 2124       6  0  1  2067    4      27  0  1  2130    4       6  0  1  2066    4       6  0  1  2066    4
 2128       7  0  0  2238    4      24  1  0  2140    4       2  0  0  2014    4       6  0  1  2066    4
 2132       0  0  2  2230    4      24  0  1  2014    4      15  0  0  1996    4      24  0  1  2014    4
 2136      14  0  0  1996    4       6  0  1  2067    4       7  0  1  2067    4       1  1  3     0    0
 2140       2  0  3  1998    4      25  0  1     2    0      25  0  3     1    0      24  1  0  2124    4
 2144       6  0  0  2060    4      27  0  0  2149    4       1  1  3     1    0       7  0  0  2198    4
 2148       1  1  3     2    0       1  1  1     2    0       1  1  1     1    0       4  0  0  2050    4
 2152       2  0  0  2014    4       0  1  2  2230    4      24  0  1  2050    4      18  1  3     0    0
 2156       2  0  0  2013    4      24  0  1  2014    4      18  1  3     0    0       2  0  0  2015    4
 2160      26  1  3  2044    4       2  0  0  2044    4       6  0  0  2014    4       5  0  0  2050    4
 2164      27  0  0  2179    4       6  0  0  2014    4       2  0  0  2021    4      26  1  1  2020    4
 2168       0  0  2  2024    4       6  0  1  1997    4      27  0  1  2173    4      15  0  0  2230    4
 2172       7  0  0  2227    4      18  1  3     1    0      25  0  1     1    0      24  1  0  2169    4
 2176       1  1  3     0    0       5  0  0  2227    4       7  0  0  2015    4
 PROCEDURE  618
 2179                                                                                  6  0  0  2050    4
 2180       2  0  0  2021    4      26  1  1  2020    4       0  0  2  2024    4       1  1  3  8190    0
 2184       5  0  0  2238    4       2  0  0  2238    4       6  0  1  1997    4       5  0  0  2238    4
 2188      27  0  2  2191    4       6  0  0  2232    4      14  0  0  2239    4      18  1  3     1    0
 2192      25  0  1     1    0      24  1  0  2186    4       6  0  0  2008    4       0  0  2  2230    4
 2196      27  0  0  2201    4       1  1  3     0    0      24  1  0  2200    4       1  1  3    34    0
 2200       1  1  1    16    0      24  0  1  2050    4      15  0  0  1996    4       1  1  2   506    0
 2204      27  0  2  2206    4       1  1  3     0    0       1  1  1   506    0      24  0  1  2050    4
 2208      14  0  0  1996    4       1  1  3    40    0      18  0  1     5    0       1  1  1     0    0
 2212      28  0  0  2100    4       6  1  0  2230    4       2  1  0  2098    4      24  1  0  2240    4
 PROCEDURE  619
 2216       0  0  0     0    0      18  1  1  4124    0       2  0  1  2069    4      18  1  3     3    0
 2220       2  0  1  2073    4      18  1  3     1    0      18  1  1     3    0       3  0  1  2068    4
 2224       2  0  1  2072    4      26  0  1  2216    4       2  0  1  2068    4       0  0  0     0    0
 2228      27  0  0  2150    4       1  1  3     0    0
  SECTION   620
 2230                                                         £££££       0            £££££       0
 2232        1£££       0                1-      0                0       0                8       0
 2236           0       0                Ю       0                2-      0                0       0
 PROCEDURE  621
 2240       6  0  0  2230    4       3  0  0  2012    4       5  0  3  2100    4      27  0  1  2270    4
 2244      24  1  0  2245    4      24  1  0  2249    4      24  1  0  2253    4      24  1  0  2261    4
 2248      24  1  0  2249    4       1  1  3    83    0      24  0  3  2020    4      24  1  0     0    0
 2252      24  1  0  2244    4       1  1  3     0    0      24  0  3  2020    4       2  1  0    30    0
 2256       1  1  2     1    0       7  0  0  2244    4       6  0  0  2011    4       7  0  0  2302    4
 2260      24  1  0  2270    4       1  1  3     0    0      24  0  3  2020    4       2  0  0    30    0
 2264       6  0  3  2100    4       5  0  0  2230    4      27  0  0  2249    4       1  1  3     0    0
 2268       1  1  2     1    0       7  0  0  2244    4       1  1  3     1    0       2  1  0  2018    4
 2272       6  0  0  2014    4       2  0  0  2021    4
 PROCEDURE  622
 2274                                                         1  1  3     0    0       0  0  2  2018    4
 2276      15  0  0  2227    4      27  0  1  2321    4       6  0  0  2013    4       5  0  0  2015    4
 2280      27  0  2  2295    4       1  1  3     0    0      15  0  0  2013    4      27  0  0  2321    4
 2284       1  1  3     0    0       6  0  0  2015    4       5  0  0  2018    4       2  0  0  2142    4
 2288       0  0  2  2239    4      15  0  0  2142    4      27  0  1  2295    4       0  0  2  2013    4
 2292      15  0  0  2142    4       5  0  0  2142    4      27  0  1  2321    4       1  1  3     0    0
 2296       2  1  0  2022    4       0  0  2  2024    4      26  1  1  2020    4      15  0  0  2018    4
 2300      27  0  0  2310    4       6  0  1  1997    4      27  0  1  2306    4       1  1  3     0    0
 2304      15  0  0  2230    4      24  1  0  2322    4       2  1  0  2142    4       6  0  0  2142    4
 2308       7  0  0  2022    4       1  1  3     0    0      18  1  3     1    0      25  0  1     1    0
 2312      24  1  0  2299    4       6  0  3  2101    4       5  0  0  2022    4      27  0  3  2321    4
 2316       5  0  0  2012    4      27  0  2  2321    4       7  0  0  2012    4       6  0  0  2018    4
 2320       2  0  0  2025    4       1  1  3     1    0       7  0  0  2018    4       6  0  0  2015    4
 2324       5  0  0  2018    4      27  0  2  2274    4      25  0  3     2    0       6  0  0  2012    4
 2328       5  0  0  2230    4      27  0  0  2240    4       6  0  3  2099    4       5  0  0  2012    4
 2332       2  0  0  2022    4       5  0  0  2025    4       7  0  0  2015    4       6  0  0  2025    4
 2336       7  0  0  2227    4       1  1  3     0    0
 PROCEDURE  623
 2338                                                         0  0  2  2232    4      15  0  3  2098    4
 2340      27  0  0  2347    4       4  0  3  2099    4       5  0  0  2232    4      27  0  3  2347    4
 2344       6  0  0  2012    4       2  0  0  2019    4      24  1  0  2348    4       6  0  0  2022    4
 2348       4  0  3  2098    4       2  0  0  2142    4       6  0  0  2012    4       2  0  0  2143    4
 2352       6  0  0  2019    4       4  0  3  2098    4       2  0  0  2019    4       1  1  3     0    0
 PROCEDURE  624
 2356      26  1  1  2020    4      26  1  2  2044    4       0  0  2  2024    4      15  0  0  2025    4
 2360      27  0  0  2375    4       6  0  1  1997    4       2  1  0  2140    4       6  0  0  2019    4
 2364       3  0  2  2066    4       4  0  0  2140    4       3  0  2  2067    4       2  0  0  2019    4
 2368      24  0  3  2020    4       6  0  0    28    0       5  0  0  2063    4      27  0  2  2380    4
 2372       4  0  0  2063    4       2  0  0  2023    4       2  0  1  1997    4      18  1  3     1    0
 2376      25  0  2     2    0      25  0  1     1    0      24  1  0  2359    4      24  1  0  2388    4
 2380       6  0  1  1997    4      24  0  0  2023    4       7  0  0  2067    4       2  0  2  2066    4
 2384       6  0  0  2023    4       1  1  1     2    0       2  0  2  2067    4      24  1  0  2374    4
 PROCEDURE  625
 PROCEDURE  626
 2388      24  0  3  2020    4       6  0  0    30    0      24  0  3  2020    4       2  1  0    28    0
 2392       6  0  0  2143    4      27  0  1  2403    4      25  0  3  4098    0      24  1  0  2397    4
 2396       1  1  3     0    0       6  1  2  2100    4       3  1  2  2098    4       5  1  0  2230    4
 2400      27  0  0  2414    4      25  0  2     2    0      24  1  0  2397    4       6  1  2  2096    4
 2404       5  1  0  2142    4      27  0  3  2412    4       4  1  0  2142    4       3  1  2  2098    4
 2408       5  1  0  2230    4      27  0  0  2412    4      25  0  2  4098    0      24  1  0  2403    4
 2412       6  1  0  2142    4       2  1  2  2098    4       6  0  0  2015    4      27  0  1  2240    4
 2416       1  1  3     0    0       2  0  0  2062    4
 PROCEDURE  627
 2418                                                         6  0  0  2063    4       7  0  0  2237    4
 2420       7  0  0  2236    4      26  1  1  2062    4      26  1  3  2236    4       6  0  1  2067    4
 2424       5  0  1  2066    4       2  0  0  2013    4       6  0  3  2067    4      24  0  3  2020    4
 2428       5  0  0    26    0       1  1  2     2    0      27  0  1  2435    4       6  0  0  2013    4
 2432       5  0  3  2066    4       3  0  0  2013    4       2  0  3  2076    4      25  0  3     2    0
 2436      24  1  0  2426    4      25  0  1     2    0      24  1  0  2422    4       6  0  3  2057    4
 2440      27  0  0  2452    4       3  0  0  2013    4      18  0  1     4    0      24  0  3  2020    4
 2444       2  0  0    43    0      24  0  1  2013    4       6  0  0  2064    4       4  0  3  2066    4
 2448      24  0  0  2013    4       3  0  0  2065    4      24  0  3  2020    4       7  0  0    43    0
 PROCEDURE  628
 2452      24  0  1  2063    4       6  0  0  2064    4       3  0  0  2044    4       1  1  1    54    0
 2456      24  0  3  2045    4       3  0  0    28    0      24  0  3  2045    4       3  0  0     5    0
 2460      24  0  3  2045    4       2  0  0     0    0      24  0  3  2044    4       1  1  3     0    0
 2464      24  0  3  2045    4       3  0  0     2    0       1  1  1    54    0      24  0  3  2045    4
 2468       2  0  0     1    0       1  1  3     0    0
 PROCEDURE  629
 2470                                                        24  0  2  2140    4       5  0  0  2044    4
 2472      27  0  3  2475    4       1  1  2   170    0      27  0  3  2480    4      24  0  2  2140    4
 2476       5  0  0  2066    4      27  0  3  2500    4       1  1  2   156    0      27  0  2  2500    4
 2480       1  1  3   250    0       0  0  2  2232    4      15  0  0  2044    4       1  1  2  2030    4
 2484       7  0  0  2030    4       7  0  0  2033    4       2  0  0  2472    4       5  0  0  2472    4
 2488       7  0  0  2031    4       7  0  0  2034    4       7  0  0  2037    4       6  0  0  2044    4
 2492       1  1  1   250    0       7  0  0  2040    4       7  0  0  2042    4      24  0  2  2030    4
 2496      18  1  1  4123    0       1  1  1   110    0      18  1  1     5    0      24  1  0  2026    4
 2500      24  0  2  2030    4       7  0  0  2040    4       7  0  0  2042    4      24  1  0  2030    4
 2504       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 2508       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  630
 2512       6  0  0    10    0      18  1  1  4126    0
 PROCEDURE  631
 2514                                                         1  1  2     1    0      27  0  1  2520    4
 2516       1  0  1     3    0      14  0  0  2928    4      14  0  0  2664    4      14  0  0  2710    4
 2520       1  1  3     0    0      27  0  1  2528    4       6  1  0  2948    4       2  1  0  2936    4
 2524       6  0  0  2885    4       2  0  0  2882    4       6  1  0  2932    4       2  1  0  2930    4
 2528       1  1  3     2    0      18  1  1  4118    0      15  0  0    10    0      27  0  0  2539    4
 2532       6  1  0  2930    4       2  1  0  2924    4       6  1  0  2932    4       2  1  0  2926    4
 2536       1  1  2  4096    0       7  0  0  2891    4      24  1  0  2541    4       1  0  1    12    0
 2540      14  1  0  2928    4       6  0  0    11    0      27  0  1  2545    4       1  0  1    48    0
 2544      14  1  0  2928    4       6  1  0    12    0       2  1  0  2512    4      24  1  0  2578    4
  SECTION   632
 2548       36653       0            51636       0                0       0            5.7:0       0
 2552           1       0                0       0               16       0                0       0
 2556         256       0                0       0             4096       0                0       0
 2560       65536       0                0       0
 PROCEDURE  633
 PROCEDURE  634
 2562                                                         0  0  0  2583    4       0  0  2     5    0
 2564       0  0  0  2578    4      16  0  0  4101    0       0  0  0  2548    4       1  0  0     5    0
 2568       0  0  0  2512    4       0  0  0    53    0       0  0  0  2513    4       0  0  0    21    0
 2572       0  0  0     0    0       0  0  0    21    0       0  0  0  2928    4       1  0  0   305    0
 2576       0  0  0  2928    4      17  0  0   563    0
 PROCEDURE  635
 2578                                                         1  1  3     0    0       1  1  2     1    0
 2580       7  0  0  2572    4      24  0  2  2566    4      24  0  3    20    0      28  1  2     0    0
 2584       1  1  3    16    0       4  0  0    20    0       2  0  0  2574    4      26  1  1    16    0
 2588       0  0  3  2934    4       6  0  1    20    0      18  1  1  4124    0      18  1  3     3    0
 2592       2  0  0  2583    4      18  1  3    13    0       2  0  0  2578    4      24  0  2  2552    4
 2596      12  0  0  2578    4       2  0  0  2578    4      24  0  2  2562    4      24  0  3  2574    4
 2600      28  1  2     0    0       0  0  3  2550    4       1  1  3     4    0       7  0  0  2574    4
 2604      25  0  1     2    0      24  1  0  2588    4       1  1  3  7805    0      24  0  3    20    0
 2608       3  1  0    14    0      24  0  3  2574    4       2  1  0     0    0      24  0  2  2566    4
 2612       2  0  0  2731    4       2  0  0  2562    4      24  0  2  2578    4       2  0  0  2892    4
 2616      26  0  0  2878    4      24  0  2    20    0       4  0  0    17    0      18  1  1  4123    0
 2620       1  1  1    30    0      18  1  1     5    0      28  0  0  2580    4       6  0  0    11    0
 2624      27  0  0  2629    4       1  1  3     0    0      27  0  0  2629    4       1  1  3     0    0
 2628      27  0  1  2631    4       6  0  0  2628    4       2  0  0  2935    4       6  0  0  2583    4
 2632      24  0  3    20    0       3  0  0   122    0      27  0  0  2642    4       1  1  3  8191    0
 2636      18  1  1  4118    0       6  0  0    15    0      24  0  1    17    0      15  0  0    18    0
 2640      24  0  3  2562    4       2  0  0     5    0
 PROCEDURE  636
 2642                                                        26  1  1  2562    4       1  1  3     8    0
 2644       2  0  0  2563    4      26  1  3  2562    4       6  0  0     5    0      27  0  0  2729    4
 2648       2  0  0  2563    4      26  1  2  2562    4      24  1  2  2923    4      24  0  2     4    0
 2652       3  0  0  2566    4       1  1  1    48    0       2  0  0  2567    4      24  0  3  2562    4
 2656      26  0  0     0    0       1  1  3    12    0      18  0  1     5    0       4  0  0  2566    4
 2660       1  1  1     1    0      28  1  0  2568    4      26  0  0  2793    4      25  0  1     1    0
 2664       1  1  3   128    0       4  0  0  2573    4      27  0  1  2669    4      26  0  0  2793    4
 2668      24  1  0  2676    4
 PROCEDURE  637
 2669                                6  0  0  2569    4       5  0  0  2922    4      27  0  1  2674    4
 2672       3  0  1    34    0      24  1  0  2719    4       1  1  3   128    0       2  0  1    34    0
 2676       1  0  1     3    0      15  0  1    34    0      18  1  1     2    0      14  0  1    33    0
 2680       1  0  1     3    0       1  1  3     0    0      15  0  1    33    0       2  0  0  2563    4
 2684       6  0  0  2569    4       1  1  2     4    0      27  0  0  2689    4       1  1  2     5    0
 2688      27  0  1  2691    4       6  0  0  2563    4       3  0  0  2935    4       6  0  0  2563    4
 2692      26  0  0  2912    4       2  1  0  2612    4      24  0  3  2566    4       6  1  0     0    0
 2696       2  1  0  2614    4       1  0  1     3    0      15  0  1    34    0      26  0  0  2912    4
 2700      18  0  1     0    0       2  1  0  2616    4       1  0  1    15    0       6  1  0  2614    4
 2704      14  0  1    34    0       1  1  1     0    0      24  0  2  2950    4      24  0  3  2574    4
 2708      28  1  2     2    0
 PROCEDURE  638
 2709                                6  0  0  2573    4       1  1  1   128    0      27  0  0  2717    4
 2712       1  1  3   101    0      18  0  1     2    0       1  0  1    63    0      24  0  3  2574    4
 2716      14  1  0     4    0       1  1  3     4    0       7  0  0  2574    4      24  0  1  2571    4
 2720       6  0  0    18    0       4  0  0  2570    4       3  0  1    65    0       1  1  2     2    0
 2724       4  0  0  2572    4       2  0  1    66    0      25  0  1     1    0      25  0  2     1    0
 2728      24  1  0  2730    4      24  1  0  2734    4      23  0  0    12    0       0  0  0  2566    3
 2732      24  1  0  2657    4      24  1  0  2650    4       6  0  0  2581    4      27  0  0  2754    4
 2736       6  1  0  2936    4       2  1  1    34    0       2  1  1    66    0      25  0  1     2    0
 2740       6  0  0  2935    4      27  0  1  2768    4       6  0  0    14    0       1  1  1     9    0
 2744       3  0  0  2569    4       2  0  0  2573    4       1  1  3     1    0       7  0  0     5    0
 2748      25  0  2  4097    0      24  0  2  2956    4       2  0  0  2566    4       6  0  0  2772    4
 2752       2  0  0  2729    4      24  1  0  2662    4       1  1  3     6    0       7  0  0  2730    4
 2756       1  1  2    12    0       7  0  0  2657    4       1  1  1     4    0       7  0  0  2661    4
 2760       6  0  0  2771    4       2  0  0  2729    4       6  0  0  2922    4       3  0  0  2569    4
 2764       2  0  0  2573    4       1  1  3     0    0       6  0  0     6    0      24  1  0  2647    4
 2768       1  1  3     1    0       7  0  0     5    0      24  1  0  2754    4      24  1  0  2773    4
 2772      24  1  0  2768    4
 PROCEDURE  639
 2773                                6  0  0     5    0       4  0  0     6    0      18  0  1     5    0
 2776      27  0  0  2858    4       3  1  0    18    0       7  1  0    18    0      24  0  2    98    0
 2780      24  0  3  2562    4       3  1  0    28    0      24  0  3  2562    4       3  0  0     0    0
 2784       1  1  3    44    0      24  0  3  2562    4       7  0  0     1    0       1  1  3  7710    0
 2788      24  0  3  2574    4       2  1  0     2    0       1  1  3     0    0      24  0  3  2562    4
 2792      24  1  0     1    0
 PROCEDURE  640
 2793                                0  0  0     0    0       6  0  0  2897    4       2  0  0  2889    4
 2796       6  0  0  2571    4      27  0  2  2822    4       6  0  0  2569    4       5  0  0  2922    4
 2800      27  0  0  2804    4       6  0  0    14    0       1  1  1     9    0       2  0  0  2569    4
 2804       6  0  3  2582    4      27  0  1  2814    4      25  0  3     2    0      24  1  0  2804    4
 2808      25  0  3  4098    0       1  1  2     1    0       2  1  1    34    0       2  1  1    66    0
 2812      25  0  1     2    0      24  1  0  2727    4       2  0  0  2572    4       6  0  3  2583    4
 2816       2  0  0  2571    4       6  0  3  2592    4       2  0  0  2570    4      25  0  3     2    0
 2820      24  1  0  2842    4      24  1  0  2842    4       6  0  0  2569    4       1  1  2    14    0
 2824      27  0  1  2828    4       6  0  0    14    0       1  1  1     9    0       2  0  0  2569    4
 2828       6  0  0  2569    4       1  1  2    15    0      27  0  1  2845    4       1  1  3     5    0
 2832       3  0  0  2569    4       3  0  0    15    0       1  1  2     5    0      27  0  0  2837    4
 2836       2  0  0  2573    4      26  0  0  2878    4       1  1  3     6    0       1  1  2     0    0
 2840       3  0  0  2569    4       3  0  0    15    0       1  1  2     5    0      27  0  0  2845    4
 2844       2  0  0  2573    4      26  0  0  2878    4       6  0  0  2569    4      26  0  0  2905    4
 2848      27  0  1  2852    4       6  0  0  2896    4       2  0  0  2889    4      26  0  0  2878    4
 2852       6  0  0  2569    4       5  0  0  2922    4      27  0  1  2858    4       6  0  0  2895    4
 2856       2  0  0  2889    4      26  0  0  2878    4       6  0  0  2898    4       2  0  0  2889    4
 2860      26  0  0  2878    4       1  1  3    84    0      24  0  3  2562    4      24  1  0     0    0
 2864      24  0  3  2578    4       6  0  0     0    0       5  0  0  2922    4      27  0  0  2869    4
 2868       4  0  0  2922    4      18  0  1     4    0       4  0  0  2578    4       1  1  2    64    0
 2872       2  0  1    34    0      24  0  3  2578    4       5  0  0     0    0      24  0  3  2578    4
 2876       2  0  0     0    0      26  0  1  2793    4
 PROCEDURE  641
 2878                                                         0  0  0     0    0       6  1  0  2924    4
 2880       2  1  0  2578    4      26  0  0  2886    4       6  1  0  2926    4       2  1  0  2578    4
 2884      26  0  0  2886    4      26  0  1  2878    4
 PROCEDURE  642
 2886                                                         0  0  0     0    0      24  0  3  2578    4
 2888       6  0  0     0    0      24  1  0  2899    4      27  0  0  2864    4      23  0  0     1    0
 2892       0  0  0  2578    3      24  1  0  2887    4      26  0  1  2886    4      18  0  1  4127    0
 2896      26  0  0  2905    4       5  0  0  2569    4      24  1  0  2899    4      27  0  2  2891    4
 2900       2  0  0  2614    4       5  0  0  2614    4      24  0  3  2578    4       2  0  0     0    0
 2904      24  1  0  2891    4
 PROCEDURE  643
 2905                                0  0  0     0    0       1  1  2     7    0      27  0  0  2911    4
 2908       1  1  2     1    0      27  0  0  2911    4       1  1  2     3    0      26  0  1  2905    4
 PROCEDURE  644
 2912       0  0  0     0    0      18  1  1  4127    0      18  1  3     1    0       1  1  2    10    0
 2916      27  0  3  2918    4       1  1  1     6    0       1  1  1    10    0      18  0  3     1    0
 2920      18  1  3     3    0      26  0  1  2912    4
  SECTION   645
 2922                                                          ££££       0               40-      0
 2924          40       0               80       0               +0       0               £0       0
 2928       36965       0              647       0               £0       0               +0       0
 2932          80       0               40       0            66666       0                0       0
 2936       74000       0            70740-      0                0       0                0       0
 2940           0       0                0       0                0       0                0       0
 2944           0       0                0       0                0       0                0       0
 2948       78000       0            70780-      0
 PROCEDURE  646
 2950                                                         0  0  0  2614    4       1  0  0   515    0
 2952       0  0  0  2612    4       0  0  0  4627    0       0  0  0  2616    4      16  0  0  4611    0
 2956       7  0  3  4978    0       0  0  0     6    0
 PROCEDURE  647
 PROCEDURE  648
 2958                                                         1  0  1     0    0      24  0  1    20    0
 2960       1  1  3     0    0       7  0  0  3179    4       7  0  0  3238    4       2  0  0  2958    4
 2964       5  0  0  2958    4       7  0  0  3177    4       7  0  0  3180    4       7  0  0  3182    4
 2968       7  0  0  3236    4       7  0  0  3239    4       7  0  0  3241    4       1  1  3     0    0
 2972       1  1  3     2    0       1  1  2     0    0      27  0  0  2978    4      24  0  3  3246    4
 2976       6  0  0     1    0      18  0  1     5    0      24  0  3  3246    4       4  0  0     0    0
 2980       2  1  0  3262    4       6  0  0     9    0       4  0  0     9    0       7  0  0  2984    4
 2984       6  0  0    18    0       4  0  0     8    0       2  0  0     8    0       6  1  0  3262    4
 2988      27  0  0  3019    4      18  1  1  4127    0       2  1  0  3262    4      27  1  0  2987    4
 2992      18  1  1     1    0       3  0  0    10    0       6  1  0  3262    4      24  0  0    10    0
 2996      18  0  0     0    0       2  1  0  3262    4       6  0  0     0    0      27  0  0  3004    4
 3000      24  0  3  3246    4      23  0  3   128    0       1  1  2    14    0      27  0  1  3017    4
 3004      26  1  3  3260    4       6  0  0     1    0      27  0  1  3010    4      24  0  3    20    0
 3008       2  1  0    10    0      24  1  0  3030    4      24  0  3  3246    4      24  0  3    30    0
 3012      23  0  3    10    0       1  1  2    14    0      27  0  0  3023    4      25  0  3     8    0
 3016      24  1  0  3010    4       1  1  3     0    0       1  1  2     1    0       1  1  2     3    0
 3020       1  1  1    85    0      24  0  3  3246    4      24  1  0     0    0      24  0  3  3246    4
 3024       6  0  0    30    0      18  0  3     1    0      18  0  1  4127    0       1  1  1     1    0
 3028      24  0  3    20    0       7  1  0    10    0       2  0  0     1    0       6  0  0    10    0
 3032       1  1  1    64    0      18  0  0     6    0      24  0  3    20    0       7  1  0    10    0
 3036       1  1  3     0    0
 PROCEDURE  649
 3037                                6  0  0     5    0      18  0  3     1    0       2  0  0  3247    4
 3040       6  0  0  3253    4      27  0  0  3053    4      24  1  1  3045    4      24  0  2  2958    4
 3044       3  0  0  3250    4       1  1  3   126    0      24  1  2  3257    4       2  0  0    16    0
 3048       6  1  0  3248    4      28  1  1  2958    4      24  0  2  3250    4      24  1  2  3257    4
 3052      28  0  3     0    0
 PROCEDURE  650
 3053                               26  1  1  3246    4       6  1  1    34    0      27  0  3  3101    4
 3056       1  1  1     0    0      18  1  1  4118    0      18  1  1     1    0       2  0  0  3249    4
 3060      18  1  1     4    0       2  0  0  3252    4      18  1  1     1    0       2  0  0  3248    4
 3064      18  1  1     2    0       2  0  0  3251    4      18  1  1     2    0       2  0  0  3250    4
 3068       6  0  0  3253    4      27  0  0  3095    4
 PROCEDURE  651
 3070                                                         6  0  0  3248    4       1  1  2     7    0
 3072      27  0  0  3077    4       1  1  2     1    0      27  0  0  3077    4       1  1  2     3    0
 3076      27  0  1  3095    4      26  1  2  3254    4       6  1  2  2958    4       5  0  0  3252    4
 3080      27  0  0  3084    4      25  0  2     2    0      24  1  0  3078    4       1  1  3     1    0
 3084      24  0  3  3250    4       3  0  0     0    0      18  1  1  4127    0       6  0  0  3251    4
 3088       1  1  2   128    0      27  0  0  3094    4       1  1  3     0    0      18  1  1     1    0
 3092      24  1  2  3251    4       2  0  0     0    0       2  1  2  2958    4
 PROCEDURE  652
 3095                                                                                  6  0  0  3249    4
 3096      18  0  1     2    0       4  0  0  3250    4      18  0  1     2    0       4  0  0  3251    4
 3100       2  0  1    35    0      25  0  1     2    0      24  1  0  3054    4       6  0  0  3253    4
 3104      27  0  0  3113    4      26  1  2  3254    4       6  1  2  2958    4      27  0  0  3110    4
 3108       1  1  3     0    0      24  1  0  3020    4      25  0  2     2    0      24  1  0  3106    4
 3112       1  1  1     0    0
 PROCEDURE  653
 3113                               24  0  3    20    0       6  0  0   122    0      27  0  0  3148    4
 3116      24  0  2     0    0       1  1  2     0    0       3  0  0  3186    4       2  0  0  3245    4
 3120       6  0  0    20    0       7  0  0  3184    4       7  0  0  3243    4       1  1  3     0    0
 3124       1  1  2     8    0      18  0  1     4    0       1  0  1    16    0      15  0  0  3161    4
 3128      27  0  0  3130    4      14  0  0  3234    4       1  1  3     0    0       1  0  1     1    0
 3132      15  0  0  3161    4       1  1  2     4    0      27  0  0  3142    4      24  0  2  3162    4
 3136      18  1  1  4123    0       1  1  3    26    0      18  1  1     5    0      24  0  3    20    0
 3140      28  0  0   154    0      24  1  0  3148    4      24  0  2  3187    4      18  1  1  4123    0
 3144       1  1  3    62    0      18  1  1     5    0      24  0  3    20    0      28  0  0   120    0
 3148       2  0  0    16    0      24  0  2  2958    4      24  0  3  3246    4       2  0  0     5    0
 PROCEDURE  654
 3152      26  1  1  3262    4      24  0  2    98    0      24  0  3  3246    4       3  1  0    28    0
 3156      24  0  3  3246    4       2  0  0     0    0       1  1  3     0    0      24  0  3  3246    4
 3160      24  1  0     1    0       0  0  0     0    0
 PROCEDURE  655
 3162                                                         0  0  0     0    0       1  1  3     0    0
 3164       1  1  2    64    0      24  0  3  2958    4       5  0  0     2    0      18  1  1  4118    0
 3168       1  1  3     9    0      18  0  1     5    0      24  0  3  2958    4       4  0  0     1    0
 3172      25  1  1  4096    0      24  0  3  2967    4      23  0  2   159    0      26  0  1  2958    4
 3176       0  0  0     0    0      24  0  3   178    0      28  0  0   214    0       6  1  0   176    0
 3180      24  0  3   178    0      28  0  0  2958    4      24  0  3   178    0      24  1  0   204    0
 3184       0  0  0   154    0       0  0  0    14    0       0  0  0     0    0
 PROCEDURE  656
 3187                                                                                  0  0  0     0    0
 3188      24  0  3  2958    4      24  1  2     2    0      24  0  2     0    0       2  0  0  3006    4
 3192       6  1  0  3004    4       0  1  2  3004    4      24  0  3  3006    4      14  1  0     0    0
 3196      24  0  3  2958    4       6  0  0     4    0      18  0  0     5    0      24  0  3  2958    4
 3200      24  1  2     3    0      28  1  1     0    0       6  0  0  3006    4      24  0  3  2958    4
 3204      24  1  2     3    0      29  0  1     0    0       2  0  0  3006    4       1  1  2    64    0
 3208      24  0  3  2958    4       5  0  0     3    0      18  1  1  4118    0       1  1  3     4    0
 3212      18  0  1     5    0      24  0  3  2958    4       4  0  0     1    0      25  1  1  4096    0
 3216      24  0  3  3004    4      23  0  2   160    0      24  0  3  3006    4       0  1  2     0    0
 3220       1  1  3     2    0       7  0  0  3006    4      18  1  3     2    0       1  1  3     0    0
 3224      18  1  3     6    0       1  1  2    30    0      27  0  0  2963    4       1  1  2    32    0
 3228      27  0  0  3003    4       1  1  3     0    0      27  1  1  2993    4      24  1  0  2989    4
 3232      26  0  1  2958    4       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 3236      24  0  3   178    0      28  0  0   214    0       6  1  0   176    0      24  0  3   178    0
 3240      28  0  0  2958    4      24  0  3   178    0      24  1  0   204    0       0  0  0   120    0
 3244       0  0  0    48    0       0  0  0     0    0
  SECTION   657
 3246                                                             0       0                0       0
 3248           0       0            20010       0                0       0            30000-      0
 3252           0       0                0       0                0       0               10       0
 3256          40-      0               40-      0                0       0                0       0
 3260           0       0               18       0                0       0                0       0
 3264           0       0                0       0                0       0                0       0
 3268           0       0                0       0
 PROCEDURE  658
 3270                                                        24  0  3  3624    4       6  1  0    26    0
 3272       2  1  0  3648    4       1  1  2     2    0       7  0  0  3636    4       7  0  0  3637    4
 3276       1  1  3     0    0       6  0  0    15    0       2  0  0    14    0       6  0  0     2    0
 3280      18  0  1     4    0       0  0  2    10    0      10  0  0  3631    4       4  0  0  3631    4
 3284      24  0  3  3624    4       4  0  0     2    0      18  0  1     5    0       4  0  0    12    0
 3288       2  1  0  3634    4      26  1  1  3636    4       1  0  1    16    0      24  0  3  3624    4
 3292      15  0  1     1    0       5  0  0  3638    4      27  0  0  3302    4       4  0  0  3638    4
 3296       5  0  0  3635    4      27  0  3  3306    4      24  0  3  3624    4       6  1  1     0    0
 3300      24  0  3  3624    4       2  1  1     2    0      25  0  1  4098    0      24  1  0  3291    4
 3304      11  0  3     7    0       8  1  0     7    0      25  1  1  4096    0       6  1  0  3634    4
 3308      24  0  3  3624    4       2  1  1     2    0       1  0  1    15    0      15  0  0  3635    4
 3312      24  0  3  3624    4       3  1  0    30    0       7  0  0  3304    4       7  0  0  3305    4
 3316       2  0  0  3630    4      24  0  3  3624    4       6  0  1     1    0      24  0  3  3624    4
 3320       2  1  0    28    0       1  1  2     4    0       7  0  0  3369    4       7  0  0  3374    4
 3324       7  0  0  3361    4
 PROCEDURE  659
 3325                               24  0  3  3624    4      26  0  0     0    0       1  1  3     0    0
 3328       5  0  0  3304    4      24  0  3  3624    4       2  0  2    20    0      24  0  3  3624    4
 3332       6  0  2     9    0      24  0  3  3624    4       5  0  2     7    0      27  0  1  3339    4
 3336       5  0  0  3305    4      24  0  3  3624    4       2  0  2     7    0       1  1  3     0    0
 3340       5  0  0  3305    4      24  0  3  3624    4       2  0  2     9    0
 PROCEDURE  660
 3343                                                                                  6  0  0     1    0
 3344      18  0  3    13    0      24  0  3  3624    4       2  0  3    29    0       6  0  0    10    0
 3348      18  0  1     4    0       4  0  0     8    0      24  0  3  3624    4       2  1  3    44    0
 3352      24  0  2     0    0      24  0  3  3624    4       2  0  3    37    0       6  0  0    12    0
 3356      24  0  3  3624    4       2  0  3    39    0      24  0  3  3624    4       2  1  3    46    0
 3360      24  0  3  3624    4       6  0  0     3    0       3  0  0    15    0      24  0  3  3624    4
 3364       2  0  3    40    0       1  1  3     0    0      24  0  3  3624    4       2  0  3    42    0
 3368      24  0  3  3624    4       6  0  0     1    0      18  0  1  4125    0       1  1  2   126    0
 3372      27  0  0  3376    4      24  0  3  3624    4       0  1  1     0    0      24  1  0  3377    4
 3376       1  0  1     0    0       0  0  3  3639    4      24  0  3  3624    4      24  0  3    30    0
 3380       0  1  0    30    0
 PROCEDURE  661
 3381                                0  0  3  3624    4       6  0  0     0    0      27  0  0  3390    4
 3384       6  0  0    10    0      26  1  3  3628    4      24  0  3  3624    4      23  1  3   128    0
 3388      25  0  3     2    0      24  1  0  3386    4       6  0  0     1    0      27  0  0  3411    4
 3392      18  0  3     3    0       2  0  0  3627    4       6  0  0    10    0      26  1  3  3628    4
 3396      24  0  3  3627    4      23  1  3     2    0      25  0  3     2    0      24  1  0  3396    4
 3400       6  0  0     1    0       1  1  2     3    0      26  1  3  3628    4      27  0  0  3407    4
 3404       6  0  0  3627    4       1  1  1     2    0       2  0  0  3626    4      24  0  3  3626    4
 3408       2  1  3     0    0      25  0  3     2    0      24  1  0  3407    4       1  1  3     0    0
 3412       1  1  2     0    0       1  1  2     4    0      18  0  1     5    0       1  1  1    80    0
 3416       4  0  0    20    0      24  0  3  3624    4      28  1  1     0    0
 PROCEDURE  662
 3419                                                                                  6  1  0  3648    4
 3420      24  0  3  3624    4       2  1  0     0    0      26  1  3    18    0       1  0  1  1027    0
 3424      15  1  3    34    0      27  0  3  3465    4       2  0  0  3627    4       6  0  0    10    0
 3428      18  0  1     4    0       4  0  3    66    0      24  0  3  3627    4       2  0  0    64    0
 3432       6  0  3    35    0      27  0  0  3465    4       6  0  3    34    0      18  0  1  4124    0
 3436       1  1  2     7    0      27  0  0  3442    4       1  1  2     1    0      27  0  0  3442    4
 3440       1  1  2     3    0      27  0  1  3446    4      24  0  3  3627    4       2  0  0     0    0
 3444      24  1  0  3454    4       2  0  0     0    0       1  1  1     5    0      27  0  0  3450    4
 3448       1  1  2     7    0      27  0  1  3454    4      24  0  3  3627    4       6  0  0    64    0
 3452      24  0  3  3627    4       2  0  0    65    0       6  0  3    34    0      18  0  1     6    0
 3456      18  0  1  4120    0       1  1  2   128    0      27  0  0  3465    4       1  1  1   128    0
 3460       2  0  0  3627    4       6  0  0    10    0      18  0  1     4    0      24  0  3  3627    4
 3464       2  0  0    64    0       1  1  3     0    0      25  0  3     2    0      24  1  0  3423    4
 3468       2  1  0  3634    4      24  0  3  3624    4       2  0  0     5    0      25  1  2     0    0
 PROCEDURE  663
 3472      26  1  1  3634    4      26  1  2    16    0       0  0  2  3633    4       6  0  2    20    0
 3476       2  0  1    99    0      15  0  2    20    0       2  0  1   100    0      25  0  1     2    0
 3480      25  0  2     2    0      24  1  0  3474    4       2  0  0    98    0       6  0  0     5    0
 3484       4  0  0     5    0      18  0  1     5    0      24  0  3  3624    4       2  1  0    28    0
 3488       1  0  1  1027    0      15  1  2    34    0      27  0  2  3494    4      25  0  2     2    0
 3492      24  1  0  3491    4      24  1  0  3498    4       2  0  1    99    0      25  0  1     1    0
 3496      25  0  2     2    0      24  1  0  3489    4       6  0  0    19    0      24  0  3  3624    4
 3500       2  0  0    29    0       1  0  1     3    0      15  0  2    34    0       2  0  1    99    0
 3504       5  0  1    99    0       1  1  2    64    0       2  0  1   100    0      25  0  1     2    0
 3508      25  0  2     2    0      24  1  0  3502    4       6  0  0     1    0      18  0  3     3    0
 3512       2  0  1    99    0       5  0  1    99    0       1  1  2     2    0       3  0  1   100    0
 3516       1  1  2     2    0       3  0  1   101    0       1  1  2     2    0       2  0  1   102    0
 3520       6  0  0    14    0       2  0  1   103    0      24  1  1  3624    4      24  0  3  3624    4
 3524      26  0  0     0    0      24  0  3  3624    4       6  0  0    26    0       1  1  1     5    0
 3528       2  0  0    14    0
 PROCEDURE  664
 3529                                1  1  2     2    0       7  0  0  3643    4      24  0  2  3650    4
 3532      24  0  3  3643    4      28  1  2     0    0       6  0  0  3642    4      27  0  3  3541    4
 3536      27  0  1  3540    4       1  1  3  7710    0      24  0  3  3643    4       2  1  0     6    0
 3540      26  0  0  3606    4      24  0  3  3624    4      26  0  0     0    0       1  1  3    76    0
 3544      18  0  1     5    0       4  0  0    20    0      24  0  3  3624    4      28  1  1     0    0
 3548      24  0  3  3624    4      26  0  0     0    0      26  0  0  3606    4
 PROCEDURE  665
 3551                                                                                 24  1  1  3639    4
 3552      26  1  1    16    0       6  1  1    20    0       2  1  0  3634    4      24  0  2     0    0
 3556       5  0  0  3634    4      26  1  2  3634    4      26  1  3  3634    4      27  0  1  3564    4
 3560      25  0  2   200    0      25  0  3   500    0      24  1  0  3564    4      24  1  0  3572    4
 3564      25  0  3   180    0       1  1  3     0    0       6  0  0  3565    4       2  0  0  3564    4
 3568      24  0  3  3624    4       2  1  3     0    0      25  0  3     2    0      24  1  0  3568    4
 3572       6  0  0    10    0      24  0  3  3624    4      23  1  2     0    0      25  0  2     2    0
 3576      24  1  0  3573    4      25  0  1     2    0      24  1  0  3553    4       1  1  3     0    0
 3580      27  0  0  3589    4       6  0  0    11    0      27  0  0  3589    4      24  0  3  3624    4
 3584       6  0  0    43    0      18  0  1  4124    0       7  0  0  3588    4       1  1  3  1500    0
 3588       7  0  0    19    0
 PROCEDURE  666
 3589                                6  0  0  3630    4      18  1  1  4123    0      24  0  2     0    0
 3592      18  1  1     5    0      24  0  3  3624    4       2  1  0    26    0      24  0  2   146    0
 3596      24  0  3  3624    4       2  1  0    28    0       1  1  3   146    0      24  0  3  3624    4
 3600       2  0  0     1    0       1  1  3     0    0      24  0  3  3624    4      26  0  0     0    0
 3604       6  0  0  3630    4      24  1  0   214    0
 PROCEDURE  667
 3606                                                         0  0  0     0    0      24  0  3  3624    4
 3608       6  0  1    35    0       1  1  1     2    0      24  0  3  3624    4       2  0  1     7    0
 3612      24  0  2  3617    4      24  0  3  3624    4       2  0  1    42    0      24  0  3  3624    4
 3616      24  1  0     0    0       1  1  3     0    0      24  0  3  3624    4       3  0  1     7    0
 3620      24  0  3  3624    4       2  0  1    42    0      26  0  1  3606    4       0  0  0     0    0
  SECTION   668
 3624           0       0               14       0                0       0                0       0
 3628           0       0                6       0                0       0               30       0
 3632           0       0             1£££       0                0       0                0       0
 3636           0       0                0       0            £0000       0            66666       0
 3640       35.5.       0              517       0                0       0                0       0
 3644       35500       0            54517       0                0       0                0       0
 3648           0       0                0       0
 PROCEDURE  669
 3650                                                         0  0  0  3644    4       3  0  0     5    0
 3652       0  0  0   138    0       2  0  0  1026    0       0  0  0   138    0       2  0  0  1554    0
 3656       0  0  0   138    0       2  0  0  2066    0       0  0  0  3640    4       3  0  0   290    0
 3660       0  0  0   156    0       0  0  0    20    0       0  0  0  3640    4      19  0  0   786    0
 3664       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  670
 3668      28  1  1  3672    4      24  0  3  3672    4      24  1  0     0    0       1  1  3     0    0
 3672       0  0  0     0    0       2  0  0    48    0      24  0  1    16    0       6  0  0    20    0
 3676      24  0  3  3672    4       2  1  0    28    0      24  0  3  3672    4      26  0  0     0    0
 3680      24  1  2  3716    4       6  1  0    12    0       5  1  0  3718    4      27  0  1  3678    4
 3684      24  0  2    98    0      24  0  3  3672    4      26  0  0     0    0      23  0  0     2    0
 3688       0  0  0    16    0      24  1  0  3674    4      24  1  0  3697    4       2  0  0  3684    4
 3692       1  1  2    23    0       7  0  0  3689    4       7  0  0  3718    4       6  0  0   200    0
 3696      24  1  0  3676    4      26  1  2    18    0       6  0  2    67    0      27  0  0  3704    4
 3700       2  0  0  3674    4       1  1  3    15    0      24  0  3  3674    4      23  1  0     0    0
 3704      25  0  2     2    0      24  1  0  3698    4       6  0  0  3717    4       1  1  2     0    0
 3708      24  0  3  3672    4       3  0  1    35    0      24  0  3  3672    4       2  0  1     7    0
 3712       2  0  0    16    0      24  1  1  3672    4       6  1  0  3672    4      24  1  0  3668    4
  SECTION   671
 3716          40-      0            88017-      0            16773       0            53585       0
 3720           0       0                0       0
 PROCEDURE  672
 3722                                                         0  0  0     0    0      28  1  1   204    0
 3724      24  1  0  3674    4      28  1  1   214    0       6  0  0  3673    4       1  1  1   152    0
 3728      18  0  1     5    0      24  0  3    20    0      28  1  1     0    0       6  1  0  3734    4
 3732      24  1  0  3723    4       0  0  0     0    0       0  0  0     0    0       2  0  0    10    0
 3736       7  0  0  3707    4      24  0  2    16    0       2  0  0  3688    4      24  0  3  3672    4
 3740       6  0  0    64    0       2  0  0   198    0      24  0  3  3672    4       6  0  0   124    0
 3744       2  0  0   199    0       6  0  0    11    0      27  0  0  3766    4       1  1  3     0    0
 3748      27  0  0  3766    4       6  0  0  3776    4       2  0  0  3690    4       1  0  1    15    0
 3752      15  0  0  3778    4      24  0  3  3672    4       3  0  0     2    0       2  0  0   200    0
 3756      24  0  3   200    0       1  1  3     0    0      24  0  3  3672    4       2  0  0     1    0
 3760      24  0  3    20    0       5  0  0   165    0       4  0  0  3779    4       1  1  2     0    0
 3764      24  0  3  3672    4       6  0  0    47    0      24  0  3    20    0       6  0  0   122    0
 3768      27  0  0  3773    4       6  0  0  3777    4      18  0  1     5    0      24  0  3    20    0
 3772      24  1  0   169    0       6  0  0  3777    4      18  0  1     5    0      24  1  0  3725    4
 3776       6  0  0  3671    4       2  0  0   286    0       0  0  0     0    0      26  0  1     0    0
  SECTION   673
 3780       39249       0             904£       0             9276       0             8209       0
 3784        1009       0             1249       0             1209       0             8076       0
 3788        1200       0             £208       0             £249       0            1‼3+1       0
 3792        1209       0             104£       0             8241       0              201       0
 3796        8209       0             1009       0             1041       0            21040       0
 3800        9208       0             1201       0               77       0             £+40       0
 3804        1049       0             9079       0             93+0       0             83+1       0
 3808        8209       0             1009       0             9209       0             100£       0
 3812        9249       0             9276       0             8249       0             9249       0
 3816        9241       0             9241       0             8248       0             8241       0
 3820        9209       0             9249       0             8249       0             8041       0
 3824       38249       0             1201       0             823£       0            3‼£££       0
 3828         .+0       0               38       0            38000       0            3.:‼6       0
  SECTION   674
 3832       39181       0             13‼£       0             9:‼6       0             £200       0
 3836           0       0                0       0             8209       0             1219       0
 3840       38000       0              .08       0               48       0               49       0
 3844       28041       0             £249       0             1249       0             9249       0
 3848       333‼6       0             1609       0             1249       0             9209       0
 3852        9.79       0             9241       0             9209       0             9249       0
 3856        9249       0             9208       0             1241       0             6:‼6       0
 3860         249       0             1+41       0             9249       0             9249       0
 3864        8041       0             9248       0             9249       0             8049       0
 3868        .:‼6       0             1009       0             1009       0              .49       0
 3872        8041       0              249       0             1180       0                0       0
 3876         249       0             9276       0             83+8       0             8049       0
 3880        8:‼6       0             8248       0            36041       0            36:‼6       0
 3884        9049       0             9209       0             1249       0             9248       0
 3888        9389       0             9049       0             9001       0             9249       0
 3892        9049       0             8249       0             9249       0             6249       0
 3896        9249       0             9249       0             8:‼6       0            31249       0
 3900        9249       0             9049       0             9001       0             9249       0
 3904        1241       0             1208       0             9246       0             9249       0
 3908        9049       0             9049       0             9249       0             9009       0
 3912        9208       0             9241       0            19249       0             ‼:89       0
 3916        820‼       0             £20‼       0             1636       0             9209       0
 3920        9041       0             .:‼6       0             9249       0             9209       0
 3924        8009       0             9200       0                6       0            3.:‼6       0
  SECTION   675
 3928       10041       0             9.49       0             9240       0            11249       0
 3932        120Ю       0             8289       0              :‼6       0                0       0
 3936           0       0            28Ю28       0            28Ю38       0            28Ю00       0
 3940        9402       0             Ю280       0             8249       0             9041       0
 3944        1081       0             1249       0             Ю400       0             Ю3+£       0
 3948        9250       0             8092       0             ‼209       0            11248       0
 3952        8278       0            36:81       0             1201       0             9249       0
 3956       11.82       0             2:‼6       0              448       0             8249       0
 3960        9208       0            11041       0            10276       0             1040       0
 3964        1009       0            1140Ю       0              241       0             924Ю       0
 3968       10250       0             9081       0             9241       0             1049       0
 3972        9236       0            11089       0             Ю40Ю       0            12236       0
 3976        £058       0             8678       0             9249       0             Ю049       0
 3980        1012       0             1249       0             8248       0             Ю048       0
 3984        £281       0             91+Ю       0             1249       0             9249       0
 3988        9249       0             83+8       0             9208       0            11041       0
 3992        1249       0             9041       0             8248       0             9249       0
 3996        8201       0             1040       0              200       0             11+0       0
 4000           0       0               38       0                0       0               38       0
 4004       28Ю28       0              £‼6       0
  SECTION   676
 4006                                                          2049       0             9249       0
 4008        89£6       0             980+       0             Ю452       0            11209       0
 4012        2281       0            11201       0             Ю281       0             8008       0
 4016        8001       0            39000       0            10480       0            10081       0
 4020        9248       0             8249       0             1476       0               41       0
 4024        1041       0             9208       0             8249       0             820£       0
 4028        1.40       0             £241       0             1409       0             9241       0
 4032        11‼6       0            10291       0             Ю240       0              :‼6       0
 4036        9201       0            30240       0             2048       0              411       0
 4040        ‼:‼6       0            36288       0             £67£       0              140       0
 4044         Ю05       0             51‼6       0            36080       0            28400       0
 4048        502:       0            2:146       0             502:       0              Ю28       0
 4052         140       0            28Ю05       0               28       0            28‼68       0
 4056         :‼6       0             2028       0            10000       0                7       0
 4060         £+0       0                0       0               3.       0             8209       0
  SECTION   677
 4064        6:‼2       0            12089       0             8089       0             1049       0
 4068        9208       0             1001       0             .:‼6       0              241       0
 4072        9208       0             124£       0             1208       0             8248       0
 4076        1210       0             8411       0             2211       0             107Ю       0
 4080        8.41       0            1804‼       0             8240       0             Ю289       0
 4084         288       0             Ю240       0             Ю049       0             1201       0
 4088       1£002       0             £262       0             2250       0            1108Ю       0
 4092         208       0             9.78       0             8:‼6       0             9042       0
 4096         .79       0            10200       0             92+6       0             Ю292       0
 4100       10052       0            10202       0             83‼6       0             Ю00Ю       0
 4104        8092       0             200Ю       0             2410       0            10491       0
 4108        £202       0            36:81       0             9049       0             104£       0
 4112         479       0            39291       0            11248       0             1201       0
 4116        900Ю       0             8041       0            3944‼       0             1088       0
 4120       10236       0            1108‼       0            19.50       0             8041       0
 4124        83£9       0             1040       0             6:‼6       0            36:‼6       0
 4128       38000       0               3£       0               3£       0              .00       0
 4132       28000       0              Ю00       0            28000       0            3.:‼6       0
  SECTION   678
 4136        9.+0       0            32441       0            3904Ю       0             £089       0
 4140        8251       0            12241       0              241       0             1089       0
 4144        £000       0              451       0              409       0              1‼6       0
 4148        Ю27Ю       0             848£       0             9209       0            1Ю40‼       0
 4152       1028‼       0            10242       0             1048       0            38£‼6       0
  SECTION   679
 4156       1:7+.       0             6188       0            2080+       0             +31£       0
 4160        :£££       0            1.7:£       0            1:79:       0            1.79.       0
 4164       1££9£       0            1£787       0             62:+       0            1++1.       0
 4168        .1‼.       0            2075+       0            1Ю1££       0            3££.0       0
 4172        61Ю1       0            21398       0            18£££       0            18£9:       0
 4176        .5Ю0       0            16£££       0            3£186       0            1‼£££       0
 4180       15617       0            3.21:       0             £79.       0            108.0       0
 4184       20£££       0            3££££       0            11452       0            13706       0
 4188       143+Ю       0            1.759       0            12Ю£.       0             91+6       0
 4192        ‼61+       0            2‼£‼£       0
  SECTION  1024
 4194                                                             0       0                0       0
 4196           0       0                0       0                0       0                0       0
 4200           0       0                0       0                0       0                0       0
 4204           0       0                0       0                0       0                0       0
 4208           4       0                Ю       0                0       0               23       0
 4212        8000       0             5146       0                0       0               11       0
 4216           0       0            20028       0                0       0            20032       0
 4220           0       0            2000.       0                0       0                0       0
 4224           6       0                Ю       0                0       0               24       0
 4228           0       0               27       0                1       0               64       0
 4232           0       0                Ю       0                0       0                6       0
 4236           0       0                3       0                0       0                .       0
 4240       36653       0            51636       0                0       0                8       0
 4244           0       0                4       0            :5:5:       0            5:5:5       0
 4248           0       0            2001£       0                0       0               30       0
 4252         9+3       0                0       0                0       0               28       0
 4256           0       0                7       0                0       0               90       0
 4260           0       0            20034       0                0       0              12+       0
 4264           0       0               28       0
  SECTION  1025
 4266                                                             2       0                1       0
 4268           0       0             2001       0             5767       0            80000       0
 4272       66666       0            +4000-      0
  SECTION  1026
 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  680
   33                                0  1  0  2948    4       0  0  3     0    4       1  1  3     7    0
   36       0  0  2  3032    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2948    4       6  0  0  6279    4      27  0  0    45    4       6  1  0  5406    4
   44       2  1  0  5000    4      24  0  2  1776    4      24  1  2    15    4      28  1  2     0    0
   48       6  0  0  6278    4      27  0  0    59    4       6  1  0  2962    4      24  1  2    15    4
   52       2  1  0    12    0       6  1  0  1700    4      24  1  2    15    4       2  1  0    14    0
   56       1  0  1    15    0      24  1  2    15    4      14  1  0    10    0       0  1  0  2948    4
   60       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      25  1  1  4096    0
   64      24  0  3     0    4      23  0  2     0 1280       0  1  1  2948    4       6  1  0  2964    4
   68      24  1  2    15    4      28  1  1     0    0       6  0  0  6279    4      27  0  1   497    4
   72       6  1  0  2966    4      28  1  1  3040    4       6  1  0  2968    4       2  1  0  7354    4
   76      26  1  2  2970    4      26  0  0  1478    4      24  1  2    21    4      24  0  2     4    0
   80      18  1  1  4123    0       1  1  3     8    0      18  1  1     5    0      28  1  1  4946    4
   84      24  0  3     1    4       2  0  0    74    0       6  1  0  4946    4      18  1  1  4126    0
   88       5  1  0  1640    4      27  0  0   101    4       6  1  0  2972    4       4  0  0  6275    4
   92       3  1  0  2948    4      26  1  3  2948    4       1  1  3     8    0       0  0  2  3032    4
   96      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512       0  0  0    33    1
  100       0  0  0    76    3      24  1  2    21    4       6  1  0     1    0       2  0  0  1204    4
  104      26  1  2  2970    4      24  1  2    21    4       6  1  2     4    0      18  1  1  4126    0
  108       5  1  0  1640    4      27  0  1   126    4      18  1  1     2    0       1  1  2    70    0
  112      27  0  0   126    4       1  1  2     1    0      27  0  0   126    4      27  0  3   119    4
  116       1  1  2     8    0      27  0  0   130    4      24  1  0   126    4      24  1  2    21    4
  120       6  1  2     7    0       2  0  0  3040    4      24  1  2    21    4       6  1  2     9    0
  124      24  0  1  3040    4       2  0  0  3040    4      25  0  2     8    0      24  1  0   105    4
  128      26  0  0  1478    4      24  1  0   104    4       0  1  0  2948    4       0  0  3     0    4
  132       0  1  2  2974    4       6  1  0  2976    4       4  0  0    11    4      25  1  1  4096    0
  136      24  0  3     0    4      23  0  2     0  256       0  1  1  2948    4      26  0  0  1478    4
  140       6  0  0  1204    4      24  1  2    21    4       5  1  0     1    0      27  0  3   130    4
  144      27  0  1   139    4      24  0  2  5406    4      18  1  1  4123    0       1  1  3   100    0
  148      18  1  1     5    0      28  1  1  3040    4       1  1  3   204    0       2  0  0  4040    4
  152      24  0  1  5999    4       6  0  0  4041    4      24  0  1  5999    4       2  0  0  5371    4
  156      24  0  2  5372    4      18  1  1  4123    0       6  0  0  5999    4      18  1  1     5    0
  160      28  0  0  4042    4      24  0  1  5999    4       6  0  0  5356    4       2  0  0  4041    4
  164       2  0  0  6273    4
 PROCEDURE  681
  165                                6  0  0  5000    4      24  1  2    19    4       2  1  0     7    0
  168       6  0  0  5001    4      24  1  2    19    4       2  1  0     9    0       6  1  0  1688    4
  172      24  1  2    19    4       2  1  0     4    0      26  0  0  1591    4      26  1  2  2968    4
  176      26  1  1  2978    4       6  0  1  3040    4      26  0  0   639    4      25  0  1     1    0
  180      24  1  0   177    4      26  1  1  2980    4       6  0  1  5980    4      26  0  0   639    4
  184      25  0  1     1    0      24  1  0   182    4      26  1  1  2982    4       6  0  1  6206    4
  188      26  0  0   639    4      25  0  1     1    0      24  1  0   187    4      26  1  1  2984    4
  192       6  0  1  5038    4      26  0  0   639    4      25  0  1     1    0      24  1  0   192    4
  196      26  1  1  2976    4       6  0  1  5138    4      26  0  0   639    4      25  0  1     1    0
  200      24  1  0   197    4      26  0  0  1591    4
 PROCEDURE  682
  202                                                        26  1  1  2968    4       1  1  3     1    0
  204       2  0  0  5014    4      24  0  2  1808    4      24  1  2    19    4      28  1  2     4    0
  208      26  0  0  1591    4      24  0  2  1818    4      24  1  2    15    4      28  1  2     2    0
  212       1  1  3     2    0       3  0  0  5014    4      26  0  0  1513    4      26  1  2  2970    4
  216      24  1  0   218    4
 PROCEDURE  683
  217                               26  0  0  1472    4      26  0  0  1608    4       6  1  0  4946    4
  220      18  1  1  4126    0       5  1  0  1640    4      27  0  1   667    4      18  1  1     2    0
  224       1  1  2    72    0      27  0  2   309    4       1  1  1     8    0       2  0  0  7341    4
  228       6  1  0  4951    4       2  0  0  5021    4       6  1  0  4949    4      26  0  0  1621    4
  232       3  0  0  5015    4       2  0  0  1706    4       0  0  3  3033    4
 PROCEDURE  684
  235                                                                                 24  0  1  7340    4
  236      26  0  1   236    4       0  0  0   275    3       0  0  0   239    3       6  1  0  4949    4
  240      27  0  0   217    4       6  1  0  4951    4      26  0  0  1621    4       0  0  3  3033    4
  244       2  0  0  5034    4      24  0  2  1822    4       0  1  0  2948    4       0  0  3     0    4
  248      24  1  2    15    4      24  0  2     0    0       4  0  0  7354    4       2  0  0  2954    4
  252       0  1  1  2948    4      24  0  3  2954    4      28  1  2     2    0       6  0  0  7341    4
  256       1  1  2     6    0      27  0  1   268    4       6  1  0  2986    4       0  1  0  2948    4
  260       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0       4  0  0  7354    4
  264       2  0  0  2954    4       0  1  1  2948    4      24  0  3  2954    4       2  1  0     2    0
  268      23  0  0     4    0       0  0  0  7354    3      24  1  0   217    4      26  0  0  1513    4
  272       6  1  0  2968    4       2  1  0  7354    4      24  1  0   217    4       6  1  0  7360    4
  276       2  1  0  1670    4       6  0  0  4999    4      27  0  0   280    4      26  0  0  1204    4
  280       6  1  0  1670    4       2  1  0  7360    4       2  0  0  5035    4       6  0  0  7341    4
  284       1  1  2     1    0      27  0  1   289    4       6  1  0  1660    4       0  1  2  1662    4
  288      24  1  0   303    4
 PROCEDURE  685
  289                                1  1  2     5    0      27  0  1   295    4       6  1  0  2988    4
  292      24  1  2    15    4       2  1  0     2    0      24  1  0   307    4       1  1  2     1    0
  296      27  0  1   301    4       6  1  0  2982    4       2  1  0  7354    4       6  1  0  2990    4
  300      24  1  0   292    4       6  1  0  1664    4       0  1  2  1666    4       0  1  0  5016    4
  304      24  0  2  1848    4      24  1  2    15    4      28  1  2     2    0      26  0  0  1513    4
  308      24  1  0   217    4
 PROCEDURE  686
  309                               26  0  0  1472    4      26  0  0  1608    4       6  1  0  4946    4
  312       5  1  0  1652    4      27  0  0  1475    4       6  1  0  4946    4      18  0  1  4126    0
  316       5  1  0  1640    4      27  0  1   309    4       6  0  0  1756    4      24  1  2    19    4
  320       2  1  1     5    0      24  1  2    19    4       2  1  1     6    0      26  0  0  1591    4
  324      26  1  1  2968    4       6  0  0  4999    4      27  0  0   328    4      26  0  0  1204    4
 PROCEDURE  687
  328       1  1  3     0    0       2  0  0  5026    4       2  0  0  5035    4      24  0  2  1808    4
  332      24  1  2    19    4      28  1  2     4    0       6  0  0  5014    4      26  0  0  1627    4
  336      24  1  2    19    4       2  1  0     5    0      24  0  1  7340    4      26  0  1   339    4
  340       0  0  0   345    3       0  0  0   342    3      26  0  0  1513    4       6  1  0  2968    4
  344       2  1  0  7354    4      24  0  2  1818    4      24  1  2    15    4      28  1  2     2    0
  348       6  1  0  2982    4       2  1  0  7360    4       0  0  3  3034    4       1  1  3     1    0
  352       7  0  0  5014    4       0  0  3  3033    4       6  0  0  5014    4       1  1  2     1    0
  356       5  0  0  5999    4      27  0  1   369    4      24  0  2  1678    4      18  1  1  4123    0
  360       1  1  3     6    0      18  1  1     5    0      24  1  2    15    4      28  1  1    10    0
  364       1  1  3   202    0       2  0  0  5026    4      26  0  0  1513    4      26  0  0  1591    4
  368      24  1  0   421    4       6  1  0  4946    4       5  1  0  1636    4      26  1  1  2992    4
  372      27  0  0   377    4      26  1  1  2968    4      26  0  0  1513    4      26  0  0  1591    4
  376      24  1  0   219    4       6  0  0  6273    4      27  0  0   412    4      18  0  1     5    0
  380       3  1  0  2948    4      26  1  3  2948    4       6  1  0  2994    4      24  1  2    15    4
  384      28  1  1     2    0      26  0  0  1513    4      26  0  0  1513    4      26  0  0  1513    4
  388       6  1  0  2996    4      24  1  2    15    4       2  1  0     4    0       6  1  0  2998    4
  392      24  1  2    15    4       2  1  0     6    0      26  0  0  1513    4      24  0  3     1    4
  396       6  0  3    77    0      26  0  0  1621    4       2  0  0  1621    4      24  0  3     1    4
  400       6  0  3    76    0       2  0  0  1513    4       0  0  3  3033    4      24  0  2  1772    4
  404      24  1  2    15    4      28  1  2     4    0      26  0  0  1513    4      25  0  3     2    0
  408      24  1  0   395    4      26  0  0  1513    4      26  0  0  1513    4      26  0  0  1513    4
  412      24  0  2  3040    4      18  1  1  4123    0       1  1  3  1000    0      18  1  1     5    0
  416      24  0  3     1    4      28  1  1  1074    0       6  0  0  6278    4      27  0  0    33    4
  420      24  1  0  1090    4
 PROCEDURE  688
  421                                1  1  3  3840    0       2  1  0  4967    4       1  1  3   202    0
  424       2  1  0  4969    4      26  0  0  1238    4       1  1  3    20    0       2  0  0  7360    4
  428       1  1  3     0    0       2  1  0  4967    4       2  1  0  4969    4      26  0  0  1079    4
  432      26  0  0  1079    4
 PROCEDURE  689
  433                                6  0  0  5977    4      18  0  1     5    0      27  0  0   318    4
  436       3  1  0  2948    4      26  1  3  2948    4       6  1  3  6106    4       2  1  0  5580    4
  440      24  0  3     0    4       6  1  0     6   22       2  1  0  5556    4       1  1  3     1    0
  444       2  1  0  5558    4       0  0  3  5580    4       1  1  2     1    0      18  1  1  4118    0
  448       1  1  3     0    0      18  1  1    10    0       2  1  0  5550    4       0  0  3  5581    4
  452       1  1  2     1    0       0  0  3  3033    4       2  1  0  5552    4       6  0  0  5581    4
  456       2  0  0  5552    4       0  1  2  5552    4       6  1  0  3000    4       2  1  0  7356    4
  460      15  0  0  1759    4       2  0  0  5554    4       5  0  0  5554    4       1  1  1    16    0
  464      18  0  1     5    0       2  1  0  5552    4      26  1  3  5552    4       0  0  3  5580    4
  468       5  1  0  5550    4      24  0  1  7356    4       4  1  0  5558    4      27  0  2   495    4
  472      25  0  3     1    0      24  1  0   469    4       4  1  0  5550    4      24  0  1  7356    4
  476       2  1  0  5560    4       0  0  3  3033    4      18  1  1  4127    0      23  0  0     2    0
  480       0  0  0  7356    3      24  1  0   460    4      26  1  3  3002    4       6  0  3  5558    4
  484       2  1  0  4969    4      26  0  0  1079    4       6  0  3  5559    4       2  1  0  4969    4
  488      26  0  0  1079    4      25  0  3     2    0      24  1  0   483    4      26  1  3  5556    4
  492      25  0  3     2    0      24  1  0   438    4      24  1  0   318    4       6  1  0  1746    4
  496      24  1  0   475    4
 PROCEDURE  690
  497                                6  0  0  5000    4      24  1  2    19    4       3  1  0     5    0
  500      24  1  2    19    4       2  1  0    13    0       6  0  0  5001    4      24  1  2    19    4
  504       3  1  0     7    0      24  1  2    19    4       2  1  0    15    0       1  1  3     2    0
  508      24  1  2    19    4       2  1  0    11    0       1  1  3     3    0      24  1  2    19    4
  512       2  1  0    19    0       1  1  3     4    0      24  1  2    19    4       2  1  0    17    0
  516       6  0  0  1746    4      24  1  2    19    4       2  1  0    21    0      26  0  0  1591    4
  520      26  0  0   656    4      24  1  2    17    4       6  1  0     5    0       5  0  0  1746    4
  524      27  0  1   520    4       1  0  1     1    0      24  1  2    17    4      15  1  0     7    0
  528       1  1  2     5    0      27  0  1   520    4       6  0  0  5001    4      24  1  2    17    4
  532       2  1  0    11    0      26  0  0   876    4      26  0  0   656    4      24  1  2    17    4
  536       6  1  0    42    0       5  1  0  3004    4      27  0  1   533    4      24  1  2    17    4
  540       6  1  0    13    0       3  0  0  5979    4       2  0  0  5999    4       6  0  0  5001    4
  544      24  1  2    17    4       2  1  0    41    0      26  0  0   876    4      26  0  0   656    4
  548      24  1  2    17    4       6  1  0     4    0       5  1  0  1688    4      27  0  1   546    4
  552       6  0  0  5001    4      24  1  2    17    4       2  1  0     9    0      26  0  0   876    4
 PROCEDURE  691
  556      26  1  2  3006    4      26  1  1  2978    4      26  0  0   647    4       2  0  1  3040    4
  560      25  0  1     1    0      24  1  0   558    4      26  1  1  2980    4      26  0  0   647    4
  564       2  0  1  5980    4      25  0  1     1    0      24  1  0   563    4      26  1  1  2982    4
  568      26  0  0   647    4       2  0  1  6206    4      25  0  1     1    0      24  1  0   568    4
  572      26  1  1  2984    4      26  0  0   647    4       2  0  1  5038    4      25  0  1     1    0
  576      24  1  0   573    4      26  1  1  2976    4      26  0  0   647    4       2  0  1  5138    4
  580      25  0  1     1    0      24  1  0   578    4      26  0  0   656    4      24  1  2    17    4
  584       6  1  0    12    0       5  1  0  1634    4      27  0  0   622    4      24  1  2    17    4
  588       6  1  0     4    0       5  1  0  1634    4      27  0  0   627    4       4  1  0  1634    4
  592       5  1  0  1638    4      27  0  0   627    4       4  1  0  1638    4       1  1  2    85    0
  596      27  0  0   612    4      24  1  2    17    4       6  1  0    12    0       5  1  0  3008    4
  600      27  0  1   625    4      26  0  0   656    4      24  1  2    17    4       6  1  0     4    0
  604       5  1  0  1634    4      27  0  0   627    4       4  1  0  1634    4       5  1  0  1638    4
  608      27  0  0   627    4       4  1  0  1638    4       1  1  2    85    0      27  0  1   601    4
  612       2  0  0  6269    4       0  1  0  2948    4       0  0  3     0    4       6  1  0  3010    4
  616       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  620       0  1  1  2948    4      24  1  0   629    4       6  0  0  5001    4      24  1  2    17    4
  624       2  1  0    11    0      26  0  0   876    4      24  1  0   582    4       1  1  3     1    0
  628       2  0  0  6269    4       0  1  0  2948    4       0  0  3     0    4       0  1  2  3012    4
  632       6  1  0  3014    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
  636      23  0  2     0  256       0  0  3  2952    4      24  1  0   412    4
 PROCEDURE  692
  639                                                                                  0  0  0     0    0
  640      24  1  2    19    4       2  1  2     5    0      25  0  2     2    0      24  1  0   646    4
  644      26  0  0  1591    4      26  1  2  2968    4      26  0  1   639    4
 PROCEDURE  693
  647                                                                                  0  0  0     0    0
  648      25  0  2     2    0      24  1  0   653    4      26  0  0   656    4      26  0  0   876    4
  652      26  1  2  2968    4      24  1  2    17    4       6  1  2     5    0      26  0  1   647    4
 PROCEDURE  694
  656       0  0  0     0    0       0  1  0  2948    4       0  0  3     0    4       0  0  2    16    4
  660       6  1  0  3016    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
  664      23  0  2     0  256       0  1  1  2948    4      26  0  1   656    4
 PROCEDURE  695
  667                                                                                 24  0  1  7341    4
  668      26  0  1   668    4       0  0  0   676    3       0  0  0   815    3       0  0  0   935    3
  672       0  0  0   935    3       0  0  0   987    3       0  0  0   676    3       0  0  0  1013    3
 PROCEDURE  696
  676       6  1  0  4951    4      18  1  1  4126    0       2  0  0  5016    4      18  1  3     1    0
  680       2  0  0  5022    4      18  1  3     7    0       2  1  0  4967    4       0  1  2  4953    4
  684       6  1  0  4949    4      27  0  0   703    4       1  1  2     1    0      27  0  0   734    4
  688       1  1  2     1    0      27  0  1   701    4      15  0  0  1749    4       2  0  0  5017    4
  692       0  0  2  5022    4      27  1  0   696    4       4  0  0  5017    4      24  1  0   697    4
  696       5  0  0  5017    4      24  0  1  5016    4       5  0  0  3040    4       2  1  0  4969    4
  700      24  1  0   729    4       6  1  0  4949    4       2  1  0  4967    4
 PROCEDURE  697
  703                                                                                 15  0  0  1749    4
  704       2  0  0  5017    4       6  1  0  4953    4       2  1  0  4969    4       0  0  2  5022    4
  708      27  1  0   711    4       5  0  0  5017    4       2  0  0  5017    4       6  0  0  5017    4
  712      24  0  1  5016    4       4  0  0  3040    4      27  0  3   718    4       0  0  2  1749    4
  716      14  1  0  4969    4      24  1  0   729    4
 PROCEDURE  698
  718                                                         6  0  0  3035    4       2  1  0  4969    4
  720       2  1  0  4967    4      26  1  3  6273    4       6  0  0  5016    4      18  0  1     5    0
  724       4  0  0  1706    4      24  0  3     1    4       2  1  3    76    0       1  1  3     2    0
  728       7  0  0  6273    4      26  0  0  1238    4      24  0  1  7340    4      26  0  1   731    4
  732       0  0  0   774    3       0  0  0   217    3
 PROCEDURE  699
  734                                                         6  0  0  1761    4      27  0  0   747    4
  736       0  1  0  2948    4       0  0  3     0    4       6  0  0     1    4       4  0  0  7366    4
  740       2  0  0  2954    4       0  1  1  2948    4      24  0  3  2954    4       6  0  0    74    0
  744      18  0  3     2    0      18  0  1  4125    0      24  1  0   756    4       0  0  2  1760    4
  748       0  1  0  2948    4       0  0  3     0    4       6  0  0     1    4       4  0  0  7366    4
  752       2  0  0  2954    4       0  1  1  2948    4      24  0  3  2954    4      15  0  0    74    0
  756      24  0  1  5016    4       4  0  0  3040    4       2  0  0  5016    4       0  1  2  4953    4
  760      15  0  0  1750    4      27  0  3   764    4       4  0  0  5016    4      24  1  0   765    4
  764       5  0  0  5016    4       2  1  0  4969    4       1  1  3     1    0       5  0  0  1761    4
  768       3  0  0  1761    4      27  0  1   729    4      23  0  0  4097    0       0  0  0  7366    3
  772      24  1  0   773    4      24  1  0   729    4
 PROCEDURE  700
  774                                                         0  1  2  4969    4      18  1  1     6    0
  776       2  0  0  5019    4      18  1  3     1    0       2  0  0  5023    4      18  1  3     2    0
  780       2  0  0  5024    4      18  1  3    13    0       2  0  0  5022    4       6  1  0  4969    4
  784      27  0  2   787    4       1  1  3    16    0       7  0  0  5019    4
 PROCEDURE  701
  787                                                                                  6  1  0  4967    4
  788      26  0  0  1621    4       2  0  0  4970    4       6  0  0  5022    4      26  0  0  1621    4
  792       2  1  0  4968    4       6  0  0  5019    4      26  0  0  1621    4       2  1  0  4966    4
  796       0  0  3  3033    4      24  0  2  1860    4       0  1  0  2948    4       0  0  3     0    4
  800      24  1  2    15    4      24  0  2     0    0       4  0  0  7360    4       2  0  0  2954    4
  804       0  1  1  2948    4      24  0  3  2954    4      28  1  2     4    0       1  1  3     1    0
  808       7  0  0  5035    4       2  0  0  4999    4      23  0  0    10    0       0  0  0  7360    3
  812      24  1  0   217    4      26  0  0  1204    4      24  1  0   217    4
 PROCEDURE  702
  815                                                                                  6  1  0  4947    4
  816      18  1  1  4126    0       2  0  0  5016    4      18  1  3     1    0       2  0  0  5019    4
  820      18  1  3     7    0       3  1  0  4967    4       2  1  0  4971    4
 PROCEDURE  703
  823                                                                                  6  1  0  4952    4
  824       2  1  0  4972    4       6  1  0  4951    4      27  0  0   847    4      24  0  1  5016    4
  828       6  0  0  3040    4       1  0  1    15    0      15  1  0  4951    4       2  0  0  5020    4
  832       6  1  0  4973    4      27  0  2   836    4       5  0  0  5020    4      24  1  0   837    4
  836       4  0  0  5020    4       2  1  0  4973    4       0  0  2  5019    4      27  1  0   848    4
  840       5  1  0  4973    4      27  0  0   845    4       2  1  0  4973    4       2  0  0  5019    4
  844      24  1  0   848    4       2  0  0  5019    4       6  0  0  1754    4       2  1  0  4971    4
  848      24  0  1  5016    4       6  0  0  3040    4       4  1  0  4949    4       2  1  0  4969    4
  852       6  0  0  5019    4      27  0  0   856    4       6  0  0  1754    4       2  1  0  4971    4
  856      26  0  0  1238    4       6  1  0  4967    4      26  0  0  1621    4       2  0  0  5020    4
  860       0  1  2  4969    4      18  1  1     6    0       1  1  3     0    0      18  1  1     4    0
  864      26  0  0  1621    4       2  0  0  5028    4       0  0  3  3033    4       1  0  1    16    0
  868      15  1  0  4969    4       7  0  0  5020    4       6  1  0  4970    4       2  1  0  4966    4
  872       6  1  0  4972    4       2  1  0  4968    4      26  0  0  1238    4      24  1  0   886    4
 PROCEDURE  704
  876       0  0  0     0    0      24  1  2    17    4      24  0  2     4    0      18  1  1  4123    0
  880       1  1  3    50    0      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0
  884      26  0  0  1591    4      26  0  1   876    4
 PROCEDURE  705
  886                                                         1  0  1    15    0      24  0  1  7340    4
  888      26  0  1   888    4       0  0  0   891    3       0  0  0   217    3      15  1  0  4969    4
  892      26  0  0  1621    4       0  0  3  3033    4       2  0  0  1670    4       2  0  0  4988    4
  896       6  1  0  4969    4      27  0  3   901    4       6  1  0  4967    4      18  0  1  4125    0
  900      27  0  0   903    4       1  1  3     1    0       2  0  0  4988    4      26  1  3  3018    4
  904       0  1  2  4969    4      18  1  1     6    0       2  0  3  4966    4      18  1  1     1    0
  908      25  0  3     1    0      24  1  0   906    4      26  1  3  3018    4       6  0  3  4966    4
  912      26  0  0  1621    4       2  0  3  4966    4      25  0  3     1    0      24  1  0   911    4
  916       0  0  3  3033    4      24  0  2  1828    4       0  1  0  2948    4       0  0  3     0    4
  920      24  1  2    15    4      24  0  2     0    0       4  0  0  7360    4       2  0  0  2954    4
  924       0  1  1  2948    4      24  0  3  2954    4      28  1  2     4    0       1  1  3     2    0
  928       7  0  0  5035    4       2  0  0  4999    4      23  0  0    20    0       0  0  0  7360    3
  932      24  1  0   217    4      26  0  0  1204    4      24  1  0   217    4
 PROCEDURE  706
  935                                                                                  6  1  0  3020    4
  936       2  1  0  7356    4      24  0  1  7356    4       6  1  0  4947    4      18  1  1  4126    0
  940       2  0  0  5016    4      18  1  1     2    0       2  1  0  4967    4       0  0  2  1757    4
  944      15  1  0  4967    4      27  0  0   948    4       6  0  0  1754    4       2  1  0  4967    4
  948       6  0  0  7341    4       1  1  2     3    0      27  0  1   957    4      24  0  1  7356    4
  952       6  1  0  4949    4      27  0  2   959    4      24  0  1  5016    4       5  0  0  3040    4
  956      24  1  0   961    4      24  0  1  7356    4       6  1  0  4949    4      24  0  1  5016    4
  960       4  0  0  3040    4       2  1  0  4969    4      26  0  0  1238    4       6  1  0  4969    4
  964      24  0  1  7356    4       2  0  0  4970    4       6  1  0  4967    4      24  0  1  7356    4
  968       2  0  0  4972    4      23  0  0     4    0       0  0  0  7356    3      24  1  0   937    4
  972      24  0  1  7340    4      26  0  1   973    4       0  0  0   976    3       0  0  0   217    3
  976      24  0  2  1792    4       0  1  0  2948    4       0  0  3     0    4      24  1  2    15    4
  980      24  0  2     0    0       4  0  0  7360    4       2  0  0  2954    4       0  1  1  2948    4
  984      24  0  3  2954    4      28  1  2     4    0      24  1  0   927    4
 PROCEDURE  707
  987                                                                                  6  1  0  3020    4
  988       2  1  0  7356    4       1  1  3     0    0       2  1  0  4967    4      24  0  1  7356    4
  992       6  1  0  4946    4       2  1  0  4968    4      26  0  0  1238    4      23  0  0     2    0
  996       0  0  0  7356    3      24  1  0   991    4      24  0  1  7340    4      26  0  1   999    4
 1000       0  0  0  1002    3       0  0  0   217    3       6  1  0  3020    4       2  1  0  7356    4
 1004      24  0  1  7356    4       6  1  0  4947    4       2  0  0  4970    4       2  0  0  4972    4
 1008      26  0  0  1060    4      23  0  0     2    0       0  0  0  7356    3      24  1  0  1004    4
 1012      24  1  0   217    4
 PROCEDURE  708
 1013                                6  1  0  4946    4       5  1  0  1656    4      27  0  1  1054    4
 1016       6  1  0  4951    4       2  0  0  5016    4       6  1  0  4953    4      24  0  0  5016    4
 1020       4  0  0  3040    4       5  0  0  5021    4       3  1  0  4969    4       7  0  0  5021    4
 1024       1  1  3  3840    0       2  1  0  4967    4      26  0  0  1238    4      24  0  1  7340    4
 1028      26  0  1  1028    4       0  0  0  1031    3       0  0  0   217    3       6  1  0  4967    4
 1032       2  0  0  4972    4       6  1  0  4969    4       2  0  0  4970    4       1  1  3     1    0
 1036       2  0  0  4999    4      24  0  2  1788    4       0  1  0  2948    4       0  0  3     0    4
 1040      24  1  2    15    4      24  0  2     0    0       4  0  0  7354    4       2  0  0  2954    4
 1044       0  1  1  2948    4      24  0  3  2954    4      28  1  2     4    0      23  0  0    10    0
 1048       0  0  0  7354    3      24  1  0   217    4      26  0  0  1513    4       6  1  0  2982    4
 1052       2  1  0  7354    4      24  1  0   217    4       1  1  3     1    0       7  0  0  5021    4
 1056       6  1  0  4953    4       2  1  0  4969    4       6  1  0  4951    4      24  1  0  1025    4
 PROCEDURE  709
 1060       0  0  0     0    0       1  1  3     1    0       7  0  0  5035    4       2  0  0  4999    4
 1064      24  0  2  1788    4       0  1  0  2948    4       0  0  3     0    4      24  1  2    15    4
 1068      24  0  2     0    0       4  0  0  7360    4       2  0  0  2954    4       0  1  1  2948    4
 1072      24  0  3  2954    4      28  1  2     4    0      23  0  0    10    0       0  0  0  7360    3
 1076      24  1  0  1078    4      26  0  0  1204    4      26  0  1  1060    4
 PROCEDURE  710
 1079                                                                                  0  0  0     0    0
 1080      26  0  0  1238    4       6  1  0  4969    4       2  0  0  4970    4       2  0  0  4972    4
 1084      24  0  1  7340    4      26  0  1  1085    4       0  0  0  1088    3       0  0  0  1089    3
 1088      26  0  0  1060    4      26  0  1  1079    4
 PROCEDURE  711
 1090                                                         6  1  0  3008    4      24  1  2    19    4
 1092       2  1  0    12    0      26  0  0  1591    4      24  0  2  1928    4       3  1  0  2948    4
 1096      26  1  2  2948    4      24  0  2  1262    4       3  1  0  2948    4      26  1  3  2948    4
 1100      24  0  2  1460    4       3  1  0  2948    4      26  1  1  2948    4       6  0  0  1262    4
 1104      18  0  3     2    0       2  0  0  1229    4       6  0  0  1460    4      18  0  3     2    0
 1108       2  0  0  1235    4       6  1  0  3022    4       2  1  0  7360    4       6  1  0  3024    4
 1112       2  1  0  7354    4      24  0  3     0    4       6  0  0     4   22       2  0  0  1220    4
 1116      24  0  1  1220    4       1  1  3     0    0       2  0  0  1224    4      24  1  2    19    4
 1120      24  0  2     0    0       3  0  0  1204    4       1  1  1    48    0      18  0  1     5    0
 1124       4  0  0  1204    4       2  1  0  7356    4      24  0  3  1222    4       6  0  2     0    0
 1128       2  0  0  1225    4       0  1  2  1228    4      18  1  3     3    0       0  1  0  1226    4
 1132      23  0  0     1    0       0  0  0  7360    3      24  1  0  1143    4       6  1  0  3022    4
 1136       2  1  0  7360    4      24  0  3  1222    4       6  0  3     1    0      18  1  3     2    0
 1140       2  0  0  1229    4      25  0  3     1    0      24  1  0  1143    4       6  0  0  1226    4
 1144       1  1  2     6    0      27  0  0  1129    4       1  1  2     1    0      27  0  1  1176    4
 1148       0  1  2  1234    4      18  1  3     6    0       0  1  0  1232    4      23  0  0     1    0
 1152       0  0  0  7354    3      24  1  0  1162    4       6  1  0  3024    4       2  1  0  7354    4
 1156      24  0  3  1222    4       6  0  1     1    0      18  1  3     2    0       2  0  0  1235    4
 1160      25  0  1     1    0      24  1  0  1162    4       6  0  0  1232    4       1  1  2    63    0
 1164      27  0  0  1148    4       1  1  1     1    0      27  0  1  1174    4       6  1  0  1222    4
 1168      24  0  3  7356    4       2  1  0     4    0      24  0  3  7356    4       2  1  0     6    0
 1172      26  0  0  1591    4      24  1  0    33    4       6  1  0  1232    4       2  1  0  1226    4
 1176       6  0  0  1226    4       1  1  2     1    0      27  0  0  1181    4       1  1  2     1    0
 1180      27  0  1  1191    4       1  1  3  8191    0      18  1  1  4118    0      15  0  0  1225    4
 1184       5  0  0  1224    4      27  0  2  1190    4       1  0  1    31    0       1  1  3     0    0
 1188      15  0  0  1225    4       1  1  2  2546    4      14  0  0  1225    4       6  0  0  1225    4
 1192      24  0  3  7356    4       2  1  0     7    0       6  0  0  1226    4      24  0  3  7356    4
 1196       2  1  0     5    0      25  0  2     1    0      24  1  0  1199    4      23  0  0     4    0
 1200       0  0  0  7356    3      24  1  0  1126    4      26  0  0  1591    4      24  1  0  1119    4
 PROCEDURE  712
 1204       0  0  0     0    0       6  0  0  5026    4      26  0  0  1621    4       2  0  0  1672    4
 1208      24  0  2  1858    4      24  1  2    15    4      28  1  2     2    0      26  0  0  1513    4
 1212       0  0  3  3033    4       6  0  0  5035    4       7  0  0  5026    4       1  1  3     0    0
 1216       2  0  0  5035    4       6  1  0  2982    4       2  1  0  7360    4      26  0  1  1204    4
  SECTION   713
 1220           0       0                0       0                0       0            4£000       0
 1224           0       0                0       0                0       0                0       0
 1228           0       0                0       0                0       0                0       0
 1232           0       0                0       0                0       0                0       0
 1236           0       0                0       0
 PROCEDURE  714
 1238                                                         0  0  0     0    0       6  1  0  4966    4
 1240      24  1  2    19    4       2  1  1     4    0       6  1  0  4968    4      24  1  2    19    4
 1244       2  1  1     6    0      25  0  1     4    0      24  1  0  1249    4      26  0  0  1591    4
 1248      26  1  1  2968    4      26  0  1  1238    4
 PROCEDURE  715
 1250                                                         0  0  0     0    0       0  1  0  2948    4
 1252       0  0  3     0    4       0  0  2    18    4       6  1  0  3016    4       4  0  0    10    4
 1256      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2948    4
 1260      26  0  1  1250    4       0  0  0     0    0
  SECTION   716
 1262                                                          9249       0             9240       0
 1264           0       0                0       0                0       0                0       0
 1268           0       0                0       0                0       0                0       0
 1272           0       0                0       0                0       0                0       0
 1276           0       0                0       0                0       0                0       0
 1280           0       0                1       0             8076       0            38236       0
 1284        1209       0             £20£       0             £209       0            39079       0
 1288        £249       0            36:‼6       0            1925‼       0             £248       0
 1292        £:‼6       0             1208       0             £041       0             9007       0
 1296          36       0             ‼208       0             83‼6       0             83+9       0
 1300       38236       0             9.49       0             1041       0             1041       0
 1304        9049       0             8201       0             £208       0            31641       0
 1308       393+9       0             .+49       0             £241       0               49       0
 1312        6078       0             825£       0             8276       0            381‼6       0
 1316        £248       0             9009       0              2+0       0             8:‼6       0
 1320          48       0             120£       0            36:8£       0             93£9       0
 1324       39041       0             104£       0             £038       0             820£       0
 1328        93+9       0             800‼       0             9609       0             £:80       0
 1332           0       0                0       0                0       0                0       0
 1336           0       0                0       0                0       0                0       0
 1340           0       0                0       0                0       0                0       0
 1344           0       0                0       0                0       0                0       0
 1348           0       0                0       0
  SECTION   717
 1350                                                             0       0                0       0
 1352           0       0                0       0                0       0                0       0
 1356           0       0                0       0                0       0                0       0
 1360           0       0                0       0
  SECTION   718
 1362                                                             0       0                0       0
 1364           0       0                0       0                0       0                0       0
 1368           0       0                0       0                0       0               36       0
 1372        8209       0            19209       0             8209       0             8249       0
 1376        1209       0             1201       0             9049       0             9:‼6       0
 1380       36:‼6       0             1249       0             1209       0             1249       0
 1384        8276       0            36241       0             8040       0             8008       0
 1388        9200       0             8209       0              248       0             9209       0
 1392           1       0             1201       0             8048       0              209       0
 1396        1209       0             1249       0              240       0             1008       0
 1400        8040       0             8201       0             9240       0             9241       0
 1404        9008       0                8       0             8209       0             8040       0
 1408        9049       0             9009       0             8248       0             9209       0
 1412        1240       0             9:‼6       0            31249       0             1201       0
 1416        8241       0             .:‼6       0             1040       0             9208       0
 1420        9209       0             8049       0               40       0             8241       0
 1424        9008       0             1209       0             1208       0             £209       0
 1428        9609       0             1008       0             8236       0             9008       0
 1432        1041       0              480       0                0       0                0       0
 1436           0       0                0       0                0       0                0       0
 1440           0       0                0       0                0       0              £‼6       0
 PROCEDURE  719
 1444       0  0  0     0    0      26  0  0  1250    4      24  1  2    19    4       6  1  0     4    0
 1448       5  1  0  3026    4      27  0  1  1445    4       0  1  0  2948    4       0  0  3     0    4
 1452       6  1  0  3010    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
 1456      23  0  2     0  256       0  1  1  2948    4      26  0  1  1444    4       0  0  0     0    0
  SECTION   720
 1460       18+‼3       0            18607       0            181‼£       0            33998       0
 1464       36:4£       0            3288£       0             £918       0            25934       0
 1468       279.7       0            129.9       0            18618       0            1843.       0
 PROCEDURE  721
 1472       0  0  0     0    0      25  0  2     8    0      24  1  0  1477    4      26  0  0  1478    4
 1476      26  1  2  2970    4      26  0  1  1472    4
 PROCEDURE  722
 1478                                                         0  0  0     0    0       0  1  0  2948    4
 1480       0  0  3     0    4       0  0  2    20    4       6  1  0  3016    4       4  0  0    11    4
 1484      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2948    4
 1488      26  0  1  1478    4
 PROCEDURE  723
 1489                                0  0  0     0    0      24  1  2    19    4      24  0  2     4    0
 1492      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4
 1496      28  1  1     4    0       6  1  0  1652    4      24  1  2    21    4       2  1  0    52    0
 1500       0  1  0  2948    4       0  0  3     0    4       0  0  2    20    4       6  1  0  3020    4
 1504       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 1508       0  1  1  2948    4       6  1  0  3028    4      24  1  2    21    4      28  0  0     0    0
 1512      26  0  1  1489    4
 PROCEDURE  724
 1513                                0  0  0     0    0       0  0  3  3033    4       6  1  0  1652    4
 1516      24  1  2    15    4       2  1  0    52    0       1  1  3     1    0      24  1  2    15    4
 1520       2  1  0     0    0       6  0  0  6275    4      27  0  0  1539    4      24  1  2    15    4
 1524      24  0  2     0    0      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0
 1528       0  1  0  2948    4       0  0  3     0    4      24  1  2    13    4      24  0  2     0    0
 1532       4  0  0  7358    4       2  0  0  2954    4       0  1  1  2948    4      24  0  3  2954    4
 1536      28  1  1     4    0      26  0  0  1572    4      24  1  0  1567    4       6  0  0  6274    4
 1540       1  1  2     9    0      27  0  0  1558    4       6  0  0  3036    4      24  1  2    15    4
 1544       2  0  0     1    0      24  1  2    15    4      24  0  2     0    0      24  1  2    13    4
 1548      29  0  1     0    0       1  1  3     4    0      18  0  1     5    0       4  0  0     7    4
 1552       0  0  2    12    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
 1556       0  0  3  3033    4      24  1  0  1567    4      24  1  2    15    4      24  0  2     0    0
 1560      18  1  1  4123    0       1  1  3    54    0      18  1  1     5    0      24  1  2    13    4
 1564      28  1  1     0    0       1  1  3     9    0      24  1  0  1550    4       6  1  0  2964    4
 1568      24  1  2    15    4      28  0  0     0    0       2  0  0  4999    4      26  0  1  1513    4
 PROCEDURE  725
 1572       0  0  0     0    0      23  0  0    50    0       0  0  0  7358    3      24  1  0  1582    4
 1576       6  1  0  1652    4      24  1  2    13    4       2  1  0   306    0      26  0  0  1583    4
 1580       6  1  0  3030    4       2  1  0  7358    4      26  0  1  1572    4
 PROCEDURE  726
 1583                                                                                  0  0  0     0    0
 1584       6  1  0  3020    4       0  0  2    12    4      25  1  1  4096    0       4  0  0     7    4
 1588      24  0  3     0    4      23  0  2   160    0      26  0  1  1583    4
 PROCEDURE  727
 1591                                                                                  0  0  0     0    0
 1592       6  1  0  1652    4      24  1  2    19    4       2  1  0    52    0       0  1  0  2948    4
 1596       0  0  3     0    4       0  0  2    18    4       6  1  0  3020    4       4  0  0    10    4
 1600      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2948    4
 1604       6  1  0  3028    4      24  1  2    19    4      28  0  0     0    0      26  0  1  1591    4
 PROCEDURE  728
 1608       0  0  0     0    0      24  0  2  1800    4       0  1  0  2948    4       0  0  3     0    4
 1612      24  1  2    21    4      24  0  2     0    0      24  0  3     0    4       4  0  0     4   22
 1616       2  0  0  2954    4       0  1  1  2948    4      24  0  3  2954    4      28  0  2     4    0
 1620      26  0  1  1608    4
 PROCEDURE  729
 1621                                0  0  0     0    0       2  1  0  1704    4       0  0  3  3034    4
 1624      24  0  2  1728    4      12  1  0  1704    4      26  0  1  1621    4
 PROCEDURE  730
 1627                                                                                  0  0  0     0    0
 1628       2  1  0  1704    4       0  0  3  3033    4      24  0  2  1708    4      12  1  0  1704    4
 1632      26  0  1  1627    4       0  0  0     0    0
  SECTION   731
 1634                                                         16773       0            53585       0
 1636       7554£       0            73786       0            35572       0            56596       0
 1640       86755       0              737       0            .6656       0            72734       0
 1644       65362       0            52636       0            97955       0              725       0
 1648       25973       0                7       0            56554       0            67695       0
 1652          7.       0            7.000       0            16973       0            72735       0
 1656       35572       0            65667       0            66663       0            72676       0
 1660       96653       0              676       0            46955       0            55547       0
 1664       25553       0                7       0            66500       0            73596       0
 1668       £6£6£       0            6£6£6       0                0       0                0       0
 1672           0       0                0       0                0       0                0       0
 1676       5715Ю       0              666       0
  SECTION   732
 1678                                                         36951       0            55777       0
 1680       85167       0              535       0            90000       0            73556       0
 1684         3££       0            7£££0       0             5.5.       0                0       0
 1688       56554       0            56595       0            45577       0            59655       0
 1692       15965       0            53585       0             3030       0            30483       0
 1696       96657       0              676       0            67473       0                6       0
 1700        5.5.       0                0       0
  SECTION   733
 1702                                                             1       0                0       0
 1704           0       0                0       0                0       0                0       0
  SECTION   734
 1708           1       0                0       0                Ю       0                0       0
 1712          64       0                0       0              3.8       0                0       0
 1716        2710       0                0       0            186Ю0       0                0       0
 1720       £4240       0                0       0            89680       0                9       0
 1724       5.100       0               5£       0            Ю+Ю00       0              3‼9       0
 1728           1       0                0       0               16       0                0       0
 1732         256       0                0       0             4096       0                0       0
 1736       65536       0                0       0            48576       0               10       0
 1740       77216       0              167       0            35456       0             2684       0
 1744       67296       0            42949       0            £££££       0            £££££       0
  SECTION   735
 1748           7       0             1£££       0            £.000-      0               7£       0
 1752        8000       0             6000       0             £000       0            80000       0
 1756       £0000       0               80       0            £0000-      0                £       0
 1760         3££       0                0       0               3£       0                0       0
  SECTION   736
 1764    0   4970   3        5   0  0  0  0  5   0         0   4969   3        5   0  0  0  0  5   0
 1768    0   4966   3        5   0  0  0  0  5   0         0   4968   3        5   0  0  0  0  5   1
 1772    0   1621   3     8707   0  2  2  0  3   0         0   1513   3    16421   0  4  0  2  5   1
 1776    0   1694   3        5   3  0  0  0  5   0         0   1696   3      276   3  0  1  1  4   0
 1780    0   1698   3      531   3  0  2  1  3   0         0   5000   3       37   0  0  0  2  5   0
 1784    0   5001   3    16421   0  4  0  2  5   0         0   1700   3      770   3  0  3  0  2   1
  SECTION   737
 1788    0   4970   3    16501   4  4  0  7  5   0         0   4972   3    16421   0  4  0  2  5   1
 1792    0   4970   3    16501   4  4  0  7  5   0         0   4972   3    16421   0  4  0  2  5   0
 1796    0   4974   3    16581   4  4  0 12  5   0         0   4976   3    16421   0  4  0  2  5   1
 1800    0   4946   3        5   3  0  0  0  5   0         0   4948   3        5   3  0  0  0  5   0
 1804    0   4950   3        5   3  0  0  0  5   0         0   4952   3        5   3  0  0  0  5   1
  SECTION   738
 1808    0   5014   3        5   0  0  0  0  5   0         0   1748   3        5   0  0  0  0  5   0
 1812    0   5000   3        5   0  0  0  0  5   0         0   5001   3        5   0  0  0  0  5   0
 1816    0   1634   3        5   3  0  0  0  5   1         0   1634   3        5   3  0  0  0  5   0
 1820    0   5014   3    16437   0  4  0  3  5   1         0   5015   3    12564   0  3  1  1  4   0
 1824    0   1676   3     1025   3  0  4  0  1   0         0   5034   3    12548   0  3  1  0  4   1
 1828    0   5020   3       65   0  0  0  4  1   0         0   5028   3    12596   0  3  1  3  4   0
 1832    0   5020   3     4898   0  1  3  2  2   0         0   1670   3    16453   0  4  0  4  5   0
 1836    0   4966   3     4898   0  1  3  2  2   0         0   4967   3     4882   0  1  3  1  2   0
 1840    0   4968   3     4882   0  1  3  1  2   0         0   4969   3     4882   0  1  3  1  2   0
 1844    0   4970   3     4882   0  1  3  1  2   0         0   4988   3     1073   0  0  4  3  1   1
 1848    0   5016   3        5   3  0  0  0  5   0         0   5018   3        5   3  0  0  0  5   0
 1852    0   5015   3    12564   0  3  1  1  4   1         0   4966   3        5   3  0  0  0  5   0
 1856    0   4968   3        5   3  0  0  0  5   1         0   1672   3    16389   0  4  0  0  5   1
  SECTION   739
 1860    0   4966   3     4962   0  1  3  6  2   0         0   5023   3     1057   0  0  4  2  1   0
 1864    0   5024   3     1057   0  0  4  2  1   0         0   4968   3    12580   0  3  1  2  4   0
 1868    0   4970   3    12564   0  3  1  1  4   1
  SECTION   740
 1870                                                             1       0                0       0
 1872           2       0                0       0                3       0                0       0
 1876           4       0                0       0                5       0                0       0
 1880           6       0                0       0                7       0                0       0
 1884           8       0                0       0                9       0                0       0
 1888           0       0                0       0                0       0                0       0
 1892           0       0                0       0                0       0                0       0
 1896           0       0                0       0                0       0                0       0
 1900           0       0                0       0                0       0                0       0
 1904           0       0                0       0                0       0                0       0
 1908           0       0                0       0                0       0                0       0
 1912           0       0                0       0                0       0                0       0
 1916           0       0                0       0                0       0                0       0
 1920           0       0                0       0                0       0                0       0
 1924           0       0                0       0                0       0                0       0
 PROCEDURE  741
 1928      24  1  0  2551    4      24  1  0  2206    4      24  1  0  2220    4      24  1  0  2254    4
 1932      24  1  0  2546    4      24  1  0  2547    4      24  1  0  2183    4      24  1  0  2549    4
 1936      24  1  0  2550    4      24  1  0  2122    4
  SECTION   742
 1938                                                             0       0                0       0
 1940           0       0                0       0                0       0                0       0
 1944           0       0                0       0                0       0                0       0
 1948           0       0                0       0                0       0                0       0
 1952           0       0                0       0                0       0                0       0
 1956           0       0                0       0                0       0                0       0
 1960           0       0                0       0                0       0                0       0
 1964           0       0                0       0                0       0                0       0
 1968           0       0                0       0                0       0                0       0
 1972           0       0                0       0                0       0                0       0
 1976           0       0                0       0                0       0                0       0
 1980           0       0                0       0                0       0                0       0
 1984           0       0                0       0                0       0                0       0
 1988           0       0                0       0                0       0                0       0
  SECTION   743
 1992           0       0                0       0                0       0                0       0
 1996           0       0                0       0                0       0                0       0
 2000           0       0                0       0                0       0                0       0
 2004           0       0                0       0                0       0                0       0
 2008           0       0                0       0                0       0                0       0
 2012           0       0                0       0                0       0                0       0
 2016           0       0                0       0                0       0                0       0
 2020           0       0                0       0                0       0                0       0
 2024           0       0                0       0                0       0                0       0
 2028           0       0                0       0                0       0                0       0
 2032           0       0                0       0                0       0                0       0
 2036           0       0                0       0                0       0                0       0
 2040           0       0                0       0                0       0                0       0
 2044           0       0                0       0
 PROCEDURE  744
 2046                                                        25  1  1  4096    0      26  0  0  2295    4
 2048      24  0  3  2116    4      24  0  3     3    0       6  1  0   198    0      24  0  3  2116    4
 2052       3  0  0    64    0      18  0  1  4123    0      24  0  3  2116    4       3  0  0   124    0
 2056       1  1  3    40    0       0  0  2  2114    4      26  0  0  2276    4      25  1  1  4096    0
 2060      24  1  1  2116    4      26  1  1  2534    4      24  0  3  2116    4      26  0  0     0    0
 2064      26  1  1  2314    4       1  1  3     7    0      24  0  3  2116    4       2  0  0     0    0
 2068      24  0  3  2116    4       6  0  0    64    0      24  0  3  2116    4       5  0  0   124    0
 2072      27  0  0  2082    4      24  0  3  2116    4       6  0  0     0    0       2  0  0  2120    4
 2076       1  1  3     0    0      24  0  3  2116    4      26  0  0     0    0       6  0  0  2120    4
 2080      24  0  3  2116    4       2  0  0     0    0      24  1  1  2116    4      24  0  2  2546    4
 2084       3  1  0  2546    4      24  0  3  2116    4       2  0  0     2    0      26  1  2  2546    4
 2088       1  1  3  2546    4      24  0  3  2116    4       2  0  0     1    0       1  1  3     0    0
 2092      24  0  3  2116    4      23  0  2     0    0      24  0  2  2108    4       4  0  0  2115    4
 2096      24  0  3  2534    4       2  0  0    44    0      24  0  3  2116    4       2  0  0     0    0
 2100       1  1  3     1    0       7  0  0  2118    4      24  0  3  2534    4       6  0  0    35    0
 2104      24  0  3  2534    4       2  0  0     7    0      24  0  3  2116    4      24  1  0     0    0
 2108      25  1  1  4096    0      26  0  0  2295    4       1  1  3    40    0       0  0  2  2114    4
 2112      26  0  0  2276    4      24  1  0  2546    4       0  0  0     1    0      14  0  0     0    0
 2116       0  0  0     0    0       0  0  0     0    0      16  0  0     1    0       0  0  0     0    0
 2120       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  745
 2122                                                        24  0  3  2116    4      26  1  3    53    0
 2124      24  0  3  2116    4       6  0  0     2    0      24  0  3  2116    4       5  0  3     2    0
 2128      27  0  0  2131    4      25  0  3     2    0      24  1  0  2124    4      24  0  3  2116    4
 2132       6  0  3     1    0      27  0  0  2141    4       1  1  2     0    0      27  0  1  2138    4
 2136      24  0  3  2116    4       2  0  0     0    0       1  1  3     0    0      24  0  3  2116    4
 2140       2  0  3     1    0       6  0  0  2118    4      27  0  1  2173    4       1  1  3     0    0
 2144       3  0  0  2118    4       3  0  0  2169    4      24  0  3  2116    4       2  0  1    42    0
 2148      24  0  3  2116    4       2  0  1    45    0      24  0  3  2314    4       6  0  0     9    0
 2152      24  0  3  2314    4       2  0  0     7    0      24  0  3  2314    4       6  0  0    57    0
 2156      24  0  3  2314    4       2  0  0     6    0       6  0  0  2119    4      27  0  1  2199    4
 2160      24  0  3  2116    4       6  0  1    44    0       2  0  0  2204    4      24  0  2  2199    4
 2164       4  0  0  2115    4      24  0  3  2116    4       2  0  1    44    0      24  0  3  2534    4
 2168      24  1  0     7    0       0  0  0     0    0      24  1  1  2116    4      24  0  3  2116    4
 2172      26  0  0     0    0      24  0  3  2314    4       6  0  0    58    0      24  0  3  2314    4
 2176       2  0  0     6    0      24  0  3  2116    4       2  0  0    44    0      24  1  1  2116    4
 2180       1  1  3     0    0      24  0  3  2116    4      24  1  0     0    0       6  0  0  2169    4
 2184      27  0  0  2189    4       1  1  3     1    0       5  0  0  2118    4      27  0  0  2170    4
 2188      24  1  0  2173    4       6  0  0  2118    4      27  0  1  2170    4       6  0  0  2119    4
 2192      27  0  0  2170    4       1  1  3     0    0       3  0  0  2118    4      24  0  3  2116    4
 2196       2  0  1    42    0      24  0  3  2116    4       2  0  1    45    0       1  1  3     0    0
 2200       1  0  1     4    0      14  0  0  2567    4      26  0  0  2554    4      26  0  1  2204    4
 2204       0  0  0     0    0       1  1  3     2    0
 PROCEDURE  746
 2206                                                        24  0  3  2117    4       6  0  0     0    0
 2208      18  0  0  4124    0      27  0  0  2212    4      25  1  2     0    0      24  1  0  2215    4
 2212      24  0  3  2116    4      24  0  3    35    0       6  0  0     0    0       2  0  0  2309    4
 2216       1  1  3    27    0      26  0  0  2276    4      24  0  3  2116    4      24  1  0     0    0
 PROCEDURE  747
 2220       1  1  3     0    0       1  0  1    16    0      24  0  3  2117    4      14  0  0     0    0
 2224       6  0  0  2309    4      27  0  0  2252    4       0  1  2  2310    4       1  1  3    17    0
 2228      26  0  0  2276    4       0  0  3  2308    4       1  1  3     0    0       1  1  2     1    0
 2232       7  0  0  2309    4       0  0  3  2116    4       1  1  3    10    0      18  0  1     5    0
 2236      24  0  3  2116    4       4  0  0    55    0      18  1  1  4118    0       1  1  3    37    0
 2240      26  0  0  2276    4       1  1  3     0    0       1  1  3    62    0      18  1  1  4118    0
 2244       1  1  3     7    0      26  0  0  2276    4      24  0  3  2116    4      24  0  3   126    0
 2248       6  1  0     1    0       5  0  0  2309    4      27  0  1  2242    4      25  1  1  4096    0
 2252      24  0  3  2116    4      24  1  0     0    0
 PROCEDURE  748
 2254                                                        24  0  3  2116    4       6  0  0     0    0
 2256       2  0  0  2309    4      24  0  2  2312    4      24  0  3  2116    4       2  0  0     0    0
 2260       1  1  3     0    0      24  0  3  2116    4      28  1  2     0    0      24  0  3  2116    4
 2264       6  0  1    38    0      24  0  3  2116    4       2  0  1    44    0      24  0  3  2116    4
 2268       6  0  1    35    0      24  0  3  2116    4       2  0  1     7    0       6  0  0  2309    4
 2272      24  0  3  2116    4       2  0  0     0    0      24  0  3  2116    4      24  1  0     0    0
 PROCEDURE  749
 2276       0  0  0     0    0      18  0  0     5    0       1  1  1     0    0      25  1  1  4096    0
 2280      24  0  3  2306    4      23  0  2   160    0      26  0  1  2276    4       0  0  0     0    0
 2284      24  0  3  2116    4       6  0  0    64    0       2  0  0  2293    4       6  0  0  2294    4
 2288      24  0  3  2116    4       2  0  0    64    0       6  0  0  2293    4       2  0  0  2294    4
 2292      26  0  1  2283    4       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 2296      24  0  3  2306    4       0  0  2    24    0       6  0  0  2305    4      24  0  3  2306    4
 2300       2  0  0    24    0      18  1  1    10    0       2  0  0  2305    4      26  0  0  2283    4
 2304      26  0  1  2295    4       0  0  0     0    0
  SECTION   750
 2306                                                             0       0                2       0
 2308       66666       0                0       0
  SECTION   751
 2310                                                          8000       0             5148       0
 2312       65663       0            73696       0               30       0                0       0
 2316          30       0                0       0               30       0                0       0
 2320          30       0                0       0               30       0                0       0
 2324          30       0                0       0               30       0                0       0
 2328          30       0                0       0               30       0                0       0
 2332          30       0                0       0               30       0                0       0
 2336          30       0                0       0               30       0                0       0
 2340          30       0                0       0               30       0                0       0
 2344          30       0                0       0               30       0                0       0
 2348          30       0                0       0               30       0                0       0
 2352          30       0                0       0
  SECTION   752
 2354                                                             0       0                0       0
 2356           0       0                0       0                0       0                0       0
 2360           0       0                0       0                0       0                0       0
 2364           0       0                0       0                0       0                0       0
 2368           0       0                0       0                0       0                0       0
 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                0       0
 2388           0       0                0       0                0       0                0       0
 2392           0       0                0       0                0       0                0       0
 2396           0       0                0       0                0       0                0       0
 2400           0       0                0       0                0       0                0       0
 2404           0       0                0       0                0       0                0       0
  SECTION   753
 2408           0       0                0       0                0       0                0       0
 2412           0       0                0       0                0       0                0       0
 2416           0       0                0       0                0       0                0       0
 2420           0       0                0       0                0       0                0       0
 2424           0       0                0       0                0       0                0       0
 2428           0       0                0       0                0       0                0       0
 2432           0       0                0       0                0       0                0       0
 2436           0       0                0       0                0       0                0       0
 2440           0       0                0       0                0       0                0       0
  SECTION   754
 2444           0       0                0       0                0       0                0       0
 2448           0       0                0       0                0       0                0       0
 2452           0       0                0       0                0       0                0       0
 2456           0       0                0       0                0       0                0       0
 2460           0       0                0       0                0       0                0       0
 2464           0       0                0       0                0       0                0       0
 2468           0       0                0       0                0       0                0       0
 2472           0       0                0       0                0       0                0       0
 2476           0       0                0       0                0       0                0       0
 2480           0       0                0       0                0       0                0       0
 2484           0       0                0       0                0       0                0       0
 2488           0       0                0       0                0       0                0       0
 2492           0       0                0       0                0       0                0       0
 2496           0       0                0       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
 2516           0       0                0       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
  SECTION   755
 2534                                                             0       0                0       0
 2536           0       0                0       0                0       0                0       0
 2540           0       0                0       0                0       0                0       0
 2544           0       0                0       0
 PROCEDURE  756
 PROCEDURE  757
 2546                                                         2  1  0  2916    4      25  1  1  4096    0
 2548      24  0  3  2896    4       6  1  0     2    0       2  1  0  2314    4      24  0  3  2896    4
 2552       6  0  0    44    0       2  0  0  2534    4      24  0  3  2534    4       6  0  0    37    0
 2556       2  0  0  2535    4       6  1  0  2534    4      24  0  3  2896    4       2  1  0     2    0
 2560      24  0  3  2534    4       0  1  1    30    0       0  1  0  2540    4       0  0  3  2116    4
 2564      24  0  3  2534    4       6  0  0    44    0       2  0  0  2539    4       6  1  0  2942    4
 2568      28  0  0  2354    4      24  0  3  2534    4      24  1  1    29    0      26  1  2  2535    4
 2572      24  0  3  2116    4       6  0  2    14    0       2  0  0  2536    4      24  0  3  2116    4
 2576       6  0  2     4    0       2  0  0  2537    4      24  0  3  2116    4       6  0  2     1    0
 2580      18  0  3     3    0       2  0  0  2538    4      24  0  2  2548    4       2  0  0  2204    4
 2584       1  1  3     0    0       6  0  0  2888    4       2  0  0  2294    4      26  0  0  2283    4
 2588       6  0  0  2889    4      24  0  3  2116    4       2  0  0   123    0       1  1  3  2354    4
 2592       7  0  0  2905    4       2  0  0  2904    4      26  1  1  2904    4       0  0  2  2912    4
 2596       1  1  3    40    0      26  0  0  2276    4
 PROCEDURE  758
 2598                                                         0  0  2  2909    4       1  1  3     7    0
 2600      26  0  0  2276    4      24  1  2  2908    4       6  1  0     4    0       5  1  0  2892    4
 2604      27  0  0  2612    4       4  1  0  2892    4       5  1  0  2890    4      27  0  0  2763    4
 2608       4  1  0  2890    4       1  1  2    85    0      27  0  1  2598    4      24  1  0  2046    4
 PROCEDURE  759
 2612       6  1  0  2944    4      24  0  3  2896    4       4  0  0   123    0      28  1  0  2920    4
 2616       6  0  0  2920    4       2  0  1     1    0       1  0  1    24    0      15  0  0  2923    4
 2620      18  1  0  4125    0       2  0  1     4    0      15  0  0  2923    4      18  0  0     3    0
 2624       7  0  1     4    0       1  0  1    23    0      24  0  3  2538    4       6  0  0     2    0
 2628       2  0  0  2918    4      26  1  3  2918    4      15  0  0  2922    4       3  0  1     5    0
 2632      18  0  0  4124    0       1  1  2     5    0      27  0  0  2710    4       1  1  2     4    0
 2636      27  0  0  2685    4       1  1  1     3    0      27  0  0  2685    4      27  0  2  2641    4
 2640       1  1  1     5    0       1  1  1     1    0       2  0  0  2917    4
 PROCEDURE  760
 2643                                                                                 26  1  2  2896    4
 2644       6  0  0  2917    4       1  1  2     3    0      27  0  2  2661    4       6  0  2  2924    4
 2648      27  0  0  2710    4       3  0  3     8    0       4  0  2  2924    4      26  0  0  2855    4
 2652       3  0  3     6    0      18  0  0  4123    0       5  0  3     6    0       2  0  3     7    0
 2656      25  0  3     3    0      24  1  0  2658    4      25  0  2     4    0      24  1  0  2644    4
 2660      24  1  0  2710    4
 PROCEDURE  761
 2661                               25  1  2     0    0       1  0  1     7    0      15  0  2  2924    4
 2664      27  0  0  2710    4       2  0  3     8    0       1  0  1    16    0      15  0  2  2925    4
 2668      27  0  0  2676    4       7  0  3     8    0      25  1  2     0    0       1  0  1    24    0
 2672      15  0  2  2924    4      18  0  0  4125    0      26  0  0  2871    4      24  1  0  2682    4
 2676       1  0  1     8    0      15  0  2  2924    4      15  0  2  2924    4      18  0  0  4125    0
 2680      26  0  0  2855    4       4  0  2  2926    4       2  0  3     6    0       6  0  2  2927    4
 2684      24  1  0  2655    4
 PROCEDURE  762
 2685                               26  1  2  2898    4       6  0  2  2924    4      27  0  0  2710    4
 2688       2  0  3     6    0       1  0  1    16    0      15  0  2  2925    4      27  0  0  2699    4
 2692      18  0  3     3    0       2  0  3     7    0       1  0  1    15    0      15  0  2  2925    4
 2696      18  0  0     3    0      18  0  3     1    0      24  1  0  2702    4       1  0  1    15    0
 2700      15  0  2  2925    4      18  0  0     2    0       7  0  3     7    0       6  0  2  2926    4
 2704       7  0  3     7    0      25  0  3     2    0      24  1  0  2707    4      25  0  2     3    0
 2708      24  1  0  2686    4      25  1  2     0    0
 PROCEDURE  763
 2710                                                         1  0  1     1    0      15  0  0  2922    4
 2712       5  0  0  2537    4      27  0  2  2760    4       4  0  0  2537    4       3  0  0  2915    4
 2716      18  0  0     2    0       7  0  1     4    0       6  0  0  2915    4       4  0  0  2915    4
 2720      26  0  0  2855    4       4  0  0  2921    4       3  0  1     0    0       2  0  0  2918    4
 2724      26  1  3  2918    4      24  0  3  2116    4       6  0  3     0    0       3  0  1     2    0
 2728      27  0  2  2741    4       5  0  1     2    0       5  0  1     2    0      18  0  3     3    0
 2732      18  0  1  4124    0       1  1  2    64    0      27  0  0  2743    4       1  1  2     1    0
 2736      27  0  0  2743    4       1  1  2     2    0      27  0  0  2743    4       1  1  2     3    0
 2740      27  0  0  2743    4       6  0  0  2886    4      24  1  0  2747    4       1  1  3  4096    0
 2744       7  0  1     5    0      24  0  3  2116    4       6  0  3     1    0       2  0  1     3    0
 2748       0  0  2  2910    4      24  0  3  2914    4      15  0  0    18    0       2  0  0  2914    4
 2752       5  0  0  2914    4       5  0  0  2536    4       4  0  0  2887    4      24  0  3  2116    4
 2756       2  0  3     0    0      25  0  1    18    0      24  1  0  2598    4      24  1  0  2598    4
 2760       6  0  0  2921    4       2  0  1     0    0      24  1  0  2757    4
 PROCEDURE  764
 2763                                                                                  6  1  0  2946    4
 2764      24  0  3  2896    4       4  0  0   123    0      28  1  1  2920    4       6  1  0  2933    4
 2768      27  0  0  2598    4       1  1  2     9    0      27  0  0  2780    4       0  0  2  2916    4
 2772       1  1  3     0    0      15  0  0  2913    4       5  1  0  2933    4      27  0  0  2780    4
 2776       1  1  3     0    0      18  1  1  4127    0      27  1  1  2773    4      24  1  0  2598    4
 2780       6  1  0  2929    4      26  0  0  2871    4       2  0  0  2915    4       6  1  0  2923    4
 2784      26  0  0  2871    4       1  1  1    64    0       2  0  0  2871    4       5  0  0  2871    4
 2788      18  0  1     0    0      18  0  1     0    0       2  0  0  2914    4      24  0  3  2534    4
 2792       6  0  0    40    0       2  0  0  2911    4       6  1  0  2927    4      18  0  1     1    0
 2796       4  1  0  2933    4      24  0  3  2534    4       2  0  0    40    0       6  1  0  2921    4
 2800      18  1  1  4123    0       4  1  0  2924    4      18  1  1  4123    0       1  1  1    18    0
 2804      26  0  0  2879    4       6  0  0  2911    4      24  0  3  2534    4       2  0  0    40    0
 PROCEDURE  765
 2808       6  1  0  2931    4      18  0  0     5    0       2  1  0  2918    4      26  1  3  2918    4
 2812       0  0  2  2909    4       1  1  3     7    0      26  0  0  2276    4      26  1  2  2900    4
 2816      24  0  3  2896    4      24  0  3   123    0       6  1  2     4    0       5  1  0  2894    4
 2820      27  0  0  2849    4      24  0  3  2896    4      24  0  3   123    0       6  1  2     5    0
 2824      18  0  0     5    0      24  0  3  2896    4      24  0  3   123    0       4  1  2     7    0
 2828      24  1  2  2915    4       3  1  3     4    0       5  1  0  2902    4      27  0  0  2837    4
 2832      25  0  3     2    0      24  1  0  2846    4       6  1  0  2902    4      24  1  2  2915    4
 2836       2  1  3     4    0       1  1  2    64    0       5  0  0  2915    4      18  1  0  4118    0
 2840       1  1  1     8    0      26  0  0  2879    4       6  1  0  2931    4      18  0  0     5    0
 2844       2  1  0  2918    4      26  1  3  2918    4      25  0  2     4    0      24  1  0  2816    4
 2848      24  1  0  2812    4       1  1  3    33    0      26  0  0  2879    4      25  1  2     0    0
 2852      24  0  3  2914    4       2  0  0     0    0      24  1  0  2598    4
 PROCEDURE  766
 2855                                                                                  0  0  0     0    0
 2856       3  0  0  2871    4       4  0  0  2535    4       2  0  0  2914    4      24  0  3  2896    4
 2860       6  0  0    43    0      18  0  1  4124    0       5  0  0  2871    4      27  0  0  2866    4
 2864       1  1  3     0    0      24  1  0  2868    4       1  1  2  1500    0      18  0  1     5    0
 2868      24  0  3  2914    4       4  1  0    18    0      26  0  1  2855    4
 PROCEDURE  767
 2871                                                                                  0  0  0     0    0
 2872      24  0  3  2535    4       4  0  0    20    0       2  0  0  2914    4      24  0  3  2914    4
 2876       5  0  0     0    0       1  1  2    64    0      26  0  1  2871    4
 PROCEDURE  768
 2879                                                                                  0  0  0     0    0
 2880      18  0  0     5    0       4  0  0  2914    4      25  1  1  4096    0      24  0  3  2896    4
 2884      23  0  2   160    0      26  0  1  2879    4
 PROCEDURE  769
 2886                                                        25  1  0     0    0      26  0  0     0    0
 2888      14  0  0  1938    4      14  0  0  1992    4
  SECTION   770
 2890                                                         16773       0            53585       0
 2892       35572       0            56596       0            56554       0            56595       0
 2896           0       0               10       0                0       0               12       0
 2900           0       0               30       0               7.       0            7.000       0
 2904           0       0               ‼4       0                0       0                5       0
  SECTION   771
 2908          7‼-      0               3‼       0             1£££       0                0       0
 2912           1       0                £       0
  SECTION   772
 2914                                                             0       0                0       0
 2916           0       0                0       0
  SECTION   773
 2918                                                             0       0                0       0
  SECTION   774
 2920           0       0                0       0                0       0                0       0
 2924           0       0                0       0                0       0                0       0
 2928           0       0                0       0                0       0                0       0
 2932           0       0                0       0                0       0                0       0
 2936           0       0                0       0                0       0                0       0
 2940           0       0                0       0
  SECTION   775
 2942                                                             0       0            200‼4       0
 2944           7       0               2+       0                6       0                .       0
  SECTION  1027
 2948           0       0                0       0                0       0                0       0
 2952           0       0                0       0                0       0                0       0
 2956           0       0                0       0                0       0                0       0
 2960           0       0                0       0            77372       0              4+6       0
 2964           0       0            20032       0                0       0            20438       0
 2968           0       0               30       0                0       0               90       0
 2972           0       0                9       0            £££££       0                4       0
 2976           0       0               24       0                0       0              3.8       0
 2980           0       0                .       0                0       0               28       0
 2984           0       0               64       0            37354       0                5       0
 2988       57354       0            53666       0            37455       0            75516       0
 2992           0       0                0       0                0       0            2002.       0
 2996       60000       0            69555       0            65369       0            67696       0
 3000           0       0               12       0                0       0               14       0
 3004       36653       0            51636       0                0       0                2       0
 3008       1675+       0            53585       0                0       0               1‼       0
 3012        8000       0             5146       0                0       0               11       0
 3016           0       0                7       0                0       0                5       0
 3020           0       0                8       0                0       0                6       0
 3024           0       0                3       0            55972       0            56596       0
 3028           0       0            20034       0                0       0              12+       0
  SECTION  1028
 3032           2       0                0       0            66666       0            78000-      0
 3036       80000       0            80000       0            66666       0            +4000-      0
  SECTION  1029
 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  776
   33                                0  1  0  3458    4       0  0  3     0    4       1  1  3     8    0
   36       0  0  2  3606    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  3458    4       6  0  0  6279    4      27  0  1    89    4      24  1  0    70    4
   44       0  1  0  3458    4       0  0  3     0    4       1  1  3     9    0       0  0  2  3606    4
   48      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024       0  1  1  3458    4
   52      24  0  1  7342    4      26  0  1    53    4       0  0  0    33    3      24  0  1  7343    4
   56      26  0  1    56    4       0  0  0    33    3      24  0  1  7344    4      26  0  1    59    4
   60       0  0  0    33    3       0  1  0  3458    4       0  0  3     0    4       0  0  2    14    4
   64       6  1  0  3472    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
   68      23  0  2     0  256       0  1  1  3458    4
 PROCEDURE  777
   70                                                        26  0  0   120    4      24  1  2    21    4
   72       6  1  0     4    0       5  1  0  4498    4      27  0  1    70    4       2  0  0  7336    4
   76      26  1  1  3474    4      26  1  2  3476    4      26  0  0   120    4      24  1  2    21    4
   80       6  1  2     5    0      24  0  3     1    4       2  0  1    64    0      25  0  1     1    0
   84      24  1  0    86    4      24  1  0    89    4      25  0  2     2    0      24  1  0    79    4
   88      24  1  0    77    4       6  1  0  3478    4      28  0  0  2567    4       6  0  0  6269    4
   92      27  0  0   108    4       0  1  0  3458    4       0  0  3     0    4       0  0  2  3607    4
   96       6  1  0  3480    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
  100      23  0  2     0  256       0  1  1  3458    4       6  0  0  6277    4      27  0  1   110    4
  104       6  1  0  3482    4      24  1  2    21    4       2  1  0     0    0      24  1  0   221    4
 PROCEDURE  778
  108       6  0  0  6277    4      27  0  0  3036    4      26  0  0   994    4      24  1  2    21    4
  112       6  1  0     0    0       5  1  0  2578    4      27  0  1   110    4       0  0  3  3608    4
  116      26  0  0  3717    4      26  0  0  3717    4      26  0  0  3717    4      24  1  0   221    4
 PROCEDURE  779
  120       0  0  0     0    0       0  1  0  3458    4       0  0  3     0    4       0  0  2    20    4
  124       6  1  0  3484    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
  128      23  0  2     0  256       0  1  1  3458    4      26  0  1   120    4
 PROCEDURE  780
  131                                                                                  0  0  0     0    0
  132       3  0  0  2766    4       5  0  0  3609    4      27  0  3   214    4       5  0  0  3610    4
  136      27  0  2   214    4       6  0  0  6279    4      27  0  0   141    4       6  0  0  2766    4
  140      26  0  1   131    4       6  0  0  2766    4      18  1  1  4126    0       2  0  0  2766    4
  144      18  1  1     2    0       2  0  0  2767    4       6  0  0  2766    4      26  0  0  1159    4
  148      18  1  3     3    0      18  1  1  4127    0       2  1  0  2764    4      26  1  3  2764    4
  152      27  1  0   158    4      24  0  3     1    4       6  0  3    14    0      18  0  3     2    0
  156      18  0  1  4125    0      24  1  0   161    4       0  0  2  2562    4      24  0  3     1    4
  160      15  0  3    14    0      26  0  0  1165    4       0  0  3  3611    4      27  0  0   202    4
  164       2  0  0  2766    4       2  0  0  2764    4      26  1  3  3486    4      24  0  3     1    4
  168       6  0  3   514    0      18  1  1  4126    0      27  0  0   183    4       5  0  0  2766    4
  172      27  0  3   181    4      27  0  1   183    4      18  1  1     2    0       5  0  0  2767    4
  176      27  0  0   178    4      27  0  2   194    4      24  0  3     1    4       6  0  3   515    0
  180       7  0  0  2764    4      25  0  3     2    0      24  1  0   167    4       6  0  0  2764    4
  184       4  0  0  2767    4       3  0  0  2767    4       1  1  2   256    0      27  0  2   200    4
  188       0  0  3  3608    4       6  0  0  2766    4      18  0  1     2    0       4  0  0  2767    4
  192      26  0  1   131    4      24  1  0   219    4      24  0  3     1    4       4  0  3   515    0
  196      27  0  0   198    4      27  0  2   183    4       6  1  0  3488    4      24  1  0   896    4
  200       6  1  0  3490    4      24  1  0   896    4       6  0  0  2766    4      18  0  1     2    0
  204       4  0  0  2767    4       2  0  0  2764    4      26  1  3  3492    4      24  0  3     1    4
  208       6  0  3   974    0      27  0  0   214    4       5  0  0  2764    4      27  0  0   217    4
  212      25  0  3     2    0      24  1  0   207    4       6  1  0  3494    4       0  0  3  3608    4
  216      24  1  0   896    4      24  0  3     1    4       6  0  3   975    0       0  0  3  3608    4
  220      26  0  1   131    4
 PROCEDURE  781
  221                                6  0  0  5999    4       2  0  0  2565    4      24  0  2  2764    4
  224      24  1  2    15    4      28  1  2     2    0       6  1  0  2646    4      26  0  0  1104    4
  228       1  1  3     1    0       2  0  0  7352    4       1  1  3     2    0       2  0  0  7326    4
  232       6  0  0  6269    4      27  0  1   238    4       6  1  0  2584    4      24  1  2    17    4
  236       2  1  0     4    0      24  1  0   245    4      26  0  0   983    4      24  1  2    17    4
  240       6  1  0     4    0       5  1  0  2582    4      27  0  0   268    4      26  0  0  1576    4
  244      24  1  0   434    4
 PROCEDURE  782
  245                               26  0  0   994    4      24  1  2    21    4       6  1  0     0    0
  248       5  1  0  2588    4      27  0  0   279    4       4  1  0  2588    4       5  1  0  2586    4
  252      27  0  0   259    4       4  1  0  2586    4      18  0  1  4124    0       5  1  0  3496    4
  256      27  0  0   885    4      26  0  0  1128    4      24  1  0   245    4      26  0  0  1062    4
  260      26  0  0  1855    4      26  0  0  1846    4      26  0  0  1538    4       6  0  0  3612    4
  264       2  0  0  1460    4      26  0  0   285    4      27  0  1   262    4      24  1  0   879    4
 PROCEDURE  783
  268       6  0  0  6277    4      27  0  1   274    4       6  1  0  3482    4      24  1  2    21    4
  272       2  1  0     0    0      24  1  0   879    4      26  0  0   994    4      24  1  2    21    4
  276       6  1  0     0    0       5  1  0  2588    4      27  0  1   879    4      26  0  0  1576    4
  280      26  0  0  1028    4      26  0  0  1593    4      26  0  0   994    4      26  0  0  1299    4
  284      24  1  0   280    4
 PROCEDURE  784
  285                                0  0  0     0    0      26  0  0   994    4      26  0  0   520    4
  288      27  0  1  1172    4       6  0  0  1460    4      27  0  0   419    4       6  0  0  7347    4
  292       1  1  2     2    0      27  0  1   417    4       1  1  3     1    0       2  0  0  7336    4
  296       6  1  0  2644    4      24  1  0   349    4      24  0  1  7345    4      26  0  1   299    4
  300       0  0  0   311    3       0  0  0   302    3      24  0  1  7346    4      26  0  1   303    4
  304       0  0  0   311    3       0  0  0   306    3       1  1  3     6    0       3  0  0  5755    4
  308       4  1  0  5687    4      26  0  0  1165    4       2  0  0  5756    4
 PROCEDURE  785
  311                                                                                  1  0  1     3    0
  312       1  1  3     0    0      15  1  0  5683    4       2  1  0  5683    4       6  0  0  5729    4
  316       5  1  0  5683    4      27  0  2   330    4      26  0  0  1559    4       6  1  0  3484    4
  320       2  1  0  7366    4      26  0  0  1982    4      23  0  0     1    0       0  0  0  7366    3
  324      24  1  0   321    4       1  1  3     1    0       0  0  3  3611    4       7  0  0  5729    4
  328       0  0  3  3608    4      24  1  0   315    4
 PROCEDURE  786
  330                                                         0  0  3  3611    4       6  1  0  5683    4
  332       1  1  1     1    0       2  0  0  5729    4       0  0  3  3608    4      24  0  1  7360    4
  336       6  1  0  5684    4      27  0  2   349    4      24  0  1  7360    4       6  1  0  5685    4
  340      26  0  0  1165    4       2  1  2  5613    4       6  1  0  3498    4       1  0  1   768    0
  344      14  1  2  5612    4       1  1  3     2    0       2  0  0  7351    4      24  0  1  7360    4
  348       5  1  0  5684    4       3  1  1  5626    4       3  1  2  5590    4       6  0  0  1460    4
  352      27  0  1   369    4       6  1  2  5590    4      24  0  1  7346    4      26  0  1   355    4
  356       0  0  0   377    3       0  0  0   358    3       2  1  2  5592    4       2  1  2  5590    4
  360       1  1  3     6    0       3  0  0  5755    4       4  1  2  5593    4      26  0  0  1165    4
  364       2  0  0  5756    4       1  1  3     1    0       2  0  0  7346    4      25  0  2     2    0
  368      24  1  0   377    4       6  0  0  7350    4       1  1  2     2    0      27  0  1   375    4
  372       6  0  0  3609    4       1  0  1    16    0      14  0  0  5604    4      26  0  0  2258    4
  376      24  1  0   393    4      26  0  0   422    4       6  0  0  7348    4       1  1  2     2    0
  380      27  0  1   389    4      24  0  1  7354    4       6  1  0  5730    4       2  1  0  2766    4
  384      26  0  0  2417    4      26  0  0  1570    4       6  1  0  2766    4       5  1  0  2644    4
  388      27  0  0   393    4       6  0  0  7347    4       1  1  2     1    0      27  0  0   398    4
  392      26  0  0  2449    4      24  0  1  7347    4      26  0  1   394    4       0  0  0   398    3
  396       0  0  0   414    3       0  0  0   415    3
 PROCEDURE  787
  398                                                        23  0  0     2    0       0  0  0  7360    3
  400      24  1  0   402    4      24  1  0   286    4      24  0  1  7360    4       6  1  0  5684    4
  404       5  1  0  2648    4      27  0  1   335    4       6  0  0  1460    4      27  0  3   410    4
  408       6  0  0  3612    4      26  0  1   285    4       1  1  3     0    0      24  0  1  7360    4
  412       2  1  0  5684    4      24  1  0   335    4      26  0  0  2057    4       6  0  0  7336    4
  416      27  0  0   420    4       1  1  3     0    0       2  0  0  7336    4      26  0  1   285    4
  420       1  1  3     1    0      26  0  1   285    4
 PROCEDURE  788
  422                                                         0  0  0     0    0      24  0  3     0    4
  424       6  0  0     4   22      18  0  3     3    0      18  0  1  4127    0       2  0  0  2258    4
  428      24  0  1  2258    4       5  0  0  5605    4      24  0  1  2258    4       2  0  0  5605    4
  432      26  0  0  2258    4      26  0  1   422    4
 PROCEDURE  789
  434                                                        26  0  0   520    4      27  0  0   457    4
  436      24  1  2    21    4       6  1  0     0    0      18  1  1  4126    0       5  1  0  3500    4
  440      27  0  0   444    4      26  0  0  1128    4      26  0  0   994    4      24  1  0   434    4
  444      18  1  1     2    0       1  1  2    89    0      27  0  1   451    4       1  1  3    65    0
  448       1  0  1     3    0      24  1  2    21    4      14  1  0     0    0      24  1  2    21    4
  452       6  1  0     0    0      24  1  2    17    4       5  1  0    50    0      27  0  0   465    4
  456      27  0  3   441    4      24  1  0  2098    4      26  0  0  2246    4      27  0  1   434    4
  460      26  0  0   520    4      27  0  0   879    4      26  0  0  1128    4      26  0  0   994    4
  464      24  1  0   460    4
 PROCEDURE  790
  465                               24  1  2    21    4       6  1  0     2    0      18  0  1  4120    0
  468       1  1  2    84    0      27  0  0   498    4       1  1  2    21    0      27  0  0   485    4
  472       1  1  2    10    0      27  0  1   441    4      26  0  0   994    4      26  0  0   520    4
  476      27  0  0   457    4      24  1  2    21    4       6  1  0     0    0      18  0  1  4126    0
  480       5  1  0  3500    4      27  0  0   451    4      26  0  0  1028    4      26  0  0  1593    4
  484      24  1  0   474    4      26  0  0  1028    4      26  0  0  1593    4      26  0  0   994    4
  488      26  0  0  2246    4      27  0  0   460    4      26  0  0   520    4      27  0  0   457    4
  492      24  1  2    21    4       6  1  0     0    0      18  0  1  4126    0       5  1  0  3500    4
  496      27  0  0   451    4      24  1  0   485    4      26  0  0   994    4      26  0  0   520    4
  500      27  0  0   458    4      24  1  2    21    4       6  1  0     0    0      18  0  1  4126    0
  504       5  1  0  3500    4      27  0  1   458    4      24  1  2    21    4       6  0  0     3    0
  508      27  0  0   511    4       5  0  0  2645    4      27  0  1   458    4      26  0  0  2246    4
  512      27  0  0   462    4      24  1  2    17    4       6  1  0    50    0      24  1  2    21    4
  516       5  1  0     0    0      27  0  1   511    4      26  0  0   994    4      24  1  0   458    4
 PROCEDURE  791
  520       0  0  0     0    0      24  1  2    21    4       6  1  0     0    0      18  0  1  4126    0
  524       5  1  0  3502    4      27  0  0   530    4      24  1  2    21    4       6  1  0     0    0
  528      18  0  1  4124    0       5  1  0  3496    4      26  0  1   520    4
 PROCEDURE  792
  531                                                                                 24  1  2    17    4
  532       6  1  0     4    0       5  1  0  2582    4      27  0  1   884    4      26  0  0  1062    4
  536       6  1  0  5552    4      26  0  0  1019    4      24  1  2    17    4       5  1  0    26    0
  540      27  0  0   547    4      24  1  2    17    4       6  1  0    26    0      18  0  1     6    0
  544       2  1  0  5552    4      26  0  0  2164    4      24  1  0   531    4      24  1  2    17    4
  548       6  1  0    19    0      18  0  1     7    0      18  0  1  4121    0       2  0  0  2570    4
  552       6  1  0  5561    4      26  0  0  1019    4       5  0  0  2570    4      27  0  1   541    4
  556      26  0  0  2246    4      27  0  1   556    4      24  1  0   697    4
 PROCEDURE  793
  559                                                                                 26  0  0  1364    4
  560       6  1  0  1450    4       5  1  0  5716    4      27  0  1   573    4       6  0  0  1452    4
  564       5  0  0  5715    4      27  0  1   573    4      26  0  0   774    4       6  0  0  1460    4
  568      27  0  1   653    4       6  0  0  1454    4       5  0  0  5728    4      27  0  1   653    4
  572      24  1  0   723    4      26  0  0  2468    4      24  1  2    17    4       6  1  0     4    0
  576       5  1  0  2582    4      27  0  1   884    4       6  1  0  1450    4      24  1  2    17    4
  580       5  1  0    26    0      27  0  1   587    4       1  0  1     1    0      24  1  2    17    4
  584      15  1  0    19    0       5  0  0  1452    4      27  0  0   616    4      24  1  2    17    4
  588       6  1  0    26    0      18  0  1     6    0       2  1  0  5552    4      26  0  0  2164    4
  592      24  1  0   574    4
 PROCEDURE  794
  593                                0  0  0     0    0      24  1  2    17    4       6  1  0    13    0
  596       2  0  0  5554    4      24  1  2    17    4       6  1  0    23    0       2  0  0  5555    4
  600      24  1  2    17    4       6  1  0    21    0       2  0  0  5556    4       1  0  1     1    0
  604      24  1  2    17    4      15  1  0    19    0       2  0  0  5557    4      24  1  2    17    4
  608       6  1  0    25    0       2  0  0  5558    4      24  1  2    17    4       6  1  0    10    0
  612      18  0  1     6    0       2  1  0  5560    4      26  0  0  1855    4      26  0  1   593    4
 PROCEDURE  795
  616      24  1  2    17    4       6  1  0    26    0       3  1  0  5716    4      18  0  1     6    0
  620       2  1  0  5552    4       1  0  1     1    0      24  1  2    17    4      15  1  0    19    0
  624       2  0  0  5715    4       6  0  0  1460    4      27  0  0   630    4       6  0  0  1454    4
  628       1  1  2     7    0      27  0  0   680    4      26  0  0   593    4      26  0  0  1846    4
  632       1  1  3     8    0       2  0  0  5728    4       6  1  0  3504    4       2  1  0  7354    4
  636      26  0  0  2417    4      26  0  0  1538    4       6  0  0  1454    4       5  0  0  5728    4
  640      27  0  3   678    4      27  0  0   723    4      24  0  1  7345    4      26  0  1   643    4
  644       0  0  0   652    3       0  0  0   646    3       6  1  0  5731    4       1  1  1     6    0
  648      26  0  0  1165    4       2  0  0  5756    4       1  1  3     6    0       2  0  0  5755    4
 PROCEDURE  796
  652      26  0  0  2389    4      24  0  1  7347    4      26  0  1   654    4       0  0  0   652    3
  656       0  0  0   658    3       0  0  0   659    3      26  0  0  2057    4       6  0  0  7354    4
  660       4  0  0  7354    4      24  0  3     0    4       2  0  0     6   22      24  1  2    17    4
  664       6  1  3     4    0       5  1  0  2580    4      27  0  1   637    4       6  0  0  1454    4
  668       5  0  0  5728    4      27  0  1   678    4       6  0  0  1460    4      27  0  0   678    4
  672       6  0  0  7348    4       1  1  2     3    0      27  0  1   678    4       1  1  3     1    0
  676       2  0  0  7326    4      24  1  0   723    4      26  0  0  1128    4      24  1  0   881    4
 PROCEDURE  797
  680      26  0  0   994    4      26  0  0  1062    4      26  0  0  1855    4      26  0  0  1846    4
  684      24  1  2    17    4       6  1  0    26    0       2  1  0  5716    4       1  0  1     1    0
  688      24  1  2    17    4      15  1  0    19    0       2  0  0  5715    4       1  1  3     8    0
  692       2  0  0  5728    4      26  0  0  1538    4       6  1  0  3504    4       2  1  0  7354    4
  696      26  0  0  2417    4      26  0  0   994    4      24  1  2    21    4       6  1  0     0    0
  700       5  1  0  3506    4      27  0  1   879    4      26  0  0  1364    4       6  0  0  1454    4
  704       5  0  0  5728    4      27  0  1   559    4       6  1  0  1450    4       5  1  0  5716    4
  708      27  0  1   573    4       6  1  0  1452    4       5  0  0  5715    4      27  0  1   573    4
  712      24  0  1  7326    4      26  0  1   713    4       0  0  0   716    3       0  0  0   719    3
  716       1  1  3     2    0       2  0  0  7326    4      24  1  0   720    4      26  0  0   774    4
  720       6  0  0  1460    4      27  0  0   569    4      24  1  0   638    4
 PROCEDURE  798
  723                                                                                  6  0  0  1460    4
  724      27  0  0   778    4      24  0  1  7348    4      26  0  1   726    4       0  0  0   730    3
  728       0  0  0   744    3       0  0  0   746    3       6  0  0  1456    4      27  0  1   734    4
  732       6  0  0  1454    4       2  0  0  1456    4      26  0  0   774    4      26  0  0  2449    4
  736       6  0  0  1454    4       5  0  0  1456    4      27  0  0   697    4       0  0  3  3611    4
  740       6  0  0  3612    4       7  0  0  1456    4       0  0  3  3608    4      24  1  0   734    4
  744      26  0  0   774    4      26  0  0  2449    4      26  0  0  1538    4      26  0  0   285    4
  748      27  0  3   747    4      27  0  0   760    4      26  0  0   994    4      26  0  0   520    4
  752      27  0  0   760    4       6  0  0  7348    4       1  1  2     3    0      27  0  0   758    4
  756      26  0  0   774    4      26  0  0  2449    4      26  0  0  1538    4      24  1  0  1172    4
  760      24  0  1  7347    4      26  0  1   761    4       0  0  0   765    3       0  0  0   841    3
  764       0  0  0   841    3       6  1  0  2644    4       3  1  1  5626    4       2  1  2  5590    4
  768      26  0  0   422    4      25  0  2     0    0      24  1  0   772    4      24  1  0   841    4
  772      26  0  0  2057    4      24  1  0   841    4
 PROCEDURE  799
  774                                                         0  0  0     0    0      26  0  0   832    4
  776      27  0  0   678    4      26  0  1   774    4
 PROCEDURE  800
  778                                                        24  0  1  7346    4      26  0  1   779    4
  780       0  0  0   784    3       0  0  0   782    3       1  1  3     4    0       2  0  0  5754    4
  784       6  0  0  1456    4       5  0  0  5754    4      27  0  0   800    4      27  0  3   678    4
  788      26  0  0  2389    4      24  0  1  7347    4      26  0  1   790    4       0  0  0   794    3
  792       0  0  0   796    3       0  0  0   797    3      26  0  0  1570    4      24  1  0   784    4
  796      26  0  0  2057    4      26  0  0  1128    4      26  0  0  1538    4      24  1  0   881    4
 PROCEDURE  801
  800      24  0  1  7348    4      26  0  1   801    4       0  0  0   805    3       0  0  0   828    3
  804       0  0  0   828    3       6  0  0  1458    4      27  0  1   809    4       6  0  0  1456    4
  808       2  0  0  1458    4       0  0  3  3611    4       6  0  0  1458    4       1  1  1     2    0
  812       2  0  0  1458    4       0  0  3  3608    4      24  0  1  7354    4       6  1  0  5730    4
  816       5  1  0  2644    4      27  0  0   678    4      26  0  0  2417    4      26  0  0  1570    4
  820       6  0  0  5754    4       5  0  0  1458    4      27  0  1   814    4      26  0  0   994    4
  824      26  0  0   520    4      27  0  0   849    4      26  0  0  1128    4      24  1  0   823    4
  828      26  0  0   285    4      27  0  0   849    4      27  0  3   828    4      24  1  0   823    4
 PROCEDURE  802
  832       0  0  0     0    0       6  0  0  7354    4       4  0  0  7354    4      24  0  3     0    4
  836       2  0  0     6   22      24  1  2    17    4       6  1  3     4    0       5  1  0  2580    4
  840      26  0  1   832    4
 PROCEDURE  803
  841                               24  0  1  7326    4      26  0  1   842    4       0  0  0   845    3
  844       0  0  0   848    3       1  1  3     2    0       2  0  0  7326    4      24  1  0   879    4
  848      26  0  0  1538    4      24  1  2    21    4       6  1  0     0    0       5  1  0  3506    4
  852      27  0  0   857    4      26  0  0   832    4      27  0  1   878    4      26  0  0  2468    4
  856      24  1  0   879    4      26  0  0  1364    4       6  1  0  1450    4       5  1  0  5716    4
  860      27  0  0   864    4      26  0  0   832    4      27  0  0   879    4      24  1  0   878    4
  864       6  0  0  1452    4       5  0  0  5715    4      27  0  1   861    4       6  0  0  1454    4
  868       5  0  0  5728    4      27  0  1   874    4       6  0  0  1460    4      27  0  1   659    4
  872      26  0  0   774    4      24  1  0   723    4      26  0  0   774    4      26  0  0  2458    4
  876      26  0  0  1538    4      24  1  0   659    4      26  0  0  2458    4      26  0  0  1299    4
  880      26  0  0  1128    4      26  0  0   994    4      26  0  0  1299    4      24  1  0   880    4
 PROCEDURE  804
  884      26  0  0  1128    4      24  1  2    17    4       6  1  0     4    0       5  1  0  2582    4
  888      27  0  1  3036    4      24  1  2    17    4       6  1  0    26    0      18  0  1     6    0
  892       2  1  0  5552    4      26  0  0  2164    4      24  1  0   885    4
 PROCEDURE  805
  895                                                                                  6  1  0  2660    4
  896      24  1  2    15    4       2  1  0    48    0       0  0  3  3608    4      24  0  2  2820    4
  900      24  1  2    15    4      28  1  2     2    0       6  1  0  3508    4      24  1  2    15    4
  904      28  1  1    12    0       6  1  0  2658    4      24  1  2    15    4       2  1  0     4    0
  908      26  0  0  2546    4      23  0  0  4097    0       0  0  0  7356    3      24  1  0   912    4
  912      26  0  0  1104    4      26  0  1  1593    4      24  0  2  2820    4      24  1  2    15    4
  916      28  1  2     2    0       6  1  0  2660    4      24  1  2    15    4       2  1  0    48    0
  920       6  1  0  3510    4      24  1  2    15    4      28  1  1    10    0      24  1  0   905    4
 PROCEDURE  806
  924       0  0  0     0    0      26  0  0  2552    4       6  1  0  3512    4      14  1  0  2634    4
  928       1  1  3     0    0       1  0  1   960    0      15  1  0  2624    4      14  1  0  2634    4
  932       1  1  3   255    0      26  0  1   924    4       1  0  1    48    0      26  0  0   924    4
  936      24  1  0  1630    4       1  0  1    12    0      26  0  0   924    4      24  1  0  1637    4
  940       1  0  1     3    0      26  0  0   924    4      24  1  0  1644    4
 PROCEDURE  807
  943                                                                                  0  0  0     0    0
  944       1  0  1    60    0      14  1  0  2636    4      26  0  0  2552    4      24  0  3     0    4
  948       6  0  0     2   22      27  0  1   954    4       1  0  1     3    0       1  1  3    65    0
  952      14  1  0  2636    4       1  1  3     0    0      26  0  1   943    4
 PROCEDURE  808
  955                                                                                  0  0  0     0    0
  956       1  0  1   768    0       1  1  2     1    0      27  0  0   969    4       1  1  2     1    0
  960      27  0  0   968    4       1  1  2     1    0      27  0  0   967    4       1  1  2     1    0
  964      27  0  0   966    4      18  1  1  4126    0      18  1  1  4126    0      18  1  1  4126    0
  968      18  1  1  4126    0       6  1  0  3514    4      14  1  0  2638    4      26  0  1   955    4
 PROCEDURE  809
  972       0  0  0     0    0       6  1  0  2636    4       5  1  0  2660    4      27  0  0   982    4
  976       6  1  0  2660    4       2  1  0  2636    4       6  0  0  2558    4       1  0  1    24    0
  980      14  1  0  5581    4      26  0  0  2546    4      26  0  1   972    4
 PROCEDURE  810
  983                                                                                  0  0  0     0    0
  984       0  1  0  3458    4       0  0  3     0    4       0  0  2    16    4       6  1  0  3484    4
  988       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
  992       0  1  1  3458    4      26  0  1   983    4
 PROCEDURE  811
  994                                                         0  0  0     0    0      26  0  0   120    4
  996      24  1  2    21    4       0  1  2    49    0       1  1  3     0    0      18  1  1     7    0
 1000       3  1  0  3458    4      26  1  3  3458    4       1  1  3     0    0      18  1  1     3    0
 1004       2  0  0  2564    4       1  0  1     3    0       1  1  3   126    0      24  0  1  2564    4
 1008      18  1  1     0    0      24  1  2    21    4      14  1  3     0    0      24  1  2    21    4
 1012      24  0  2     4    0      18  1  1  4123    0       1  1  3    44    0      18  1  1     5    0
 1016      24  1  2    21    4      28  1  1     0    0      26  0  1   994    4
 PROCEDURE  812
 1019                                                                                  0  0  0     0    0
 1020      18  1  1  4118    0       2  1  0  2576    4       6  1  0  2576    4      18  1  1     2    0
 1024       2  1  0  2576    4      27  1  1  1022    4       6  1  0  2576    4      26  0  1  1019    4
 PROCEDURE  813
 1028       0  0  0     0    0       6  1  0  3516    4      28  0  0  5550    4      24  0  1  6276    4
 1032      26  0  1  1032    4       0  0  0  1039    3       0  0  0  1035    3      24  0  2  2698    4
 1036      24  1  2    21    4      28  0  2     0    0      24  1  0  1042    4      24  0  2  2674    4
 1040      24  1  2    21    4      28  0  3     0    0       6  0  0  6000    4      27  0  0  1045    4
 1044      26  0  1  1028    4       0  0  3  3611    4       1  1  3     2    0       7  0  0  5550    4
 1048       6  0  0  5551    4       1  1  2     6    0      27  0  1  1060    4      26  1  3  3518    4
 1052       6  0  3  5555    4      27  0  0  1060    4       1  1  2   256    0      27  0  3  1058    4
 1056       1  1  3     2    0       7  0  3  5556    4      25  0  3     2    0      24  1  0  1052    4
 1060       0  0  3  3608    4      26  0  1  1028    4
 PROCEDURE  814
 1062                                                         0  0  0     0    0       6  1  0  3516    4
 1064      28  0  0  5550    4      24  0  1  6276    4      26  0  1  1066    4       0  0  0  1079    3
 1068       0  0  0  1069    3      24  0  2  2736    4      24  1  2    21    4      28  0  2     0    0
 1072       6  1  0  5552    4      18  0  1     6    0       2  1  0  5552    4       6  1  0  5560    4
 1076      18  0  1     6    0       2  1  0  5560    4      26  0  1  1062    4      24  0  2  2666    4
 1080      24  1  2    21    4      28  0  3     0    0      26  0  1  1062    4
 PROCEDURE  815
 1083                                                                                  0  0  0     0    0
 1084      24  1  2    17    4      24  0  2     4    0      18  1  1  4123    0       1  1  3    50    0
 1088      18  1  1     5    0      24  1  2    19    4      28  1  1     4    0       0  1  0  3458    4
 1092       0  0  3     0    4       0  0  2    18    4       6  1  0  3472    4       4  0  0    10    4
 1096      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 1100      26  0  1  1083    4
 PROCEDURE  816
 1101                                0  0  0     0    0      26  0  0  3681    4      26  0  1  1101    4
 PROCEDURE  817
 1104       0  0  0     0    0      24  1  2    15    4       2  1  0     0    0      26  0  0  3717    4
 1108      26  0  1  1104    4
 PROCEDURE  818
 1109                                0  0  0     0    0       6  0  0  6275    4      27  0  0  1116    4
 1112       6  1  0  3520    4      24  1  2    15    4      28  1  1     0    0      24  1  0  1119    4
 1116       6  1  0  2644    4      24  1  2    15    4       2  1  0     2    0      26  0  0  1104    4
 1120      26  0  1  1109    4
 PROCEDURE  819
 1121                                0  0  0     0    0       1  1  3     0    0      24  1  2    15    4
 1124       2  1  0     2    0      24  1  2    15    4       2  1  0     4    0      26  0  1  1121    4
 PROCEDURE  820
 1128       0  0  0     0    0      26  0  0  1109    4      26  0  0  2540    4       6  1  0  2640    4
 1132      24  1  2    15    4       2  1  0     2    0      24  1  2    21    4       6  1  0    49    0
 1136      18  0  1  4125    0       1  1  2     4    0       3  1  0  3458    4      26  1  3  3458    4
 1140       1  1  3     0    0       1  0  1     3    0      24  1  2    21    4      15  1  0    49    0
 1144       2  0  0  1159    4      24  0  1  1159    4      18  1  1     0    0      24  1  2    21    4
 1148      14  1  3     0    0      24  1  2    21    4      24  0  2     0    0      18  1  1  4123    0
 1152       1  1  3    32    0      18  1  1     5    0      24  1  2    15    4      28  1  1     4    0
 1156      26  0  0  1104    4      26  0  0  1109    4      26  0  1  1128    4
 PROCEDURE  821
 1159                                                                                  0  0  0     0    0
 1160       2  1  0  4540    4       0  0  3  3608    4      24  0  2  4590    4      12  1  0  4540    4
 1164      26  0  1  1159    4
 PROCEDURE  822
 1165                                0  0  0     0    0       2  1  0  4540    4       0  0  3  3611    4
 1168      24  0  2  4610    4      12  1  0  4540    4       0  0  3  3608    4      26  0  1  1165    4
 PROCEDURE  823
 1172      26  1  3  2642    4       6  1  0  3522    4       2  1  0  7356    4       6  1  0  3524    4
 1176       2  1  0  7360    4       6  1  0  3526    4      28  0  0  5650    4      24  1  2    21    4
 1180      24  0  2     0    0      18  1  1  4123    0       1  1  3    32    0      18  1  1     5    0
 1184      28  0  0  5650    4      24  0  1  6276    4      26  0  1  1186    4       0  0  0  1189    3
 1188       0  0  0  1204    3      24  0  0    25    4       0  1  2  5650    4      18  1  1     2    0
 1192       1  1  2   125    0      27  0  0  1213    4       1  1  2     1    0      27  0  0  1283    4
 1196       1  1  1   126    0       2  0  0  5714    4       6  1  0  5682    4      18  0  1     2    0
 1200       4  0  0  5714    4       2  1  0  5682    4      26  0  0  1322    4      24  1  0  1192    4
 1204       6  1  0  5650    4       2  1  0  5682    4       2  0  0  5711    4      25  0  3     2    0
 1208      24  1  0  1209    4      24  0  0    25    4       0  1  2  5650    4      18  1  1     2    0
 1212      24  1  0  1214    4
 PROCEDURE  824
 1213                               26  0  0  1322    4       1  1  2   125    0      27  0  0  1229    4
 1216       1  1  2     1    0      27  0  0  1283    4       1  1  1    31    0      27  0  0  1295    4
 1220       1  1  1     4    0      27  0  0  1238    4       1  1  1    91    0       2  0  0  5714    4
 1224       6  1  0  5712    4      18  0  1     2    0       4  0  0  5714    4       2  1  0  5712    4
 1228      24  1  0  1213    4      26  0  0  1351    4      24  0  1  7356    4       2  1  0  5684    4
 1232       2  0  0  5710    4       2  1  0  5712    4      23  0  0     2    0       0  0  0  7356    3
 1236      24  1  0  1213    4      24  1  0  1289    4
 PROCEDURE  825
 1238                                                        26  0  0  1322    4       1  1  2    81    0
 1240      27  0  0  1281    4       1  1  2     1    0      27  0  0  1279    4       1  1  2     1    0
 1244      27  0  0  1292    4       1  1  2     1    0      27  0  0  1277    4       1  1  2     7    0
 1248      27  0  0  1275    4       1  1  2     8    0      27  0  0  1273    4       1  1  2     2    0
 1252      27  0  0  1271    4       1  1  2    13    0      27  0  0  1269    4       1  1  2    11    0
 1256      27  0  1  1260    4      26  0  0  2552    4       6  1  0  2656    4      24  1  0  1230    4
 1260       1  1  2     1    0      27  0  1  1265    4      26  0  0  2552    4       6  1  0  2656    4
 1264      24  1  0  1284    4       1  1  3     0    0      26  0  0  1322    4       1  1  2   125    0
 1268      24  1  0  1256    4       1  1  3    95    0      24  1  0  1223    4       1  1  3   125    0
 1272      24  1  0  1223    4       1  1  3    94    0      24  1  0  1223    4       1  1  3    91    0
 1276      24  1  0  1223    4       1  1  3   127    0      24  1  0  1223    4       1  1  3   126    0
 1280      24  1  0  1223    4       1  1  3   111    0      24  1  0  1223    4      26  0  0  1351    4
 1284      24  0  1  7356    4       2  1  0  5684    4       6  1  0  2648    4      24  0  1  7356    4
 1288       2  1  0  5686    4       6  1  0  3522    4       2  1  0  7360    4      24  1  0   298    4
 1292       1  1  3     1    0       2  0  0  5710    4      24  1  0  1213    4       6  1  0  2648    4
 1296      24  0  1  7356    4       2  1  0  5684    4      24  1  0  1289    4
 PROCEDURE  826
 1299                                                                                  0  0  0     0    0
 1300      24  1  2    21    4       6  1  0     0    0       5  1  0  2586    4      27  0  0  1316    4
 1304       1  1  1    30    0      27  0  0  1318    4       1  1  2    21    0      27  0  0  1318    4
 1308       1  1  1    24    0      27  0  0   559    4      24  1  2    21    4       6  1  0     0    0
 1312      18  0  1  4124    0       5  1  0  3496    4      27  0  0  1320    4      26  0  1  1299    4
 1316      26  0  0  2468    4      24  1  0   259    4      26  0  0  2468    4      24  1  0   531    4
 1320      26  0  0  2468    4      24  1  0   885    4
 PROCEDURE  827
 1322                                                         0  0  0     0    0      23  0  0     1    0
 1324       0  0  0  7360    3      24  1  0  1340    4      24  0  1  6276    4      26  0  1  1327    4
 1328       0  0  0  1334    3       0  0  0  1330    3       6  0  0  5711    4      27  0  1  1342    4
 1332       1  1  3     1    0       2  0  0  5711    4       6  1  0  3524    4       2  1  0  7360    4
 1336      25  0  3     2    0      24  1  0  1338    4      24  0  0    25    4       0  1  2  5650    4
 1340      18  1  1     2    0      26  0  1  1322    4       1  1  3     0    0       2  0  0  5711    4
 1344       6  1  0  3528    4       2  1  0  7360    4      25  0  3     2    0      24  1  0  1348    4
 1348      24  0  0    25    4       0  1  2  5650    4      24  1  0  1229    4
 PROCEDURE  828
 1351                                                                                  0  0  0     0    0
 1352       6  0  0  5710    4      27  0  0  1362    4      18  1  1    10    0       2  1  0  5718    4
 1356       6  1  0  5713    4      26  0  0  1159    4       2  1  0  5713    4       0  1  2  5718    4
 1360       5  1  0  5712    4      24  1  0  1363    4       6  1  0  5712    4      26  0  1  1351    4
 PROCEDURE  829
 1364       0  0  0     0    0       6  1  0  3530    4      28  1  1  1450    4      24  0  1  6276    4
 1368      26  0  1  1368    4       0  0  0  1371    3       0  0  0  1445    3      24  0  2  2678    4
 1372      24  1  2    21    4      28  0  3     0    0       6  1  0  1450    4      26  0  0  1019    4
 1376       2  1  0  1450    4       6  1  0  1454    4      26  0  0  1019    4      18  1  1  4126    0
 1380       2  1  0  2576    4      18  1  1     2    0       1  1  2    84    0      27  0  0  1427    4
 1384       1  1  2    21    0      27  0  0  1426    4       1  1  2    10    0      27  0  0  1425    4
 1388       6  1  0  1454    4      26  0  0  1019    4       6  1  0  2577    4      27  0  3  1423    4
 1392       2  1  0  1454    4       6  1  0  1456    4      26  0  0  1019    4       3  1  0  2576    4
 1396      18  1  1  4126    0       1  1  3     0    0      18  1  1     2    0       1  1  2    84    0
 1400      27  0  0  1407    4       1  1  2    21    0      27  0  0  1406    4       1  1  2    10    0
 1404      27  0  1  1423    4
 PROCEDURE  830
 1405                                1  1  3     1    0       1  1  1     1    0       1  1  1     1    0
 1408       2  0  0  7348    4       6  1  0  2576    4      18  0  1  4126    0       2  1  0  1456    4
 1412       6  1  0  1457    4      27  0  3  1423    4       2  1  0  1456    4       6  1  0  1458    4
 1416      27  0  0  1443    4      27  0  3  1423    4       6  0  0  1456    4       5  0  0  1458    4
 1420      27  0  2  1423    4       1  1  3     0    0      24  1  0  1443    4      26  0  0  1128    4
 1424      24  1  0   881    4
 PROCEDURE  831
 1425                                1  1  3     1    0       1  1  1     1    0       1  1  1     1    0
 1428       2  0  0  7348    4       6  1  0  2577    4      27  0  3  1423    4       2  1  0  1454    4
 1432       6  1  0  1456    4      26  0  0  1019    4       2  1  0  2576    4       6  1  0  2577    4
 1436      27  0  3  1423    4       3  1  0  1456    4      27  0  0  1442    4       6  0  0  1454    4
 1440       5  0  0  1456    4      27  0  2  1423    4       1  1  3     1    0       2  0  0  1460    4
 1444      26  0  1  1364    4
 PROCEDURE  832
 1445                               24  0  2  2752    4      24  1  2    21    4      28  0  2     0    0
 1448      24  1  0  1374    4       0  0  0     0    0
  SECTION   833
 1450                                                             0       0                0       0
 1452           0       0                0       0                0       0                0       0
 1456           0       0                0       0                0       0                0       0
 1460           0       0                0       0
 PROCEDURE  834
 1462                                                         0  0  0     0    0       2  0  0  2564    4
 1464       1  0  1    28    0      15  0  0  2564    4      18  0  1  4126    0      26  0  0  1159    4
 1468       2  0  0  7360    4      26  1  3  3480    4       6  0  3  6206    4       5  0  0  2564    4
 1472      27  0  0  1494    4      25  0  3     2    0      24  1  0  1470    4       0  1  0  3458    4
 1476       0  0  3     0    4       6  0  0     1    4       4  0  0  7360    4       2  0  0  3464    4
 1480       0  1  1  3458    4      24  0  3  3464    4       6  0  0  1074    0       3  0  0  1165    4
 1484      27  0  0  1495    4       1  1  3     0    0       1  0  1     3    0      15  0  0  2564    4
 1488      26  0  0  1159    4       1  1  2     2    0       3  0  0  1159    4      27  0  1  1496    4
 1492       6  0  0  1165    4      24  1  0  1495    4       6  0  3  6207    4      26  0  1  1462    4
 1496       1  1  3     0    0      26  0  1  1462    4
 PROCEDURE  835
 1498                                                         0  0  0     0    0       2  0  0  2564    4
 1500      26  1  3  3532    4       1  0  1    28    0       1  1  3     0    0      15  0  3  5979    4
 1504      18  0  1  4126    0       5  0  0  2564    4      27  0  2  1509    4      25  0  3     1    0
 1508      24  1  0  1502    4       1  1  3     0    0       1  0  1     1    0      15  0  3  5979    4
 1512      26  0  1  1498    4
 PROCEDURE  836
 1513                                0  0  0     0    0       1  0  1     1    0      15  0  3  5038    4
 1516       2  0  0  7360    4       1  1  3     0    0      24  0  1  7360    4      15  0  0  5979    4
 1520      26  0  1  1513    4
 PROCEDURE  837
 1521                                0  0  0     0    0       2  0  0  2564    4      26  1  3  5140    4
 1524      25  0  3     0    0      24  1  0  1527    4      24  1  0  1534    4       1  0  1  1031    0
 1528      15  0  3  5142    4       5  0  0  2564    4      27  0  0  1535    4       1  1  3     0    0
 1532      25  0  3     2    0      24  1  0  1528    4      26  0  1  1521    4       1  0  1    24    0
 1536      15  0  3  5142    4      26  0  1  1521    4
 PROCEDURE  838
 1538                                                         0  0  0     0    0       0  0  3  3611    4
 1540      26  1  3  3484    4       1  1  3     2    0       3  0  3  5605    4       1  1  1     2    0
 1544      25  0  3     1    0      24  1  0  1542    4       0  0  3  3608    4      26  1  2  3522    4
 1548       1  1  3     1    0       2  0  0  7351    4       1  1  3     1    0       2  0  0  7347    4
 1552       1  1  3     2    0       2  0  0  7350    4       1  1  3     2    0       2  0  0  7346    4
 1556       2  1  0  2636    4      26  0  0  1109    4      26  0  1  1538    4
 PROCEDURE  839
 1559                                                                                  0  0  0     0    0
 1560       0  0  3  3611    4      26  1  3  3484    4       1  0  1    15    0       1  1  3    20    0
 1564      15  0  3  5605    4       2  0  3  5605    4      25  0  3     1    0      24  1  0  1563    4
 1568       0  0  3  3608    4      26  0  1  1559    4
 PROCEDURE  840
 1570                                                         0  0  0     0    0       1  1  3     2    0
 1572       0  0  3  3611    4       7  0  0  5754    4       0  0  3  3608    4      26  0  1  1570    4
 PROCEDURE  841
 1576       0  0  0     0    0      26  0  0  1109    4      26  0  0  1109    4       6  1  0  3534    4
 1580       2  1  0  7356    4      24  0  2  2790    4      24  1  2    15    4      28  1  2     2    0
 1584      26  0  0  1104    4      24  1  2    21    4       6  1  0     0    0      18  0  1  4124    0
 1588       5  1  0  3496    4      27  0  0  1591    4      26  0  0   994    4      26  0  0  1109    4
 1592      26  0  1  1576    4
 PROCEDURE  842
 1593                                0  0  0     0    0      23  0  0     1    0       0  0  0  7356    3
 1596      24  1  0  1598    4      24  1  0   914    4       6  1  0  3536    4      28  1  1  5568    4
 1600       2  1  0  2634    4       2  1  0  2636    4       2  1  0  2638    4       6  0  0  5550    4
 1604      26  0  0   131    4       3  0  0  5550    4       3  0  0  5568    4      26  0  0  1462    4
 1608      27  0  0   914    4       2  0  0  5569    4       6  0  0  7360    4      26  0  0  1498    4
 1612      24  0  3     0    4       6  0  0     6   22       2  0  0  5570    4
 PROCEDURE  843
 1615                                                                                  6  0  0  5551    4
 1616      27  0  0   895    4      27  0  3   895    4       1  1  2     7    0      27  0  2   895    4
 1620       1  1  1     7    0      18  0  1     4    0       7  0  0  5570    4       6  0  0  5551    4
 1624       2  0  0  7349    4       6  0  0  5552    4       1  1  2   598    0      27  0  2   934    4
 1628       1  1  1   598    0      26  0  0  1159    4      18  0  1     3    0       2  0  0  5571    4
 1632       6  0  0  5553    4       1  1  2   598    0      27  0  2   937    4       1  1  1   598    0
 1636      26  0  0  1159    4       7  0  0  5571    4       6  0  0  5554    4      27  0  0   940    4
 1640       1  1  2   598    0      27  0  2   940    4       1  1  1   598    0      26  0  0  1159    4
 1644      18  0  1     1    0       7  0  0  5570    4      26  1  2  2642    4      26  1  1  3538    4
 PROCEDURE  844
 1648      24  0  1  7349    4      26  0  1  1649    4       0  0  0  1656    3       0  0  0  1656    3
 1652       0  0  0  1668    3       0  0  0  1668    3       0  0  0  1796    3       0  0  0  1734    3
 1656       6  0  1  5555    4      27  0  0  1796    4       5  0  0  2565    4      27  0  0  1661    4
 1660      27  0  2  1717    4       4  0  0  2565    4       2  0  2  5572    4      25  0  2     4    0
 1664      24  1  0  1665    4      25  0  1     1    0      24  1  0  1656    4      24  1  0  1796    4
 PROCEDURE  845
 1668       6  0  1  5555    4      27  0  0  1796    4      27  0  3  1722    4       1  1  2   256    0
 1672      27  0  2  1722    4       6  0  1  5555    4      26  0  0  1159    4       3  0  2  5572    4
 1676      24  0  3     0    4       2  0  0     6   22       6  0  3  5038    4      27  0  0  1722    4
 1680       6  0  0  6270    4      27  0  0  1691    4      24  0  3     0    4       6  1  0     4   22
 1684       3  1  0  2764    4      24  0  3    24    4       7  0  0     0    0      24  1  2    17    4
 1688       6  1  2    21    0      26  1  2  2764    4      24  1  0  1694    4       0  0  2  2559    4
 1692      15  0  3  5038    4      18  0  1  4127    0      27  0  0  1722    4       2  0  2  5575    4
 1696       0  0  2  2560    4      15  0  3  5038    4      27  0  1  1705    4      24  0  3     1    4
 1700       6  0  3  1074    0       2  0  2  5574    4      26  0  0  1513    4      18  0  1     3    0
 1704      24  1  0  1711    4      18  0  3     1    0      18  0  1  4127    0       2  0  2  5573    4
 1708       6  0  2  5572    4      26  0  0  1521    4      27  0  0  1722    4       7  0  2  5572    4
 1712      25  0  2     4    0      24  1  0  1714    4      25  0  1     1    0      24  1  0  1668    4
 1716      24  1  0  1796    4       6  1  0  3540    4      26  0  0   943    4      27  0  0  1665    4
 1720      26  0  0   955    4      24  1  0  1665    4       6  1  0  3542    4      26  0  0   943    4
 1724      27  0  0  1714    4      26  0  0   955    4      24  1  0  1714    4       6  1  0  3544    4
 1728      26  0  0   943    4      27  0  0  1794    4      18  0  3     3    0      18  0  1  4127    0
 1732      26  0  0   955    4      24  1  0  1794    4
 PROCEDURE  846
 1734                                                        26  1  1  3518    4       6  0  1  5556    4
 1736      27  0  3  1727    4      26  0  0  1159    4       2  0  2  5574    4       6  0  1  5555    4
 1740      27  0  0  1796    4      27  0  3  1727    4       1  1  2  2457    0      27  0  2  1727    4
 1744       6  0  1  5555    4      18  1  1  4126    0      27  0  1  1762    4      18  1  1     2    0
 1748      26  0  0  1159    4       3  0  2  5573    4      24  0  3     0    4       2  0  0     6   22
 1752      24  0  3     1    4       6  0  3  1074    0      27  0  0  1727    4       4  0  2  5574    4
 1756       2  0  2  5572    4       6  0  0  3609    4       7  0  2  5573    4       1  1  3     0    0
 1760      26  0  0  1513    4      24  1  0  1790    4      18  1  1     2    0      26  0  0  1159    4
 1764       2  0  2  5573    4       6  0  1  5556    4       1  1  2     2    0      27  0  3  1727    4
 1768       1  1  2   152    0      27  0  2  1727    4       6  0  1  5555    4      18  0  1     2    0
 1772       0  0  3  3611    4       4  0  1  5556    4       0  0  3  3608    4      26  0  0   131    4
 1776       3  0  0  1462    4      18  1  1  4126    0       2  0  1  5555    4      18  1  1     2    0
 1780       2  0  1  5556    4       6  0  0  1462    4      26  0  0  1462    4      27  0  1  1787    4
 1784       6  0  0  1165    4      27  0  0  1727    4       4  0  0  1159    4       2  0  2  5572    4
 1788       6  1  0  7360    4      26  0  0  1498    4      18  0  1     4    0       7  0  2  5572    4
 1792      25  0  2     3    0      24  1  0  1794    4      25  0  1     2    0      24  1  0  1735    4
 PROCEDURE  847
 1796       6  0  0  7356    4       3  0  0  2566    4       1  1  1    64    0       4  1  0  2590    4
 1800      24  1  2    19    4       2  1  0    50    0       6  1  0  2586    4      24  1  2    19    4
 1804       2  1  0     4    0      24  0  2  5568    4      18  1  1  4123    0       1  1  3    22    0
 1808      18  1  1     5    0      24  1  2    19    4      28  0  1     7    0      26  0  0  1101    4
 1812      24  0  2  2820    4      24  1  2    15    4      28  1  2     2    0       6  0  0  5551    4
 1816       1  1  2     6    0      27  0  0  1822    4      24  0  2  2834    4      24  1  2    15    4
 1820      28  1  2    18    0      24  1  0  1844    4      24  0  2  2852    4      24  1  2    15    4
 1824      28  1  2    18    0      26  1  3  3546    4       1  1  3     0    0       0  1  0  3458    4
 1828       0  0  3     0    4      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4
 1832       4  0  0     6   22       2  0  0  3464    4       0  1  1  3458    4      24  0  3  3464    4
 1836       0  1  2    22    0      18  1  1     2    0      27  0  0  1837    4      18  1  1     8    0
 1840      24  1  2    15    4       2  1  3    22    0      25  0  3     4    0      24  1  0  1827    4
 1844      26  0  0  1104    4      26  0  1  1593    4
 PROCEDURE  848
 1846                                                         0  0  0     0    0      24  0  2  2896    4
 1848      24  1  2    15    4      28  1  2     2    0       6  1  0  2646    4      26  0  0  1104    4
 1852       1  1  3     2    0       2  0  0  7352    4      26  0  1  1846    4
 PROCEDURE  849
 1855                                                                                  0  0  0     0    0
 1856       6  0  0  5000    4       2  1  0  5569    4       2  1  0  2636    4       6  0  0  5554    4
 1860       3  0  0  5757    4       2  1  0  5575    4       6  0  0  5557    4      27  0  1  1870    4
 1864      26  0  0  2552    4       6  1  0  2606    4      18  0  1  4124    0       2  1  0  2636    4
 1868       1  1  3     9    0       3  0  0  5557    4       3  1  0  5581    4       6  0  0  5555    4
 1872       1  1  2  4097    0      27  0  3  1879    4       6  1  0  2626    4       2  1  0  2636    4
 1876      26  0  0  2552    4       6  0  0  5555    4       1  1  2  4097    0       1  1  1  4097    0
 1880       3  0  0  5758    4       3  1  0  5585    4      26  0  0  1159    4      18  0  3     1    0
 1884       1  1  2     4    0       2  1  0  5579    4       6  0  0  5558    4       3  1  0  5587    4
 1888      27  0  0  1894    4       1  1  3     1    0       3  0  0  5558    4       2  1  0  5587    4
 1892       6  1  0  2632    4      24  1  0  1895    4       6  1  0  2630    4       2  1  0  2634    4
 PROCEDURE  850
 1896       6  0  0  5561    4      27  0  0  1907    4      18  1  1  4125    0       2  0  0  2564    4
 1900       6  0  0  5553    4      18  1  1  4125    0       5  0  0  2564    4      27  0  0  1905    4
 1904      26  0  0   972    4       6  1  0  5560    4      24  1  0  1909    4       6  1  0  5552    4
 1908       3  1  0  5560    4      18  0  1  4122    0       2  1  0  5572    4       6  1  0  5552    4
 1912      18  0  1  4122    0       2  1  0  5588    4       6  0  0  5139    4      27  0  0  1926    4
 1916      26  1  1  5138    4       6  0  1  5143    4      18  0  3     2    0      18  0  1  4126    0
 1920       4  0  0  3613    4      18  0  1     1    0       5  0  0  5553    4      27  0  0  1931    4
 1924      25  0  1     2    0      24  1  0  1917    4       6  0  0  3614    4       3  1  0  5588    4
 1928      18  0  1     6    0       2  1  0  5552    4      26  0  0   972    4       1  1  3    63    0
 1932      18  1  1  4118    0      15  0  1  5143    4       1  1  2     7    0      27  0  0  1941    4
 1936       1  1  2     1    0      27  0  0  1941    4       1  1  2     3    0      27  0  0  1941    4
 1940      26  0  0   972    4      24  0  3     0    4       6  1  0     2   22      18  0  3     3    0
 1944      18  0  1  4127    0       1  1  1     1    0       4  0  0  2565    4       4  0  0  2565    4
 1948       2  1  0  5571    4       6  0  0  5556    4       3  0  0  5759    4       3  1  0  5583    4
 1952      26  0  0  1159    4      26  0  0  1521    4      27  0  1  1956    4      26  0  0   972    4
 1956      18  0  1  4125    0       2  1  0  5577    4      26  0  0  1109    4      26  0  0  1109    4
 1960       6  1  0  3548    4      24  1  2    19    4      28  0  0     0    0       6  1  0  2582    4
 1964      24  1  2    19    4       2  1  0     4    0      24  0  2  5568    4      18  1  1  4123    0
 1968       1  1  3    22    0      18  1  1     5    0      24  1  2    19    4      28  1  1     6    0
 1972      26  0  0  1101    4       6  1  0  3550    4      28  0  0  5590    4       1  1  3     8    0
 1976       2  0  0  5604    4      26  1  1  3546    4       6  0  0  5558    4       1  1  1     1    0
 1980       2  0  0  7345    4      26  0  1  1855    4
 PROCEDURE  851
 1982                                                         0  0  0     0    0      24  0  1  7346    4
 1984      26  0  1  1984    4       0  0  0  1990    3       0  0  0  1987    3       1  1  3     1    0
 1988       2  0  0  7346    4      24  1  0  2008    4      25  0  1     2    0      24  1  0  2008    4
 1992      26  1  3  3546    4      26  1  1  3476    4       6  0  3  5627    4      24  1  2    19    4
 1996       2  1  1     5    0       6  0  3  5626    4      24  1  2    19    4       2  1  1     7    0
 2000      25  0  1     4    0      24  1  0  2002    4      25  0  3     2    0      24  1  0  1994    4
 2004      26  0  0  1101    4      26  1  1  3546    4       6  1  0  3552    4      28  0  0  5626    4
 2008      26  0  1  1982    4
 PROCEDURE  852
 2009                                0  0  0     0    0      24  0  1  7350    4      26  0  1  2011    4
 2012       0  0  0  2032    3       0  0  0  2014    3      24  0  2  2936    4      24  1  2    15    4
 2016      28  1  2     2    0       0  0  3  3611    4       1  1  3     1    0       7  0  0  5604    4
 2020       0  0  3  3608    4       1  1  3     1    0       2  0  0  7350    4       6  0  0  5604    4
 2024      18  1  1  4124    0      27  0  0  2031    4       6  0  0  3615    4      24  1  2    15    4
 2028       2  0  0     3    0      18  1  1     4    0       2  0  0  5604    4      24  1  0  2033    4
 2032      26  0  0  1121    4      24  0  2  2942    4      24  1  2    15    4      28  1  2     6    0
 2036      24  0  3     0    4       6  1  0     2   22       2  1  0  2576    4      24  0  3     0    4
 2040       6  1  0     4   22       2  1  0  4540    4      26  1  1  3484    4      26  1  2  3554    4
 2044       6  0  1  5605    4      27  0  2  2050    4       1  0  1     6    0       1  1  3   672    0
 2048      24  1  2    15    4      14  0  2     7    0      25  0  1     1    0      24  1  0  2052    4
 2052      25  0  2     6    0      24  1  0  2044    4      26  1  1  2576    4      26  1  2  4540    4
 2056      26  0  1  2009    4
 PROCEDURE  853
 2057                                0  0  0     0    0      26  0  0  2009    4       1  1  3    42    0
 2060      18  0  1     5    0      24  0  3     0    4       4  0  0     4   22      24  0  3     0    4
 2064       4  0  0     4   22      24  0  3     0    4       4  0  0     4   22       3  1  0  3458    4
 2068      26  1  3  3458    4       6  1  0  3556    4       0  1  0  3458    4       0  0  3     0    4
 2072      24  1  2    15    4      24  0  2     0    0      24  0  3     0    4       4  0  0     6   22
 2076       2  0  0  3464    4       0  1  1  3458    4      24  0  3  3464    4      28  0  0     6    0
 2080      25  0  3     6    0      24  1  0  2069    4       2  0  0  5729    4      26  0  0  1104    4
 2084      24  0  1  7351    4      26  0  1  2085    4       0  0  0  2095    3       0  0  0  2088    3
 2088      24  0  2  3002    4      24  1  2    15    4      28  1  2     6    0      26  0  0  1121    4
 2092      26  0  0  1104    4       6  1  0  3558    4      28  0  0  5612    4       1  1  3     3    0
 2096       2  0  0  7347    4      26  0  1  2057    4
 PROCEDURE  854
 2098                                                        24  1  2    17    4       6  1  0     7    0
 2100       2  0  0  5550    4       1  0  1    16    0      24  1  2    17    4      15  1  0    11    0
 2104      18  0  1  4124    0       2  0  0  5551    4       1  0  1    24    0      24  1  2    17    4
 2108      15  1  0    13    0      18  0  1  4125    0      26  0  0  1165    4       2  0  0  5552    4
 2112       1  0  1     3    0      24  1  2    17    4      15  1  0    13    0      26  0  0  1165    4
 2116       2  0  0  5553    4       1  0  1     6    0      24  1  2    17    4      15  1  0    11    0
 2120      18  0  1  4127    0      26  0  0  1165    4       2  0  0  5554    4
 PROCEDURE  855
 2123                                                                                  6  0  0  5551    4
 2124       1  1  2     6    0      27  0  1  2143    4      26  1  1  3518    4      26  1  2  2642    4
 2128       1  1  3     0    0       1  0  1    15    0      24  1  2    17    4      15  1  2    17    0
 2132      26  0  0  1165    4       2  0  1  5555    4      24  1  2    17    4       6  1  2    19    0
 2136      26  0  0  1165    4       2  0  1  5556    4      25  0  2     6    0      24  1  0  2140    4
 2140      25  0  1     2    0      24  1  0  2128    4      24  1  0  2162    4       6  0  0  5551    4
 2144       1  1  2     5    0      27  0  1  2150    4       2  0  0  5555    4       2  1  0  5556    4
 2148       2  1  0  5558    4      24  1  0  2162    4      26  1  1  3538    4      26  1  2  2642    4
 2152       1  1  3     0    0       1  0  1     7    0      24  1  2    17    4      15  1  2    15    0
 2156      26  0  0  1165    4       2  0  1  5555    4      25  0  2     8    0      24  1  0  2160    4
 2160      25  0  1     1    0      24  1  0  2152    4      26  0  0  1593    4      24  1  0   458    4
 PROCEDURE  856
 2164       0  0  0     0    0       6  0  0  6266    4      18  0  1  4124    0       1  1  2     7    0
 2168      27  0  2  2227    4      24  1  2    17    4       6  1  0    10    0       2  1  0  5560    4
 2172      24  1  2    17    4       6  1  0    13    0       2  0  0  5554    4       2  0  0  5557    4
 2176       2  0  0  5558    4      24  1  2    17    4       6  1  0    17    0      18  0  3     3    0
 2180      18  0  1  4127    0      26  0  0  1165    4       2  0  0  5555    4       0  0  3  3608    4
 2184      24  1  2    17    4       6  1  0    15    0      18  0  1     3    0       2  0  0  2564    4
 2188      26  1  3  5140    4      25  0  3     0    0      24  1  0  2192    4      24  1  0  2199    4
 2192       1  0  1    24    0      15  0  3  5142    4       5  0  0  2564    4      27  0  0  2200    4
 2196       1  1  3     0    0      25  0  3     2    0      24  1  0  2192    4      26  0  0   972    4
 2200       1  0  1     7    0      15  0  3  5142    4      26  0  0  1159    4       2  0  0  5556    4
 2204      24  1  2    17    4       6  1  0     9    0       5  0  0  2565    4       5  0  0  2565    4
 2208       1  1  2     1    0      18  0  3     1    0       3  1  0  3458    4      26  1  3  3458    4
 2212       6  0  3  5143    4      18  0  3     2    0      18  0  1  4126    0       4  0  0  3613    4
 2216      18  0  1     6    0       2  1  0  5552    4      26  0  0  1855    4      26  0  0  1846    4
 2220       1  1  3     8    0       2  0  0  5728    4       6  1  0  3504    4       2  1  0  7354    4
 2224      26  0  0  2417    4      26  0  0  2468    4      26  0  1  2164    4      26  0  0   593    4
 2228       6  0  0  6202    4      27  0  1  2219    4       6  1  0  2636    4      27  0  1  2219    4
 2232      24  1  2    17    4       6  1  0    26    0       2  0  0  2638    4      24  0  2  3018    4
 2236      24  1  2    15    4      28  1  2     2    0      26  0  0  1104    4      26  0  0  2246    4
 2240      27  0  0  2243    4      26  0  0  1083    4      24  1  0  2239    4       1  1  3     1    0
 2244       2  0  0  7352    4      26  0  1  2164    4
 PROCEDURE  857
 2246                                                         0  0  0     0    0      26  0  0   983    4
 2248      24  1  2    17    4       6  1  0     4    0       5  1  0  2584    4      27  0  0  2257    4
 2252       4  1  0  2584    4       5  1  0  2582    4      27  0  0  2257    4       4  1  0  2582    4
 2256       1  1  2    85    0      26  0  1  2246    4
 PROCEDURE  858
 2258                                                         0  0  0     0    0       6  1  2  5590    4
 2260       5  1  0  2656    4      27  0  1  2267    4       6  1  0  2656    4       2  1  2  5612    4
 2264       1  1  3     2    0       2  0  0  7351    4      24  1  0  2335    4       1  1  3    63    0
 2268      18  1  1  4118    0      15  1  2  5590    4       2  1  0  5712    4      15  1  0  2648    4
 2272       5  1  0  5712    4      27  0  0  2324    4       1  1  3     0    0      15  1  0  2650    4
 2276       5  1  0  5712    4      27  0  0  2333    4      18  1  1     2    0       1  1  3     0    0
 2280      27  1  1  2269    4      24  0  1  7347    4      26  0  1  2282    4       0  0  0  2335    3
 2284       0  0  0  2286    3       0  0  0   880    3       6  1  0  2644    4       2  1  1  5626    4
 2288       6  1  2  5590    4       5  1  0  3560    4      27  0  0  2295    4       1  0  1    48    0
 2292       6  1  0  3562    4      14  1  0  2636    4      26  0  0  2552    4      24  0  1  7345    4
 2296      26  0  1  2296    4       0  0  0  2354    3       0  0  0  2299    3      24  0  3     0    4
 2300       6  0  0     4   22      18  0  3     3    0      18  0  1  4127    0      24  0  3     0    4
 2304       2  0  0     6   22       1  1  3     0    0       1  0  1    15    0      15  0  3  5605    4
 2308       5  0  0  5756    4      27  0  0  2314    4       1  0  1     3    0       6  1  0  3562    4
 2312      14  1  0  2636    4      26  0  0  2552    4       1  1  3     0    0       1  0  1    15    0
 2316      15  0  3  5605    4       5  0  0  5755    4      27  0  0  2339    4       1  0  1    12    0
 2320       6  1  0  3562    4      14  1  0  2636    4      26  0  0  2552    4      24  1  0  2339    4
 2324       1  1  3     2    0       2  0  0  7347    4       6  1  0  2652    4      14  1  2  5590    4
 2328       6  1  0  2656    4      14  1  2  5612    4       1  1  3     2    0       2  0  0  7351    4
 2332      24  1  0  2278    4       6  1  0  2654    4      24  1  0  2327    4      24  0  1  7345    4
 2336      26  0  1  2336    4       0  0  0  2354    3       0  0  0  2339    3      24  0  3     0    4
 2340       6  0  0     4   22      18  0  3     3    0      18  0  1  4127    0       2  0  0  1559    4
 2344       1  0  1    15    0      24  0  1  1559    4      15  0  0  5605    4       5  0  0  5755    4
 2348      27  0  1  2354    4       6  1  1  5627    4      26  0  0  1165    4       0  0  3  3611    4
 2352       7  0  0  5755    4       0  0  3  3608    4      26  0  0  1982    4      25  0  2     2    0
 2356      24  1  0  2388    4      26  1  3  3522    4       6  1  3  5590    4      27  0  1  2363    4
 2360      25  0  3     2    0      24  1  0  2358    4      24  1  0  2381    4
 PROCEDURE  859
 2363                                                                                 26  0  0  2009    4
 2364      26  0  0  1104    4      24  0  1  7351    4      26  0  1  2366    4       0  0  0  2381    3
 2368       0  0  0  2369    3      26  0  0  1121    4      24  0  2  3002    4      24  1  2    15    4
 2372      28  1  2     6    0      26  0  0  1104    4       6  1  0  3558    4      28  1  1  5612    4
 2376      24  0  1  7347    4      26  0  1  2377    4       0  0  0  2381    3       0  0  0  2386    3
 2380       0  0  0   880    3      26  1  2  3522    4      26  0  0  1559    4       1  1  3     1    0
 2384       2  0  0  7351    4      26  0  1  2258    4       1  1  3     3    0       2  0  0  7347    4
 2388      26  0  1  2258    4
 PROCEDURE  860
 2389                                0  0  0     0    0      24  0  1  7354    4       6  1  0  5730    4
 2392       3  1  1  5626    4       2  1  2  5590    4      24  0  1  7346    4      26  0  1  2395    4
 2396       0  0  0  2414    3       0  0  0  2398    3      24  0  1  7345    4      26  0  1  2399    4
 2400       0  0  0  2407    3       0  0  0  2402    3       1  1  3     6    0       3  0  0  5755    4
 2404       4  1  2  5591    4      26  0  0  1165    4       2  0  0  5756    4       1  1  3     1    0
 2408       2  0  0  7346    4       6  1  2  5590    4       2  1  2  5592    4       2  1  2  5590    4
 2412      25  0  2     2    0      24  1  0  2414    4      26  0  0  2258    4      26  0  0  2417    4
 2416      26  0  1  2389    4
 PROCEDURE  861
 2417                                0  0  0     0    0      24  0  1  7354    4       6  1  0  5730    4
 2420       5  1  0  2644    4      27  0  1  2426    4       0  0  3  3611    4       1  1  3     1    0
 2424       7  0  0  5728    4       0  0  3  3608    4      23  0  0     2    0       0  0  0  7354    3
 2428      24  1  0  2448    4      26  0  0   983    4      24  0  3     0    4       6  1  0     2   22
 2432       2  1  0  2764    4      26  1  1  3476    4      26  1  3  3546    4      24  1  2    17    4
 2436       6  1  1     5    0      18  0  1     5    0      24  1  2    17    4       4  1  1     7    0
 2440       2  1  3  5730    4      25  0  1     4    0      24  1  0  2443    4      25  0  3     2    0
 2444      24  1  0  2435    4      26  1  1  2764    4       6  1  0  3546    4       2  1  0  7354    4
 2448      26  0  1  2417    4
 PROCEDURE  862
 2449                                0  0  0     0    0      24  0  1  7354    4       6  1  0  5730    4
 2452       5  1  0  2644    4      27  0  0  2456    4      26  0  0  2417    4      24  1  0  2450    4
 2456      26  0  0  2417    4      26  0  1  2449    4
 PROCEDURE  863
 2458                                                         0  0  0     0    0      24  0  1  7347    4
 2460      26  0  1  2460    4       0  0  0  2464    3       0  0  0  2466    3       0  0  0  2467    3
 2464      26  0  0  2389    4      24  1  0  2459    4      26  0  0  2057    4      26  0  1  2458    4
 PROCEDURE  864
 2468       0  0  0     0    0      24  1  2    17    4       6  1  0     4    0       5  1  0  2584    4
 2472      27  0  0  2491    4       4  1  0  2584    4       1  1  2    85    0      27  0  0  2491    4
 2476       1  1  1    85    0       5  1  0  2582    4      27  0  0  2491    4       6  0  0  7354    4
 2480       4  0  0  7354    4      24  0  3     0    4       2  0  0     4   22      24  1  2    17    4
 2484       6  1  2     4    0       5  1  0  2580    4      27  0  0  2490    4      26  0  0  1538    4
 2488      26  0  0  2458    4      24  1  0  2479    4      26  0  0   983    4      24  0  1  7352    4
 2492      26  0  1  2492    4       0  0  0  2539    3       0  0  0  2495    3       6  1  0  3546    4
 2496       2  1  0  7366    4      26  1  3  3476    4      24  0  1  7366    4       6  0  0  5627    4
 2500      24  1  2    19    4       2  1  3     5    0      24  0  1  7366    4       6  0  0  5626    4
 2504      24  1  2    19    4       2  1  3     7    0      25  0  3     4    0      24  1  0  2508    4
 2508      23  0  0     2    0       0  0  0  7366    3      24  1  0  2498    4      24  0  3     0    4
 2512       6  0  0     2   22      24  0  3     0    4       4  0  0     2   22      24  0  3     0    4
 2516       2  0  0     2   22       6  1  0  2580    4      24  1  2    19    4       2  1  1     4    0
 2520      26  0  0  1101    4      24  0  2  2936    4      24  1  2    15    4      28  1  2     2    0
 2524       6  1  0  3564    4      24  1  2    15    4       2  1  0     8    0       6  0  0  6275    4
 2528      27  0  0  2533    4       6  1  0  3566    4      24  1  2    15    4      28  0  0    10    0
 2532      24  1  0  2536    4       6  1  0  2644    4      24  1  2    15    4       2  1  0    10    0
 2536      26  0  0  1104    4       1  1  3     1    0       2  0  0  7352    4      26  0  1  2468    4
 PROCEDURE  865
 2540       0  0  0     0    0       1  1  3     1    0       0  0  3  3611    4       7  0  0  2567    4
 2544       0  0  3  3608    4      26  0  1  2540    4
 PROCEDURE  866
 2546                                                         0  0  0     0    0       1  1  3     1    0
 2548       0  0  3  3611    4       7  0  0  2568    4       0  0  3  3608    4      26  0  1  2546    4
 PROCEDURE  867
 2552       0  0  0     0    0       1  1  3     1    0       0  0  3  3611    4       7  0  0  2569    4
 2556       0  0  3  3608    4      26  0  1  2552    4
  SECTION   868
 2558                                                         £££££       0            3£££0       0
 2560       80000       0            123.:       0              3££       0                0       0
  SECTION   869
 2564           0       0                0       0                0       0                0       0
 2568           0       0                0       0                0       0                0       0
 2572           0       0                0       0                0       0                0       0
 2576           0       0                0       0
  SECTION   870
 2578                                                         16454       0            73695       0
 2580       56554       0            56595       0            16773       0            53585       0
 2584       56554       0            67695       0            35572       0            56596       0
 2588       46772       0            54746       0            46700       0            54746       0
 2592       65700       0            67696       0            40000       0            59655       0
  SECTION   871
 2596       95163       0            55695       0            86755       0              737       0
 2600       16772       0            53585       0            36572       0            72555       0
 2604       96573       0            67665       0            36669       0            72557       0
 2608       65362       0            52636       0            77358       0              635       0
 2612       57Ю7‼       0            69746       0            16373       0            74655       0
 2616       55400       0            55695       0            46455       0            69516       0
 2620       95163       0            73695       0            35100       0            54517       0
 2624       16554       0            5‼655       0            45272       0                6       0
 2628       45569       0            66695       0            65977       0            5Ю005       0
 2632       55169       0            5Ю007       0                0       0                0       0
 2636           0       0                0       0                0       0                0       0
 2640       17300       0            5:677       0
  SECTION   872
 2642                                                             0       0                0       0
 2644          7.       0            7.000       0              800       0                0       0
 2648       .7.7.       0            7.7.7       0            .5.5.       0            5.5.5       0
 2652       25252       0            52525       0            36363       0            63636       0
 2656       ‼5‼5‼       0            5‼5‼5       0            £5£5£       0            5£5£5       0
 2660       :5:5:       0            5:5:5       0
  SECTION   873
 2662                                                      0   5550   3     5550   3  1  5 10 14   0
 2664    0   5552   3     5552   8  1  5 11  0   1         0   5550   3     5550   3  1  5 10 14   0
 2668    0   5552   3     5552   3  1  5 11  0   0         0   5560   3     5560   3  1  5 11  8   0
 2672    0   5554   3     5554   8  1  5 11  2   1         0   2564   3     2564   0  0 10  0  4   0
 2676    0   5550   3     5550   8  1  5 10 14   1         0   1450   3     1450   3  0  5 10 10   0
 2680    0   1450   3     1450   3  0  5 10 10   0         0   1452   3     1452   2  0  5 10 12   0
 2684    0   1454   3     1454   3  0  5 10 14   0         0   1456   3     1456   3  0  5 11  0   0
 2688    0   1458   3     1458   2  0  5 11  2   1
  SECTION   874
 2690                                                      0   5550   3        5   3  0  0  0  5   0
 2692    0   5552   3        3   0  0  0  0  3   0         0   5553   3        2   0  0  0  0  2   0
 2696    0   5554   3        5   0  0  0  0  5   1         0   5550   3        6   0  0  0  0  6   0
 2700    0   5550   3        5   0  0  0  0  5   0         0   5551   3        1   0  0  0  0  1   0
 2704    0   5552   3        3   0  0  0  0  3   0         0   5553   3        3   0  0  0  0  3   0
 2708    0   5554   3        3   0  0  0  0  3   0         0   5555   3        4   0  0  0  0  4   0
 2712    0   5556   3        4   0  0  0  0  4   0         0   5557   3        4   0  0  0  0  4   0
 2716    0   5558   3        4   0  0  0  0  4   0         0   5559   3        4   0  0  0  0  4   0
 2720    0   5560   3        4   0  0  0  0  4   0         0   5561   3        4   0  0  0  0  4   0
 2724    0   5562   3        4   0  0  0  0  4   0         0   5563   3        4   0  0  0  0  4   0
 2728    0   5564   3        4   0  0  0  0  4   0         0   5565   3        4   0  0  0  0  4   0
 2732    0   5566   3        4   0  0  0  0  4   0         0   5567   3        4   0  0  0  0  4   1
 2736    0   5550   3        5   3  0  0  0  5   0         0   5552   3        2   3  0  0  0  2   0
 2740    0   5560   3        2   3  0  0  0  2   0         0   5554   3        4   0  0  0  0  4   0
 2744    0   5555   3        4   0  0  0  0  4   0         0   5556   3        2   0  0  0  0  2   0
 2748    0   5557   3        1   0  0  0  0  1   0         0   5558   3        1   0  0  0  0  1   1
 2752    0   1450   3        5   3  0  0  0  5   0         0   1450   3        2   3  0  0  0  2   0
 2756    0   1452   3        1   2  0  0  0  1   0         0   1454   3        5   3  0  0  0  5   0
 2760    0   1456   3        5   3  0  0  0  5   0         0   1458   3        5   2  0  0  0  5   1
  SECTION   875
 2764    0   2592   3       84   3  0  0  5  4   0         0   2618   3        5   3  0  0  0  5   0
 2768    0   5000   3       21   0  0  0  1  5   0         0   2586   3     1057   3  0  4  2  1   0
 2772    0   2596   3        5   3  0  0  0  5   0         0   5001   3    16405   0  4  0  1  5   0
 2776    0   2620   3       37   3  0  0  2  5   0         0   2622   3       20   3  0  0  1  4   0
 2780    0   2624   3      531   3  0  2  1  3   0         0   2588   3       21   3  0  0  1  5   0
 2784    0   2604   3       21   3  0  0  1  5   0         0   2586   3     1025   3  0  4  0  1   0
 2788    0   2644   3      273   3  0  1  1  1   1
  SECTION   876
 2790                                                      0   2602   3      209   3  0  0 13  1   0
 2792    0   2596   3        5   3  0  0  0  5   0         0   2598   3      292   3  0  1  2  4   0
 2796    0   2602   3      801   3  0  3  2  1   0         0   2561   3        1   0  0  0  0  1   0
 2800    0   2602   3      817   3  0  3  3  1   0         0   2561   3      257   0  0  1  0  1   0
 2804    0   2602   3      817   3  0  3  3  1   0         0   2561   3      513   0  0  2  0  1   0
 2808    0   2600   3       85   3  0  0  5  5   0         0   2602   3       21   3  0  0  1  5   0
 2812    0   2606   3      786   3  0  3  1  2   0         0   2604   3       21   3  0  0  1  5   0
 2816    0   2602   3        1   3  0  0  0  1   0         0   2644   3      321   3  0  1  4  1   1
  SECTION   877
 2820    0   2588   3       84   3  0  0  5  4   0         0   2566   3     1025   0  0  4  0  1   0
 2824    0   5550   3       53   0  0  0  3  5   0         0   5551   3     4930   4  1  3  4  2   0
 2828    0   5552   3     8723   4  2  2  1  3   0         0   5553   3     8723   4  2  2  1  3   0
 2832    0   5554   3     8723   4  2  2  1  3   1         0   5555   3    12899   4  3  2  6  3   0
 2836    0   5556   3    12899   4  3  2  6  3   0         0   5557   3    12899   4  3  2  6  3   0
 2840    0   5558   3    12899   4  3  2  6  3   0         0   2642   3    40970   2 10  0  0 10   0
 2844    0   2634   3      245   3  0  0 15  5   0         0   2636   3        5   3  0  0  0  5   0
 2848    0   2638   3        5   3  0  0  0  5   0         0   2644   3        5   3  0  0  0  5   1
 2852    0   5555   3     8803   0  2  2  6  3   0         0   2561   3     1025   0  0  4  0  1   0
 2856    0   5556   3    12548   4  3  1  0  4   0         0   5557   3     8723   0  2  2  1  3   0
 2860    0   2561   3     1025   0  0  4  0  1   0         0   5558   3    12548   4  3  1  0  4   0
 2864    0   5559   3     8723   0  2  2  1  3   0         0   2561   3     1025   0  0  4  0  1   0
 2868    0   5560   3    12548   4  3  1  0  4   0         0   5561   3     8723   0  2  2  1  3   0
 2872    0   2561   3     1025   0  0  4  0  1   0         0   5562   3    12548   4  3  1  0  4   0
 2876    0   5563   3     8723   0  2  2  1  3   0         0   2561   3     1025   0  0  4  0  1   0
 2880    0   5564   3    12548   4  3  1  0  4   0         0   5565   3     8723   0  2  2  1  3   0
 2884    0   2561   3     1025   0  0  4  0  1   0         0   5566   3    12548   4  3  1  0  4   0
 2888    0   2634   3        5   3  0  0  0  5   0         0   2636   3        5   3  0  0  0  5   0
 2892    0   2638   3        5   3  0  0  0  5   0         0   2644   3        5   3  0  0  0  5   1
  SECTION   878
 2896    0   2586   3       84   3  0  0  5  4   0         0   5552   3       18   3  0  0  1  2   0
 2900    0   2612   3      785   3  0  3  1  1   0         0   5560   3        2   3  0  0  0  2   0
 2904    0   2612   3     1025   3  0  4  0  1   0         0   2612   3       35   3  0  0  2  3   0
 2908    0   5757   3    12564   0  3  1  1  4   0         0   2608   3       37   3  0  0  2  5   0
 2912    0   2610   3      276   3  0  1  1  4   0         0   5758   3    12564   0  3  1  1  4   0
 2916    0   2602   3       36   3  0  0  2  4   0         0   5759   3     4882   0  1  3  1  2   0
 2920    0   2606   3       35   3  0  0  2  3   0         0   5557   3     4882   0  1  3  1  2   0
 2924    0   2594   3       35   3  0  0  2  3   0         0   5558   3     1041   0  0  4  1  1   0
 2928    0   2634   3       21   3  0  0  1  5   0         0   2642   3    41210   2 10  0 15 10   0
 2932    0   2636   3      165   3  0  0 10  5   0         0   2644   3      257   3  0  1  0  1   1
  SECTION   879
 2936    0   2561   3      817   0  0  3  3  1   0         0   5604   3    12564   0  3  1  1  4   0
 2940    0   2561   3      769   0  0  3  0  1   1         0   5605   3    12580   0  3  1  2  4   0
 2944    0   2561   3      801   0  0  3  2  1   0         0   5590   3        5   3  0  0  0  5   0
 2948    0   2561   3      769   0  0  3  0  1   0         0   5606   3    12580   0  3  1  2  4   0
 2952    0   2561   3      801   0  0  3  2  1   0         0   5592   3        5   3  0  0  0  5   0
 2956    0   2561   3      769   0  0  3  0  1   0         0   5607   3    12580   0  3  1  2  4   0
 2960    0   2561   3      801   0  0  3  2  1   0         0   5594   3        5   3  0  0  0  5   0
 2964    0   2561   3      769   0  0  3  0  1   0         0   5608   3    12580   0  3  1  2  4   0
 2968    0   2561   3      801   0  0  3  2  1   0         0   5596   3        5   3  0  0  0  5   0
 2972    0   2561   3      769   0  0  3  0  1   0         0   5609   3    12580   0  3  1  2  4   0
 2976    0   2561   3      801   0  0  3  2  1   0         0   5598   3        5   3  0  0  0  5   0
 2980    0   2561   3      769   0  0  3  0  1   0         0   5610   3    12580   0  3  1  2  4   0
 2984    0   2561   3      801   0  0  3  2  1   0         0   5600   3        5   3  0  0  0  5   0
 2988    0   2561   3      769   0  0  3  0  1   0         0   5611   3    12580   0  3  1  2  4   0
 2992    0   2561   3      801   0  0  3  2  1   0         0   5602   3        5   3  0  0  0  5   0
 2996    0   2561   3      769   0  0  3  0  1   0         0   2636   3      547   3  0  2  2  3   0
 3000    0   2644   3        5   3  0  0  0  5   1
  SECTION   880
 3002                                                      0   5612   3      149   3  0  0  9  5   0
 3004    0   5614   3      165   3  0  0 10  5   0         0   5616   3      165   3  0  0 10  5   0
 3008    0   5618   3      165   3  0  0 10  5   0         0   5620   3      165   3  0  0 10  5   0
 3012    0   5622   3      165   3  0  0 10  5   0         0   5624   3      165   3  0  0 10  5   0
 3016    0   2644   3      257   3  0  1  0  1   1
  SECTION   881
 3018                                                      0   2586   3      244   3  0  0 15  4   0
 3020    0   2638   3      802   3  0  3  2  2   0         0   2606   3      561   3  0  2  3  1   0
 3024    0   2578   3     1041   3  0  4  1  1   0         0   2606   3       19   3  0  0  1  3   0
 3028    0   5557   3     4882   0  1  3  1  2   0         0   2614   3       53   3  0  0  3  5   0
 3032    0   2616   3        4   3  0  0  0  4   0         0   2644   3      273   3  0  1  1  1   1
 PROCEDURE  882
 3036       6  0  0  6269    4      27  0  0  3057    4       6  0  0  6270    4      27  0  0  3049    4
 3040       0  1  0  3458    4       0  0  3     0    4       6  1  0  3568    4       4  0  0     9    4
 3044      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 3048      24  1  0  3057    4       0  1  0  3458    4       0  0  3     0    4       6  1  0  3570    4
 3052       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 3056       0  1  1  3458    4       6  1  0  3572    4      24  1  2    19    4      28  1  1     4    0
 3060       1  1  3    85    0      24  1  2    19    4       2  1  0     4    0      26  0  0  3681    4
 3064       6  0  0  6278    4      27  0  1    33    4       6  1  0  4488    4      24  1  2    19    4
 3068       2  1  0     4    0       6  0  0  5000    4      24  1  2    19    4       2  1  0     7    0
 3072      26  0  0  3681    4       6  1  0  4498    4      24  1  2    19    4       2  1  0     6    0
 3076       6  1  0  4513    4      24  1  2    19    4       2  1  0     9    0       1  1  3     4    0
 3080      24  1  2    19    4       2  1  0    10    0       6  1  0  4512    4      24  1  2    19    4
 3084       2  1  0     4    0      26  0  0  3681    4       6  0  0  5000    4      24  1  2    19    4
 3088       3  1  0     5    0      24  1  2    19    4       2  1  0    13    0       6  0  0  5001    4
 3092      24  1  2    19    4       3  1  0     7    0      24  1  2    19    4       2  1  0    15    0
 3096       1  1  3     2    0      24  1  2    19    4       2  1  0    11    0       1  1  3     3    0
 3100      24  1  2    19    4       3  1  0    19    0       1  1  3     2    0       4  0  0  6278    4
 3104      24  1  2    19    4       2  1  0    17    0       6  1  0  4513    4      24  1  2    19    4
 3108       2  1  0    21    0      26  0  0  3681    4       0  1  0  3458    4       0  0  3     0    4
 3112       6  1  0  3568    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 3116      23  0  2     0  256       0  1  1  3458    4       6  1  0  3572    4      24  1  2    15    4
 3120      28  1  1     0    0      26  1  1  3524    4      26  0  0  3717    4      25  0  1     1    0
 3124      24  1  0  3122    4      24  0  2  4564    4      18  1  1  4123    0       1  1  3    26    0
 3128      18  1  1     5    0      24  1  2    15    4      28  1  1    10    0      26  0  0  3657    4
 3132      26  0  0  3717    4
 PROCEDURE  883
 3133                               26  1  1  3574    4       6  0  0  6272    4      27  0  0  3138    4
 3136       6  1  0  4560    4      24  1  0  3139    4       6  1  0  4562    4      24  1  2    15    4
 3140       2  1  0    12    0       6  0  0  2567    4      27  0  0  3145    4       6  1  0  4560    4
 3144      24  1  0  3146    4       6  1  0  4562    4      24  1  2    15    4       2  1  0    18    0
 3148      26  0  0  4801    4      25  0  1     4    0      24  1  0  3151    4       6  0  0  2568    4
 3152       2  0  0  4542    4       6  0  0  7342    4      26  0  0  4776    4      26  0  0  4811    4
 3156      26  0  0  4801    4      25  0  1     4    0      24  1  0  3159    4       6  0  0  2569    4
 3160       2  0  0  4542    4       6  0  0  7343    4      26  0  0  4776    4      26  0  0  4811    4
 3164      26  0  0  4801    4       6  1  0  3576    4      28  0  0  6246    4       0  0  3  3608    4
 3168      26  0  0  3717    4      25  0  1     1    0      24  1  0  3168    4       6  1  0  3578    4
 3172       2  1  0  4526    4      24  0  2  4514    4      18  1  1  4123    0       1  1  3    14    0
 3176      18  1  1     5    0      24  1  2    15    4      28  1  1     6    0      25  1  1  4096    0
 3180      23  0  2  3182    4      24  1  0  3188    4       0  0  0     0    0      24  0  3     0    4
 3184       0  0  2   156    0      24  0  3     0    4       6  1  0   138    0      26  0  3  3182    4
 3188       2  1  0  4526    4       6  0  0  7344    4       2  0  0  4508    4      24  0  2  4704    4
 3192      24  1  2    15    4      28  1  2    20    0      26  0  0  3717    4       6  0  0  6275    4
 3196      27  0  1  3204    4       6  0  0  6274    4       1  1  1    20    0      18  0  1     5    0
 3200       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
 3204       0  0  3  3608    4       0  1  0  3458    4       0  0  3     0    4       0  1  2  3580    4
 3208       6  1  0  3582    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
 3212      23  0  2     0  256       0  1  1  3458    4       1  1  3     1    0       2  0  0  4546    4
 3216       6  0  0  5000    4       5  0  0  3616    4      27  0  0  3230    4       6  0  0  5000    4
 3220       5  0  0  3617    4      27  0  0  3230    4       6  0  0  5000    4       5  0  0  3618    4
 3224      27  0  0  3835    4       1  1  2     1    0      27  0  0  3833    4       1  1  2     5    0
 3228      27  0  0  3832    4      24  1  0  3328    4       1  1  3     0    0       2  0  0  4546    4
 3232       6  0  0  6270    4      27  0  0  3239    4       0  0  2     9    4       6  0  0    11    4
 3236       2  0  0     9    4      18  1  1    10    0       2  0  0    11    4       0  1  0  3458    4
 3240       0  0  3     0    4       0  1  2  3584    4       6  1  0  3586    4       4  0  0    11    4
 3244      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  3462    4
 3248       0  1  0  4540    4      24  0  2  4720    4      24  1  2    21    4      28  1  2     4    0
 3252       0  1  0  3458    4       0  0  3     0    4      24  1  2    21    4      24  0  2     4    0
 3256      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1280       0  1  1  3458    4
 3260      26  0  0  3777    4      26  0  0  3777    4      26  0  0  3801    4       1  1  3     2    0
 3264      24  1  2    19    4       2  1  0    11    0       6  1  0  4490    4      24  1  2    19    4
 3268       2  1  0    12    0      26  0  0  3777    4      26  0  0  3801    4
 PROCEDURE  884
 3271                                                                                  6  0  0  6270    4
 3272      27  0  0  3275    4       1  1  3     2    0      24  1  0  3277    4       1  1  3     2    0
 3276       4  0  0  6278    4      24  1  2    19    4       2  1  0     9    0       6  0  0  3619    4
 3280      24  1  2    19    4       2  1  0    13    0      26  0  0  3777    4      26  0  0  3801    4
 3284      24  1  2    19    4       6  1  0     6    0       5  1  0  4498    4      27  0  0  3290    4
 3288      26  0  0  3777    4      24  1  0  3283    4      26  0  0  3777    4      26  0  0  3801    4
 3292       6  0  0  6270    4      27  0  0  3296    4       1  1  3     2    0      24  1  0  3298    4
 3296       1  1  3     2    0       4  0  0  6278    4      24  1  2    19    4       2  1  0     9    0
 3300       6  0  0  3619    4      24  1  2    19    4       2  1  0    13    0      26  0  0  3777    4
 3304       0  1  0  3458    4       0  0  3     0    4       6  1  0  3588    4       4  0  0    11    4
 3308      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 3312       6  0  0  6270    4      27  0  0  3319    4       0  0  2     9    4       6  0  0    11    4
 3316       2  0  0     9    4      18  1  1    10    0       2  0  0    11    4       0  1  0  3458    4
 3320       0  0  3     0    4       0  1  2  3580    4       6  1  0  3590    4       4  0  0    10    4
 3324      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 3328      26  1  1  3592    4       1  1  3     6    0       2  0  0  4508    4       6  0  0  6275    4
 3332      27  0  0  3339    4       6  0  0  7342    4       4  0  0  2568    4      27  0  1  3343    4
 3336       6  0  0  6272    4       4  0  0  2567    4      27  0  1  3343    4       6  0  0  6273    4
 3340      27  0  1  3343    4       6  0  0  6271    4      27  0  0  3345    4       1  1  3     7    0
 3344       2  0  0  4508    4       6  0  0  6275    4      27  0  0  3382    4       1  1  3   300    0
 3348       5  0  0  7358    4       2  0  0  3681    4       0  1  0  3458    4       0  0  3     0    4
 3352       6  0  0  3620    4       4  0  0  3681    4       0  0  3  3462    4      18  0  1     5    0
 3356       0  1  0  3458    4       0  0  3     0    4      24  1  2    13    4      24  0  2     0    0
 3360       4  0  0  7358    4       2  0  0  3464    4       0  1  1  3458    4      24  0  3  3464    4
 3364      28  0  0     4    0       6  1  0  4510    4      24  1  2    13    4       2  1  0   306    0
 3368      26  0  0  4793    4       6  1  0  3594    4      24  1  2    13    4      28  1  1     0    0
 3372       6  1  0  4510    4      24  1  2    13    4       2  1  0   306    0      26  0  0  4793    4
 3376       0  0  2  4590    4       6  1  0  3596    4       4  0  0     7    4      25  1  1  4096    0
 3380      24  0  3     0    4      23  0  2   160    0       6  0  0  4508    4       0  0  2  3621    4
 3384      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512       0  0  0  3393    3
 3388       0  0  0  3424    3       0  0  0  3230    3       0  0  0  3447    3       0  0  0  3629    3
 3392       0  0  0  3451    3      26  0  0  4762    4      26  0  0  3670    4       6  0  0  4546    4
 3396      27  0  1  3401    4       6  0  0  6270    4      27  0  0  3421    4      26  0  0  3698    4
 3400      24  1  0  3421    4       6  0  0  6270    4      27  0  0  3420    4       0  1  0  3458    4
 3404       0  0  3     0    4       0  1  2  3598    4       6  1  0  3600    4       4  0  0     9    4
 3408      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  3462    4
 3412       0  1  0  3458    4       0  0  3     0    4       6  1  0  3570    4       4  0  0     9    4
 3416      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 3420      26  0  0  3698    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  768
 3424      26  0  0  4762    4
 PROCEDURE  885
 3425                               26  1  3  3602    4      26  0  0  3670    4       6  0  0  6275    4
 3428      27  0  0  3430    4      26  1  3  3538    4       6  0  0  6270    4      27  0  1  3435    4
 3432       6  0  0  3777    4      24  0  3     1    4      24  1  0    33    0      26  0  0  3698    4
 3436      25  1  1  4096    0      23  0  2  3812    4      24  0  2  4590    4      18  1  1  4123    0
 3440       1  1  3    80    0      18  1  1     5    0      24  0  3     5    4      28  1  1   204    0
 3444       6  0  0  3777    4      24  0  3     1    4      24  1  0    33    0      26  0  0  3636    4
 3448      27  0  0  3455    4       1  1  3     0    0      24  1  0  3644    4      26  0  0  3636    4
 3452      27  0  0  3455    4       1  1  3    88    0      24  1  0  3644    4      26  0  0  4762    4
 3456      26  1  3  3604    4      24  1  0  3622    4
  SECTION  1030
 3458                                                             0       0                0       0
 3460           0       0                0       0                0       0                0       0
 3464           0       0                0       0                0       0                0       0
 3468           0       0                0       0                0       0                0       0
 3472           0       0                8       0                0       0              3£2       0
 3476           0       0               30       0                0       0            20003       0
 3480           0       0               28       0            40000       0            55655       0
 3484           0       0                7       0                0       0              1++       0
 3488       :5:7£       0            5:5:5       0            :5:59       0            5:5:5       0
 3492           0       0               64       0            :5:69       0            5:5:5       0
 3496       56554       0                5       0                0       0            53000       0
 3500       46467       0              547       0            96355       0              565       0
 3504          16       0               18       0            35551       0            56596       0
 3508           0       0            20024       0                0       0            20026       0
 3512       14243       0                4       0            44546       0            42434       0
 3516           0       0            20012       0                0       0                +       0
 3520           0       0            20032       0                0       0                .       0
 3524           0       0                5       0                0       0            20040       0
 3528        ££££       0            10005       0                0       0            2000Ю       0
 3532           1       0                £       0                0       0                ‼       0
 3536           0       0            20016       0                0       0                4       0
 3540       ‼5300       0                5       0            ‼7200       0                5       0
 3544       ‼6700       0                5       0                0       0               18       0
 3548           0       0            20036       0                0       0            2003+       0
 3552           0       0            20018       0                0       0               2Ю       0
 3556           0       0            20006       0                0       0            2000.       0
 3560          52       0            52000       0            25963       0                5       0
 3564       55972       0            56596       0                0       0            20028       0
 3568           0       0               22       0                0       0               1‼       0
 3572           0       0            20030       0                0       0                :       0
 3576           0       0            20014       0            83041       0                4       0
 3580           3       0                Ю       0                0       0               23       0
 3584        8000       0             5146       0                0       0               12       0
 3588           0       0               1+       0                0       0               24       0
 3592           0       0                0       0                0       0            20132       0
 3596           0       0               27       0             8000       0             5141       0
 3600           0       0               11       0                0       0                2       0
 3604           1       0                2       0
  SECTION  1031
 3606                                                             2       0                1       0
 3608           0       0            10000       0            89899       0            66666       0
 3612           1-      0             4000       0             7777       0            2+2+0       0
 3616        8000       0             9001       0             8060       0            £££££       0
 3620       20000       0                6       0
  SECTION  1032
CONTD
 3622                                                         6  0  0  6275    4      27  0  0  3430    4
 3624       6  0  0     0    4       2  0  0  7351    4      26  0  0  3670    4      26  1  3  4882    4
 3628      24  1  0  3430    4       6  0  0  6275    4      27  0  0  3447    4       1  1  3     1    0
 3632       2  0  0  7351    4      26  0  0  4762    4      26  1  3  4884    4      24  1  0  3430    4
 PROCEDURE  886
 3636       0  0  0     0    0      23  0  2  3639    4      26  0  1  3636    4       0  0  0     0    0
 3640      24  0  3     5    4      24  0  3    32    0       6  0  0    21    0      26  0  3  3639    4
 PROCEDURE  887
 3644       2  0  0  3777    4      23  0  2  3647    4      24  1  0  3455    4       0  0  0     0    0
 3648      24  0  3     5    4      24  0  3    32    0       6  0  0    22    0       4  0  0     7    4
 3652       2  0  0  3698    4       6  0  0  3777    4      24  0  3  3698    4       2  0  0     0    0
 3656      26  0  3  3647    4
 PROCEDURE  888
 3657                                0  0  0     0    0       0  0  2  6279    4      27  1  0  3669    4
 3660      24  1  2    15    4       2  1  0    10    0      24  1  2    15    4       2  1  0    12    0
 3664      24  1  2    15    4       2  1  0    14    0       6  1  0  4886    4      24  1  2    15    4
 3668      28  1  1    22    0      26  0  1  3657    4
 PROCEDURE  889
 3670                                                         0  0  0     0    0       6  0  0  6275    4
 3672      27  0  0  3680    4       6  0  0     0    4       2  0  0  7351    4       6  1  0  4888    4
 3676       4  0  0     7    4      25  1  1  4096    0      24  0  3     0    4      23  0  2   160    0
 3680      26  0  1  3670    4
 PROCEDURE  890
 3681                                0  0  0     0    0       6  1  0  4510    4      24  1  2    19    4
 3684       2  1  0    52    0       0  1  0  3458    4       0  0  3     0    4       0  0  2    18    4
 3688       6  1  0  4890    4       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4
 3692      23  0  2     0  256       0  1  1  3458    4       6  1  0  4892    4      24  1  2    19    4
 3696      28  1  1     0    0      26  0  1  3681    4
 PROCEDURE  891
 3698                                                         0  0  0     0    0       0  1  0  3458    4
 3700       0  0  3     0    4       0  1  2  4894    4       6  1  0  4896    4       4  0  0    11    4
 3704      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  3462    4
 3708       0  1  0  3458    4       0  0  3     0    4       6  1  0  4898    4       4  0  0    11    4
 3712      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 3716      26  0  1  3698    4
 PROCEDURE  892
 3717                                0  0  0     0    0       0  0  3  4934    4       6  1  0  4510    4
 3720      24  1  2    15    4       2  1  0    52    0       6  0  0  4546    4      24  1  2    15    4
 3724       2  1  0     1    0       1  1  3     1    0       2  0  0  4546    4       6  0  0  6275    4
 3728      27  0  0  3745    4      24  1  2    15    4      24  0  2     0    0      18  1  1  4123    0
 3732       1  1  3    50    0      18  1  1     5    0       0  1  0  3458    4       0  0  3     0    4
 3736      24  1  2    13    4      24  0  2     0    0       4  0  0  7358    4       2  0  0  3464    4
 3740       0  1  1  3458    4      24  0  3  3464    4      28  1  1     4    0      26  0  0  4782    4
 3744      24  1  0  3773    4       6  0  0  6274    4       1  1  2     9    0      27  0  0  3764    4
 3748       6  0  0  4935    4      24  1  2    15    4       2  0  0     1    0      24  1  2    15    4
 3752      24  0  2     0    0      24  1  2    13    4      29  0  1     0    0       1  1  3     4    0
 3756      18  0  1     5    0       4  0  0     7    4       0  0  2    12    4      25  1  1  4096    0
 3760      24  0  3     0    4      23  0  2   160    0       0  0  3  4934    4      24  1  0  3773    4
 3764      24  1  2    15    4      24  0  2     0    0      18  1  1  4123    0       1  1  3    54    0
 3768      18  1  1     5    0      24  1  2    13    4      28  1  1     0    0       1  1  3     9    0
 3772      24  1  0  3756    4       6  1  0  4900    4      24  1  2    15    4      28  1  1     0    0
 3776      26  0  1  3717    4
 PROCEDURE  893
 3777                                0  0  0     0    0      24  1  2    19    4      24  0  2     4    0
 3780      18  1  1  4123    0       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4
 3784      28  1  1     4    0       6  1  0  4510    4      24  1  2    21    4       2  1  0    52    0
 3788       0  1  0  3458    4       0  0  3     0    4       0  0  2    20    4       6  1  0  4890    4
 3792       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 3796       0  1  1  3458    4       6  1  0  4892    4      24  1  2    21    4      28  1  1     0    0
 3800      26  0  1  3777    4
 PROCEDURE  894
 3801                                0  0  0     0    0       0  1  0  3458    4       0  0  3     0    4
 3804       0  0  2    18    4       6  1  0  4902    4       4  0  0    10    4      25  1  1  4096    0
 3808      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4      26  0  1  3801    4
 PROCEDURE  895
 3812       0  0  0     0    0      24  0  3     5    4      26  1  2    20    0      26  0  0  3825    4
 3816      24  0  3     5    4      26  1  2    22    0      26  0  0  3825    4      24  0  3     5    4
 3820      26  1  2    24    0      25  0  2   204    0      26  0  0  3825    4      26  1  1  4904    4
 3824      26  0  3  3812    4
 PROCEDURE  896
 3825                                0  0  0     0    0      23  0  3  4590    4      24  0  3     0    4
 3828      23  1  2     0    0      25  0  2     2    0      24  1  0  3827    4      26  0  1  3825    4
 PROCEDURE  897
 3832       1  1  3     5    0       1  1  1    17    0       7  0  0  4500    4       1  1  3     5    0
 3836       0  0  2  4936    4      25  1  1  4096    0      24  0  3     0    4      26  0  2     0  512
 3840       0  0  0  3843    3       0  0  0  3230    3       0  0  0  4016    3       6  0  0  5000    4
 3844       5  0  0  4937    4      27  0  1  3867    4       1  1  3     9    0       2  0  0  4686    4
 3848      26  0  0  4172    4      26  1  1  4906    4       6  0  1  2580    4      26  0  0  4129    4
 3852      25  0  1     2    0      24  1  0  3850    4      24  0  2  4688    4      28  1  2  2586    4
 3856       0  1  0  3458    4       0  0  3     0    4      24  0  2  2586    4      25  1  1  4096    0
 3860      24  0  3     0    4      23  0  2     0 1280       0  1  1  3458    4       6  0  0  4938    4
 3864       2  0  0  4500    4      26  1  1  5008    4      24  1  0  3993    4       0  1  0  3458    4
 3868       0  0  3     0    4       0  1  2  4908    4       6  1  0  4896    4       4  0  0     9    4
 3872      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  0  3  3462    4
 3876      26  0  0  4393    4      24  1  2    17    4       6  1  0     4    0       5  1  0  4492    4
 3880      27  0  1  3890    4       0  1  0  3458    4       0  0  3     0    4       6  1  0  4898    4
 3884       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 3888       0  1  1  3458    4      24  1  0  3835    4      24  1  2    17    4       6  1  0     5    0
 3892       5  0  0  4939    4      27  0  1  3876    4       1  0  1     1    0      24  1  2    17    4
 3896      15  1  0     7    0       1  1  2     5    0      27  0  1  3876    4      24  1  2    17    4
 3900       6  1  0     9    0       5  0  0  4940    4      27  0  1  3876    4      26  0  0  4393    4
 3904      24  1  2    17    4       6  1  0    42    0       5  1  0  4496    4      27  0  1  3903    4
 3908       0  1  0  3458    4       0  0  3     0    4       0  1  2  4894    4       6  1  0  4910    4
 3912       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 3916       0  0  3  3462    4      18  1  1    10    0       2  0  0  2576    4      26  0  0  4404    4
 3920      26  0  0  4404    4      26  0  0  3801    4       1  1  3     2    0      24  1  2    19    4
 3924       2  1  0    11    0       6  1  0  4490    4      24  1  2    19    4       2  1  0    12    0
 3928      26  0  0  4404    4      26  0  0  3801    4       1  1  3     2    0      24  1  2    19    4
 3932       2  1  0     9    0       6  0  0  4939    4      24  1  2    19    4       2  1  0    13    0
 3936      26  0  0  4404    4      26  0  0  3801    4      24  1  2    19    4       6  1  0    42    0
 3940       5  1  0  4496    4      27  0  0  3944    4      26  0  0  4404    4      24  1  0  3937    4
 3944      26  1  1  4906    4      24  1  2    17    4       6  1  1    25    0      24  1  2    19    4
 3948       5  1  1    25    0      27  0  3  3952    4      24  1  2    19    4       7  1  1    25    0
 3952      24  1  2    19    4       6  1  1    25    0      26  0  0  4129    4      25  0  1     2    0
 3956      24  1  0  3945    4      24  0  2  4688    4      28  1  2  2586    4       0  1  0  3458    4
 3960       0  0  3     0    4      24  0  2  2586    4      25  1  1  4096    0      24  0  3     0    4
 3964      23  0  2     0 1280       0  1  1  3458    4       6  0  0  4938    4       2  0  0  4500    4
 3968      24  1  2    19    4       6  1  0    11    0       2  1  0  5008    4      26  1  1  5008    4
 3972       1  1  3     4    0      24  1  2    19    4       7  1  0    11    0      26  0  0  4404    4
 PROCEDURE  898
 3976      26  0  0  3801    4      24  1  2    19    4       6  1  0     4    0       5  1  0  4488    4
 3980      27  0  1  3990    4       0  1  0  3458    4       0  0  3     0    4       6  1  0  4898    4
 3984       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 3988       0  1  1  3458    4      24  1  0  3992    4      26  0  0  4404    4      24  1  0  3976    4
 3992      26  0  0  4428    4      26  0  0  4457    4      27  0  1  3992    4      24  1  0  3999    4
 3996      26  0  0  4428    4      26  0  0  4457    4      27  0  1  4010    4      26  0  0  4428    4
 4000      26  0  0  4404    4      26  0  0  4428    4      26  0  0  4404    4      26  0  0  4428    4
 4004       6  0  0  5008    4       4  0  0  4941    4      24  1  2    19    4       2  1  0    51    0
 4008       1  1  3     1    0       7  0  0  5008    4      24  1  2    19    4       6  1  0     4    0
 4012       5  1  0  4488    4      27  0  0  4137    4      26  0  0  4404    4      24  1  0  3996    4
 4016      26  0  0  4172    4       0  1  0  3458    4       0  0  3     0    4       6  1  0  4898    4
 4020       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4024       0  1  1  3458    4       0  1  0  3458    4       0  0  3     0    4       0  1  2  4908    4
 4028       6  1  0  4896    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 4032      23  0  2     0  256       0  0  3  3462    4      26  0  0  4393    4      26  0  0  4439    4
 4036      24  1  0  4038    4       0  0  0  4671    3      24  1  2    17    4       6  1  0     6    0
 4040       5  1  0  4498    4      27  0  1  4034    4      26  0  0  4393    4      24  1  2    17    4
 4044       6  1  0     5    0       5  0  0  4940    4      27  0  1  4034    4      24  1  2    17    4
 4048       6  1  0     7    0      18  0  1  4126    0       1  1  2  2201    0      27  0  1  4034    4
 4052      26  0  0  4393    4      26  0  0  4439    4      24  1  0  4056    4       0  0  0  4671    3
 4056      24  1  2    17    4       6  1  0    42    0       5  1  0  4496    4      27  0  1  4052    4
 4060      26  1  1  4906    4       6  0  1  2580    4      24  1  2    17    4       5  1  1    25    0
 4064      27  0  3  4068    4      25  0  1     2    0      24  1  0  4061    4      24  1  0  3849    4
 4068       0  1  0  3458    4       0  0  3     0    4       0  1  2  4912    4       6  1  0  4914    4
 4072       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4076       0  1  1  3458    4       0  1  0  3458    4       0  0  3     0    4       0  0  2    18    4
 4080       6  1  0  4902    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 4084      23  0  2     0  256       0  1  1  3458    4      24  1  2    19    4       6  1  0    42    0
 4088       5  1  0  4496    4      27  0  1  4077    4      26  1  1  4906    4      24  1  2    17    4
 4092       6  1  1    25    0       5  0  1  2580    4      27  0  3  4098    4      24  1  2    19    4
 4096       7  1  1    25    0       7  0  1  2580    4      25  0  1     2    0      24  1  0  4091    4
 4100       0  1  0  3458    4       0  0  3     0    4       0  0  2  4942    4       6  1  0  4916    4
 4104       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4108       0  1  1  3458    4      26  0  0  4404    4       0  1  0  3458    4       0  0  3     0    4
 4112       0  1  2  4918    4       6  1  0  4920    4       4  0  0    11    4      25  1  1  4096    0
 4116      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4       0  1  0  3458    4
 4120       0  0  3     0    4       0  0  2  4942    4       6  1  0  4922    4       4  0  0    11    4
 4124      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 4128      24  1  0  3849    4
 PROCEDURE  899
 4129                                0  0  0     0    0       2  0  0  2578    4       0  0  3  4943    4
 4132      24  0  2  4610    4      12  0  0  2578    4       2  0  1  2580    4       0  0  3  4934    4
 4136      26  0  1  4129    4      26  0  0  4404    4       6  1  0  4512    4      24  1  2    19    4
 4140       2  1  0     4    0       6  1  0  4498    4      24  1  2    19    4       2  1  0     6    0
 4144       6  0  0  4939    4      24  1  2    19    4       2  1  0     9    0       1  1  3     3    0
 4148      24  1  2    19    4       2  1  0    10    0      26  0  0  4404    4      26  0  0  4376    4
 4152       0  1  0  3458    4       0  0  3     0    4       6  1  0  4898    4       4  0  0     9    4
 4156      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 4160       0  1  0  3458    4       0  0  3     0    4       6  1  0  4888    4       4  0  0    11    4
 4164      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4
 4168      25  1  2     0    0       2  0  0  4546    4       2  0  0  4686    4      24  1  0  3328    4
 PROCEDURE  900
 4172       0  0  0     0    0       0  1  0  3458    4       0  0  3     0    4       0  1  2  4894    4
 4176       6  1  0  4910    4       4  0  0    11    4      25  1  1  4096    0      24  0  3     0    4
 4180      23  0  2     0  256       0  0  3  3462    4      18  1  1    10    0       2  0  0  2576    4
 4184      26  0  0  4404    4      26  0  0  4404    4       6  1  0  4512    4      24  1  2    19    4
 4188       2  1  0     4    0       6  1  0  4498    4      24  1  2    19    4       2  1  0     6    0
 4192       6  0  0  4939    4      24  1  2    19    4       2  1  0     9    0       1  1  3     2    0
 4196      24  1  2    19    4       2  1  0    11    0      26  0  0  4404    4      26  0  0  4376    4
 4200       0  1  0  3458    4       0  0  3     0    4       0  1  2  4912    4       6  1  0  4920    4
 4204       4  0  0    10    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4208       0  1  1  3458    4      26  0  0  3801    4      26  0  0  4439    4      24  1  0  4213    4
 4212       0  0  0  4670    3      24  1  2    19    4       6  1  0    12    0       5  1  0  4924    4
 4216      27  0  1  4209    4      26  0  0  4404    4      26  0  0  3801    4      26  0  0  4439    4
 4220      24  1  0  4222    4       0  0  0  4670    3      24  1  2    19    4       6  1  0    42    0
 4224       5  1  0  4496    4      27  0  1  4217    4      24  1  2    19    4       6  1  0    11    0
 4228       2  1  0  5008    4      26  1  1  4906    4      24  1  2    19    4       6  1  1    25    0
 4232       2  0  1  2580    4      25  0  1     2    0      24  1  0  4230    4      26  0  0  4404    4
 4236      26  0  0  3801    4      26  0  0  4439    4      24  1  0  4240    4       0  0  0  4670    3
 4240      24  1  2    19    4       6  1  0    12    0       5  1  0  4494    4      27  0  1  4235    4
 PROCEDURE  901
 4244       0  1  0  3458    4       0  0  3     0    4       0  1  2  4908    4       6  1  0  4896    4
 4248       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256
 4252       0  0  3  3462    4      26  0  0  4428    4      26  0  0  4439    4      24  1  0  4257    4
 4256       0  0  0  4671    3      24  1  2    19    4       6  1  0     6    0       5  1  0  4498    4
 4260      27  0  1  4253    4      26  0  0  4428    4      24  1  2    19    4       6  1  0     5    0
 4264       5  0  0  4944    4      27  0  1  3835    4      26  0  0  4428    4      26  0  0  4439    4
 4268      24  1  0  4270    4       0  0  0  4671    3      24  1  2    19    4       6  1  0    42    0
 4272       5  1  0  4496    4      27  0  1  4266    4      26  1  1  4906    4      24  1  2    19    4
 4276       6  1  1    25    0       5  0  1  2580    4      27  0  3  4280    4       7  0  1  2580    4
 4280      25  0  1     2    0      24  1  0  4275    4      26  0  0  4428    4      26  0  0  4439    4
 4284      24  1  0  4286    4       0  0  0  4671    3      24  1  2    19    4       6  1  0    12    0
 4288       5  1  0  4494    4      27  0  1  4282    4      26  1  1  4926    4       6  0  0  5000    4
 4292      24  1  2    19    4       2  1  0     9    0       6  0  0  5001    4      24  1  2    19    4
 4296       2  1  0    11    0      26  0  0  4404    4      26  0  0  4428    4      26  0  0  4439    4
 4300      24  1  0  4302    4       0  0  0  4671    3      24  1  2    19    4       6  1  0    12    0
 4304       5  1  0  4494    4      27  0  1  4297    4      25  0  1     1    0      24  1  0  4291    4
 4308      26  0  0  3801    4      26  0  0  4439    4      24  1  0  4312    4       0  0  0  4670    3
 4312      24  1  2    19    4       6  1  0    12    0       5  1  0  4494    4      27  0  1  4308    4
 4316      24  1  2    19    4       6  1  0     5    0       1  1  2     5    0      27  0  1  4308    4
 4320      26  1  1  4928    4      26  0  0  4404    4      26  0  0  3801    4      26  0  0  4439    4
 4324      24  1  0  4326    4       0  0  0  4670    3      24  1  2    19    4       6  1  0    12    0
 4328       5  1  0  4494    4      27  0  1  4321    4      25  0  1     1    0      24  1  0  4321    4
 4332      26  0  0  4428    4      26  0  0  4439    4      24  1  0  4336    4       0  0  0  4671    3
 4336      24  1  2    19    4       6  1  0    12    0       5  1  0  4494    4      27  0  1  4332    4
 4340      24  1  2    19    4       6  1  0     5    0       1  1  2    10    0      27  0  1  4332    4
 4344       6  0  0  5000    4      24  1  2    19    4       2  1  0     9    0       6  0  0  5001    4
 4348      24  1  2    19    4       2  1  0    11    0      26  0  0  4404    4      26  0  0  4428    4
 4352      26  0  0  4439    4      24  1  0  4355    4       0  0  0  4671    3      24  1  2    19    4
 4356       6  1  0     4    0       5  1  0  4488    4      27  0  0  4367    4      24  1  2    19    4
 4360       6  1  0    12    0       5  1  0  4494    4      27  0  1  4350    4      24  1  2    19    4
 4364       6  1  0     5    0       1  1  2    13    0      27  0  1  4344    4       0  1  0  3458    4
 4368       0  0  3     0    4       6  1  0  4898    4       4  0  0    10    4      25  1  1  4096    0
 4372      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4      26  0  1  4172    4
 PROCEDURE  902
 4376       0  0  0     0    0       6  0  0  5000    4      24  1  2    19    4       2  1  0     5    0
 4380       6  0  0  5001    4      24  1  2    19    4       2  1  0     7    0       1  1  3     2    0
 4384      24  1  2    19    4       3  1  0     9    0      24  1  2    19    4       2  1  0    11    0
 4388       6  0  0  4939    4      24  1  2    19    4       2  1  0    13    0      26  0  0  4404    4
 4392      26  0  1  4376    4
 PROCEDURE  903
 4393                                0  0  0     0    0       0  1  0  3458    4       0  0  3     0    4
 4396       0  0  2    16    4       6  1  0  4902    4       4  0  0     9    4      25  1  1  4096    0
 4400      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4      26  0  1  4393    4
 PROCEDURE  904
 4404       0  0  0     0    0      24  1  2    19    4      24  0  2     4    0      18  1  1  4123    0
 4408       1  1  3    50    0      18  1  1     5    0      24  1  2    21    4      28  1  1     4    0
 4412       6  1  0  4510    4      24  1  2    21    4       2  1  0    52    0       6  1  0  4900    4
 4416      24  1  2    19    4      28  1  1     4    0       0  1  0  3458    4       0  0  3     0    4
 4420       0  0  2    20    4       6  1  0  4890    4       4  0  0    11    4      25  1  1  4096    0
 4424      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4      26  0  1  4404    4
 PROCEDURE  905
 4428       0  0  0     0    0       0  1  0  3458    4       0  0  3     0    4       0  0  2    18    4
 4432       6  1  0  4902    4       4  0  0     9    4      25  1  1  4096    0      24  0  3     0    4
 4436      23  0  2     0  256       0  1  1  3458    4      26  0  1  4428    4
 PROCEDURE  906
 4439                                                                                  0  0  0     0    0
 4440      24  1  2    19    4       6  1  0     4    0       5  1  0  4492    4      27  0  1  4456    4
 4444      24  0  3  4439    4      24  1  2     1    0       6  0  0     0    0       2  0  0  4682    4
 4448       0  1  0  3458    4       0  0  3     0    4      24  0  2  4672    4      25  1  1  4096    0
 4452      24  0  3     0    4      23  0  2     0 1280       0  1  1  3458    4      24  1  0  3328    4
 4456      26  0  1  4439    4
 PROCEDURE  907
 4457                                0  0  0     0    0      24  1  2    19    4       6  1  0    12    0
 4460       5  1  0  4494    4      27  0  1  4486    4      24  1  2    19    4       6  1  0     5    0
 4464       1  1  2     4    0       5  0  0  4686    4      27  0  3  4468    4      24  1  0  4474    4
 4468      26  0  0  4428    4      24  1  2    19    4       6  1  0    12    0       5  1  0  4494    4
 4472      27  0  1  4468    4      24  1  0  4462    4      25  0  1     1    0      24  0  3     0    4
 4476       6  0  0     2   22      24  1  2    19    4       2  1  0     5    0       6  0  0  5000    4
 4480      24  1  2    19    4       2  1  0     9    0       6  0  0  5001    4      24  1  2    19    4
 4484       2  1  0    11    0      26  0  0  4404    4      26  0  1  4457    4       0  0  0     0    0
  SECTION   908
 4488       56554       0            67695       0            15965       0            53585       0
 4492       55972       0            56596       0            16773       0            53585       0
 4496       36653       0            51636       0            45577       0            59655       0
 4500        4630       0            30483       0            16772       0            53585       0
 4504        6665       0                0       0             5.5.       0                0       0
 4508          30       0                0       0               7.       0            7.000       0
 4512       £6£6£       0            6£6£6       0            45500       0            64515       0
 4516        3048       0            52780       0               59       0            30303       0
 4520       45500       0            72727       0             7255       0            48000       0
 4524       16300       0            69595       0             3030       0            47303       0
 4528          71       0                0       0            66663       0            72676       0
 4532        3030       0            30483       0            25572       0            64516       0
 4536       77800       0            53666       0            27243       0            67517       0
 4540          30       0                0       0               30       0                0       0
 4544          30       0                0       0               30       0                0       0
 4548        6664       0            67730       0            35554       0            59737       0
 4552       25172       0            54597       0            67472       0            73696       0
 4556       85569       0            66735       0                0       0            72000       0
 4560       85572       0                7       0             6566       0                0       0
 4564        5965       0                0       0            95366       0            73556       0
 4568           0       0            54550       0            36959       0                7       0
 4572        5451       0            51630       0                0       0            73510       0
 4576       95951       0            72556       0            57464       0            63006       0
 4580       97200       0            52556       0             5965       0            66560       0
 4584       95366       0            73556       0             6955       0            54550       0
 4588       97372       0            67666       0
  SECTION   909
 4590                                                             1       0                0       0
 4592           Ю       0                0       0               64       0                0       0
 4596         3.8       0                0       0             2710       0                0       0
 4600       186Ю0       0                0       0            £4240       0                0       0
 4604       89680       0                9       0            5.100       0               5£       0
 4608       Ю+Ю00       0              3‼9       0                1       0                0       0
 4612          16       0                0       0              256       0                0       0
 4616        4096       0                0       0            65536       0                0       0
 4620       48576       0               10       0            77216       0              167       0
 4624       35456       0             2684       0            67296       0            42949       0
 4628       £££££       0            £££££       0                1       0                0       0
 4632           +       0                0       0               78       0                0       0
 4636          £0       0                0       0              960       0                0       0
 4640        5:+0       0                0       0            3Ю980       0                0       0
 4644       49£00       0                2       0            .3600       0               16       0
 4648       .1+00       0               .4       0                1       0                0       0
 4652          14       0                0       0             1014       0                0       0
 4656       17014       0                0       0            73014       0                2       0
 4660       69014       0               43       0             5014       0              699       0
 4664       81014       0            11184       0            £££££       0            £££££       0
 4668       £££££       0            £££££       0            20000       0            10000       0
 4672        3030       0            30483       0            55577       0              746       0
 4676       37355       0            67555       0            65965       0            54005       0
 4680        6665       0            59720       0                0       0              510       0
 4684        5.5.       0                0       0                0       0                0       0
  SECTION   910
 4688    0   4500   3        5   3  0  0  0  5   0         0   4502   3       21   3  0  0  1  5   0
 4692    0   2580   3    16405   0  4  0  1  5   0         0   2582   3    16405   0  4  0  1  5   0
 4696    0   2584   3    16389   0  4  0  0  5   0         0   4504   3      802   3  0  3  2  2   0
 4700    0   2576   3       21   0  0  0  1  5   0         0   4506   3      770   3  0  3  0  2   1
 4704    0   4504   3      786   3  0  3  1  2   0         0   4526   3     9234   2  2  4  1  2   0
 4708    0   4528   3     1025   3  0  4  0  1   0         0   4526   3     8450   0  2  1  0  2   0
 4712    0   4528   3     1025   3  0  4  0  1   0         0   4526   3     8962   0  2  3  0  2   0
 4716    0   4530   3       37   3  0  0  2  5   0         0   4508   3    20501   0  5  0  1  5   1
 4720    0   4532   3       37   3  0  0  2  5   0         0   4534   3       21   3  0  0  1  5   0
 4724    0   4538   3       21   3  0  0  1  5   0         0   4536   3       21   3  0  0  1  5   0
 4728    0   4504   3      770   3  0  3  0  2   0         0   4542   3    20501   0  5  0  1  5   0
 4732    0   4506   3      770   3  0  3  0  2   1         0   4428   3     8707   0  2  2  0  3   0
 4736    0   4404   3    16421   0  4  0  2  5   1         0   4540   3    12564   0  3  1  1  4   0
 4740    0   4542   3    16549   0  4  0 10  5   0         0   6246   3    20581   0  5  0  6  5   0
 4744    0   6247   3    20501   0  5  0  1  5   0         0   6248   3    20501   0  5  0  1  5   0
 4748    0   6249   3    20501   0  5  0  1  5   0         0   6250   3    20501   0  5  0  1  5   0
 4752    0   6251   3    20501   0  5  0  1  5   0         0   6252   3    20501   0  5  0  1  5   0
 4756    0   6253   3    20501   0  5  0  1  5   0         0   6254   3    20501   0  5  0  1  5   0
 4760    0   6255   3    20501   0  5  0  1  5   1
 PROCEDURE  911
 4762                                                         0  0  0     0    0       6  1  0  4492    4
 4764      24  0  3    10    4      24  1  2    64    0       2  1  0     4    0       0  1  0  3458    4
 4768       0  0  3     0    4       6  1  0  4898    4       4  0  0    10    4      25  1  1  4096    0
 4772      24  0  3     0    4      23  0  2     0  256       0  1  1  3458    4      26  0  1  4762    4
 PROCEDURE  912
 4776       0  0  0     0    0       2  0  0  4762    4       0  0  3  4943    4      24  0  2  4610    4
 4780      12  0  0  4762    4      26  0  1  4776    4
 PROCEDURE  913
 4782                                                         0  0  0     0    0      23  0  0    50    0
 4784       0  0  0  7358    3      24  1  0  4792    4       6  1  0  4510    4      24  1  2    13    4
 4788       2  1  0   306    0      26  0  0  4793    4       6  1  0  4930    4       2  1  0  7358    4
 4792      26  0  1  4782    4
 PROCEDURE  914
 4793                                0  0  0     0    0       6  1  0  4890    4       0  0  2    12    4
 4796      25  1  1  4096    0       4  0  0     7    4      24  0  3     0    4      23  0  2   160    0
 4800      26  0  1  4793    4
 PROCEDURE  915
 4801                                0  0  0     0    0       6  1  1  4548    4      24  1  2    15    4
 4804       2  1  0     6    0       6  1  1  4550    4      24  1  2    15    4       2  1  0     8    0
 4808      26  0  0  3657    4      26  0  0  3717    4      26  0  1  4801    4
 PROCEDURE  916
 4811                                                                                  0  0  0     0    0
 4812       2  0  0  4540    4      24  0  2  4738    4      24  1  2    15    4      28  1  2    12    0
 4816      24  0  2  6256    4      18  1  1  4123    0       1  1  3    10    0      18  1  1     5    0
 4820      28  0  0  6246    4      26  0  1  4811    4
  SECTION   917
 4822                                                             0       0                0       0
 4824           0       0                0       0                0       0                0       0
 4828           0       0                0       0                0       0                0       0
 4832           0       0                0       0                0       0                0       0
 4836           0       0                0       0                0       0                0       0
 4840           0       0                0       0                0       0                0       0
 4844           0       0                0       0                0       0                0       0
 4848           0       0                0       0                0       0                0       0
 4852           0       0                0       0                0       0                0       0
 4856           0       0                0       0                0       0                0       0
 4860           0       0                0       0                0       0                0       0
 4864           0       0                0       0                0       0                0       0
 4868           0       0                0       0                0       0                0       0
 4872           0       0                0       0                0       0                0       0
 4876           0       0                0       0                0       0                0       0
 4880           0       0                0       0
  SECTION  1033
 4882                                                             1       0                4       0
 4884           1       0                3       0                0       0            2000.       0
 4888           0       0               1+       0                0       0                8       0
 4892           0       0            20034       0             8000       0             5146       0
 4896           0       0               11       0                0       0               1‼       0
 4900           0       0            20032       0                0       0                7       0
 4904           0       0                0       0                0       0                6       0
 4908        8000       0             5141       0                0       0               12       0
 4912           2       0                Ю       0                0       0               23       0
 4916           0       0               2+       0            £££££       0                2       0
 4920           0       0               25       0                0       0               27       0
 4924       27243       0            67517       0                1       0                5       0
 4928           5       0                Ю       0                0       0              12+       0
 4932           0       0                0       0
  SECTION  1034
 4934                                                             0       0            80000       0
 4936           3       0             8066       0             4630       0            £££££       0
 4940        8000       0            1.001       0                1       0            66666       0
 4944        8061       0                0       0
  SECTION  1035
 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    4      23  0  2     0 1792       0  0  0     0    0       0  0  0     0    0
   32      26  0  1    26    4
 PROCEDURE  918
   33                                0  1  0  2138    4       0  0  3     0    4       1  1  3    10    0
   36       0  0  2  2166    4      25  1  1  4096    0      24  0  3     0    4      23  0  2     0 1024
   40       0  1  1  2138    4      24  0  2  2106    4       3  1  0  2138    4      26  1  1  2138    4
   44      24  0  2   198    4       3  1  0  2138    4      26  1  2  2138    4      24  0  2  1816    4
   48       3  1  0  2138    4      26  1  3  2138    4       6  0  0  1816    4      18  0  3     2    0
   52       2  0  0   189    4       6  0  0  2106    4      18  0  3     2    0       2  0  0   195    4
   56       6  1  0  2152    4       2  1  0  7360    4       6  1  0  2154    4       2  1  0  7354    4
   60      26  0  0    84    4       6  1  0  2156    4      24  1  2    19    4       2  1  0    12    0
   64      26  0  0    67    4      26  0  0    84    4      24  1  0  3066    4
 PROCEDURE  919
   67                                                                                  0  0  0     0    0
   68       6  1  0  2158    4      24  1  2    19    4       2  1  0    52    0       0  1  0  2138    4
   72       0  0  3     0    4       0  0  2    18    4       6  1  0  2160    4       4  0  0    10    4
   76      25  1  1  4096    0      24  0  3     0    4      23  0  2     0  256       0  1  1  2138    4
   80       6  1  0  2162    4      24  1  2    19    4      28  1  1     4    0      26  0  1    67    4
 PROCEDURE  920
   84       0  0  0     0    0      24  0  3     0    4       6  0  0     4   22       2  0  0   180    4
   88      24  0  1   180    4       1  1  3     0    0       2  0  0   184    4      24  1  2    19    4
   92      24  0  2     0    0       3  0  0    67    4       1  1  1    48    0      18  0  1     5    0
   96       4  0  0    67    4       2  1  0  7356    4      24  0  3   182    4       6  0  2     0    0
  100       2  0  0   185    4       0  1  2   188    4      18  1  3     3    0       0  1  0   186    4
  104      23  0  0     1    0       0  0  0  7360    3      24  1  0   115    4       6  1  0  2152    4
  108       2  1  0  7360    4      24  0  3   182    4       6  0  3     1    0      18  1  3     2    0
  112       2  0  0   189    4      25  0  3     1    0      24  1  0   115    4       6  0  0   186    4
  116       1  1  2     6    0      27  0  0   101    4       1  1  2     1    0      27  0  1   148    4
  120       0  1  2   194    4      18  1  3     6    0       0  1  0   192    4      23  0  0     1    0
  124       0  0  0  7354    3      24  1  0   134    4       6  1  0  2154    4       2  1  0  7354    4
  128      24  0  3   182    4       6  0  1     1    0      18  1  3     2    0       2  0  0   195    4
  132      25  0  1     1    0      24  1  0   134    4       6  0  0   192    4       1  1  2    63    0
  136      27  0  0   120    4       1  1  1     1    0      27  0  1   146    4       6  1  0   182    4
  140      24  0  3  7356    4       2  1  0     4    0      24  0  3  7356    4       2  1  0     6    0
  144      26  0  0    67    4      26  0  1    84    4       6  1  0   192    4       2  1  0   186    4
  148       6  0  0   186    4       1  1  2     1    0      27  0  0   153    4       1  1  2     1    0
  152      27  0  1   163    4       1  1  3  8191    0      18  1  1  4118    0      15  0  0   185    4
  156       1  1  2  1816    4      27  0  3   176    4       1  0  1    31    0       1  1  3     0    0
  160      15  0  0   185    4       1  1  2  2546    4      14  0  0   185    4       6  0  0   185    4
  164      24  0  3  7356    4       2  1  0     7    0       6  0  0   186    4      24  0  3  7356    4
  168       2  1  0     5    0      25  0  2     1    0      24  1  0   171    4      23  0  0     4    0
  172       0  0  0  7356    3      24  1  0    98    4      26  0  0    67    4      24  1  0    91    4
  176       1  1  1  1816    4       5  0  0   184    4      24  1  0   162    4       0  0  0     0    0
  SECTION   921
  180           0       0                0       0                0       0            4£000       0
  184           0       0                0       0                0       0                0       0
  188           0       0                0       0                0       0                0       0
  192           0       0                0       0                0       0                0       0
  196           0       0                0       0
 PROCEDURE  922
  198                                                        24  1  0   228    4      24  1  0   262    4
  200      24  1  0   626    4      24  1  0   676    4      24  1  0   762    4       1  1  3     2    0
  204       2  0  0  1928    4      24  1  0   478    4       0  0  0     0    0      24  0  3  2534    4
  208       6  0  0    39    0       2  0  0   502    4      24  0  2   218    4      28  1  2  2342    4
  212      24  0  2  2342    4      25  1  1  4096    0      24  0  3   880    4      23  0  2   168    0
  216       0  0  3   880    4      26  0  1   206    4       0  0  0   926    4       1  0  0   515    0
  220       0  0  0   920    4       1  0  0    21    0       0  0  0   922    4       1  0  0     3    0
  224       0  0  0   502    4       0  0  0    21    0       0  0  0   922    4      17  0  0   770    0
  228       0  0  2   866    4       1  1  3     7    0      26  0  0  2276    4      24  1  2   868    4
  232       6  1  0     4    0       5  1  0   924    4      27  0  0   239    4      24  1  2   868    4
  236       6  1  0    12    0       5  1  0   876    4      27  0  1   228    4       0  0  2   928    4
  240       1  1  3    44    0      26  0  0  2276    4      24  0  2   914    4       2  0  0   461    4
  244      24  0  2   916    4       2  0  0   550    4       6  0  0  2534    4       1  1  1    39    0
  248       2  0  0   912    4      24  0  2   902    4      24  1  2   868    4      28  1  2     4    0
  252      26  0  0   776    4      25  1  1  4096    0       6  1  0   942    4      24  0  3  2538    4
  256      28  0  0     2    0       1  1  3    15    0       3  0  0  2119    4       2  0  0   861    4
  260       0  1  1  2540    4      26  0  3  2539    4
 PROCEDURE  923
  262                                                         0  1  0   902    4      24  0  3  2534    4
  264       0  1  0    30    0       0  0  3   880    4       6  1  0   938    4       4  0  0  2538    4
  268      28  0  0   908    4       2  0  0  2119    4       1  0  1    15    0      24  0  3   880    4
  272      15  0  0   172    0       1  1  2     4    0       2  0  0   907    4      24  0  3   907    4
  276       6  0  0     0    0       1  1  2     1    0       2  0  0   856    4      26  0  0   818    4
  280       6  0  2     0    0       5  0  0   856    4      27  0  1   318    4       6  1  2     6    0
  284      27  0  0   295    4       1  1  3     0    0       1  0  1     3    0      15  0  2     4    0
  288      27  0  1   292    4       1  0  1     6    0      15  0  2     5    0      27  0  1   322    4
 PROCEDURE  924
  292       6  0  2     4    0       1  1  2     1    0       2  0  2     4    0       1  0  1     8    0
  296      15  0  2     5    0      18  0  0  4125    0      24  0  3   907    4       7  0  0     0    0
  300       6  0  2     2    0      24  0  3   907    4       2  0  0     4    0       6  0  2     3    0
  304      24  0  3   907    4       2  0  0     5    0       2  1  0   852    4       2  0  0   854    4
  308       6  1  0   944    4      24  0  3  2538    4      28  0  0     2    0      25  1  1  4096    0
  312       1  1  3     1    0       2  0  0  2119    4      24  1  0   315    4       0  1  1   902    4
  316      24  0  3   880    4      26  0  3   172    0      25  0  2    18    0      24  1  0   280    4
  320      26  0  0   206    4      24  1  0   634    4
 PROCEDURE  925
 PROCEDURE  926
  322                                                         1  1  2    16    0      14  0  2     5    0
  324       6  0  0   861    4      27  0  1   327    4      26  0  0   838    4       1  1  3    15    0
  328       2  0  0   861    4       1  0  1    24    0      15  0  2     4    0      18  0  0  4125    0
  332       7  0  2     4    0      25  1  2     0    0       1  0  1    16    0      15  0  2     5    0
  336       3  0  0   854    4       5  0  0   862    4      27  0  1   341    4       6  0  0   862    4
  340      24  1  0   640    4      26  0  0   826    4       6  0  2     1    0      24  1  2   868    4
  344       2  1  0     9    0      26  1  1   880    4      26  1  3   882    4       6  0  3   902    4
  348      24  1  2   868    4       2  1  1    11    0      25  0  1     2    0      24  1  0   352    4
  352      25  0  3     1    0      24  1  0   347    4
 PROCEDURE  927
  354                                                         1  1  3     1    0       2  0  0   857    4
  356       6  1  0   884    4       2  1  0   914    4       6  0  0   854    4      24  1  2   868    4
  360       3  1  0     7    0       5  0  0   869    4      27  0  0   542    4      27  0  2   372    4
  364      18  0  1  4124    0       1  1  1     2    0      27  0  0   369    4       1  1  1     2    0
  368      27  0  1   375    4       1  1  3     1    0       2  0  0   859    4      24  1  0   375    4
  372       3  0  0   860    4       5  0  0   863    4      27  0  0   542    4      24  0  1   914    4
  376       6  0  2     6    0      27  0  0   463    4      27  0  2   386    4       6  0  0   914    4
  380      24  0  3  2538    4       4  0  0     4    0       2  0  0   855    4      24  0  1   855    4
  384      24  0  3     6    0       6  0  0     0    0      18  0  0     6    0      18  0  0  4122    0
  388       3  0  0   918    4      24  1  2   868    4       3  1  0    33    0      24  0  1   914    4
  392       4  0  2     7    0      18  0  0     6    0      18  0  0  4122    0       3  0  0   919    4
  396      24  1  2   868    4       2  1  0    35    0       1  0  1     3    0      24  0  1   914    4
  400      15  0  2     8    0      26  0  0   768    4      24  1  2   868    4       7  1  0     7    0
 PROCEDURE  928
  404       6  0  0   857    4      27  0  0   411    4      25  1  2     0    0       2  0  0   857    4
  408       1  1  3  4096    0      24  1  2   868    4       7  1  0     7    0       6  1  0   874    4
  412      24  1  2   868    4       2  1  0     4    0       6  1  0   890    4      24  1  2   868    4
  416       2  1  0    36    0      26  0  0   776    4
 PROCEDURE  929
  418                                                        26  0  0   788    4       6  0  0   853    4
  420      27  0  1   561    4       1  1  3    20    0       2  0  0   894    4      24  0  3   918    4
  424      23  0  3     0    0       5  0  0   894    4      27  0  0   434    4       7  0  0   894    4
  428       6  1  0   894    4       2  1  3     4    0       2  1  3     6    0      25  0  3     4    0
  432      24  1  0   434    4      26  0  0   796    4       6  1  0   886    4       4  0  0   918    4
  436      24  0  3  2538    4      24  0  1     6    0      28  0  1     5    0      26  1  1   918    4
  440      25  0  1     2    0      24  1  0   443    4      24  1  0   452    4       1  1  3     2    0
  444       7  0  0   918    4       6  0  0   918    4      18  0  0  4124    0      27  0  1   452    4
  448      25  0  3     4    0      24  1  0   423    4      26  0  0   796    4      24  1  0   423    4
 PROCEDURE  930
  452      25  0  3     4    0      24  1  0   454    4      26  0  0   796    4       6  0  0   919    4
  456       5  0  0   775    4      27  0  0   650    4       6  0  0   852    4      27  0  1   466    4
  460      23  0  0     3    0       0  0  0   914    3      24  1  0   358    4       6  0  0  2169    4
  464      27  0  0   295    4      24  1  0   634    4      26  1  1   914    4      25  0  1     1    0
  468      24  1  0   473    4       6  0  0   854    4      27  0  0   476    4      25  1  2     0    0
  472      24  1  0   463    4       1  1  3     1    0       7  0  0   914    4      24  1  0   650    4
 PROCEDURE  931
  476       2  0  0  1928    4      25  1  1  4096    0       2  0  0  2119    4       6  0  0   860    4
  480      27  0  1   488    4      24  0  3   880    4       6  0  0    26    0      27  0  0   488    4
  484       1  1  2     1    0      27  0  1   517    4       6  0  0   859    4      27  0  1   517    4
  488       6  0  0   861    4      27  0  1   491    4      26  0  0   838    4       1  1  3    28    0
  492      26  0  0  2276    4      25  1  1  4096    0       6  0  0  2169    4      27  0  1  2173    4
  496       6  0  0  1928    4      27  0  0  2170    4       6  0  0  2205    4       2  0  0  2180    4
  500      24  1  0  2170    4       1  1  3     0    0
 PROCEDURE  932
  502                                                         0  0  0     0    0       6  0  0   861    4
  504      27  0  0   516    4       0  1  2   900    4       1  1  3    35    0      26  0  0  2276    4
  508       1  1  3    10    0      18  0  1     5    0      24  0  3  2116    4       4  0  0    55    0
  512      18  1  1  4118    0       1  1  3    36    0      26  0  0  2276    4       1  1  3     1    0
  516      26  0  1   502    4       1  1  3    40    0       0  0  2  2114    4       6  0  0  2276    4
  520      26  0  0   502    4       0  0  2   866    4       1  1  3     7    0      26  0  0  2276    4
  524      24  1  2   868    4       6  1  0    12    0       5  1  0   898    4      27  0  1   521    4
  528       6  0  0  2169    4      27  0  0  2046    4      25  1  1  4096    0      26  0  0  2283    4
  532       1  1  3    40    0       0  0  2  2114    4      26  0  0  2276    4      25  1  1  4096    0
  536      24  0  3  2534    4       6  0  0     9    0      24  0  3  2534    4       2  0  0     7    0
  540      24  1  1  2116    4      24  1  0  2064    4
 PROCEDURE  933
  542                                                         1  1  3     1    0       2  0  0   853    4
  544       6  1  0   884    4       2  1  0   916    4      24  0  1   916    4       6  0  2     7    0
  548      27  0  0   552    4      23  0  0     2    0       0  0  0   916    3      24  1  0   546    4
  552       6  0  0   916    4      24  1  2   868    4       2  1  0    35    0      24  1  2   868    4
  556       2  1  0    33    0       6  0  0   916    4      18  0  0     5    0       2  1  0   914    4
  560      24  1  0   404    4
 PROCEDURE  934
  561                               25  1  2     0    0       0  0  2   872    4      24  0  1   914    4
  564      15  0  2     7    0      27  0  0   575    4      25  1  2     0    0       0  0  2   873    4
  568      24  0  1   914    4      15  0  2     7    0      18  0  3     3    0      18  0  0  4124    0
  572       2  1  3     7    0       0  0  2   871    4      24  1  0   581    4       1  0  1    28    0
  576      24  0  1   914    4      15  0  2     7    0      18  0  0  4126    0       2  1  3     7    0
  580       1  0  1     3    0      24  0  1   914    4      15  0  2     7    0       2  1  3     5    0
  584       1  0  1    15    0      24  0  1   914    4      15  0  2     6    0       2  1  3     9    0
  588       1  0  1    16    0      24  0  1   914    4      15  0  2     6    0      18  0  0  4124    0
  592      18  0  3     1    0      26  0  0   802    4       2  1  0   916    4       6  0  0   916    4
  596       4  1  3     9    0       3  1  3    11    0       3  0  0   855    4      18  0  3     3    0
  600      18  0  0  4127    0      18  0  3     1    0       4  1  0   886    4       4  1  0   886    4
  604      24  0  3  2538    4      24  0  1     6    0      28  0  1    13    0      24  0  3   855    4
  608      23  0  3     0    0       1  1  1    64    0      18  0  0     8    0       4  1  3     6    0
  612       2  1  3     6    0      26  1  1   914    4      25  0  1     2    0      24  1  0   620    4
  616       6  1  0   890    4       2  1  3    20    0      26  0  0   776    4      24  1  0   295    4
  620       1  1  3     2    0       7  0  0   914    4      25  0  3    16    0      24  1  0   561    4
  624      26  0  0   796    4      24  1  0   561    4
 PROCEDURE  935
  626                                                         1  1  3     0    0       2  0  0  2119    4
  628       6  1  0   938    4       4  0  0  2538    4      28  0  0   908    4      24  0  3   880    4
  632      24  0  3     2    0      24  1  1    29    0      26  0  0   826    4      25  1  2     0    0
  636       2  0  0   854    4       6  0  0   864    4       3  0  0   857    4       3  0  0   858    4
  640       2  0  0   852    4       6  0  0   861    4      27  0  1   646    4      26  0  0   838    4
  644       1  1  3    15    0       2  0  0   861    4
 PROCEDURE  936
  646                                                         1  1  3     1    0       3  0  0   914    4
  648       4  0  0  2537    4       2  0  0   915    4       6  0  0   852    4      24  1  2   868    4
  652       2  1  0     7    0       6  0  0   858    4      27  0  0   664    4       6  0  0   775    4
  656       3  0  0   919    4      24  1  2   868    4       2  1  0    35    0       2  0  0   918    4
  660      24  1  2   868    4       2  1  0    32    0       2  0  0   858    4      24  1  0   404    4
  664       6  0  0   914    4      24  1  2   868    4       7  1  0     7    0       4  0  0   914    4
  668      26  0  0   802    4       3  1  0   918    4      24  1  2   868    4       2  1  0    33    0
  672       6  0  0   919    4      24  1  2   868    4       2  1  0    35    0      24  1  0   404    4
 PROCEDURE  937
  676      26  0  0   818    4      24  0  3  2534    4       6  0  0    32    0       3  0  0   852    4
  680       4  0  0   852    4       4  0  0  2535    4       2  0  0   916    4      26  1  1   916    4
  684      24  0  3  2534    4       6  0  0    30    0       5  0  0  2537    4      27  0  3   689    4
  688       1  1  2     1    0       4  0  0  2537    4       2  0  0   853    4       1  0  1     1    0
  692      15  0  2     5    0      27  0  0   703    4       5  0  0   853    4      27  0  0   710    4
  696       4  0  0   853    4       5  0  0   852    4      27  0  1   701    4       5  0  2     0    0
  700       2  0  2     0    0      25  0  2    18    0      24  1  0   677    4       2  1  0   852    4
  704       2  0  0   854    4       2  0  0   861    4       1  1  3     0    0      26  0  0  2283    4
  708      24  0  3   880    4      24  1  0     0    0
 PROCEDURE  938
  710                                                         1  0  1     4    0      15  0  2     4    0
  712      27  0  0   717    4      25  1  2     0    0       5  0  2     0    0       2  0  2     0    0
  716      24  1  0   749    4       6  0  0   852    4      18  0  0     2    0      14  0  2     4    0
  720      24  0  3   880    4       6  0  1    18    0       4  0  2     0    0       3  0  2     0    0
  724       2  0  0   916    4      26  1  3   916    4      24  0  3   880    4       6  0  3     0    0
  728       3  0  2     2    0      27  0  2   742    4       5  0  2     2    0       5  0  2     2    0
  732      18  0  3     3    0      18  0  1  4124    0       1  1  2    64    0      27  0  0   744    4
  736       1  1  2     1    0      27  0  0   744    4       1  1  2     2    0      27  0  0   744    4
  740       1  1  2     3    0      27  0  0   744    4       6  0  0   867    4      24  1  0   748    4
  744       1  1  3  4096    0       7  0  2     5    0      24  0  3   880    4       6  0  3     1    0
  748       2  0  2     3    0       6  0  2     0    0       2  0  0   916    4      26  1  3   916    4
  752       0  0  2   871    4      24  0  3   880    4      15  0  1    18    0       2  0  0   854    4
  756       5  0  0   854    4       5  0  0  2536    4       4  0  0   870    4      24  0  3   880    4
  760       2  0  3     0    0      24  1  0   701    4
 PROCEDURE  939
  762                                                        26  0  0   502    4      26  0  0  2283    4
  764       1  1  3     0    0       6  0  0   861    4      24  0  3   880    4      24  1  0     0    0
 PROCEDURE  940
 PROCEDURE  941
  768       0  0  0     0    0       2  0  0   855    4       0  0  3   865    4      24  0  2   928    4
  772      12  0  0   855    4       0  0  3   880    4      26  0  1   768    4       0  0  0     0    0
 PROCEDURE  942
  776       0  0  0     0    0       0  0  2   866    4       1  1  3     8    0      26  0  0  2276    4
  780       6  1  0   940    4      24  1  2   868    4      28  1  1     0    0      25  1  1  4096    0
  784       1  1  3     0    0      24  0  3   880    4      26  0  0     0    0      26  0  1   776    4
 PROCEDURE  943
  788       0  0  0     0    0      24  1  2   868    4       1  1  3     0    0       3  0  0   916    4
  792       1  1  1    48    0       2  0  0   917    4      26  1  3   916    4      26  0  1   788    4
 PROCEDURE  944
  796       0  0  0     0    0       6  1  0   890    4       2  1  3     4    0      26  0  0   776    4
  800      26  0  0   788    4      26  0  1   796    4
 PROCEDURE  945
  802                                                         0  0  0     0    0       3  0  0   855    4
  804       4  0  0  2535    4       2  0  0   818    4      24  0  3   880    4       6  0  0    43    0
  808      18  0  1  4124    0       5  0  0   855    4      27  0  0   813    4       1  1  3     0    0
  812      24  1  0   815    4       1  1  2  1500    0      18  0  1     5    0      24  0  3   818    4
  816       4  1  0    18    0      26  0  1   802    4
 PROCEDURE  946
  818                                                         0  0  0     0    0       1  1  3  2354    4
  820       3  0  0   916    4       1  1  1   180    0       2  0  0   917    4      26  1  2   916    4
  824      26  0  1   818    4       0  1  0  4097    0
 PROCEDURE  947
  826                                                         0  0  0     0    0      26  1  1   884    4
  828      26  1  3   892    4       6  0  3   908    4      26  0  0   768    4      24  1  2   868    4
  832       2  1  1    21    0      25  0  1     2    0      24  1  0   835    4      25  0  3     1    0
  836      24  1  0   829    4      26  0  1   826    4
 PROCEDURE  948
  838                                                         0  0  0     0    0       0  1  2   888    4
  840       1  1  3    38    0      26  0  0  2276    4      24  0  3   880    4      24  0  3    64    0
  844       6  1  0     4    0       1  1  1     0    0       5  1  0   924    4      27  0  1   839    4
  848       0  0  2   929    4       1  1  3    44    0      26  0  0  2276    4      26  0  1   838    4
  SECTION   949
  852           0       0                0       0                0       0                0       0
  856           0       0                0       0                0       0                0       0
  860           0       0                0       0
  SECTION   950
  862                                                         50000       0            30000       0
  864       Ю0000       0            66666       0               3‼       0            98000-      0
  868          7‼-      0            60000       0            Ю0000-      0             1£££       0
  872       80000       0            7.000       0
  SECTION   951
  874                                                         46772       0            54746       0
  876       16973       0            72735       0            £6£6£       0            6£6£6       0
  880           0       0                Ю       0                0       0                5       0
  884           0       0                +       0                0       0                2       0
  888       £££££       0                2       0               7.       0            7.000       0
  892           0       0                6       0                0       0            77770       0
  896       £££££       0                4       0            96773       0            53585       0
  900       £££££       0                Ю       0
 PROCEDURE  952
  902                                                         0  0  0   825    4       0  0  0     5    0
  904       0  0  0   175    0       0  0  0     5    0       0  0  0   156    0       0  0  0     5    0
  908       0  0  0   878    4       1  0  0     5    0       0  0  0   918    4       1  0  0     5    0
  912       0  0  0     0    0       0  0  0     5    0       0  0  0    49    0       0  0  0     5    0
  916       0  0  0   890    4      17  0  0     5    0       1  0  3  2419    0       7  0  1  1845    0
  SECTION   953
  920       16554       0            51525       0            25.5.       0            66657       0
  924       55972       0            56596       0            77372       0              666       0
  SECTION   954
  928           1       0                0       0               16       0                0       0
  932         256       0                0       0             4096       0                0       0
  936       65536       0                0       0
  SECTION   955
  938                                                             2       0                6       0
  940           0       0            20036       0                0       0            20006       0
 PROCEDURE  956
  944       0  0  0   908    4       0  0  0     6    0
 PROCEDURE  957
  946                                                         1  0  1     3    0       1  1  3     2    0
  948       7  0  0   951    4      24  0  3  1672    4      24  0  3     3    0       6  0  0    30    0
  952      14  0  0  1576    4      18  1  0  4124    0       1  1  2     4    0      27  0  0   958    4
  956       1  1  2     5    0      27  0  1   946    4      24  0  2  2342    4       4  0  0   975    4
  960      24  0  3  1576    4       2  0  0    64    0       1  1  2    64    0       5  0  0  1576    4
  964       2  0  0  1577    4      24  0  2  1178    4       2  0  0  1297    4      24  0  2  1588    4
  968       2  0  0  1367    4      24  0  2  1590    4       2  0  0  1371    4       6  0  0  1576    4
  972      24  0  3  1672    4       2  0  0    26    0      24  1  0  1164    4      14  0  0     0    0
  SECTION   958
  976           0       0                0       0                0       0                0       0
  980           0       0                0       0                0       0                0       0
  984           0       0                0       0                0       0                0       0
  988           0       0                0       0                0       0                0       0
  992           0       0                0       0                0       0                0       0
  996           0       0                0       0                0       0                0       0
 1000           0       0                0       0                0       0                0       0
 1004           0       0                0       0                0       0                0       0
 1008           0       0                0       0                0       0                0       0
 1012           0       0                0       0                0       0                0       0
 1016           0       0                0       0                0       0                0       0
 1020           0       0                0       0                0       0                0       0
 1024           0       0                0       0                0       0                0       0
 1028           0       0                0       0                0       0                0       0
 1032           0       0                0       0                0       0                0       0
 1036           0       0                0       0                0       0                0       0
 1040           0       0                0       0
  SECTION   959
 1042                                                             0       0                0       0
 1044           0       0                0       0                0       0                0       0
 1048           0       0                0       0                0       0                0       0
 1052           0       0                0       0                0       0                0       0
 1056           0       0                0       0                0       0                0       0
 1060           0       0                0       0                0       0                0       0
 1064           0       0                0       0                0       0                0       0
 1068           0       0                0       0                0       0                0       0
 1072           0       0                0       0                0       0                0       0
 1076           0       0                0       0                0       0                0       0
 1080           0       0                0       0                0       0                0       0
 1084           0       0                0       0                0       0                0       0
 1088           0       0                0       0                0       0                0       0
 1092           0       0                0       0                0       0                0       0
 1096           0       0                0       0                0       0                0       0
 1100           0       0                0       0                0       0                0       0
 1104           0       0                0       0                0       0                0       0
 1108           0       0                0       0                0       0                0       0
 1112           0       0                0       0                0       0                0       0
 1116           0       0                0       0                0       0                0       0
 1120           0       0                0       0                0       0                0       0
 1124           0       0                0       0                0       0                0       0
 1128           0       0                0       0                0       0                0       0
 PROCEDURE  960
 1132       0  0  0  1632    4       1  0  0   229    0       0  0  0  1634    4       1  0  0    19    0
 1136       0  0  0  1634    4       1  0  0   786    0       0  0  0  1640    4       1  0  0    21    0
 1140       0  0  0  1634    4       1  0  0   786    0       0  0  0  1592    4       0  0  0    21    0
 1144       0  0  0  1642    4       1  0  0    21    0       0  0  0  1644    4       1  0  0    18    0
 1148       0  0  0  1590    4       2  0  0  5154    0       0  0  0  1590    4       2  0  0  5650    0
 1152       0  0  0  1590    4       2  0  0  2066    0       0  0  0  1644    4       1  0  0   786    0
 1156       0  0  0  1589    4       0  0  0  4130    0       0  0  0  1589    4       0  0  0  4626    0
 1160       0  0  0  1650    4      17  0  0  1089    0       0  0  0     0    0       2  0  0    36    0
 PROCEDURE  961
 PROCEDURE  962
 1164       0  1  2  1588    4       1  1  3    38    0      26  0  0  2276    4       0  0  2  1678    4
 1168       1  1  3     7    0      26  0  0  2276    4      24  1  2  1675    4       6  1  0    12    0
 1172       5  1  0  1590    4      27  0  1  1164    4       1  1  2    20    0      26  0  0  1510    4
 1176      28  1  0  1587    4      24  0  3  1672    4       6  1  0   138    0       2  1  0  1590    4
 1180      24  0  3  1672    4       6  0  0    25    0      27  0  1  1185    4       2  0  0  1589    4
 1184       2  0  0  1644    4      24  1  0  1188    4      24  1  2  1577    4      28  1  1     0    0
 1188       1  1  3    10    0      26  0  0  1548    4       6  1  0  1162    4      28  1  1  2046    4
 1192      24  0  2  1132    4      26  0  0  1518    4
 PROCEDURE  963
 1194                                                         0  0  2  1678    4       1  1  3     7    0
 1196      26  0  0  2276    4      24  1  2  1675    4       6  1  0     4    0       5  1  0  1640    4
 1200      27  0  0  1216    4       4  1  0  1640    4       5  1  0  1648    4      27  0  1  1276    4
 1204      24  0  2  1680    4      26  0  0  1518    4       1  1  3    20    0      26  0  0  1548    4
 1208       1  1  3    27    0      26  0  0  2276    4      25  1  1  4096    0       6  0  0  1928    4
 1212      27  0  0  2170    4       6  0  0  2205    4       2  0  0  2180    4      24  1  0  2170    4
 PROCEDURE  964
 1216       6  0  0  1497    4       2  0  0  1276    4      26  0  0  1510    4      28  1  0  2317    4
 1220       6  0  0  2318    4      18  1  0  4124    0       2  0  0  1674    4      18  1  0     1    0
 1224      27  0  0  1238    4       6  0  0  1674    4       1  1  2     6    0      27  0  0  1230    4
 1228       6  0  0  2331    4      27  0  0  1268    4      24  0  2  1682    4      26  0  0  1518    4
 1232      24  0  2  1684    4      26  0  0  1518    4      24  0  2  1700    4      26  0  0  1518    4
 1236      24  0  2  1718    4      26  0  0  1518    4       6  0  0  1674    4       1  1  2     3    0
 1240      27  0  3  1250    4       1  1  2     2    0      27  0  3  1254    4       1  1  2     2    0
 1244      27  0  3  1261    4       1  1  2     3    0      27  0  0  1250    4       6  0  0  1249    4
 1248       2  0  0  1276    4      24  1  0  1194    4       6  1  0  1624    4       2  1  0  1632    4
 1252       6  1  0  1626    4      24  1  0  1258    4       6  1  0  1628    4       2  1  0  1632    4
 1256       2  0  0  1180    4       6  1  0  1630    4       2  1  0  1634    4      24  0  2  1738    4
 1260      26  0  0  1518    4       6  0  0  2332    4      18  0  0     5    0       4  0  0  2331    4
 1264       3  1  0  1178    4       2  1  0  1588    4       2  0  0  1587    4      24  1  0  1194    4
 1268       2  0  0  1642    4      24  0  2  1748    4      26  0  0  1518    4      24  0  2  1718    4
 1272      26  0  0  1518    4      24  0  2  1758    4      26  0  0  1518    4      24  1  0  1261    4
 PROCEDURE  965
 1276       1  1  3    16    0      26  0  0  1510    4      28  1  0  2317    4       6  1  0  1672    4
 1280       2  1  0  1590    4       6  0  0  1674    4       1  1  2     6    0      27  0  1  1300    4
 1284       2  0  0  1584    4      24  0  1  1590    4      24  0  2  2321    4      26  0  0  1484    4
 1288      24  0  1  1590    4      24  0  2  2317    4       4  1  0  1578    4      28  0  0  1585    4
 1292       2  1  0  1604    4      26  0  0  1404    4       1  1  3     6    0       7  0  0  1590    4
 1296      23  0  0     2    0       0  0  0  1178    3      24  1  0  1370    4      24  1  0  1194    4
 PROCEDURE  966
 1300       6  0  0  1198    4       4  0  0  1590    4       4  0  0  1590    4       2  0  0  1305    4
 1304      24  1  2  1675    4       6  1  0     0    0       5  1  0  1666    4      27  0  3  1312    4
 1308      18  0  0     4    0       3  0  0  1586    4       2  0  0  1645    4      24  1  0  1370    4
 1312       1  1  3     0    0       2  0  0  1584    4      24  0  1  1590    4      24  0  2  2317    4
 1316      26  0  0  1484    4       1  1  3     0    0      24  0  3  1672    4      26  0  0     0    0
 1320       1  1  3     2    0       2  0  0  1584    4       6  0  0  1588    4      26  0  0  1484    4
 1324       6  1  0  1598    4       5  1  0  1600    4      27  0  1  1330    4       6  1  0  1596    4
 1328       5  1  0  1594    4      27  0  0  1343    4       6  0  0  1642    4      27  0  0  1342    4
 1332       6  0  0  1588    4      24  0  3  1672    4       5  0  0     3    0      27  0  3  1338    4
 1336       1  1  2   204    0      27  0  3  1342    4      24  0  2  1594    4       4  1  0  1602    4
 1340      24  0  3  1588    4      28  0  0     0    0       1  1  3     1    0       2  0  0  1593    4
 1344      23  0  2  1345    4       0  0  0     0    0
 PROCEDURE  967
 1346                                                         6  0  0  1674    4       1  1  2     5    0
 1348      27  0  0  1364    4       1  1  1     1    0      27  0  0  1374    4       1  1  1     2    0
 1352      27  0  0  1374    4       6  0  0  1645    4      27  0  1  1359    4       6  1  0  1594    4
 1356      27  0  1  1359    4       6  1  0  1598    4      27  0  0  1362    4       1  1  3     0    0
 1360       2  1  0  1604    4      26  0  0  1392    4       1  1  3     0    0       2  0  0  1645    4
 1364       1  1  3     2    0       7  0  0  1587    4      23  0  0     2    0       0  0  0  1588    3
 1368      24  1  0  1370    4      24  1  0  1194    4      23  0  0     2    0       0  0  0  1590    3
 1372      24  1  0  1281    4      24  1  0  1194    4
 PROCEDURE  968
 1374                                                         6  0  0  1593    4      27  0  0  1364    4
 1376       6  1  0  1596    4      27  0  1  1380    4       6  1  0  1600    4      27  0  0  1355    4
 1380       6  1  0  1606    4       2  1  0  1604    4      26  0  0  1392    4      24  1  0  1355    4
 PROCEDURE  969
 1384       0  0  0     0    0       0  1  0  1182    4       0  0  3  1677    4      24  0  2  1608    4
 1388      12  0  0  1182    4       2  1  0  1182    4       0  1  1  1182    4      26  0  1  1384    4
 PROCEDURE  970
 1392       0  0  0     0    0       1  0  1    31    0       6  0  0  1588    4      18  1  3     3    0
 1396      18  1  0  4124    0      14  0  0  1586    4       1  1  3     0    0      18  1  3    13    0
 1400       2  0  0  1585    4      26  0  0  1404    4      26  0  1  1392    4       2  0  0  1164    4
 PROCEDURE  971
 1404       0  0  0     0    0      24  0  1  1605    4      24  0  2  1594    4       4  1  0  1602    4
 1408      28  0  0  1596    4      24  0  1  1605    4       6  1  0  1598    4       2  1  0  1600    4
 1412       1  0  1    15    0      15  0  0  1586    4      26  0  0  1466    4       6  0  0  1585    4
 1416      26  0  0  1384    4       2  0  0  1585    4       0  1  2  1596    4      26  0  0  1470    4
 1420       6  0  0  1600    4       2  0  0  1601    4      26  0  0  1470    4       6  1  0  1596    4
 1424       2  1  0  1634    4       2  1  0  1600    4       0  0  2  1483    4      15  1  0  1634    4
 1428       2  1  0  1632    4      15  1  0  1668    4       5  1  0  1632    4      27  0  0  1434    4
 1432       1  1  3     0    0      24  1  0  1436    4       6  1  0  1622    4      24  1  0  1440    4
 1436      15  1  0  1670    4       5  1  0  1632    4      27  0  1  1443    4       6  1  0  1620    4
 1440      14  1  0  1634    4       6  1  0  1618    4      14  1  0  1600    4      18  1  0     2    0
 1444       1  1  3     0    0      27  1  1  1427    4       6  0  0  1586    4      18  0  0  4124    0
 1448      26  0  0  1466    4       6  0  0  1587    4      26  0  0  1466    4      24  0  2  1766    4
 1452      26  0  0  1518    4       6  1  0  1600    4      27  0  0  1457    4      24  0  2  1802    4
 1456      26  0  0  1518    4       6  0  0  1403    4       2  0  0  1461    4      26  0  1  1404    4
 PROCEDURE  972
 1460       0  0  0     0    0       2  0  0  1164    4       1  1  3     1    0       7  0  0  1461    4
 1464       1  1  3     0    0      26  0  1  1460    4
 PROCEDURE  973
 1466                                                         0  0  0     0    0      26  0  0  1384    4
 1468      26  0  0  1460    4      26  0  1  1466    4
 PROCEDURE  974
 1470                                                         0  0  0     0    0       1  1  3     0    0
 1472      18  1  0     1    0       4  0  0  1601    4      26  0  0  1466    4      18  1  3     1    0
 1476      26  0  0  1460    4      18  1  3     2    0      26  0  0  1460    4      18  1  3     1    0
 1480      18  1  0     3    0      26  0  0  1466    4      26  0  1  1470    4       0  0  0    63    0
 PROCEDURE  975
 1484       0  0  0     0    0       4  1  0  1602    4      24  0  0  1584    4      28  0  0  1594    4
 1488      24  0  1  1584    4      24  0  2  1594    4       4  1  0  1580    4      18  0  0     0    0
 1492      28  0  0  1643    4       0  1  1  1642    4      27  0  3  1497    4       1  1  3     0    0
 1496      24  1  0  1498    4       1  1  3    16    0      24  0  1  1584    4       2  0  0  1598    4
 1500      24  0  1  1584    4       0  1  1  1594    4      27  0  3  1505    4       1  1  3     0    0
 1504      24  1  0  1506    4       1  1  3    16    0      24  0  0  1584    4       2  0  0  1599    4
 1508       0  0  3  1672    4      26  0  1  1484    4
 PROCEDURE  976
 1510                                                         0  0  0     0    0       1  1  1    32    0
 1512      18  0  0     5    0       1  1  1     5    0      24  0  3  1672    4       4  0  0   123    0
 1516      26  0  1  1510    4       1  1  3     0    0
 PROCEDURE  977
 1518                                                         0  0  0     0    0      28  1  2  2056    4
 1520      24  0  2  1814    4      28  1  2  2048    4       2  1  0  2046    4       1  0  1     1    0
 1524      24  0  3  1672    4      15  0  0    27    0       1  1  2     4    0      27  0  0  1540    4
 1528      24  0  2  2046    4       4  1  0  1582    4      24  1  2  1577    4      28  1  1     0    0
 1532       6  0  0  1576    4      18  1  1  4123    0       6  0  0  1576    4      18  1  1  4123    0
 1536      26  0  0  1548    4      23  0  2  1556    4       1  1  3     0    0      26  0  1  1518    4
 1540       1  1  3     8    0      18  0  1     4    0       2  0  0  2047    4      24  0  2  2046    4
 1544      24  1  2  1577    4      29  0  1     0    0       1  1  3     0    0      24  1  0  1532    4
 PROCEDURE  978
 1548       0  0  0     0    0      18  0  0     5    0      24  0  3  1672    4       4  1  0    26    0
 1552      25  1  1  4096    0      24  0  3  1672    4      23  0  2   160    0      26  0  1  1548    4
 PROCEDURE  979
 1556       0  0  0     0    0      25  1  1  4096    0      24  1  1  1672    4       6  0  0  1576    4
 1560      24  0  3  1672    4       2  0  1    30    0       6  0  0  1575    4       5  0  0  1576    4
 1564      24  0  3  1672    4       2  0  1     7    0      24  0  3  1672    4       2  0  1    45    0
 1568      24  0  2  1571    4      24  0  3  1672    4      24  1  0   174    0      24  0  3  1672    4
 1572      24  0  3     2    0      24  1  1    29    0      26  0  3  1556    4      26  1  0     0    0
 1576       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     4    0
 1580       0  0  0     0    0       0  0  0     1    0       0  0  0     0    0       0  0  0    48    0
  SECTION   980
 1584           0       0                0       0                0       0                0       0
 1588       £££££       0                Ю       0            16973       0            72735       0
 1592           0       0                0       0                0       0                0       0
 1596           0       0                0       0                0       0                0       0
 1600           0       0                0       0                0       0                2       0
 1604           0       0                0       0               5‼       0                2       0
 1608           1       0                0       0               16       0                0       0
 1612         256       0                0       0             4096       0                0       0
 1616       65536       0                0       0
  SECTION   981
 1618                                                         ‼5‼5‼       0            5‼5‼5       0
 1620       36363       0            63636       0            25252       0            52525       0
 1624       16773       0            53585       0                0       0            55690       0
 1628       37359       0            72555       0                0       0            66650       0
 1632       96573       0            67695       0            36656       0            66747       0
 1636       96573       0            67665       0            40052       0            67006       0
 1640       46772       0            54746       0            25565       0            73516       0
 1644        5173       0            66650       0            65764       0            67696       0
 1648       55972       0            56596       0            7557.       0            73786       0
 1652       55163       0            56596       0            27355       0            64517       0
 1656       96674       0            69006       0            10000       0            64694       0
 1660       20000       0            64694       0            30000       0            64694       0
 1664       55500       0            73596       0                0       0            77770       0
 1668       .7.7.       0            7.7.7       0            .5.5.       0            5.5.5       0
  SECTION   982
 1672           0       0               18       0                0       0               7‼-      0
 1676          3:       0            66666       0               3‼       0                0       0
 PROCEDURE  983
 1680       0  0  0  1648    4       1  0  0     5    0       0  0  0  1650    4      17  0  0  1029    0
 PROCEDURE  984
 1684       0  0  0  1646    4       1  0  0   245    0       0  0  0  1592    4       0  0  0    21    0
 1688       0  0  0  1638    4       1  0  0    68    0       0  0  0  1636    4       1  0  0     5    0
 1692       8  0  0  2319    4       0  0  0    53    0       0  0  0  1650    4       1  0  0    68    0
 1696       0  0  0  1674    4       0  0  0  1041    0       0  0  0  1650    4      17  0  0  1057    0
 1700       0  0  0  1624    4       1  0  0   753    0       8  0  0  2321    4       0  0  0    53    0
 1704       8  0  0  2320    4       6  0  0  1285    0       0  0  0  1638    4       1  0  0  1089    0
 1708       8  0  0  2323    4       0  0  0    53    0       8  0  0  2322    4       6  0  0  1285    0
 1712       0  0  0  1624    4       1  0  0    65    0       8  0  0  2324    4       4  0  0    53    0
 1716       0  0  0  1650    4      17  0  0  1089    0       0  0  0  1658    4       1  0  0   243    0
 1720       8  0  0  2326    4       4  0  0    21    0       8  0  0  2325    4       4  0  0     5    0
 1724       0  0  0  1660    4       1  0  0    67    0       8  0  0  2328    4       4  0  0    21    0
 1728       8  0  0  2327    4       4  0  0     5    0       0  0  0  1662    4       1  0  0    67    0
 1732       8  0  0  2330    4       4  0  0    21    0       8  0  0  2329    4       4  0  0     5    0
 1736       0  0  0  1650    4      17  0  0  1073    0
 PROCEDURE  985
 1738                                                         0  0  0  1592    4       0  0  0   245    0
 1740       0  0  0  1632    4       1  0  0    37    0       0  0  0  1634    4       1  0  0     5    0
 1744       8  0  0  2318    4       0  0  0  4866    0       0  0  0  1650    4      17  0  0  1025    0
 1748       0  0  0  1646    4       1  0  0   245    0       0  0  0  1592    4       0  0  0    21    0
 1752       0  0  0  1652    4       1  0  0    37    0       0  0  0  1640    4       1  0  0    20    0
 1756       0  0  0  1650    4      17  0  0  1041    0       0  0  0  1654    4       1  0  0   245    0
 1760       0  0  0  1656    4       1  0  0     5    0       0  0  0  1664    4       1  0  0     5    0
 1764       0  0  0  1650    4      17  0  0  1089    0
 PROCEDURE  986
 1766                                                         0  0  0  1604    4       1  0  0  1025    0
 1768       0  0  0  1164    4       0  0  1   515    0       0  0  0  1585    4       0  0  2     5    0
 1772       0  0  0  1174    4       0  0  2    21    0       0  0  0  1588    4       0  0  0  4117    0
 1776       0  0  0  1169    4       0  0  1   531    0       0  0  0  1170    4       0  0  0  1041    0
 1780       0  0  0  1171    4       0  0  0  1041    0       0  0  0  1172    4       0  0  2    21    0
 1784       0  0  0  1165    4       0  0  1   531    0       0  0  0  1166    4       0  0  0  1041    0
 1788       0  0  0  1167    4       0  0  0  1041    0       0  0  0  1168    4       0  0  2    21    0
 1792       0  0  0  1596    4       4  0  2    69    0       0  0  0  1597    4       4  0  2    37    0
 1796       0  0  0  1634    4       1  0  0    37    0       0  0  0  1173    4       0  0  0  4882    0
 1800       0  0  0  1668    4      17  0  0     5    0       0  0  0  1672    4       0  0  2  4341    0
 1804       0  0  0  1672    4       0  0  2  4341    0       0  0  0  1672    4       0  0  2  4341    0
 1808       0  0  0  1672    4       0  0  2  4117    0       0  0  0  1600    4       1  0  0    53    0
 1812       0  0  0  1668    4      17  0  0     5    0       0  0  0  1672    4      16  0  2  4341    0
  SECTION   987
 1816        9248       0             9041       0             9208       0             9410       0
 1820       10410       0             8241       0             9049       0             1:‼6       0
 1824       31249       0             1246       0             8240       0             9249       0
 1828        1249       0             1036       0             9009       0             1208       0
 1832         3‼6       0            36:‼6       0              200       0               40       0
 1836        8041       0             9206       0             1248       0             1246       0
 1840        1241       0                0       0             1249       0             8209       0
 1844        9008       0             8249       0             8248       0             1041       0
 1848        9248       0             9241       0             8001       0             8200       0
 1852        9008       0             9048       0             8209       0             1209       0
 1856        9048       0             9240       0             1249       0              209       0
 1860        1208       0             93‼6       0             1249       0             9049       0
 1864        93‼6       0            30248       0             8248       0             938‼       0
 1868        8249       0             9041       0             9249       0             6+09       0
 1872        8201       0            18076       0             1049       0             83‼6       0
 1876        8249       0             1048       0             8209       0             6:‼6       0
 1880        9241       0             1248       0             8209       0             1208       0
 1884        9000       0             9040       0              200       0             8008       0
 1888         248       0             1001       0             9008       0                8       0
 1892        9048       0             8248       0             9248       0             1049       0
 1896        .:‼6       0             9241       0             1249       0             1249       0
 1900        1209       0             9049       0             8241       0             9049       0
 1904        9209       0             1380       0             9249       0               71       0
  SECTION   988
 1908        904£       0              200       0             9008       0              248       0
 1912        1000       0             1041       0             1240       0             8009       0
 1916        9049       0             9049       0             13+1       0             924£       0
 1920        1049       0               79       0             11‼6       0             8248       0
 1924        8248       0             9258       0             9040       0             8236       0
 1928        9049       0             6:‼6       0             1249       0              209       0
 1932        104£       0              248       0             9000       0                0       0
 1936           0       0                0       0                0       0                0       0
 1940           0       0                0       0               10       0               10       0
 1944       10018       0            10000       0                0       0                0       0
 1948           0       0               10       0            3.:‼6       0            36:‼6       0
  SECTION   989
 1952         240       0             8041       0             9206       0             9249       0
 1956        9259       0             6:‼6       0                0       0                0       0
 1960           0       0                0       0                0       0                0       0
 1964           0       0                0       0                0       0                0       0
 1968           0       0                0       0                0       0                0       0
 1972           0       0                0       0                0       0                0       0
 1976           0       0                0       0                0       0                0       0
 1980           0       0                0       0                0       0                0       0
 1984       10410       0            10410       0            10410       0            10410       0
 1988       10410       0              209       0             1209       0             1241       0
 1992        ‼249       0             8049       0             9:‼6       0             8241       0
 1996        9249       0             1041       0             9271       0            36:‼6       0
 2000        9276       0             1048       0             9249       0             9249       0
 2004        1041       0             1249       0             9249       0             9248       0
 2008        9:‼6       0             9249       0             9248       0             9248       0
 2012        9249       0             9+49       0             1049       0             9248       0
 2016        9049       0             1248       0             £049       0             9249       0
 2020        9241       0             1248       0             1208       0             8209       0
 2024        9248       0             9041       0             1241       0             9249       0
 2028        9249       0             1249       0             9008       0             1009       0
 2032        9:‼6       0            30:89       0             9248       0             9249       0
 2036        9249       0             9249       0             83‼1       0             9249       0
 2040        9009       0             1249       0             9249       0             8208       0
 2044        8248       0              241       0             1009       0             6:‼6       0
 2048        1249       0             8248       0
  SECTION   990
 2050                                                          8249       0             8209       0
 2052        9000       0             8201       0             920‼       0             13‼6       0
 2056        9041       0             1208       0             1240       0             8076       0
 2060       18208       0             1241       0             9041       0             8201       0
 2064           0       0              1‼6       0                0       0                0       0
 2068           0       0                0       0                0       0                0       0
 2072           0       0                0       0                0       0                0       0
 2076           0       0                0       0
  SECTION   991
 2078                                                             0       0                0       0
 2080           0       0                0       0            10410       0            10410       0
 2084       10410       0            10410       0            10410       0            10410       0
 2088       10410       0            10410       0            10410       0            10410       0
 2092       10410       0            10410       0            10410       0            10410       0
 2096       10410       0            10410       0            10410       0            10410       0
 2100       10410       0            10410       0            10410       0            10410       0
 2104       1043.       0                0       0
  SECTION   992
 2106                                                         28‼71       0            2Ю63.       0
 2108       2Ю£‼£       0                0       0
  SECTION   993
 2110                                                             0       0                0       0
 2112           0       0                0       0                0       0                0       0
 2116           0       0                0       0                0       0                0       0
 2120           0       0                0       0                0       0                0       0
 2124           0       0                0       0                0       0                0       0
 2128           0       0                0       0                0       0                0       0
 2132           0       0                0       0                0       0                0       0
 2136           0       0                0       0
  SECTION  1036
 2138                                                             1       0                4       0
 2140           1       0                3       0                0       0            2000.       0
 2144           0       0               1+       0                0       0                8       0
 2148           0       0            20034       0             8000       0             5146       0
 2152           0       0                6       0                0       0                3       0
 2156       96773       0            53585       0               7.       0            7.000       0
 2160           0       0                8       0                0       0            20032       0
 2164        8000       0             5141       0
  SECTION  1037
 2166                                                             2       0            80000       0
 2168           3       0             8066       0
  SECTION  1038
 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
 PROCEDURE  994
   33                                0  0  0     0    0
  SECTION  1039
   34                                                             1       0                4       0
   36           1       0                3       0                0       0            2000.       0
   40           0       0               1+       0                0       0                8       0
   44           0       0            20034       0             8000       0             5146       0
   48           0       0                6       0
  SECTION  1040
  SECTION  1041
 PROCEDURE 1010
CHAPT      11
 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  995
   33                                0  0  0     0    0
  SECTION  1042
   34                                                             1       0                4       0
   36           1       0                3       0                0       0            2000.       0
   40           0       0               1+       0                0       0                8       0
   44           0       0            20034       0             8000       0             5146       0
   48           0       0                6       0
  SECTION  1043
  SECTION  1044
 PROCEDURE 1011
 
 
 
 
 
                       INTERCODE     TRIAL DATA   SERIAL NUMBERS OF INTERCODE REPORTS
          PT OMITTED        NO             NO
          DISASTROUS         0              0
          OTHERS             0              0
 
 
 
 
 
          MADE BY 08000 ISSUE 8  SERIAL 08011 ON 31/ 8/15  SPOOL  8099