Source image: P1030141.JPG
                PROGM   080      4     0     GENERATOR                                                             
                ENTRY   166      3                                                                                 
                    D1       14      2    195    0                                                                 
                    B1       15      2     75    0                                                                 
                    A1        7      2     75    0                                                                 
                    A2        8      0     75    0                                                                 
                    A6        7      0     75    0                                                                 
                                                                                                                   
      CHAPS    9   100   101   200   326   445   557   558   559   564                                             
      INDEX    3     1     2     2     2     2     2     2     1     2                                             
                                                                                                                   
          *1001        3      24    0       2                                                                      
          *1002        4      50    0       2                                                                      
          *1003        6     450    0       2                                                                      
          *1004       17      50    0       2                                                                      
          *1005       22     225    0       2                                                                      
          *1006       19     330    0       2                                                                      
          *1007       21     120    0       2                                                                      
          *1008       94      50    0       2                                                                      
          *1009       42      26    0       2                                                                      
          *1010       40      26    0       2                                                                      
          *1011       41     500    0       2                                                                      
          *1012       44       5    0       2                                                                      
          *1013        2       5    0       1                                                                      
          *1014       18    1250    0       1                                                                      
          *1015       25     120    0       1                                                                      
          *1016        1      23    0       3                                                                      
          *1017       28      23    0       3                                                                      
          *1018       29      22    0       3                                                                      
          *1019       66      12    0       4                                                                      
          *1020       67       2    0       4                                                                      
          *1021       61      60    0       4                                                                      
          *1022       72      16    0       5                                                                      
          *1023       53       0    0       3                                                                      
          *1024       77      22    0       3                                                                      
  Source image: P1030142.JPG
          *1025       70       0    0       3                                                                      
          *1026       54      80    0       3                                                                      
          *1027       55      25    0       3                                                                      
          *1028       92      19    0       2                                                                      
          *1029       23      24    0       2                                                                      
          *1030       27      10    0       2                                                                      
          *1031       10     195    1       2                                                                      
          *1032        5      75    1       1                                                                      
          *1033        7      75    1       2                                                                      
          *1034       24       6    0       2                                                                      
          *1035        8      75    1       1                                                                      
          *1036        9      75    1       1                                                                      
          *1037       11      10    0       5                                                                      
          *1038       13      16    0       5                                                                      
          *1039       16      20    0       5                                                                      
          *1040       15      50    0       5                                                                      
          *1041       26     540    0       5                                                                      
          *1042       12      60    0       3                                                                      
          *1043       93     225    0       3                              PASS 1 OLD/NEW PROCR INDEX              
          *1044       97     330    0       3                                                                      
          *1045       52     120    0       3                                                                      
          *1046       20     150    0       4                              PASS 2 100 ACTIVE SEQ CHANGES FORWA     
          *1047       91     516    0       9                              IPS ANNEXE                              
          *1048       14       0    0       4                              DUMMY                                   
                                                                                                                   
          10000    PROCR   100       100     CHAPTER ONE                                                           
          10001     NOTES                         MAIN OVERLAY ORDER TO RECALL PASS 0                              SELECT
    16615>10002    152     101      2   0  0              0        101                                             OVERLAY
          10003    C       445      2   0  0              0        445                                             
          10004    76      555      3   0  0              0        555     >ENTER IPS                              JUMP unconditional
    17012>                                                                                                         
    32914>                                                                                                         
    48323>                                                                                                         
    53750>                                                                                                         
    53756>10005    152     101      2   0  0              0        101                                             OVERLAY
          10006    C       101      2   0  0              0        101                                             
          10007    76      166      2   0  0              0        166     >PASS 0                                 JUMP unconditional
                                                                                                                   
          10100    PROCR   101       101     CALL PASS 1                                                           
    18238>10102    152     101      2   0  0              0        101                                             OVERLAY
          10103    C       200      2   0  0              0        200                                             
                                                                                                                   
          10200    PROCR   102       102     STORE REGISTER,SEARCH FOR FIRST BLOCK,TEST M/T FILE                   
          10201     NOTES          RADIX                                                                           SELECT
    16938>10202    10               0   0  0              1                CD INDICATOR                            SELECT LITERAL
          10203    5       153      4   1  0              0        153                                             TRANSFER
          10204            27       9   0  0              0                                                        SELECT
          10205    71      105     56   0  0              0        105     >OPEN A9                                JUMP IF A != 0
          10206            27       8   0  0              0                                                        SELECT
          10207    5       152     19   0  0              0        152     >W/L                                    TRANSFER
          10208    100     999      0   0  3              0                BINARY              OPEN PRINTER        set radix
          10209    101             19   1  3              0                                                        select literal address
          10210    80      136      2   0  0              0        136     >                                       ENTER SUBROUTINE
    10573>10211    40      A1       0   0  0              1                MT IN                                   OPEN FILE
          10212    83      133      2   0  0              1        133     DON'T TEST UNTIL PROCR                  SET SWITCH(ES) AT LITERAL VALUE
          10213    60               0   0  0              0                                                        SET DECIMAL RADIX
          10214    54      41       0   0  0           1000                                                        BULK CLEAR
          10215    80      190      2   0  0              0        190     >SET TO PASS1                           ENTER SUBROUTINE
          10216            40       6   2  0              0                STORE OLD SER                           SELECT
          10217    5       155      4   1  0              0        155                                             TRANSFER
  Source image: P1030143.JPG
          10218            40       4   2  0              0                                                        SELECT
          10219    5       155      2   1  0              0        155     STORE PROG ID                           TRANSFER
                                                                                                                   
          10300    PROCR   103       103     FORM UP CONTROL BLOCK                                                 
          10301     NOTES          RADIX          0                                                                SELECT
          10302    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10303    83      140      2   0  0              1        140     BEFORE ROUTES                           SET SWITCH(ES) AT LITERAL VALUE
          10304    5       150     18   1  0              0        150     CLEAR                                   TRANSFER
          10305    54      153     10   0  0              6        153                                             BULK CLEAR
          10306    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10307    101             15   1  3              0                OPEN B1                                 select literal address
          10308    104     152     22   0  0              0        152     0=PT 1=CARDS                            add (N) to (A)
          10309    118              5   0  1              0                                                        shift arithmetic
          10310    104     999      8   0  0              0                                                        add (N) to (A)
          10311    100     152     24   1  2              0        152                                             replace (B) by (N)
          10312    125           4096   1  1              0                                                        clear indicators
          10313    124     999      0   0  3              0                                                        modify address of next
          10314    123            160   0  2              0                >ENTER MASTER                           enter master routine
          10315    80      135      2   0  0              0        135     >READ P/T S/R       READ NEXT BLOCK     ENTER SUBROUTINE
          10316            153      8   0  0              0        153     TEST IF 'LOCKOUT' BLOCK                 SELECT
          10317    12               0   0  0                                                                       SUBTRACT LITERAL
          10318    71      103     22   0  0              0        103     N >                                     JUMP IF A != 0
          10319            153      9   0  0              0        153     STORE LINE SERIAL                       SELECT
          10320    5       152     26   0  0              0        152                                             TRANSFER
          10321    80      135      2   0  0              0        135     > READ P/T S/R      READ NEXT BLOCK     ENTER SUBROUTINE
    10318>10322            153      8   0  0              0        153     TEST TYPE 1         TEST IF CONTROL     SELECT
          10323    12               0   0  0              1                                    BLOCK               SUBTRACT LITERAL
          10324    71      170      6   0  0              0        170     >*03                                    JUMP IF A != 0
          10325    35               0   0  0           1100                                                        PREPARE FOR DIGIT COLLATION
          10326    36      155      4   0  0              0        155     VERSION                                 COLLATE AND ADD
          10327    70      103     30   0  0              0        103     >OK                                     JUMP IF A == 0
          10328    12               0   0  0           9900                                                        SUBTRACT LITERAL
          10329    71      190     48   0  0              0        190     >*02                NOT BASIC           JUMP IF A != 0
    10327>10330            155      4   0  0              0        155                                             SELECT
          10331    60               0   0  0              0                                                        SET DECIMAL RADIX
          10332    11               0   0  0              1                                                        ADD LITERAL
          10333    5       153      2   0  0              0        153                                             TRANSFER
          10334    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10335            153      9   0  0              0        153     MACHINE NO                              SELECT
          10336    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10337    37      153      2   0  0              0        153     NEW SER                                 REPLACE SELECTED BITS
          10338    80      135      2   0  0              0        135     >READ P/T S/R                           ENTER SUBROUTINE
                                                                                                                   
          10400    PROCR   104       104     AMEND CONTROL BLOCK IF NECESSARY                                      
          10401     NOTES          RADIX                                                                           SELECT
    10428>10402            153      8   0  0              0        153     TEST TYPE 2         TEST IF CONTROL     SELECT
          10403    12               0   0  0              2                                    BLOCK NEEDS AMENDT  SUBTRACT LITERAL
          10404    71      104     32   0  0              0        104     >NO                 >NO                 JUMP IF A != 0
          10405    54      41       0   0  0             35                                                        BULK CLEAR
          10406            152     22   0  0              0        152                                             SELECT
          10407    71      104     29   0  0              0        104     >CARDS                                  JUMP IF A != 0
          10408    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          10409    C       158      6   0  0              0        158     ALPHA>NUMERIC                           
    10431>10410    91      154      4   0 11              0        154     0/0                 SET MR FOR          SET MODIFICATION REGISTER AT VARIABLE
    10426>10411    91      154      4   0 12              0        154                         AMENDTS             SET MODIFICATION REGISTER AT VARIABLE
          10412    101              3   0  1              0                                                        prepare for digit collation
          10413    125              0   1  2              0                                                        interrogate indicators
          10414    36      41       1   0 11              0                                                        COLLATE AND ADD
          10415    70      104     27   0  0              0        104     >NO MORE AMENDTS                        JUMP IF A == 0
          10416    101              1   1  2              0                                                        subtract literal address
  Source image: P1030144.JPG
          10417    118           4127   1  0              0                                                        shift logical
          10418    92               0   0 12              0                                                        SET MODIFIER AT VARIABLE
          10419    118              1   1  0              0                                                        shift logical
          10420    5       152      3   0  0              0        152                                             TRANSFER
          10421    100     152      4   0  2              0        152                                             replace (B) by (N)
          10422    106     152      4   0  0              0        152                                             select (N)
          10423    124     152      3   0  1              0        152                                             modify address of next
          10424    118              0   1  3              0                                                        shift binary
          10425    37      153     10   0 12              0        153                                             REPLACE SELECTED BITS
          10426    94      104     11   0 11              1        104     >NEXT AMENDMENT                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    10415>10427    80      135      2   0  0              0        135     >READ P/T S/R                           ENTER SUBROUTINE
          10428    76      104      2   0  0              0        104     >MORE AMDTS?                            JUMP unconditional
    10407>10429    50      5        0   0  0              0                CARDS                                   UNPACK FIXED FIELD DATA
          10430    C       159      6   0  0              0        159                                             
          10431    76      104     10   0  0              0        104                                             JUMP unconditional
    10404>10432    83      118      2   0  0              1        118     SET SWITCH FOR FIRST REPLACEMENT        SET SWITCH(ES) AT LITERAL VALUE
                                                                                                                   
          10500    PROCR   105       105     EDIT AND OUTPUT CONTROL BLOCK AND HEADING BLOCK                       
          10501     NOTES          RADIX          0                                                                SELECT
          10502    52      42       2   0  0              0                HEADING LINE        PRINT HEADING L     EDIT
          10503    C       156      2   0  0              0        156                                             
          10504    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10505    80      143      2   0  0              0        143     >BLANK LINE                             ENTER SUBROUTINE
          10506    52      42       2   0  0              0                'CONTROL WORD'                          EDIT
          10507    C       156     24   0  0              0        156                                             
          10508    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10509    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10510    90               0   0 11              0                SET MRS FOR WORDS   BREAK CONTROL BLOCK SET MODIFICATION REGISTER AT LITERAL
          10511    C                0   0  0             16                                                        
    10543>10512    90               0   0 12              8                SET MR FOR                              SET MODIFICATION REGISTER AT LITERAL
          10513    C                0   0  0              0                STORING O/P                             
          10514            153     10   0 11              0        153     NEXT WORD                               SELECT
          10515    118              3   0  3              0                                                        shift binary
          10516    118           4127   1  0              0                                                        shift logical
          10517    102     152      3   0  0              0        152     STORE BITS 2-16                         transfer (A) to N
          10518    118              1   1  3              0                PRINT BIT 1                             shift binary
          10519    70      105     22   0  0              0        105                                             JUMP IF A == 0
          10520    10               0   0  0          10000                                                        SELECT LITERAL
          10521    76      105     38   0  0              0        105                                             JUMP unconditional
    10519>10522    10               0   0  0          .0000                                                        SELECT LITERAL
          10523    76      105     38   0  0              0        105                                             JUMP unconditional
    10539>10524            152      3   0  0              0        152     FORM NEXT                               SELECT
          10525    32               0   0  0              2-               COLLATION ORDER                         SHIFT (AB) BY QUARTETS
          10526    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          10527    5       152      3   0  0              0        152                                             TRANSFER
          10528    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          10529    33               0   0  0              1                                                        SHIFT (AB) BY BITS
          10530    5       154     46   0  0              0        154                                             TRANSFER
          10531    10               0   0  0             ..                ZEROS                                   SELECT LITERAL
          10532    5       152      2   0  0              0        152                                             TRANSFER
          10533    124     154     46   0  1              0        154                                             modify address of next
          10534    101              0   0  1              0                FORMED ADDRESS                          prepare for digit collation
          10535    10               0   0  0          11111                PACK 1'S ONTO QRTETS                    SELECT LITERAL
          10536    37      152      2   0  0              0        152     WHICH CORRESPOND                        REPLACE SELECTED BITS
          10537            152      2   0  0              0        152     TO BITS WHICH ARE                       SELECT
    10523>                                                                                                         
    10521>10538    5       42       0   2 12              0                1                                       TRANSFER
          10539    94      105     24   0 12              2-       105     >NEXT 5                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10540            153     62   1  0              0        153     BEW                                     SELECT
          10541    5       42      10   1  0              0                                                        TRANSFER
  Source image: P1030145.JPG
          10542    80      137      2   0  0              0        137     >PRINT S/R                              ENTER SUBROUTINE
          10543    94      105     12   0 11              1        105     >NEXT LINE                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10544    60               0   0  0              0                                                        SET DECIMAL RADIX
          10545    80      143      2   0  0              0        143     >BLANK LINE                             ENTER SUBROUTINE
          10546    52      42       2   0  0              0                EDIT HEADING                            EDIT
          10547    C       157      4   0  0              0        157     BLOCK                                   
          10548    80      137      2   0  0              0        137     >PRINT                                  ENTER SUBROUTINE
          10549    55      5        0   1  0             10                SAFE                                    BULK COPY
          10550    C       44       0   1  0              0                                                        
          10551    55      42       2   1  0             46                >'PT'                                   BULK COPY
          10552    C       5        0   1  0              0                                                        
          10553    124     106      2   0  2              0        106                                             select literal and division
          10554    5       139      2   0  0              0        139                                             TRANSFER
          10555    76      170      2   0  0              0        170     BACK TO PASS 0                          JUMP unconditional
    10205>10556    10               0   0  0        1200000                OPEN A9                                 SELECT LITERAL
          10557    34      197     90   1  0              0        197                                             SET (N) IN B
          10558    1       999      7   0  0              0                                                        ADD
          10559    125           4096   1  1              0                                                        clear indicators
          10560    124     999      0   0  3              0                                                        modify address of next
          10561    123            160   0  2              0                >OPEN                                   enter master routine
          10562    10               0   0  0           8000                WRITE HDG BLOCK                         SELECT LITERAL
          10563    5       10       4   2  0              0                                                        TRANSFER
          10564    155              0   0  0              0                SERIAL                                  SELECT PROGRAM SERIAL TO A
          10565    5       10       6   1  0              0                                                        TRANSFER
          10566    10               0   0  0           9001                                                        SELECT LITERAL
          10567    5       10       8   2  0              0                                                        TRANSFER
          10568            153     62   1  0              0        153     BEW                                     SELECT
          10569    5       10      10   1  0              0                                                        TRANSFER
          10570    10               0   0  0              8                                                        SELECT LITERAL
          10571    34      999     12   0  0              0                                                        SET (N) IN B
          10572    80      136      2   0  0              0        136     >A9                                     ENTER SUBROUTINE
          10573    76      102     11   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10600    PROCR   106       106     UNPACK PROGRAMME HEADING BLOCKS                                       
          10601     NOTES          RADIX          0                                                                SELECT
    10605>10602    80      134      2   0  0              0        134     READ BLOCK          FIND FIRST          ENTER SUBROUTINE
          10603            41       0   1  0              0                TEST PROGM BLOCK    FILE DETAIL         SELECT
          10604    2       154     42   1  0              0        154                                             SUBTRACT
          10605    71      106      2   0  0              0        106                                             JUMP IF A != 0
          10606    5       152     18   0  0              0        152     CLEAR STEP BACK L   OCATION             TRANSFER
          10607    80      134      2   0  0              0        134     STEP FORWARD TO                         ENTER SUBROUTINE
    10611>10608    80      134      2   0  0              0        134     FIRST FILE                              ENTER SUBROUTINE
          10609            41       0   1  0              0                TEST CHAPS                              SELECT
          10610    2       154     24   1  0              0        154                                             SUBTRACT
          10611    71      106      8   0  0              0        106     >NO                                     JUMP IF A != 0
          10612    83      106      2   0  0             20        106     SW 2                                    SET SWITCH(ES) AT LITERAL VALUE
          10613    76      107      3   0  0              0        107     >START GENERATING                       JUMP unconditional
                                                                                                                   
          10700    PROCR   107       107     BEGINNING OF MAIN LOOP,DEAL WITH NEW SECTION                          
          10701     NOTES          RADIX          0                                                                SELECT
    10917>                                                                                                         
    11005>                                                                                                         
    11009>                                                                                                         
    11103>                                                                                                         
    11508>                                                                                                         
    11517>                                                                                                         
    11605>                                                                                                         
    11610>                                                                                                         
    11614>                                                                                                         
    11809>                                                                                                         
    12003>                                                                                                         
    13106>                                                                                                         
  Source image: P1030146.JPG
    13110>10702    80      134      2   0  0              0        134     READ AND STORE M/T BLOCK                ENTER SUBROUTINE
    10752>                                                                                                         
    10613>10703            41       0   1  0              0                TEST IF SECTION     TEST IF NEW         SELECT
          10704    2       154     24   1  0              0        154     DESCRIPTION SHEET   SECTION AND SET     SUBTRACT
          10705    70      107     24   0  0              0        107                         SECTION TYPE        JUMP IF A == 0
          10706            152     26   0  0              0        152                                             SELECT
          10707    70      107     11   0  0              0        107     TEST LINE SERIAL STONO>                 JUMP IF A == 0
          10708    2       41       0   2  0              0                TEST IF 'LOCKOUT' LINE                  SUBTRACT
          10709    71      107     11   0  0              0        107     NO>                                     JUMP IF A != 0
          10710    123              0   0  3              0                                                        select tag
    10709>                                                                                                         
    10707>10711            41       4   1  0              0                TEST PROCR          SWITCH IF 50        SELECT
          10712    2       154     26   1  0              0        154                                             SUBTRACT
          10713    70      107     28   0  0              0        107     >YES                                    JUMP IF A == 0
          10714            41       4   1  0              0                TEST CONST                              SELECT
          10715    2       154     28   1  0              0        154                                             SUBTRACT
          10716    70      107     27   0  0              0        107     >YES                                    JUMP IF A == 0
          10717            41       4   1  0              0                TEST TABLE                              SELECT
          10718    2       154     30   1  0              0        154                                             SUBTRACT
          10719    70      107     26   0  0              0        107     >YES                                    JUMP IF A == 0
          10720            41       4   1  0              0                TEST END SIGN                           SELECT
          10721    2       154     40   1  0              0        154                                             SUBTRACT
          10722    70      128      2   0  0              0        128     >YES END ROUTINE                        JUMP IF A == 0
          10723    76      108      2   0  0              0        108     >NOT A NEW SECTION                      JUMP unconditional
    10705>10724    92               0   0 11              0                SECTION DESCRIPTION                     SET MODIFIER AT VARIABLE
          10725    10               0   0  0              1                                                        SELECT LITERAL
    10719>10726    11               0   0  0              1                TABLE                                   ADD LITERAL
    10716>10727    11               0   0  0              1                CONST                                   ADD LITERAL
    10713>10728    11               0   0  0              1                PROCR                                   ADD LITERAL
          10729    84      107      2   0  0              0        107     SET SECTION TYPE SW SWITCH 5            SET SWITCH(ES) AT VARIABLE VALUE
          10730            152      7   0  0              0        152     TEST DELETION       TEST DELETION       SELECT
          10731    70      107     43   0  0              0        107     >NO                 INDICATOR           JUMP IF A == 0
          10732    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          10733    5       152      7   0  0              0        152                                             TRANSFER
          10734    85      106      2   0  0              0        106     SWITCH 2            PRINT FINAL LINE    SWITCH R
          10735    C       107     43   0  0              0        107     >PROGRAMME HEADING  OF DELETION         
          10736    C       107     37   0  0              0        107     >OTHER SECTIONS                         
    10736>10737            153     52   1  0              0        153     SERIAL NO                               SELECT
          10738    5       42       2   1  0              0                                                        TRANSFER
          10739            153     62   1  0              0        153     STORE B/E                               SELECT
          10740    5       42       4   1  0              0                                                        TRANSFER
          10741    5       150     18   1  0              0        150     CLEAR                                   TRANSFER
          10742    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
    10735>                                                                                                         
    10731>10743    80      134      2   0  0              0        134     READ M/T S/R                            ENTER SUBROUTINE
          10744            40      10   1  0              0                TEST NOTES                              SELECT
          10745    2       154     32   1  0              0        154                         OF SECTION          SUBTRACT
          10746    71      107     48   0  0              0        107     >DEAL WITH NEXT                         JUMP IF A != 0
          10747    80      134      2   0  0              0        134     BLOCK                                   ENTER SUBROUTINE
    10746>10748    10               0   0  0              0                                                        SELECT LITERAL
          10749    5       152      8   0  0              0        152     CLEAR DUMMY INDICATOR                   TRANSFER
          10750    83      106      2   0  0              2        106     SET SWITCH FOR ORDINARY SECTION         SET SWITCH(ES) AT LITERAL VALUE
          10751    83      118      2   0  0              1        118     SET SWITCH FOR FIRST REPLACEMENT        SET SWITCH(ES) AT LITERAL VALUE
          10752    76      107      3   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          10800    PROCR   108       108     DEAL WITH CONTENTS OF SECTION,STORE DUMMIES                           
          10801     NOTES          RADIX          0                                                                SELECT
    10723>10802            41       0   1  0              0                STORE SERIAL NO     STORE SERIAL NO     SELECT
  Source image: P1030147.JPG
          10803    5       153     52   1  0              0        153     FOR DELETIONS                           TRANSFER
          10804            152      8   0  0              0        152                         TEST IF THIS        SELECT
          10805    70      109      2   0  0              0        109     >NO                 ORDER IS STORED     JUMP IF A == 0
          10806    55      41       0   1  0             42                STORE DUMMY         AS DUMMY            BULK COPY
          10807    C       41     372   1  6              0                                                        
          10808    94      109      2   0  6             42        109     >MORE DUMMIES TO COME                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10809    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          10810    5       152      8   0  0              0        152                                             TRANSFER
          10811    92               0   0  6              0                CLEAR MR                                SET MODIFIER AT VARIABLE
                                                                                                                   
          10900    PROCR   109       109     SEARCH INDICATORS                                                     
          10901     NOTES          RADIX          0                                                                SELECT
    10808>                                                                                                         
    10805>10902            41      26   1  0              0                                    TEST IF ANY         SELECT
          10903    32               0   0  0              8-                                   INDICATORS AT ALL   SHIFT (AB) BY QUARTETS
          10904    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10905    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          10906    60               0   0  0              0                                                        SET DECIMAL RADIX
          10907    71      111      2   0  0              0        111                                             JUMP IF A != 0
          10908    55      41      26   1  0             16                                                        BULK COPY
          10909    C       41      44   1  0              0                                                        
          10910    80      145      2   0  0              0        145     >REPLACE *'S BY N/E'S AND BREAK UP S/R  ENTER SUBROUTINE
          10911            152      7   0  0              0        152     TEST DELETION IND   TEST IF IN MIDDLE   SELECT
          10912    71      109     16   0  0              0        109     >YES                                    JUMP IF A != 0
          10913    80      112      2   0  0              0        112     >TEST ACTIVE S/R                        ENTER SUBROUTINE
          10914    70      111      2   0  0              0        111     >NO                                     JUMP IF A == 0
          10915    76      114      2   0  0              0        114     >YES                                    JUMP unconditional
    10912>10916    80      146      2   0  0              0        146     >TEST FOR REQD      IND                 ENTER SUBROUTINE
          10917    76      107      2   0  0              0        107     >NOT END OF DELETION                    JUMP unconditional
                                                                                                                   
          11000    PROCR   110       110     DEAL WITH END OF DELETION                                             
          11001     NOTES          RADIX          0                                                                SELECT
          11002    10               0   0  0              0                CLEAR DELETION      FINISH DELETION     SELECT LITERAL
          11003    5       152      7   0  0              0        152     INDICATOR                               TRANSFER
          11004    85      106      2   0  0              0        106     SWITCH 2            PRINT FINAL LINE    SWITCH R
          11005    C       107      2   0  0              0        107     >PROGRAMME HEADING  OF DELETION         
          11006    C       110      7   0  0              0        110     >OTHER SECTIONS                         
    11006>11007            41       0   1  0              0                                                        SELECT
          11008    5       150     18   1  0              0        150     STORE SER                               TRANSFER
          11009    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11100    PROCR   111       111     OUTPUT LINE IF PHS                                                    
          11101     NOTES          RADIX          0                                                                SELECT
    11709>                                                                                                         
    14521>                                                                                                         
    10914>                                                                                                         
    10907>11102    83      118      2   0  0              1        118                                             SET SWITCH(ES) AT LITERAL VALUE
          11103    76      107      2   0  0              0        107     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          11200    PROCR   112       112     SEARCH INDICATORS FOR AN ATIVE ONE                                    
          11201     NOTES          RADIX          0                                                                SELECT
          11202    81      112      2   0  0              0        112                                             START OF SUBROUTINE
          11203    10               0   0  0              2                                    PREPARE FOR FIRST   SELECT LITERAL
          11204    3       152      9   0  0              0        152     INDICATOR NO        WORD                COPY
          11205    3       152     10   0  0              0        152     AMENDT ACTIVE INDIC                     COPY
          11206    91      154      4   0  5              0        154     MR2,NEW IND WORDS                       SET MODIFICATION REGISTER AT VARIABLE
    11232>11207    90               0   0 13              0                NEXT                IND                 SET MODIFICATION REGISTER AT LITERAL
          11208    C                0   0  0              3                3 CHAR3             INDICATOR           
          11209    91      154      4   0  4              0        154     MR4 FOR STORING                         SET MODIFICATION REGISTER AT VARIABLE
    11224>11210    5       153     44   1  0              0        153     STORE 'A'                               TRANSFER
  Source image: P1030148.JPG
          11211    90               0   0 12              0                CHARS               PREPARE FOR NEXT    SET MODIFICATION REGISTER AT LITERAL
          11212    C                0   0  0             10                OF WORD             WORD                
          11213            41     322   1  5              0                                                        SELECT
          11214    3       41     306   1  4              0                                                        COPY
          11215    70      112     33   0  0              0        112                                             JUMP IF A == 0
          11216            153     44   1  0              0        153     RESTORE A                               SELECT
          11217    34      41     322   1  5              0                SELECT NEXT WORD TO B                   SET (N) IN B
    11222>11218    32               0   0  0              2                SHIFT NEXT CHAR TO A                    SHIFT (AB) BY QUARTETS
          11219    70      112     25   0  0              0        112     >LAST CHAR OF IND                       JUMP IF A == 0
          11220    94      112     22   0 13              1        112     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11221    76      113      2   0  0              0        113     >NEXT 3 CHARACTERS                      JUMP unconditional
    11348>                                                                                                         
    11220>11222    94      112     18   0 12              2        112                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11223    94      112     24   0  4              2        112     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11223>11224    94      112     10   0  5              2        112     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11219>11225    10               0   0  0              0                CLEAR NEXT W/L                          SELECT LITERAL
          11226    5       41     308   1  4              0                                                        TRANSFER
          11227            152     10   0  0              0        152     TEST LAST INDIC                         SELECT
          11228    71      112     33   0  0              0        112                                             JUMP IF A != 0
          11229    10               0   0  0              2                                                        SELECT LITERAL
          11230    4       152      9   0  0              0        152     STEP INDIC NO                           AUGMENT
          11231    5       152     10   0  0              0        152     SET AMENDT INDIC                        TRANSFER
          11232    94      112      7   0  5              2        112     >NEXT INDICATOR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11228>                                                                                                         
    11215>11233    82      112      2   0  0              0        112                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          11300    PROCR   113       113     SEARCH INDICATORS FOR AN ACTIVE ONE CONTINUED                         
          11301     NOTES          RADIX          0DEAL WITH 3 DIGIT NUMBERS                                       SELECT
    11221>11302    100     153     44   1  0              0        153     STORE'A''B''C'                          copy registers
          11303    10               0   0  0              0                                                        SELECT LITERAL
          11304    5       41     308   1  4              0                CLEAR INDIC LOCN                        TRANSFER
          11305    90               0   0 13              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11306    C                0   0  0              3                                                        
          11307            152     10   0  0              0        152                                             SELECT
          11308    70      113     45   0  0              0        113     >INDIC ALREADY INACTIVE                 JUMP IF A == 0
          11309            153     44   2  0              0        153     TEST IF SPECIAL                         SELECT
          11310    12               0   0  0            £.                                                         SUBTRACT LITERAL
          11311    70      113     13   0  0              0        113                                             JUMP IF A == 0
          11312    72      122      2   0  0              0        122     >YES                                    JUMP IF A >= 0
    11311>11313            153     44   2  0              0        153                                             SELECT
          11314    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          11315    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11316    5       153     44   0  0              0        153     STORE REASON                            TRANSFER
          11317    32               0   0  0              1                TYPE                                    SHIFT (AB) BY QUARTETS
          11318    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11319    5       152     13   0  0              0        152     STORE TYPE                              TRANSFER
          11320    106     153     44   0  0              0        153                                             select (N)
          11321    101              1   1  2              0                                                        subtract literal address
          11322    118           4127   1  0              0                                                        shift logical
          11323    102     152     11   0  0              0        152                                             transfer (A) to N
          11324    118              1   1  0              0                                                        shift logical
          11325    5       152     12   0  0              0        152                                             TRANSFER
          11326    34      152      4   0  0              0        152                                             SET (N) IN B
          11327    124     152     12   0  1              0        152     COLLATE OUT CONTROL                     modify address of next
          11328    118              0   1  3              0                BLOCK BIT WHICH                         shift binary
          11329    124     152     11   0  1              0        152     CORRESPONDS TO THE                      modify address of next
          11330    115     153     10   0  0              0        153     AMENDT REASON                           collate and add
          11331    60               0   0  0              0                                                        SET DECIMAL RADIX
          11332    71      113     39   0  0              0        113     >ACTIVE                                 JUMP IF A != 0
          11333            152     13   0  0              0        152     INACTIVE                                SELECT
  Source image: P1030149.JPG
          11334    12               0   0  0              8                                                        SUBTRACT LITERAL
          11335    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11336    73      113     43   0  0              0        113     >YES                                    JUMP IF A < 0
          11337    3       152     13   0  0              0        152                                             COPY
          11338    76      113     45   0  0              0        113     AS ACTIVE                               JUMP unconditional
    11332>11339            152     13   0  0              0        152                                             SELECT
          11340    12               0   0  0              8                                                        SUBTRACT LITERAL
          11341    70      129      2   0  0              0        129     >ERROR                                  JUMP IF A == 0
          11342    73      113     45   0  0              0        113     >OK                                     JUMP IF A < 0
    11336>11343    10               0   0  0              0                AS INACTIVE                             SELECT LITERAL
    12309>11344    5       152     10   0  0              0        152     SET INACTIVE IND                        TRANSFER
    11342>                                                                                                         
    11338>                                                                                                         
    11308>11345    10               0   0  0              0                CLEAR 'A'                               SELECT LITERAL
          11346    5       153     44   1  0              0        153                                             TRANSFER
          11347    100     153     44   1  1              0        153     RESET 'A' 'B' 'C'                       replace registers
          11348    76      112     22   0  0              0        112     >NEXT 3 DIGITS                          JUMP unconditional
                                                                                                                   
          11400    PROCR   114       114     SWITCH BY AMENDMENT TYPE                                              
          11401     NOTES          RADIX          0                                                                SELECT
    10915>11402    124     152     13   0  1              0        152     SWITCH BY AMENDT                        modify address of next
    11403>11403    76      114      3   0  0              0        114     TYPE                                    JUMP unconditional
          11404    76      115      4   0  0              0        115     >DELETED ONE                            JUMP unconditional
          11405    76      115      2   0  0              0        115     >DELETE MORE THAN ONE                   JUMP unconditional
          11406    76      116      2   0  0              0        116     >REPLACE BY DUMMY                       JUMP unconditional
          11407    76      117      2   0  0              0        117     >REPLACE ITEM                           JUMP unconditional
          11408    76      129      2   0  0              0        129     >LITERAL            REPORT              JUMP unconditional
          11409    76      116      2   0  0              0        116     >REPLACE REFERENCE                      JUMP unconditional
                                                                                                                   
          11500    PROCR   115       115     DELETE,TYPES 1 AND 2                                                  
          11501     NOTES          RADIX          0                                                                SELECT
    12206>                                                                                                         
    11405>11502    10               0   0  0              1                SET DELETION                            SELECT LITERAL
          11503    3       152      7   0  0              0        152     INDICATOR                               COPY
    12205>                                                                                                         
    11404>11504    101              1   1  1              0                                                        add literal address
          11505    102     152     13   0  0              0        152     SET DELETION TYPE                       transfer (A) to N
          11506    83      118      2   0  0              1        118     SET SWITCH 5 FOR FIRST REPLACEMENT      SET SWITCH(ES) AT LITERAL VALUE
          11507    85      106      2   0  0              0        106     SWITCH 2                                SWITCH R
          11508    C       107      2   0  0              0        107     >PROGRAMME HEADING SHEET                
          11509    C       115     10   0  0              0        115     >ORDINARY SECTION                       
    11509>11510            41       0   1  0              0                STORE SERIAL NO                         SELECT
          11511    5       42       2   1  0              0                                                        TRANSFER
          11512            154     38   1  0              0        154     D SP SP SP SP'                          SELECT
          11513    5       42       4   1  0              0                                                        TRANSFER
          11514            153     62   1  0              0        153     STORE B/E                               SELECT
          11515    5       42       6   1  0              0                                                        TRANSFER
          11516    80      140      2   0  0              0        140     >GENERAL OUTPUT S/R                     ENTER SUBROUTINE
          11517    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11600    PROCR   116       116     REPLACE BLOCK BY DUMMY TYPE 3                                         
          11601     NOTES          RADIX          0                                                                SELECT
    11409>                                                                                                         
    11406>11602            152      8   0  0              0        152     TEST IF DUMMIES BEING STORED            SELECT
          11603    70      116     15   0  0              0        116     NO                                      JUMP IF A == 0
          11604    0       152      7   0  0              0        152     DUMMY BEING DEALT WITH                  SELECT
          11605    71      107      2   0  0              0        107     >YES                                    JUMP IF A != 0
          11606            41     322   2  0              0                                                        SELECT
          11607    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11608    12               0   0  0            ££0                                                        SUBTRACT LITERAL
  Source image: P1030150.JPG
          11609    73      116     15   0  0              0        116     >NO                                     JUMP IF A < 0
          11610    71      107      2   0  0              0        107     >YES                                    JUMP IF A != 0
          11611            41     324   2  0              0                                                        SELECT
          11612    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11613    12               0   0  0            ££0                                                        SUBTRACT LITERAL
          11614    72      107      2   0  0              0        107     >YES                                    JUMP IF A >= 0
    11609>                                                                                                         
    11603>11615    85      107      2   0  0              0        107     SWITCH 2            SWITCH BY SECTION   SWITCH R
          11616    C       116     21   0  0              0        116     >PROCR              TYPE                
          11617    C       116     21   0  0              0        116     >CONST                                  
          11618    C       116     21   0  0              0        116     >TABLE                                  
          11619    C       129      2   0  0              0        129     >SECTION DESC                           
          11620    C       129      2   0  0              0        129     >PROG HEADING                           
    11618>                                                                                                         
    11617>                                                                                                         
    11616>11621    90               0   0 11             72                SET MR 11           SEARCH FOR DUMMY    SET MODIFICATION REGISTER AT LITERAL
          11622    C                0   0  0            450                DUMMIES             WITH CORRECT        
          11623    10               0   0  0              1                SET UP INDICATOR                        SELECT LITERAL
          11624    5       152     23   0  0              0        152                                             TRANSFER
    11631>11625    55      41     326   1 11             26                STORE ANNOT         IND                 BULK COPY
          11626    C       41      44   1  0              0                                                        
          11627    80      145      2   0  0              0        145     >BREAK UP NOTES S/R                     ENTER SUBROUTINE
          11628    80      146      2   0  0              0        146     >TEST FOR REQD IND                      ENTER SUBROUTINE
          11629    76      116     31   0  0              0        116                                             JUMP unconditional
          11630    76      116     33   0  0              0        116     >DUMMY FOUND                            JUMP unconditional
    14522>                                                                                                         
    11629>11631    94      116     25   0 11             42        116                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11632    76      130      2   0  0              0        130     >NO DUMMY                               JUMP unconditional
    11630>11633    10               0   0  0              0                CLEAR INDICATOR                         SELECT LITERAL
          11634    5       152     23   0  0              0        152                                             TRANSFER
          11635            152     13   0  0              0        152                                             SELECT
          11636    12               0   0  0              6                TEST TYPE=3                             SUBTRACT LITERAL
          11637    71      116     50   0  0              0        116     >TYPE 6                                 JUMP IF A != 0
          11638    85      107      2   0  0              0        107     SWITCH BY SECTION TYPE                  SWITCH R
          11639    C       116     42   0  0              0        116     >PROCR              TYPE 6 AMENDT       
          11640    C       116     50   0  0              0        116     >CONST                                  
          11641    C       116     45   0  0              0        116     >TABLE                                  
    11639>11642            41     304   1 11              0                                                        SELECT
          11643    5       41       4   1  0              0                PROCR                                   TRANSFER
          11644    76      116     52   0  0              0        116     >OUTPUT REPLACE                         JUMP unconditional
    11641>11645            41     302   1 11              0                                                        SELECT
          11646    5       41       2   1  0              0                TABLE ENTRY                             TRANSFER
          11647            41     306   1 11              0                                                        SELECT
          11648    5       41       6   1  0              0                                                        TRANSFER
          11649    76      116     52   0  0              0        116     >OUTPUT REPLACE                         JUMP unconditional
    11640>                                                                                                         
    11637>11650    55      41     302   1 11             40                                                        BULK COPY
          11651    C       41       2   1  0              0                                                        
    11649>                                                                                                         
    11644>11652    85      107      2   0  0              0        107                         SWITCH BY SECTION   SWITCH R
          11653    C       119      2   0  0              0        119     >PROCR              TYPE                
          11654    C       120      2   0  0              0        120     >CONST                                  
          11655    C       121      2   0  0              0        121     >TABLE                                  
                                                                                                                   
          11700    PROCR   117       117     REPLACE ITEM TYPE 4                                                   
          11701     NOTES          RADIX          0                                                                SELECT
    12208>                                                                                                         
    11407>11702    124     152      9   0  1              0        152                         COLLECT REPLACEMENT modify address of next
          11703    106     41      32   1  0              0                                                        select (N)
          11704    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY SECTION   SWITCH R
  Source image: P1030151.JPG
          11705    C       117     10   0  0              0        117     PROCR               TYPE                
          11706    C       117     12   0  0              0        117     CONST                                   
          11707    C       117     17   0  0              0        117     TABLE                                   
          11708    C       118      2   0  0              0        118                                             
          11709    C       111      2   0  0              0        111                                             
    11705>11710    5       41       6   1  0              0                REPLACE ITEM        PROCR               TRANSFER
          11711    76      119      2   0  0              0        119     >OUTPUT REPLACEMENT                     JUMP unconditional
    12413>                                                                                                         
    11706>11712    5       41       6   1  0              0                REPLACE CONSTANT    CONST               TRANSFER
          11713            153     50   1  0              0        153                                             SELECT
          11714    5       41       8   1  0              0                                                        TRANSFER
          11715    54      41      10   1  0             16                CLEAR REMAINDER OF                      BULK CLEAR
          11716    76      120      2   0  0              0        120     CONSTANTS SECTION                       JUMP unconditional
    11707>11717    5       41       6   1  0              0                REPLACE ITEM        TABLE               TRANSFER
          11718    76      121      2   0  0              0        121                                             JUMP unconditional
                                                                                                                   
          11800    PROCR   118       118     OUTPUT SECTION DESCRIPTION BLOCK REPLACE                              
          11801     NOTES          RADIX          0                                                                SELECT
    11708>11802    80      144      2   0  0              0        144     CLEAR TRANSIT AREA  PICK UP FIRST       ENTER SUBROUTINE
          11803    53      42       6   0  0              0                CONDENSE FIRST PART PART OF BLOCK       CONDENSE
          11804    C       160      2   0  0              0        160                                             
    12107>11805    55      41      26   1  0             16                STORE NOTES         STORE NOTES         BULK COPY
          11806    C       42      28   1  0              0                                                        
    11921>11807    80      141      2   0  0              0        141     >PREPARE TO O/P REPLACEMENT             ENTER SUBROUTINE
          11808    80      138      2   0  0              0        138     >OUTPUT ON P/T AND PRINTER              ENTER SUBROUTINE
          11809    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          11900    PROCR   119       119     OUTPUT PROCR BLOCK REPLACEMENT                                        
          11901     NOTES          RADIX                                                                           SELECT
    12411>                                                                                                         
    12520>                                                                                                         
    11711>                                                                                                         
    11653>11902    80      144      2   0  0              0        144     CLEAR TRANSIT AREA                      ENTER SUBROUTINE
          11903            41       8   1  0              0                BREAK UP DISC                           SELECT
          11904    32               0   0  0              6-               AND MOD                                 SHIFT (AB) BY QUARTETS
          11905    5       41       8   1  0              0                                                        TRANSFER
          11906    32               0   0  0              6                                                        SHIFT (AB) BY QUARTETS
          11907    5       41      14   1  0              0                                                        TRANSFER
          11908    53      42       6   0  0              0                CONDENSE ACTION                         CONDENSE
          11909    C       160      4   0  0              0        160     REF ITEM D M                            
          11910            41      10   1  0              0                TRANSFER LITERAL                        SELECT
          11911    5       42      18   1  0              0                                                        TRANSFER
          11912            41      12   1  0              0                                                        SELECT
          11913    5       42      20   1  0              0                                                        TRANSFER
          11914            153     50   1  0              0        153     TRANSFER N/E'S                          SELECT
          11915    3       42      22   1  0              0                                                        COPY
          11916    5       42      32   1  0              0                                                        TRANSFER
          11917    55      41      26   1  0              8                NOTES                                   BULK COPY
          11918    C       42      24   1  0              0                                                        
          11919    55      41      34   1  0              8                COMMENTARY                              BULK COPY
          11920    C       42      34   1  0              0                                                        
          11921    76      118      7   0  0              0        118     >OUTPUT                                 JUMP unconditional
                                                                                                                   
          12000    PROCR   120       120     OUTPUT CONSTANT SECTION REPLACEMENT                                   
          12001     NOTES          RADIX          0                                                                SELECT
    11716>                                                                                                         
    11654>12002    80      142      2   0  0              0        142     >OUTPUT CONSTANT S/R                    ENTER SUBROUTINE
          12003    76      107      2   0  0              0        107     >NEXT BLOCK                             JUMP unconditional
                                                                                                                   
          12100    PROCR   121       121     OUTPUT TABLE ENTRY REPLACEMENT                                        
  Source image: P1030152.JPG
          12101     NOTES          RADIX          0                                                                SELECT
    12415>                                                                                                         
    11718>                                                                                                         
    11655>12102    80      144      2   0  0              0        144     CLEAR TRANSIT AREA                      ENTER SUBROUTINE
          12103    53      42       6   0  0              0                CONDENSE TABLE ENTRY                    CONDENSE
          12104    C       160      2   0  0              0        160                                             
          12105    52      42      16   0  0              0                EDIT TABLE ENTRY                        EDIT
          12106    C       161      2   0  0              0        161                                             
          12107    76      118      5   0  0              0        118     >OUTPUT                                 JUMP unconditional
                                                                                                                   
          12200    PROCR   122       122     SPECIAL INDICATORS                                                    
          12201     NOTES          RADIX          0                                                                SELECT
    11312>12202    84      122      2   0  0              0        122     SWITCH 9                                SET SWITCH(ES) AT VARIABLE VALUE
          12203    85      122      2   0  0              0        122                                             SWITCH R
          12204    C       123      2   0  0              0        123     >START STORING                          
          12205    C       115      4   0  0              0        115     >DELETE ONE                             
          12206    C       115      2   0  0              0        115     >DELETE MORE THAN ONE                   
          12207    C       124      2   0  0              0        124     >REPLACE BY ZOT                         
          12208    C       117      2   0  0              0        117     >REPLACE ITEM                           
          12209    C       129      2   0  0              0        129     LITERAL             REPORT              
          12210    C       125      2   0  0              0        125     >SEQUENCE CHANGE                        
          12211    C       129      2   0  0              0        129     >ERROR REPORT                           
          12212    C       126      2   0  0              0        126     >ROUTES TABLE                           
          12213    C       128      2   0  0              0        128     >END ROUTINE                            
                                                                                                                   
          12300    PROCR   123       123     START STORING                                                         
          12301     NOTES          RADIX          0                                                                SELECT
    12204>12302    55      41       0   1  0             42                STORE THIS ORDER                        BULK COPY
          12303    C       41     372   1  0              0                AS DUMMY                                
          12304    54      41     414   0  0            336                                                        BULK CLEAR
          12305    90               0   0  6             42                SET MR                                  SET MODIFICATION REGISTER AT LITERAL
          12306    C                0   0  0            378                                                        
          12307    10               0   0  0              1                SET DUMMY INDICATOR                     SELECT LITERAL
          12308    5       152      8   0  0              0        152                                             TRANSFER
          12309    76      113     44   0  0              0        113     >PROCESS NEXT INDICATOR                 JUMP unconditional
                                                                                                                   
          12400    PROCR   124       124     REPLACE BY ZOT                                                        
          12401     NOTES          RADIX          0                                                                SELECT
    12207>12402    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY SECTION   SWITCH R
          12403    C       124      8   0  0              0        124     PROCR               TYPE                
          12404    C       124     12   0  0              0        124     CONST                                   
          12405    C       124     14   0  0              0        124     TABLE                                   
          12406    C       129      2   0  0              0        129     SECTION DESCRIPTION                     
          12407    C       129      2   0  0              0        129     PROG HEADING                            
    12403>12408    10               0   0  0         413030                STORE NEXT ACTION                       SELECT LITERAL
          12409    5       41       2   1  0              0                                                        TRANSFER
          12410    54      41       4   1  0             10                CLEAR ADDRESS ETC                       BULK CLEAR
          12411    76      119      2   0  0              0        119                                             JUMP unconditional
    12404>12412    10               0   0  0              0                CLEAR CONST                             SELECT LITERAL
          12413    76      117     12   0  0              0        117                                             JUMP unconditional
    12405>12414    54      41       2   1  0             16                CLEAR TABLE ENTRY                       BULK CLEAR
          12415    76      121      2   0  0              0        121                                             JUMP unconditional
                                                                                                                   
          12500    PROCR   125       125     REPLACE BY SEQUENCE CHANGE TO NEXT ORDER                              
          12501     NOTES          RADIX          0                                                                SELECT
    12210>12502    85      107      2   0  0              0        107     SWITCH 5            SWITCH BY           SWITCH R
          12503    C       125      8   0  0              0        125     PROCR               SECTION TYPE        
          12504    C       129      2   0  0              0        129     CONST                                   
          12505    C       129      2   0  0              0        129     TABLE                                   
          12506    C       129      2   0  0              0        129     SECTION DESCRIPTION                     
  Source image: P1030153.JPG
          12507    C       129      2   0  0              0        129     PROG HEADING                            
    12503>12508    10               0   0  0            124                ORDER                                   SELECT LITERAL
          12509    5       41       2   2  0              0                                                        TRANSFER
          12510    10               0   0  0           1000                DISC/MOD                                SELECT LITERAL
          12511    5       41       8   2  0              0                                                        TRANSFER
          12512            41       0   2  0              0                PRODUCES SERIAL NO                      SELECT
          12513    11               0   0  0              1                OF NEXT ORDER                           ADD LITERAL
          12514    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12515    5       41       4   2  0              0                REF                                     TRANSFER
          12516    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          12517    5       41       6   2  0              0                ITEM                                    TRANSFER
          12518    5       41      10   1  0              0                                                        TRANSFER
          12519    5       41      12   1  0              0                                                        TRANSFER
          12520    76      119      2   0  0              0        119                                             JUMP unconditional
                                                                                                                   
          12600    PROCR   126       126     SET UP I/P CONTROL DATA FOR ROUTES TABLE                              
          12601     NOTES          RADIX          0                                                                SELECT
    12212>12602    83      140      2   0  0              2        140                                             SET SWITCH(ES) AT LITERAL VALUE
          12603            153      8   0  0              0        153                                             SELECT
          12604    12               0   0  0              3                                                        SUBTRACT LITERAL
          12605    71      128      2   0  0              0        128                                             JUMP IF A != 0
          12606    55      44       0   1  0             10                BACK SAFE                               BULK COPY
          12607    C       5        0   1  0              0                                                        
          12608    54      41     100   1  0            150                CLEAR W/L'S                             BULK CLEAR
          12609    91      154      4   0 11              0        154     MR11 FOR UNPACKING  UNPACK TYPE         SET MODIFICATION REGISTER AT VARIABLE
    12624>12610    54      41      50   1  0             22                CLEAR W/L                               BULK CLEAR
          12611            152     22   0  0              0        152                                             SELECT
          12612    70      126     16   0  0              0        126     PT                                      JUMP IF A == 0
          12613    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          12614    C       159     28   0  0              0        159                                             
          12615    76      126     18   0  0              0        126                                             JUMP unconditional
    12612>12616    51      5        0   0  0              0                UNPACK BLOCK                            UNPACK VARIABLE FIELD DATA
          12617    C       158     10   0  0              0        158                                             
    12615>12618    55      41      51   0  0              8                STORE RTE TYPES                         BULK COPY
          12619    C       41     100   0 11              0                                                        
          12620    94      126     21   0 11              8        126     STEP BACK S/R                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12620>12621    80      135      2   0  0              0        135     >READ PT                                ENTER SUBROUTINE
          12622            153      8   0  0              0        153     TEST TYPE 4                             SELECT
          12623    12               0   0  0              3                                                        SUBTRACT LITERAL
          12624    70      126     10   0  0              0        126     >YES                                    JUMP IF A == 0
                                                                                                                   
          12700    PROCR   127       127     PRODUCE AMENDTS TO RTES TABLE                                         
          12701     NOTES          RADIX          0                                                                SELECT
          12702    91      154      4   0 11              0        154     0:0                                     SET MODIFICATION REGISTER AT VARIABLE
    12759>12703    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12704            41       4   1  0              0                TEST NEW CONST      TEST NEW SECT       SELECT
          12705    2       154     28   1  0              0        154     SECTION                                 SUBTRACT
          12706    70      127      9   0  0              0        127     >YES                                    JUMP IF A == 0
          12707    83      127      2   0  0              2        127     DIRECTIVE NOT NEEDED                    SET SWITCH(ES) AT LITERAL VALUE
          12708    76      127     11   0  0              0        127     >                                       JUMP unconditional
    12706>12709    80      134      2   0  0              0        134     >READ AND STORE S/R PREP FOR SECT       ENTER SUBROUTINE
          12710    83      118      2   0  0              1        118     SWITCH FOR 1ST LINE BEGN                SET SWITCH(ES) AT LITERAL VALUE
    12708>12711            41       4   1  0              0                TEST END BLOCK      TEST END OF         SELECT
          12712    2       154     40   1  0              0        154                         TABLE               SUBTRACT
          12713    70      128      2   0  0              0        128                                             JUMP IF A == 0
          12714            41     100   0 11              0                                                        SELECT
          12715    70      127     22   0  0              0        127     >PSEUDO ROUTE                           JUMP IF A == 0
          12716    12               0   0  0             10                                                        SUBTRACT LITERAL
          12717    70      127     23   0  0              0        127     >M/R ROUTE                              JUMP IF A == 0
          12718    73      127     20   0  0              0        127     >ACTIVE ROUTE                           JUMP IF A < 0
  Source image: P1030154.JPG
          12719    11               0   0  0            £.0                LATENT ROUTE                            ADD LITERAL
    12718>12720    11               0   0  0             10                                                        ADD LITERAL
          12721    76      127     24   0  0              0        127     >STORE IT                               JUMP unconditional
    12715>12722    10               0   0  0           ££00                                                        SELECT LITERAL
    12717>12723    11               0   0  0                                                                       ADD LITERAL
    12721>12724    5       153     46   0  0              0        153     STORE IT                                TRANSFER
          12725            41       6   1  0              0                FIRST 3 CHARS       TEST DIRECTIVE      SELECT
          12726    30               0   0  0              4-               =(D)?               NEEDED              SHIFT (A) BY QUARTETS
          12727    2       153     54   1  0              0        153                                             SUBTRACT
          12728    71      127     32   0  0              0        127     >NOT NEEDED                             JUMP IF A != 0
          12729            153     54   1  0              0        153     STORE (D)                               SELECT
          12730    5       41       6   1  0              0                                                        TRANSFER
          12731    76      127     47   0  0              0        127                                             JUMP unconditional
    12728>12732            41       6   2  0              0                FORM UP AND         TEST REPLACEMEN     SELECT
          12733    30               0   0  0              5                RIGHT ALIGN FIRST   NEEDED              SHIFT (A) BY QUARTETS
          12734    1       41       8   2  0              0                TWO WORDS OF                            ADD
          12735    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
    12740>12736    5       153     44   1  0              0        153     OLD RTE TYPE CONST                      TRANSFER
          12737    75      127     41   0  0              0        127     >FINISHED                               JUMP IF AB != 0
          12738            153     44   1  0              0        153                                             SELECT
          12739    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          12740    76      127     36   0  0              0        127     >TEST IF FINISHED                       JUMP unconditional
    12737>12741    5       41       6   1  0              0                                                        TRANSFER
          12742            153     44   1  0              0        153     TEST NEW RTE TYPE                       SELECT
          12743    2       153     46   1  0              0        153     = OLD ONE                               SUBTRACT
          12744    71      127     47   0  0              0        127     >NO                                     JUMP IF A != 0
          12745    83      118      2   0  0              1        118     SET SWITCH FOR 1ST LINE                 SET SWITCH(ES) AT LITERAL VALUE
          12746    76      127     58   0  0              0        127     >                                       JUMP unconditional
    12744>                                                                                                         
    12731>12747    0       153     46   1  0              0        153     STORE NEW CONST                         SELECT
          12748    5       41       8   2  0              0                                                        TRANSFER
          12749            153     50   1  0              0        153     STORE N/E                               SELECT
          12750    5       41      10   1  0              0                                                        TRANSFER
          12751    85      127      2   0  0              0        127                                             SWITCH R
          12752    C       127     54   0  0              0        127     >DIRECTIVE NEEDED                       
          12753    C       127     55   0  0              0        127     >NOT NEEDED                             
    12752>12754            153     54   1  0              0        153     STORE DIRECTIVE                         SELECT
    12753>12755    5       41       4   1  0              0                                                        TRANSFER
          12756    80      142      2   0  0              0        142     >OUTPUT CONSTANTS                       ENTER SUBROUTINE
          12757    83      118      2   0  0              2        118     SET SW FOR 2ND LINE                     SET SWITCH(ES) AT LITERAL VALUE
    12746>12758    80      134      2   0  0              0        134     >READ AND STORE S/R                     ENTER SUBROUTINE
          12759    94      127      3   0 11              1        127     >NEXT RTE                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          12800    PROCR   128       128     END ROUTINE                                                           
          12801     NOTES          RADIX          0                                                                SELECT
    12713>                                                                                                         
    12605>                                                                                                         
    12213>                                                                                                         
    10722>12802            197     56   1  0              0        197     END                                     SELECT
          12803    5       42       2   1  0              0                                                        TRANSFER
          12804            153     62   1  0              0        153     B/E WORD                                SELECT
          12805    5       42       4   1  0              0                                                        TRANSFER
          12806    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          12900    PROCR   129       129     REPORTS                                                               
          12901     NOTES          RADIX          0                                                                SELECT
    12507>                                                                                                         
    12506>                                                                                                         
    12505>                                                                                                         
    12504>                                                                                                         
    12407>                                                                                                         
    12406>                                                                                                         
    12211>                                                                                                         
    12209>                                                                                                         
    11620>                                                                                                         
    11619>                                                                                                         
    11408>                                                                                                         
    11341>                                                                                                         
    11335>                                                                                                         
    11318>                                                                                                         
  Source image: P1030155.JPG
    11315>12902    83      118      2   0  0              1        118                                             SET SWITCH(ES) AT LITERAL VALUE
          12903            41       0   1  0              0                                                        SELECT
          12904    5       155     16   1  0              0        155                                             TRANSFER
          12905    154     155      6   0  0              0        155                                             COMMENT IN LOG
          12906    76      131      2   0  0              0        131                                             JUMP unconditional
                                                                                                                   
          13000    PROCR   130       130                                                                           
    11632>13002            41       0   1  0              0                                                        SELECT
          13003    5       155     26   1  0              0        155                                             TRANSFER
          13004    5       152     23   0  0              0        152     CLEAR INDICATOR                         TRANSFER
          13005    154     155     20   0  0              0        155                                             COMMENT IN LOG
                                                                                                                   
          13100    PROCR   131       131                                                                           
    12906>13102    150              0   0  0             13                                                        OFFER OPTIONS
          13103    C       190     58   0  0              0        190     >UNLOAD                                 
          13104    C       170      9   0  0              0        170     >RE ENTER                               
          13105    C       131      7   0  0              0        131     >CONTINUE,IGNORING ERRORS               
          13106    C       107      2   0  0              0        107     >CONTINUE,REPORTING ERRORS              
    13105>13107            120      3   0  0              0        120     24/1/0>107/2                            SELECT
          13108    3       130      2   0  0              0        130                                             COPY
          13109    5       129      4   0  0              0        129                                             TRANSFER
          13110    76      107      2   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          13200    PROCR   132       132     READ MT                                                               
          13202    81      132      2   0  0              0        132                                             START OF SUBROUTINE
          13203    42      A1       0   0  0              0                READ BLOCK                              INPUT
          13204    C       7        0   0  0              0                                                        
          13205    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13300    PROCR   133       133     ADDRESS NEXT RECORD                                                   
          13301     NOTES          RADIX          0                                                                SELECT
          13302    81      133      2   0  0              0        133                         READ NEXT BLOCK     START OF SUBROUTINE
          13303    85      133      2   0  0              0        133                                             SWITCH R
          13304    C       133     12   0  0              0        133     >NOT YET                                
          13305    C       133      6   0  0              0        133     >YES,NOW                                
    13305>13306            150     20   1  0              0        150                                             SELECT
          13307    71      133     20   0  0              0        133     >MULTIRECORD                            JUMP IF A != 0
          13308    80      132      2   0  0              0        132     >READ BLOCK                             ENTER SUBROUTINE
    13315>13309    55      7        0   1  0             52                COPY TO SECTION 1                       BULK COPY
          13310    C       40       0   1  0              0                                                        
          13311    82      133      2   0  0              0        133                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13304>13312    80      132      2   0  0              0        132     READ BLOCK                              ENTER SUBROUTINE
          13313            7       12   1  0              0                                                        SELECT
          13314    2       154     26   1  0              0        154     PROCR                                   SUBTRACT
          13315    71      133      9   0  0              0        133     >STILL NOT YET                          JUMP IF A != 0
          13316    83      133      2   0  0              2        133     READY'                                  SET SWITCH(ES) AT LITERAL VALUE
          13317            7        4   2  0              0                                                        SELECT
          13318    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          13319    91               0   0  7              0                BLOCK LENGTH AS END VALUE               SET MODIFICATION REGISTER AT VARIABLE
    13307>13320    54      41       0   0  0             52                                                        BULK CLEAR
  Source image: P1030156.JPG
          13321    54      40       0   0  0             54                                                        BULK CLEAR
          13322    55      7        6   1  7              0                                                        BULK COPY
          13323    C       41       0   1  0              0                                                        
          13324    C       7        6   2  7              0                                                        
          13325            7       12   1  7              0                                                        SELECT
          13326    2       154     28   1  0              0        154     'CONST'                                 SUBTRACT
          13327    73      133     37   0  0              0        133     >NOT DIR                                JUMP IF A < 0
          13328            41       4   1  0              0                SERIAL                                  SELECT
          13329    5       40       6   1  0              0                                                        TRANSFER
          13330            41       6   1  0              0                DIR                                     SELECT
          13331    5       40      10   1  0              0                                                        TRANSFER
          13332            41       8   1  0              0                SECN NO                                 SELECT
          13333    5       40      16   1  0              0                                                        TRANSFER
          13334            41      14   2  0              0                                                        SELECT
          13335    5       150     28   0  0              0        150     CONST TYPE(IF CONST)                    TRANSFER
          13336    76      133     49   0  0              0        133     >STEP MR & RETURN                       JUMP unconditional
    13327>13337    85      107      2   0  0              0        107                                             SWITCH R
          13338    C       133     41   0  0              0        133     >PROCR                                  
          13339    C       133     44   0  0              0        133     >CONST                                  
          13340    C       133     47   0  0              0        133     >TABLE                                  
    13338>13341    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13342    C       163      2   0  0              0        163                                             
          13343    76      133     49   0  0              0        133     >                                       JUMP unconditional
    13339>13344    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13345    C       165      2   0  0              0        165                                             
          13346    76      133     49   0  0              0        133     >                                       JUMP unconditional
    13340>13347    50      41       4   0  0              0                                                        UNPACK FIXED FIELD DATA
          13348    C       164      2   0  0              0        164                                             
    13346>                                                                                                         
    13343>                                                                                                         
    13336>13349            7        6   2  7              0                                                        SELECT
          13350    5       150     22   0  0              0        150                                             TRANSFER
          13351    97      150     22   0  7              0        150                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          13352    C       133     57   0  0              0        133     >LEAVE S/R                              
          13353    80      132      2   0  0              0        132     READ BLOCK                              ENTER SUBROUTINE
          13354            7        4   2  0              0                                                        SELECT
          13355    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          13356    91               0   0  7              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    13352>13357    82      133      2   0  0              0        133     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13400    PROCR   134       134     READ M/T AND STORE BLOCK S/R                                          
          13401     NOTES          RADIX     0                                                                     SELECT
          13402    81      134      2   0  0              0        134     >READ M/T S/R                           START OF SUBROUTINE
          13403    80      133      2   0  0              0        133     COPY NEXT BLOCK                         ENTER SUBROUTINE
          13404    55      40       6   1  0             42                TO W/L                                  BULK COPY
          13405    C       41       0   1  0              0                                                        
          13406            40       4   1  0              0                                                        SELECT
          13407    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          13408    12               0   0  0             5‼                                                        SUBTRACT LITERAL
          13409    71      134     12   0  0              0        134                                             JUMP IF A != 0
          13410    55      40       4   1  0             10                                                        BULK COPY
          13411    C       41       0   1  0              0                                                        
    13409>13412    82      134      2   0  0              0        134                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13500    PROCR   135       135     READ P/T S/R                                                          
          13501     NOTES          RADIX          0                                                                SELECT
          13502    81      135      2   0  0              0        135                         READ NEXT BLOCK     START OF SUBROUTINE
          13503    62               0   0  0              0                READ BLOCK                              SET EXCESS CONSTANTS
          13504    100     999     14   0  2              0                                                        replace (B) by (N)
          13505    101              5   1  3              0                                                        select literal address
  Source image: P1030157.JPG
          13506    104     152     22   0  0              0        152                                             add (N) to (A)
          13507    118              5   0  1              0                                                        shift arithmetic
          13508    104     999      8   0  0              0                                                        add (N) to (A)
          13509    125           4096   1  1              0                                                        clear indicators
          13510    124     999      0   0  3              0                                                        modify address of next
          13511    123            160   0  2              0                >ENTER MASTER                           enter master routine
          13512            152     22   0  0              0        152                                             SELECT
          13513    71      135     17   0  0              0        135     >CARDS                                  JUMP IF A != 0
          13514    51      5        0   0  0              0                UNPACK TWO WORDS                        UNPACK VARIABLE FIELD DATA
          13515    C       158      2   0  0              0        158                                             
          13516    82      135      2   0  0              0        135     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    13513>13517    50      5        0   0  0              0                2 WORDS                                 UNPACK FIXED FIELD DATA
          13518    C       159      2   0  0              0        159                                             
          13519    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13600    PROCR   136       136     DEAL WITH PRINTER                                                     
          13602    81      136      2   0  0              0        136                                             START OF SUBROUTINE
          13603    30               0   0  0              5                RT                                      SHIFT (A) BY QUARTETS
          13604    1       999      7   0  0              0                                                        ADD
          13605    125           4096   1  1              0                NON INT                                 clear indicators
          13606    124     999      0   0  3              0                                                        modify address of next
          13607    123            160   0  2              0                >M/R                                    enter master routine
          13608    82      136      2   0  0              0        136                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13700    PROCR   137       137     OUTPUT ON PRINTER                                                     
          13701     NOTES          RADIX          0                                                                SELECT
          13702    81      137      2   0  0              0        137                                             START OF SUBROUTINE
          13703    100     153     56   1  0              0        153                                             copy registers
          13704    100     154      4   0  3              0        154                                             set radix
          13705            27       9   0  0              0                ON LINE?                                SELECT
          13706    70      137     11   0  0              0        137     >YES                                    JUMP IF A == 0
          13707    55      42       0   1  0             50                                                        BULK COPY
          13708    C       10       4   1  0              0                                                        
          13709    10               0   0  0              8                                                        SELECT LITERAL
          13710    76      137     19   0  0              0        137                                             JUMP unconditional
    13706>13711    10               0   0  0              0                FUNCTION WORD       OUTPUT ONE BLOCK    SELECT LITERAL
          13712    5       42       0   1  0              0                ZERO                                    TRANSFER
          13713            27       8   0  0              0                                                        SELECT
          13714    12               0   0  0              9                =9?                                     SUBTRACT LITERAL
          13715    71      137     24   0  0              0        137     >NO                                     JUMP IF A != 0
          13716    55      42       0   1  0             50                COPY TO TX AREA                         BULK COPY
          13717    C       10       0   1  0              0                                                        
          13718    101              9   1  3              0                RT 9                                    select literal address
    13730>                                                                                                         
    13710>13719    34      999     12   0  0              0                                                        SET (N) IN B
          13720    80      136      2   0  0              0        136     >                                       ENTER SUBROUTINE
          13721    100     153     56   1  1              0        153     RESET A,B,C                             replace registers
          13722    54      40       0   1  0             50                                                        BULK CLEAR
          13723    82      137      2   0  0              0        137     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    13715>13724    10               0   0  0          80000                                                        SELECT LITERAL
          13725    5       42       1   0  0              0                                                        TRANSFER
          13726    124     42       0   0  2              0                SECTION START                           select literal and division
          13727    124     999     13   1  2              0                SECN 10                                 modify address of next
          13728    129              0   0  1              0                EDIT                                    edit for anelex output
          13729    101              4   1  3              0                RT4                                     select literal address
          13730    76      137     19   0  0              0        137     >                                       JUMP unconditional
          13731    42      A1       0   0  0              0                DUMMY TO MAKE SECTION                   INPUT
          13732    C       10       0   0  0              0                10 A TX AREA                            
                                                                                                                   
          13800    PROCR   138       138     OUTPUT ON P/T AND PRINTER S/R                                         
  Source image: P1030158.JPG
          13801     NOTES          RADIX          0                                                                SELECT
          13802    81      138      2   0  0              0        138                                             START OF SUBROUTINE
          13803            147     95   0  0              0        147     SET SWITCH FOR CON CONSANTS             SELECT
          13804    5       147     74   0  0              0        147                                             TRANSFER
          13805            153     36   1  0              0        153     STORE B/E                               SELECT
          13806    5       42      46   1  0              0                                                        TRANSFER
          13807    80      147      2   0  0              0        147     >GET RID OF SPACES S/R                  ENTER SUBROUTINE
          13808    80      140      2   0  0              0        140     >OUTPUT S/R                             ENTER SUBROUTINE
          13809    82      138      2   0  0              0        138     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13900    PROCR   139       139     O/P S/R                                                               
          13902    81      139      2   0  0              0        139                                             START OF SUBROUTINE
          13903    55      42       2   1  0             46                >PT IN                                  BULK COPY
          13904    C       5        0   1  0              0                                                        
          13905    80      137      2   0  0              0        137     >PRINT                                  ENTER SUBROUTINE
          13906    76      193      6   0  0              0        193                                             JUMP unconditional
                                                                                                                   
          14000    PROCR   140       140     GENERAL OUTPUT S/R                                                    
          14001     NOTES          RADIX          0                                                                SELECT
          14002    81      140      2   0  0              0        140                                             START OF SUBROUTINE
          14003    85      140      2   0  0              0        140                                             SWITCH R
          14004    C       140      6   0  0              0        140     >REDUCE                                 
          14005    C       140     30   0  0              0        140     >O/P                                    
    14004>14006            42       4   1  0              0                                                        SELECT
          14007    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          14008    12               0   0  0             54                                                        SUBTRACT LITERAL
          14009    70      140     37   0  0              0        140     >'D'                                    JUMP IF A == 0
          14010    12               0   0  0             2Ю                                                        SUBTRACT LITERAL
          14011    70      140     33   0  0              0        140     >' '                                    JUMP IF A == 0
          14012            150     18   2  0              0        150                         'R'                 SELECT
          14013    70      140     28   0  0              0        140     >NOTHING THERE                          JUMP IF A == 0
    14031>                                                                                                         
    14081>14014            42       2   1  0              0                                                        SELECT
          14015    5       150     24   1  0              0        150     PRESERVE                                TRANSFER
          14016            42       4   1  0              0                                                        SELECT
          14017    5       150     26   1  0              0        150     PRESERVE                                TRANSFER
          14018            150     18   1  0              0        150                                             SELECT
          14019    5       42       2   1  0              0                SERIAL                                  TRANSFER
          14020            153     62   1  0              0        153                                             SELECT
          14021    5       42       4   1  0              0                B/E'S                                   TRANSFER
          14022    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
          14023            150     24   1  0              0        150                                             SELECT
          14024    5       42       2   1  0              0                                                        TRANSFER
          14025            150     26   1  0              0        150                                             SELECT
          14026    5       42       4   1  0              0                                                        TRANSFER
          14027    5       150     18   1  0              0        150     CLEAR IND                               TRANSFER
    14032>                                                                                                         
    14013>14028    80      139      2   0  0              0        139     >O/P                                    ENTER SUBROUTINE
          14029    82      140      2   0  0              0        140                         ' '                 END OF SUBROUTINE / LEAVE SUBROUTINE
    14005>14030            150     18   1  0              0        150                                             SELECT
          14031    71      140     14   0  0              0        140                                             JUMP IF A != 0
          14032    76      140     28   0  0              0        140                                             JUMP unconditional
    14043>                                                                                                         
    14049>                                                                                                         
    14052>                                                                                                         
    14066>                                                                                                         
    14011>14033            42       2   1  0              0                                                        SELECT
          14034    5       150     18   1  0              0        150     SET THIS SERIAL                         TRANSFER
          14035    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14036    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
  Source image: P1030159.JPG
    14009>14037            150     18   2  0              0        150     TEST SERIAL STORED 'D'                  SELECT
          14038    60               0   0  0              0                                                        SET DECIMAL RADIX
          14039    71      140     53   0  0              0        140     >YES DON'T O/P YET                      JUMP IF A != 0
          14040    106     150     31   1  0              0        150     TEST ADJACENT                           select (N)
          14041    105     42       3   1  0              0                                                        subtract (N) from (A)
          14042    101              1   1  1              0                                                        add literal address
          14043    70      140     33   0  0              0        140     >YES                                    JUMP IF A == 0
          14044    101              1   1  1              0                                                        add literal address
          14045    71      140     73   0  0              0        140     >NO                                     JUMP IF A != 0
          14046    85      107      2   0  0              0        107     MAYBE?                                  SWITCH R
          14047    C       140     73   0  0              0        140     >NO                                     
          14048    C       140     50   0  0              0        140     >MAYBE                                  
          14049    C       140     33   0  0              0        140     >YES                                    
    14048>14050            150     28   0  0              0        150     CONST TYPE                              SELECT
          14051    70      140     73   0  0              0        140     >NO                                     JUMP IF A == 0
          14052    76      140     33   0  0              0        140     >YES                                    JUMP unconditional
    14039>14053    2       42       2   2  0              0                                                        SUBTRACT
          14054    11               0   0  0              1                                                        ADD LITERAL
          14055    70      140     64   0  0              0        140     >ADJ                                    JUMP IF A == 0
          14056    11               0   0  0              1                                                        ADD LITERAL
          14057    71      140     78   0  0              0        140                                             JUMP IF A != 0
          14058    85      107      2   0  0              0        107                                             SWITCH R
          14059    C       140     78   0  0              0        140                                             
          14060    C       140     62   0  0              0        140     C                   MAYBE               
          14061    C       140     64   0  0              0        140     T                   YES                 
    14060>14062            150     28   0  0              0        150     CONST TYPE                              SELECT
          14063    70      140     78   0  0              0        140                                             JUMP IF A == 0
    14061>                                                                                                         
    14055>14064            152     13   0  0              0        152     DELETION TYPE                           SELECT
          14065    12               0   0  0              2                                                        SUBTRACT LITERAL
          14066    71      140     33   0  0              0        140                                             JUMP IF A != 0
          14067    5       150     18   1  0              0        150     CLEAR IT                                TRANSFER
          14068    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14069    82      140      2   0  0              0        140     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
          14070            42       2   1  0              0                                                        SELECT
          14071    5       150     18   1  0              0        150                                             TRANSFER
          14072    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    14051>                                                                                                         
    14047>                                                                                                         
    14045>14073    106     42       2   1  0              0                                                        select (N)
          14074    102     150     30   1  0              0        150                                             transfer (A) to N
          14075    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14076    126     139      2   0  0              0        139     O/P                                     enter subroutine
          14077    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    14063>                                                                                                         
    14059>                                                                                                         
    14057>14078    106     42       2   1  0              0                                                        select (N)
          14079    102     150     30   1  0              0        150                                             transfer (A) to N
          14080    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14081    76      140     14   0  0              0        140                                             JUMP unconditional
                                                                                                                   
          14100    PROCR   141       141     OUTPUT REPLACEMENT S/R                                                
          14101     NOTES          RADIX          0                                                                SELECT
          14102    81      141      2   0  0              0        141                                             START OF SUBROUTINE
          14103    85      118      2   0  0              0        118     SWITCH 5                                SWITCH R
          14104    C       141      6   0  0              0        141     >FIRST LINE OF REPLACEMENT              
          14105    C       141     12   0  0              0        141     >SECOND LINE                            
    14104>14106            41       0   1  0              0                                                        SELECT
          14107    5       42       2   1  0              0                                                        TRANSFER
          14108    83      118      2   0  0              2        118     SET SWITCH FOR SECOND LINE              SET SWITCH(ES) AT LITERAL VALUE
  Source image: P1030160.JPG
          14109            154     36   1  0              0        154     R(N/E) (SP) (SP) (SP)                   SELECT
    14113>14110    5       42       4   1  0              0                                                        TRANSFER
          14111    82      141      2   0  0              0        141     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14105>14112            153     50   1  0              0        153     (N/E)                                   SELECT
          14113    76      141     10   0  0              0        141     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          14200    PROCR   142       142     OUTPUT CONSTANTS S/R                                                  
          14201     NOTES          RADIX          0                                                                SELECT
          14202    81      142      2   0  0              0        142                                             START OF SUBROUTINE
          14203    55      41       4   1  0             38                COPY CONSTANT AND NOTES                 BULK COPY
          14204    C       42       6   1  0              0                                                        
          14205    5       42       2   1  0              0                CLEAR SERIAL NO LOCN                    TRANSFER
          14206    80      141      2   0  0              0        141     >OUTPUT REPLACEMENT S/R                 ENTER SUBROUTINE
          14207            153     36   1  0              0        153     STORE B/E'S                             SELECT
          14208    5       42      46   1  0              0                                                        TRANSFER
          14209            147     93   0  0              0        147     SET SWITCH FOR CONSTANTS                SELECT
          14210    5       147     74   0  0              0        147                                             TRANSFER
          14211    80      147      2   0  0              0        147     >GET RID OF SPACES S/R                  ENTER SUBROUTINE
          14212    80      140      2   0  0              0        140     >OUTPUT S/R                             ENTER SUBROUTINE
          14213    82      142      2   0  0              0        142     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14300    PROCR   143       143     OUTPUT BLANK LINE S/R                                                 
          14301     NOTES          RADIX          0                                                                SELECT
          14302    81      143      2   0  0              0        143                                             START OF SUBROUTINE
          14303            153     62   1  0              0        153                                             SELECT
          14304    5       42       2   1  0              0                                                        TRANSFER
          14305    80      137      2   0  0              0        137     >OUTPUT ON PRINTER                      ENTER SUBROUTINE
          14306    82      143      2   0  0              0        143     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14400    PROCR   144       144     BULK CLEAR TRANSIT AREA                                               
          14401     NOTES          RADIX          0                                                                SELECT
          14402    81      144      2   0  0              0        144                                             START OF SUBROUTINE
          14403    54      42       0   1  0             50                CLEAR TX                                BULK CLEAR
          14404    82      144      2   0  0              0        144     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14500    PROCR   145       145                                                                           
          14501     NOTES          RADIX          0                                                                SELECT
          14502    81      145      2   0  0              0        145                                             START OF SUBROUTINE
          14503    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14504    90               0   0 13              0                                                        SET MODIFICATION REGISTER AT LITERAL
          14505    C                0   0  0             16                WORDS OF ANNOTATION                     
    14526>14506    35               0   0  0     1100000000                                                        PREPARE FOR DIGIT COLLATION
    14525>14507    36      41      44   1 13              0                COLLATE NEXT OCTET IN NOTES WITH        COLLATE AND ADD
          14508    70      145     30   0  0              0        145     >SPACE              N/E'S               JUMP IF A == 0
          14509    5       153     40   1  0              0        153     TEST IF *                               TRANSFER
          14510    36      154     34   1  0              0        154                                             COLLATE AND ADD
          14511    2       153     40   1  0              0        153                                             SUBTRACT
          14512    71      145     16   0  0              0        145     >NO                                     JUMP IF A != 0
          14513            153     42   1  0              0        153     REPLACE BY N/E                          SELECT
          14514    37      41      44   1 13              0                                                        REPLACE SELECTED BITS
          14515    76      145     23   0  0              0        145                                             JUMP unconditional
    14512>14516    10               0   0  0              0                SHIFT COLLATION                         SELECT LITERAL
          14517    36      154     44   1  0              0        154     TEST CHAR IS                            COLLATE AND ADD
          14518    2       153     40   1  0              0        153     DECIMAL                                 SUBTRACT
          14519    72      145     23   0  0              0        145     >YES                                    JUMP IF A >= 0
          14520            152     23   0  0              0        152     LOOKING FOR DUMMIES                     SELECT
          14521    70      111      2   0  0              0        111     >NO-IGNORE                              JUMP IF A == 0
          14522    76      116     31   0  0              0        116     >YES-DUMMY NOT FOUND                    JUMP unconditional
    14519>                                                                                                         
    14515>14523    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
  Source image: P1030161.JPG
          14524    32               0   0  0              2-               CONSTANT                                SHIFT (AB) BY QUARTETS
          14525    75      145      7   0  0              0        145     >NEXT OCTET                             JUMP IF AB != 0
          14526    94      145      6   0 13              2        145     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          14527    0       153     36   1  0              0        153     B/E'S                                   SELECT
          14528    5       41      44   1 13              0                IN NEXT WORD                            TRANSFER
          14529    76      145     37   0  0              0        145     >UNPACK                                 JUMP unconditional
    14508>14530            153     42   1  0              0        153     PACK IN N/E         PLACE B/E AT        SELECT
          14531    37      41      44   1 13              0                                    END                 REPLACE SELECTED BITS
          14532    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          14533    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14534            153     36   1  0              0        153     B/E'S                                   SELECT
          14535    37      41      44   1 13              0                                                        REPLACE SELECTED BITS
          14536    5       41      46   1 13              0                                                        TRANSFER
    14529>14537    51      41      44   0  0              0                UNPACK VARIABLE     BREAK UP            UNPACK VARIABLE FIELD DATA
          14538    C       158      8   0  0              0        158                                             
          14539    82      145      2   0  0              0        145     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14600    PROCR   146       146     TEST REQUIRED INDICATOR IN THIS BLOCK                                 
          14601     NOTES          RADIX          0                                                                SELECT
          14602    81      146      2   0  0              0        146                                             START OF SUBROUTINE
          14603    91      154      4   0 12              0        154     MODIFIER FOR WORD                       SET MODIFICATION REGISTER AT VARIABLE
    14610>14604    10               0   0  0              0                                                        SELECT LITERAL
          14605    5       152     16   0  0              0        152                                             TRANSFER
          14606            41     322   1 12              0                OF NEW INDICATORS                       SELECT
          14607    70      146     11   0  0              0        146     >LAST INDICATOR     SEARCH AMONG WORDS  JUMP IF A == 0
          14608    2       41     306   1  0              0                                    OR NEW INDICATOR    SUBTRACT
          14609    70      146     12   0  0              0        146     >FOUND              FOR FIRST WORD OF   JUMP IF A == 0
    14619>14610    94      146      4   0 12              2        146     >NEXT WORD          STORED INDICATOR    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    14607>14611    82      146      2   0  0              0        146     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14623>                                                                                                         
    14609>14612    96               0   0 12              0                                                        SELECT MODIFIER
          14613    1       152     16   0  0              0        152                                             ADD
          14614    92               0   0 15              0                                                        SET MODIFIER AT VARIABLE
          14615    124     152     16   0  1              0        152                                             modify address of next
          14616            41     306   1  0              0                                    EQUAL               SELECT
          14617    70      146     24   0  0              0        146     >ALL EQUAL                              JUMP IF A == 0
          14618    2       41     322   1 15              0                                                        SUBTRACT
          14619    71      146     10   0  0              0        146     >NEXT ONE NOT=                          JUMP IF A != 0
          14620    62               0   0  0              0                STEP MODIFIER                           SET EXCESS CONSTANTS
          14621    10               0   0  0              2                                                        SELECT LITERAL
          14622    4       152     16   0  0              0        152                                             AUGMENT
          14623    76      146     12   0  0              0        146     >TRY NEXT WORD                          JUMP unconditional
    14617>14624    124     146      2   0  3              0        146                                             modify address of next
          14625    124              1   1  0              0                                                        unconditional jump
                                                                                                                   
          14700    PROCR   147       147     GET RID OF UNNEC SPACES,SIG AND NON SIG S/R                           
          14701     NOTES          RADIX          0                                                                SELECT
          14702    81      147      2   0  0              0        147                                             START OF SUBROUTINE
          14703    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14704            150     14   1  0              0        150     SET UP CONSTANTS                        SELECT
          14705    3       150      2   1  0              0        150     COLL CONST 1                            COPY
          14706    3       150      4   1  0              0        150     COLL CONST 2                            COPY
          14707    5       150      6   1  0              0        150     COLL CONST 3                            TRANSFER
          14708    124     42       2   0  2              0                                                        select literal and division
          14709    3       150      8   1  0              0        150                                             COPY
          14710    3       150     10   1  0              0        150                                             COPY
          14711    5       150     12   1  0              0        150                                             TRANSFER
          14712            148     25   0  0              0        148     SET SWITCH 7=1                          SELECT
          14713    5       147     34   0  0              0        147                         COLLATE CHARACTER   TRANSFER
    14768>14714    34      150      2   1  0              0        150     COLLATION CONST 1   AND DETERMINE       SET (N) IN B
  Source image: P1030162.JPG
          14715    124     150      8   0  3              0        150                                             modify address of next
          14716    115              0   1  0              0                                                        collate and add
          14717    70      147     51   0  0              0        147     >SPACE              OR ORDINARY         JUMP IF A == 0
          14718    5       150     16   1  0              0        150                         CHARACTER           TRANSFER
          14719    124     150      8   0  3              0        150                                             modify address of next
          14720    114              0   1  0              0                                                        replace selected bits
          14721            150     16   2  0              0        150     TEST ZERO                               SELECT
          14722    70      147     51   0  0              0        147                                             JUMP IF A == 0
    14827>14723            150     16   1  0              0        150     SHIFT CHAR TO                           SELECT
    14725>14724    32               0   0  0              2-               Q1,2                                    SHIFT (AB) BY QUARTETS
          14725    71      147     24   0  0              0        147                                             JUMP IF A != 0
          14726    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          14727    3       150     16   1  0              0        150     STORE CHARACTER                         COPY
          14728    12               0   0  0             3:                TEST IF N/E                             SUBTRACT LITERAL
          14729    70      148      2   0  0              0        148     >YES N/E                                JUMP IF A == 0
          14730    12               0   0  0             40                                    DEAL WITH           SUBTRACT LITERAL
          14731    70      148      2   0  0              0        148     >YES N/E                                JUMP IF A == 0
          14732    12               0   0  0              1                TEST B/E                                SUBTRACT LITERAL
          14733    70      148     28   0  0              0        148     >YES B/E                                JUMP IF A == 0
          14734            150      6   1  0              0        150     SWITCH 7            1=SUPPRESS SPACES   SELECT
          14735    5       150      4   1  0              0        150     SET MR2=MR3         2=RETAIN SPACES     TRANSFER
          14736            150     12   1  0              0        150     COLL CONST 2=COLL 3                     SELECT
          14737    5       150     10   1  0              0        150                                             TRANSFER
          14738            148     22   0  0              0        148     SET SWITCH 7=2                          SELECT
          14739    5       147     34   0  0              0        147                                             TRANSFER
          14740            148     27   0  0              0        148     SET SWITCH 8=2                          SELECT
          14741    5       147     22   0  0              0        147                                             TRANSFER
    14773>                                                                                                         
    14780>                                                                                                         
    14810>14742    80      149      2   0  0              0        149     PACK UP                                 ENTER SUBROUTINE
          14743            150      6   1  0              0        150     SHIFT COLL CONST 3  STEP MRS AND        SELECT
          14744    32               0   0  0              2-                                   SHIFT COLL CONSTS   SHIFT (AB) BY QUARTETS
          14745    3       150      6   1  0              0        150                                             COPY
          14746    71      147     51   0  0              0        147     >NOT END                                JUMP IF A != 0
          14747            150     14   1  0              0        150     RESET COLL CONST                        SELECT
          14748    5       150      6   1  0              0        150                                             TRANSFER
          14749    123              2   0  0              0                STEP MR3                                step on and test
          14750    100     150     12   0  0              0        150                                             Halt
    14826>                                                                                                         
    14746>                                                                                                         
    14722>                                                                                                         
    14717>14751            150      4   1  0              0        150     SHIFT COLL CONST 2                      SELECT
          14752    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14753    3       150      4   1  0              0        150                                             COPY
          14754    71      147     59   0  0              0        147     >NOT END                                JUMP IF A != 0
          14755            150     14   1  0              0        150     RESET COLL CONST                        SELECT
          14756    5       150      4   1  0              0        150                                             TRANSFER
          14757    123              2   0  0              0                STEP MR2                                step on and test
          14758    100     150     10   0  0              0        150                                             Halt
    14754>14759            150      2   1  0              0        150     SHIFT COLL CONST 1                      SELECT
          14760    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14761    3       150      2   1  0              0        150                                             COPY
          14762    71      147     67   0  0              0        147     >NOT END                                JUMP IF A != 0
          14763            150     14   1  0              0        150     RESET COLL CONST 1                      SELECT
          14764    5       150      2   1  0              0        150                                             TRANSFER
          14765    123              2   0  0              0                STEP MR1                                step on and test
          14766    100     150      8   0  0              0        150                                             Halt
    14762>14767    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          14768    76      147     14   0  0              0        147     >NEXT CHARACTER                         JUMP unconditional
    14792>                                                                                                         
  Source image: P1030163.JPG
    14822>14769            150      4   1  0              0        150     SWITCH 7 SETTING 2  DEAL WITH N/E       SELECT
          14770    5       150      6   1  0              0        150     SET MR3=MR2                             TRANSFER
          14771            150     10   1  0              0        150     COLL CONST 3=COLL CONST 2               SELECT
          14772    5       150     12   1  0              0        150                                             TRANSFER
          14773    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14774            150      6   1  0              0        150     SWITCH 6                                SELECT
    14784>14775    5       150      4   1  0              0        150     SET MR2=MR3                             TRANSFER
          14776            150     12   1  0              0        150     COLL CONST 2=COLL CONST 3               SELECT
          14777    5       150     10   1  0              0        150                                             TRANSFER
    14791>14778            147     95   0  0              0        147     SET SWITCH 7=1                          SELECT
          14779    5       147     34   0  0              0        147                                             TRANSFER
          14780    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
    14793>14781            147     94   0  0              0        147     SET SWITCH 6=2      SWITCH 6 SETTING 1  SELECT
          14782    5       147     74   0  0              0        147                                             TRANSFER
          14783            150      6   1  0              0        150                                             SELECT
          14784    76      147     75   0  0              0        147                                             JUMP unconditional
    14794>14785            147     95   0  0              0        147     SET SWITCH 6=3      SWITCH 6 SETTING 2  SELECT
          14786    5       147     74   0  0              0        147                                             TRANSFER
          14787            150      4   1  0              0        150     SET MR3=MR2                             SELECT
          14788    5       150      6   1  0              0        150     COLL CONST 3=COLL CONST 2               TRANSFER
          14789            150     10   1  0              0        150                                             SELECT
          14790    5       150     12   1  0              0        150                                             TRANSFER
          14791    76      147     78   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14792    76      147     69   0  0              0        147     SWITCH 7 SETTING 2  DUMMY SWITCH        JUMP unconditional
          14793    76      147     81   0  0              0        147     SWITCH 6 SETTING 1  SETTINGS            JUMP unconditional
          14794    76      147     85   0  0              0        147     SWITCH 6 SETTING 2                      JUMP unconditional
          14795            150      6   1  0              0        150     SWITCH 6(7) SETTINGS 3(1)               SELECT
          14796    76      149     14   0  0              0        149                                             JUMP unconditional
    14919>14797    76      148     33   0  0              0        148     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          14800    PROCR   148       148     GET RID OF SPACES AND ZEROS CONT                                      
    14731>                                                                                                         
    14729>14802            150      6   1  0              0        150     SWITCH 6                                SELECT
    14814>14803    5       150      4   1  0              0        150     SET MR2=MR3                             TRANSFER
          14804            148     26   0  0              0        148     SET SWITCH 8=1                          SELECT
          14805    5       147     22   0  0              0        147                                             TRANSFER
          14806            150     12   1  0              0        150     COLL CONST 2=COLL                       SELECT
          14807    5       150     10   1  0              0        150     CONST 3                                 TRANSFER
    14821>14808            148     25   0  0              0        148     SET SWITCH 7=1                          SELECT
          14809    5       147     34   0  0              0        147                                             TRANSFER
          14810    76      147     42   0  0              0        147     >PACK UP AND STEP MRS                   JUMP unconditional
          14811            148     24   0  0              0        148     SET SWITCH 6=2      SWITCH 6 SETTING 1  SELECT
          14812    5       148      2   0  0              0        148                                             TRANSFER
          14813            150      6   1  0              0        150                                             SELECT
          14814    76      148      3   0  0              0        148                                             JUMP unconditional
          14815            148     25   0  0              0        148     SET SWITCH 6=3      SWITCH 6 SETTING 2  SELECT
          14816    5       148      2   0  0              0        148                                             TRANSFER
          14817            150      4   1  0              0        150     SET MR3=MR2                             SELECT
          14818    5       150      6   1  0              0        150     COLL CONST3=COLL CONST 2                TRANSFER
          14819            150     10   1  0              0        150                                             SELECT
          14820    5       150     12   1  0              0        150                                             TRANSFER
          14821    76      148      8   0  0              0        148     >PACK UP AND STEP MRS                   JUMP unconditional
          14822    76      147     69   0  0              0        147     SWITCH 7 SETTING 2  DUMMY SWITCH        JUMP unconditional
          14823    76      149     11   0  0              0        149     SWITCH 6 SETTING 1  SETTINGS            JUMP unconditional
          14824    76      149     15   0  0              0        149     SWITCH 6 SETTING 2                      JUMP unconditional
          14825            150      6   1  0              0        150     SWITCH 6(7) SETTINGS 3(1)               SELECT
          14826    70      147     51   0  0              0        147     SWITCH 8 SETTING 1                      JUMP IF A == 0
          14827    76      147     23   0  0              0        147     SWITCH 8 SETTING 2                      JUMP unconditional
    14733>14828            150      6   1  0              0        150     SET MR2=MR3                             SELECT
          14829    5       150      4   1  0              0        150     COLL CONST 3=COLL CONST 2               TRANSFER
  Source image: P1030164.JPG
          14830            150     12   1  0              0        150                                             SELECT
          14831    5       150     10   1  0              0        150                                             TRANSFER
          14832    80      149      2   0  0              0        149     >PACK UP AND STORE S/R                  ENTER SUBROUTINE
    14797>14833    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
    14837>14834    124     150     10   0  3              0        150                                             modify address of next
          14835    114              0   1  0              0                                                        replace selected bits
          14836    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          14837    75      148     34   0  0              0        148                                             JUMP IF AB != 0
          14838            153     62   1  0              0        153                                             SELECT
          14839    124     150     10   0  3              0        150                                             modify address of next
          14840    102              2   1  0              0                                                        transfer (A) to N
          14841    82      147      2   0  0              0        147                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14900    PROCR   149       149     PACK CHARACTER S/R                                                    
          14901     NOTES          RADIX          0                                                                SELECT
          14902    81      149      2   0  0              0        149                                             START OF SUBROUTINE
          14903    34      150     16   1  0              0        150     ALIGN CHARACTER                         SET (N) IN B
          14904    10               0   0  0             ££                WITH COLL CONST 3                       SELECT LITERAL
    14909>14905    2       150      4   1  0              0        150                                             SUBTRACT
          14906    70      149     10   0  0              0        149     >ALIGNED                                JUMP IF A == 0
          14907    1       150      4   1  0              0        150                                             ADD
          14908    32               0   0  0              2                SHIFT CHARACTER 2                       SHIFT (AB) BY QUARTETS
          14909    76      149      5   0  0              0        149     >TRY AGAIN                              JUMP unconditional
    14906>14910            150      4   1  0              0        150                                             SELECT
    14823>14911    124     150     10   0  3              0        150                                             modify address of next
          14912    114              0   1  0              0                                                        replace selected bits
          14913    82      149      2   0  0              0        149     >LEAVE S/R                              END OF SUBROUTINE / LEAVE SUBROUTINE
    14796>14914            150      6   1  0              0        150     SET MR2=MR3                             SELECT
    14824>14915    5       150      4   1  0              0        150     COLL CONST 3                            TRANSFER
          14916            150     12   1  0              0        150     =COLL CONST 2                           SELECT
          14917    5       150     10   1  0              0        150                                             TRANSFER
          14918    80      149      2   0  0              0        149     >PACK UP AND STORE S/R                  ENTER SUBROUTINE
          14919    76      147     97   0  0              0        147     >LEAVE S/R                              JUMP unconditional
                                                                                                                   
          15000    CONST   150       150     1    S/R CONSTS                                                       
          15002          (D)0;                                             COLLATION CONSTANTS                     
          15004          0;                                                                                        
          15006          0;                                                                                        
          15008          0;                                                MRS                                     
          15010          0;                                                                                        
          15012          0;                                                                                        
          15014          ££00000000;                                       COLLATION CONST                         
          15016          0;                                                                                        
          15018          ;                                                 END OF DELETION STORE                   
          15020          0;                                                MULTI-RECORD IND STORE                  
          15022          0;                                                RECORD LENGTH                           
          15024          ;                                                 EXTRA LINE STORE                        
          15026          ;                                                                                         
          15028          0;                                                CONST TYPE                              
          15030          0;                                                                                        
                                                                                                                   
          15100    CONST   151       151     0                                                                     
                                                                                                                   
          15200    CONST   152       152     0    SHORT CONSTANTS OR W/L'S                                         
          15202          (D)0;                                             BEGINNING OF CONTROL BLOCK              
          15203          0;                                                MODIFIER FOR CD AMEND                   
          15204          1;                                                COLLATION CONSTANT                      
          15205          10000;                                                                                    
          15206          1;                                                PHS IND/                                
          15207          0;                                                DELETION INDICATOR                      
  Source image: P1030165.JPG
          15208          0;                                                DUMMIES INDICATOR                       
          15209          1;                                                INDIC NO                                
          15210          1;                                                AMENDT IND                              
          15211          0;                                                REASON WORD                             
          15212          0;                                                REASON BIT                              
          15213          1;                                                TYPE                                    
          15214          £££££;                                            CONST                                   
          15215          1£;                                               COLL CONST                              
          15216          0;                                                TEST REQUIRED IN S/R                    
          15217          2;                                                                                        
          15218          0;                                                STEP BACK IND                           
          15219          0;                                                PRINTER ROUTE TYPE                      
          15220          ;                                                 STEP LOCN                               
          15221          0;                                                PRINTING?                               
          15222          0;                                                                                        
          15223          ;                                                 LOOKING FOR DUMMIES INDICATOR           
          15224          8004;                                             USED IN OPEN B1 FILE                    
          15225          5241;                                             DITTO                                   
          15226          (D)0;                                             'LOCKOUT' LINE SERIAL                   
          15227          0;                                                INDEX IDENTIFIER                        
                                                                                                                   
          15300    CONST   153       153     1    LONG CONSTANTS AND W/L'S                                         
          15302          (D)0;                                             SERIAL NO PRODUCED                      
          15304          0;                                                P/T OR NOT INDICATOR                    
          15306          0;                                                MR SETTING FOR RTES                     
          15308          0;                                                TYPE/SECOND WORD                        
          15310          0;                                                STORAGE FOR CONTROL                     
          15312          0;                                                                                        
          15314          0;                                                                                        
          15316          0;                                                WORD                                    
          15318          0;                                                                                        
          15320          ;                                                                                         
          15322          ;                                                                                         
          15324          ;                                                                                         
          15326          ;                                                                                         
          15328          ;                                                                                         
          15330          ;                                                                                         
          15332          ;                                                                                         
          15334          ;                                                                                         
          15336          7.7.7.7.7.;                                       B/E'S                                   
          15338          1;                                                                                        
          15340          0;                                                W/L FOR S/R ON *'S                      
          15342          7:7:7:7:7:;                                       N/E'S                                   
          15344          0;                                                STORE FOR 'A' 'B' 'C'                   
          15346          0;                                                DURING PROCEDURE                        
          15348          0;                                                FOR PROCESSING INDIC                    
          15350          7:00000000;                                       CONSTANT CONSTANT                       
          15352          0;                                                DELETION STORE                          
          15354          7Ю547‼;                                           CONST                                   
          15356          0;                                                'A'                                     
          15358          0;                                                'B'                                     
          15360          0;                                                'C'                                     
          15362          7.0000007.;                                                                               
                                                                                                                   
          15400    CONST   154       154     1    ALPHA CONSTANTS                                                  
          15402          (A)PASSI;                                                                                 
          15404               ;                                                                                    
          15406          AMEND;                                                                                    
          15408          MENTS;                                                                                    
          15410           TO P;                                                                                    
  Source image: P1030166.JPG
          15412          RODUC;                                                                                    
          15414          E  RD;                                                                                    
          15416          FROM ;                                                                                    
          15418          CONTR;                                                                                    
          15420          OL WO;                                                                                    
          15422          00000;                                                                                    
          15424          (A)CHAPS;                                                                                 
          15426          (A)PROCR;                                                                                 
          15428          (A)CONST;                                                                                 
          15430          (A)TABLE;                                                                                 
          15432          (A)NOTES;                                                                                 
          15434          *****;                                                                                    
          15436          (A)R(D)7:000000;                                                                          
          15438          (A)D    ;                                                                                 
          15440          (A)END  ;                                                                                 
          15442          PROGM;                                                                                    
          15444          £££££;                                                                                    
          15446          0;                                                W/L                                     
          15448          0;                                                D STORE                                 
          15450          (A)09000;                                                                                 
                                                                                                                   
          15500    CONST   155       155     1    REPORTS                                                          
          15502          (A);                                                                                      
          15504           ;                                                PROG SERIAL                             
          15506          (A)08004;                                                                                 
          15508           INDI;                                                                                    
          15510          CATOR;                                                                                    
          15512           WRON;                                                                                    
          15514          G    ;                                                                                    
          15516               ;                                            SERIAL NO                               
          15518          (D)0000005.5.;                                                                            
          15520          (A)08004;                                         'NO DUMMY' REPORT                       
          15522           NO D;                                                                                    
          15524          UMMY ;                                                                                    
          15526               ;                                            SERIAL NO                               
          15528          (D)0000005.5.;                                                                            
                                                                                                                   
          15600    TABLE   156       156     1                                                                     
          15601     NOTES                                                                                          
          15602   154     6     0     0  2  0   5   0   0   0  0  0  0     AMENDMENTS                              
          15604   154     8     0     0  2  0   5   0   0   0  0  0  0                                             
          15606   154    10     0     0  2  0   5   0   0   0  0  0  0     TO                                      
          15608   154    12     0     0  2  0   5   0   0   0  0  0  0     PRODUCE                                 
          15610   154    14     0     0  2  0   2   0   0   0  0  0  0                                             
          15612   155     2     0     0  0  0   5   0   1   0  0  0  0     ID                                      
          15614   153     2     0     0  0  0   5   0   1   4  0  0  0     SER                                     
          15616   154    16     0     0  2  0   5   0   1   0  0  0  0     FROM                                    
          15618   155     2     0     0  0  0   5   0   1   0  0  0  0     ID                                      
          15620   155     4     0     0  0  0   5   0   1   4  0  0  0     SER                                     
          15622   153    62     0     0  2  0   5   0   3   0  0  0  1     BEW                                     
          15624   154    18     0     0  2  0   5   0   0   0  0  0  0     CONTROL                                 
          15626   154    20     0     0  2  0   5   0   0   0  0  0  0     WORD                                    
          15628   154    14     0     0  2  0   2   3   0   0  0  0  0                                             
          15630   153    62     0     0  2  0   5   0   3   0  0  0  1     BEW                                     
                                                                                                                   
          15700    TABLE   157       157     1                                                                     
          15701     NOTES                                                                                          
          15702   154     4     0     0  2  0   5   0   0   0  0  0  0     FUNCTION WORD                           
          15704   154     6     0     0  2  0   5   0   0   0  0  0  0     AMENDMENTS                              
          15706   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
  Source image: P1030181.JPG
          15708   155     2     0     0  0  0   3   0   0   0  0  0  0     SUITE NO                                
          15710   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15712   155     2     0     0  0  0   2   3   0   0  0  0  0     JOB NO                                  
          15714   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15716   155     2     0     0  0  0   5   0   0   0  0  0  0     OLD SER NO                              
          15718   153    42     0     0  2  0   2   1   0   0  0  0  0     N/E N/E                                 
          15720   152    17     0     0  0  0   1   4   0   0  0  0  0     2                                       
          15722   153    42     0     0  2  0   1   1   0   0  0  0  0     N/E                                     
          15724   153     2     0     0  0  0   3   0   0   0  0  0  0     NEW SER                                 
          15726   153    62     0     0  2  0   5   0   0   0  0  0  1     B/E                                     
                                                                                                                   
          15800    TABLE   158       158     4    UNPACK CONTROL DATA                                              
          15801     NOTES                                                                                          
          15802   153     8     0     0  0  0   0   0   0   0  0  0  0     TYPE                                    
          15804   153     9     0     0  0  0   0   0   0   0  0  0  1     SECOND WORD                             
          15806    41     0     0     0  0  1   0   0   0   0  0  0  1     TYPE 2 P/T I/P                          
          15808    41   320     0     0  2  1   0   0   0   0  0  0  1     UNPACK STARRY NOTES                     
          15810    41    50     0     0  0  1   0   0   0   0  0  0  1     UNPACK TYPE 4                           
                                                                                                                   
          15900    TABLE   159       159     3                                                                     
          15902   153     8     0     0  0  0   5   0   0   0  0  0  0                                             
          15904   153     9     0     0  0  0   5   0   0   0  0  0  1                                             
          15906    41     0     0     0  0  0   5   0   0   0  0  0  0                                             
          15908    41     1     0     0  0  0   5   0   0   0  0  0  0     1                                       
          15910    41     2     0     0  0  0   5   0   0   0  0  0  0     2                                       
          15912    41     3     0     0  0  0   5   0   0   0  0  0  0     3                                       
          15914    41     4     0     0  0  0   5   0   0   0  0  0  0     4                                       
          15916    41     5     0     0  0  0   5   0   0   0  0  0  0     5                                       
          15918    41     6     0     0  0  0   5   0   0   0  0  0  0     6                                       
          15920    41     7     0     0  0  0   5   0   0   0  0  0  0     7                                       
          15922    41     8     0     0  0  0   5   0   0   0  0  0  0     8                                       
          15924    41     9     0     0  0  0   5   0   0   0  0  0  0     9                                       
          15926    41    10     0     0  0  0   5   0   0   0  0  0  1     10                                      
          15928    41    50     0     0  0  0   5   0   0   0  0  0  0     ROUTES                                  
          15930    41    51     0     0  0  0   5   0   0   0  0  0  0     0                                       
          15932    41    52     0     0  0  0   5   0   0   0  0  0  0     1                                       
          15934    41    53     0     0  0  0   5   0   0   0  0  0  0     2                                       
          15936    41    54     0     0  0  0   5   0   0   0  0  0  0     3                                       
          15938    41    55     0     0  0  0   5   0   0   0  0  0  0     4                                       
          15940    41    56     0     0  0  0   5   0   0   0  0  0  0     5                                       
          15942    41    57     0     0  0  0   5   0   0   0  0  0  0     6                                       
          15944    41    58     0     0  0  0   5   0   0   0  0  0  1     7                                       
                                                                                                                   
          16000    TABLE   160       160     2    CONDENSE REPLACEMENTS                                            
          16001     NOTES                                                                                          
          16002    41     2    41     8  2  0   0   0   0   0  0  0  1     REPLACE SECT DESC                       
          16004    41     2    41     8  2  0   0   0   0   0  0  0  0                                             
          16006    41    14     0     0  2  0   0   0   0   0  0  0  1     REPLACE PROCR                           
                                                                                                                   
          16100    TABLE   161       161     1    EDIT TABLE ENTRY                                                 
          16101     NOTES                                                                                          
          16102    41    10     0     0  2  0   2   0   0   0  0  0  0     S/L ALPHA                               
          16104   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16106    41    10     0     0  2  0   3   2   0   0  0  0  0     S/BE                                    
          16108   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16110    41    12     0     0  2  0   2   0   0   0  0  0  0     NO                                      
          16112   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16114    41    12     0     0  2  0   3   2   0   0  0  0  0     DISC                                    
          16116   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16118    41    14     0     0  2  0   2   0   0   0  0  0  0     SPACES                                  
  Source image: P1030182.JPG
          16120   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16122    41    14     0     0  2  0   3   2   0   0  0  0  0     ZERO                                    
          16124   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16126    41    16     0     0  2  0   1   0   0   0  0  0  0     SIGN                                    
          16128   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16130    41    16     0     0  2  0   2   1   0   0  0  0  0     STERLING                                
          16132   153    42     0     0  2  0   1   0   0   0  0  0  0     N/E                                     
          16134    41    16     0     0  2  0   2   3   0   0  0  0  0     L/T/E                                   
          16136   153    42     0     0  2  0   1   0   1   0  0  0  1     N/E                                     
                                                                                                                   
          16200    TABLE   162       162     1    EDIT ROUTE TABLE                                                 
          16201     NOTES                                                                                          
          16202   153    44     0     0  0  0   5   0   0   5  0  0  0     NEW RTE TYPE                            
          16204   153    50     0     0  0  0   5   0   0   0  0  0  1     SPACES                                  
                                                                                                                   
          16300    TABLE   163       163     3    PROCEDURE ENTRIES                                                
          16302    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16304    40     8     0     0  2  0   5   0   0   0  0  0  0     A                                       
          16306    40    10     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16308    40    12     0     0  2  0   5   0   0   0  0  0  0     I                                       
          16310    40    14     0     0  2  0   5   0   0   0  0  0  0     D,M                                     
          16312    40    16     0     0  2  0   5   0   0   0  0  0  0     L                                       
          16314    40    18     0     0  2  0   5   0   0   0  0  0  0     L                                       
          16316    40    20     0     0  2  0   5   0   0   0  0  0  0     CLEO                                    
          16318    40    22     0     0  2  0   5   0   0   0  0  0  0     PREV REF                                
          16320    40    48     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16322    40    32     0     0  2  0   5   0   0   0  0  0  0     NOTES                                   
          16324    40    34     0     0  2  0   5   0   0   0  0  0  0                                             
          16326    40    36     0     0  2  0   5   0   0   0  0  0  0                                             
          16328    40    38     0     0  2  0   5   0   0   0  0  0  0                                             
          16330    40    40     0     0  2  0   5   0   0   0  0  0  0     COMMENTARY                              
          16332    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16334    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16336    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16400    TABLE   164       164     3    TABLE ENTRIES                                                    
          16402    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16404    40     8     0     0  2  0   5   0   0   0  0  0  0     A                                       
          16406    40    10     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16408    40    12     0     0  2  0   5   0   0   0  0  0  0     I                                       
          16410    40    14     0     0  2  0   5   0   0   0  0  0  0     D,M                                     
          16412    40    16     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16414    40    18     0     0  2  0   5   0   0   0  0  0  0     1                                       
          16416    40    20     0     0  2  0   5   0   0   0  0  0  0     R                                       
          16418    40    22     0     0  2  0   5   0   0   0  0  0  0     1                                       
          16420    40    48     0     0  2  0   5   0   0   0  0  0  0     S/L,S/BE                                
          16422    40    32     0     0  2  0   5   0   0   0  0  0  0     NO/DISC                                 
          16424    40    34     0     0  2  0   5   0   0   0  0  0  0     SP/ZEROS                                
          16426    40    36     0     0  2  0   5   0   0   0  0  0  0     SGN/£/LTE                               
          16428    40    38     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16430    40    40     0     0  2  0   5   0   0   0  0  0  0     NOTES                                   
          16432    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16434    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16436    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16500    TABLE   165       165     3    CONSTANT ENTRIES                                                 
          16502    40     6     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          16504    40     8     0     0  2  0   5   0   0   0  0  0  0     END                                     
          16506    40    12     0     0  2  0   5   0   0   0  0  0  0     CONSTANT                                
          16508    40    14     0     0  2  0   5   0   0   0  0  0  0                                             
  Source image: P1030183.JPG
          16510    40    16     0     0  2  0   5   0   0   0  0  0  0                                             
          16512    40    18     0     0  2  0   5   0   0   0  0  0  0                                             
          16514    40    20     0     0  2  0   5   0   0   0  0  0  0                                             
          16516    40    22     0     0  2  0   5   0   0   0  0  0  0                                             
          16518    40    24     0     0  2  0   5   0   0   0  0  0  0                                             
          16520    40    26     0     0  2  0   5   0   0   0  0  0  0                                             
          16522    40    28     0     0  2  0   5   0   0   0  0  0  0                                             
          16524    40    48     0     0  2  0   5   0   0   0  0  0  0     PASS 1 REPORTS                          
          16526    40    32     0     0  2  0   5   0   0   0  0  0  0     ANNOTATION                              
          16528    40    34     0     0  2  0   5   0   0   0  0  0  0                                             
          16530    40    36     0     0  2  0   5   0   0   0  0  0  0                                             
          16532    40    38     0     0  2  0   5   0   0   0  0  0  0                                             
          16534    40    40     0     0  2  0   5   0   0   0  0  0  0                                             
          16536    40    42     0     0  2  0   5   0   0   0  0  0  0                                             
          16538    40    44     0     0  2  0   5   0   0   0  0  0  0                                             
          16540    40    46     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          16600    PROCR   166       166     STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE                        
    16808>                                                                                                         
    10007>16602    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16603    125           4096   1  1              0                                                        clear indicators
          16604    123     166      5   0  2              0        166                                             enter master routine
          16605    100              0   0  0              0                                                        Halt
          16606    5       197     42   1  0              0        197     ORIGINAL(A)                             TRANSFER
          16607    5       27       0   1  0              0                CLEAR WL'S                              TRANSFER
          16608    5       27       2   1  0              0                                                        TRANSFER
          16609    5       27       4   1  0              0                                                        TRANSFER
          16610    5       27       6   1  0              0                                                        TRANSFER
          16611    5       27      11   0  0              0                                                        TRANSFER
          16612    5       27      13   0  0              0                                                        TRANSFER
          16613    118             10   1  0              0                TEST IPS WANTED                         shift logical
          16614    105     154     50   1  0              0        154                                             subtract (N) from (A)
          16615    70      100      2   0  0              0        100     >YES                                    JUMP IF A == 0
          16616    54      24       0   0  0             12                                                        BULK CLEAR
          16617    54      92       0   0  0             38                                                        BULK CLEAR
          16618    123     166     18   0  3              0        166                                             select tag
          16619    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          16620    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          16621    37      182      4   0  0              0        182     FORM LINKS                              REPLACE SELECTED BITS
          16622    37      182      5   0  0              0        182                                             REPLACE SELECTED BITS
          16623    37      182      6   0  0              0        182                                             REPLACE SELECTED BITS
          16624    94      166     72   0  1              0        166     /////>REENTRY                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16625    124     999      5   0  3              0                                                        modify address of next
          16626    106             34   0  0              0                D1                                      select (N)
          16627    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16628    5       27       8   1  0              0                INITIAL PRINTER TYPE>CLEAR 'OFFLINE     TRANSFER
          16629    124     999      5   0  3              0                                                        modify address of next
          16630    106             36   0  0              0                B1                                      select (N)
          16631    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16632    12               0   0  0              5                                                        SUBTRACT LITERAL
          16633    5       152     22   0  0              0        152     I/P SWITCH                              TRANSFER
          16634    10               0   0  0              1                                                        SELECT LITERAL
          16635    5       27      10   0  0              0                INPUT TYPE                              TRANSFER
          16636            197     42   2  0              0        197                                             SELECT
          16637    70      166     83   0  0              0        166     >THINGS OK,EXIT                         JUMP IF A == 0
    16676>16638    10               0   0  0              7                RT7                                     SELECT LITERAL
          16639    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16640    70      166     47   0  0              0        166     >OK                                     JUMP IF A == 0
          16641    10               0   0  0              8                RT8                                     SELECT LITERAL
          16642    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
  Source image: P1030184.JPG
          16643    70      166     47   0  0              0        166                                             JUMP IF A == 0
          16644    10               0   0  0              ‼                RT11                                    SELECT LITERAL
          16645    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16646    71      168      2   0  0              0        168     >ALARM*10                               JUMP IF A != 0
    16643>                                                                                                         
    16640>16647    10               0   0  0              1                                                        SELECT LITERAL
    16682>16648    5       27       9   0  0              0                                                        TRANSFER
          16649    96               0   0  2              0                ALLOC ROUTE                             SELECT MODIFIER
          16650    12               0   0  0             40                64                                      SUBTRACT LITERAL
          16651    3       999      7   0  0              0                                                        COPY
          16652    31               0   0  0              1                                                        SHIFT (A) BY BITS
          16653    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          16654    5       185      2   0  0              0        185     WL FOR CH                               TRANSFER
          16655    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          16656    5       184      2   0  0              0        184     ROUTE                                   TRANSFER
          16657            185      2   0  0              0        185     CHANNEL                                 SELECT
          16658    80      195      2   0  0              0        195     >DEC                                    ENTER SUBROUTINE
          16659    5       197     42   0  0              0        197                                             TRANSFER
          16660    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16661            27       9   0  0              0                                                        SELECT
          16662    70      168      9   0  0              0        168                                             JUMP IF A == 0
          16663    124     999      5   0  3              0                SP CHAP START                           modify address of next
          16664    124             32   0  3              0                                                        modify address of next
          16665    124             16   0  3              0                                                        modify address of next
          16666    10               0   0  0              0                START OF REEL CTRS                      SELECT LITERAL
          16667    1       999      7   0  0              0                                                        ADD
          16668    5       194      2   0  0              0        194     WL                                      TRANSFER
          16669    124     194      2   0  3              0        194                                             modify address of next
          16670    102              0   0  0              0                CLEAR REEL CTR FOR ROUTE                transfer (A) to N
          16671    76      168      9   0  0              0        168                                             JUMP unconditional
    16624>16672    96               0   0  1              0                                                        SELECT MODIFIER
          16673    70      166     77   0  0              0        166     >PRINTER WANTED     REENTRY             JUMP IF A == 0
          16674            27       9   0  0              0                                                        SELECT
          16675    71      166     83   0  0              0        166     >MT WANTED AND GOT,EXIT                 JUMP IF A != 0
          16676    76      166     38   0  0              0        166     >GET MT                                 JUMP unconditional
    16673>16677            27       9   0  0              0                                                        SELECT
          16678    70      166     83   0  0              0        166     >PRINTER WANTED AND GOT,EXIT            JUMP IF A == 0
          16679            27       8   0  0              0                INITIAL PRINTER TYPE                    SELECT
          16680    80      167      2   0  0              0        167                                             ENTER SUBROUTINE
          16681    71      168      2   0  0              0        168     >ALARM*10                               JUMP IF A != 0
          16682    76      166     48   0  0              0        166                                             JUMP unconditional
    16678>                                                                                                         
    16675>                                                                                                         
    16637>16683    126     182      4   0  3              0        182     >TO MAIN PATH                           leave master routine
                                                                                                                   
          16700    PROCR   167       167     ALLOCATE ANOTHER DEVICE                                               
          16702    81      167      2   0  0              0        167                                             START OF SUBROUTINE
          16703    5       192      2   0  0              0        192                                             TRANSFER
          16704    90               0   0  2             64                                                        SET MODIFICATION REGISTER AT LITERAL
          16705    C                0   0  0            128                                                        
    16710>16706            192      2   0  0              0        192                                             SELECT
          16707    124     999      0   0  3              0                                                        modify address of next
          16708    105              0   0  2              0                                                        subtract (N) from (A)
          16709    70      167     21   0  0              0        167     >MATCH,END                              JUMP IF A == 0
          16710    94      167      6   0  2              1        167                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16711            999      9   0  0              0                KNOWN MT ROUTE                          SELECT
          16712    12               0   0  0             18                CH3/0                                   SUBTRACT LITERAL
          16713    73      167     21   0  0              0        167     >SLOW CHANNEL,END WITHOUT MATCH         JUMP IF A < 0
          16714    90               0   0  2            192                                                        SET MODIFICATION REGISTER AT LITERAL
          16715    C                0   0  0            240                                                        
  Source image: P1030185.JPG
    16720>16716    124     999      0   0  3              0                TRY FAST CHANNELS                       modify address of next
          16717    106              0   0  2              0                                                        select (N)
          16718    2       192      2   0  0              0        192                                             SUBTRACT
          16719    70      167     21   0  0              0        167                                             JUMP IF A == 0
          16720    94      167     16   0  2              1        167                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    16719>                                                                                                         
    16713>                                                                                                         
    16709>16721    82      167      2   0  0              0        167     (A)NONZERO IF NO MATCH                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          16800    PROCR   168       168     ALARM IF CANT FIND REQUIRED DEVICE                                    
    16681>                                                                                                         
    16646>16802    126     182      5   0  3              0        182                                             leave master routine
    18204>16803    150              0   0  0             10                                    ALARM*10            OFFER OPTIONS
          16804    C       190     58   0  0              0        190     >UNLOAD                                 
          16805    C       168      7   0  0              0        168     >TRY AGAIN                              
          16806    C       169     33   0  0              0        169     >CONTINUE AS YOU ARE                    
    16805>16807            197     42   1  0              0        197     ORIGINAL(A)                             SELECT
          16808    76      166      2   0  0              0        166                                             JUMP unconditional
    16671>                                                                                                         
    16662>16809    124     999      5   0  3              0                                                        modify address of next
          16810    106             34   0  0              0                                                        select (N)
          16811    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          16812    5       194      2   0  0              0        194     ROUTE TYPE                              TRANSFER
          16813    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          16814    10               0   0  0              0                (ALT ROUTE)                             SELECT LITERAL
          16815    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          16816    5       195      2   0  0              0        195     ROUTE                                   TRANSFER
          16817    124     999      5   0  3              0                                                        modify address of next
          16818    124             32   0  3              0                                                        modify address of next
          16819    124             12   0  3              0                START OF ASSEMBLER TABLE                modify address of next
          16820    101              0   1  3              0                                                        select literal address
          16821    34      195      2   0  0              0        195     BITS4-8                                 SET (N) IN B
          16822    36      197     88   0  0              0        197     8XCHANNEL                               COLLATE AND ADD
          16823    5       167      2   0  0              0        167                                             TRANSFER
                                                                                                                   
          16900    PROCR   169       169     START PASS 0-DEAL WITH INITIAL TRANSLATION                            
          16902    124     999      5   0  3              0                                                        modify address of next
          16903    124             32   0  3              0                                                        modify address of next
          16904    106             32   0  0              0                -64 IF FAST MACHINE ZERO OTHERWISE      select (N)
          16905    107     169     22   0  0              0        169                                             augment (N) by (A)
          16906    107     169     29   0  0              0        169                                             augment (N) by (A)
          16907    124     167      2   0  3              0        167                                             modify address of next
          16908    106              0   0  0              0                LAST ROUTE ON CHANNEL                   select (N)
          16909    2       195      2   0  0              0        195                                             SUBTRACT
          16910    71      169     13   0  0              0        169     >NOT THIS ONE                           JUMP IF A != 0
          16911    124     167      2   0  3              0        167                                             modify address of next
          16912    102              0   1  0              0                CLEAR DETAILS                           transfer (A) to N
    16910>16913    124     195      2   0  3              0        195                                             modify address of next
          16914    106             64   0  0              0                OLD ASL                                 select (N)
          16915    124     999      7   0  3              0                NEW ROUTE                               modify address of next
          16916    102             64   0  0              0                                                        transfer (A) to N
          16917            194      2   0  0              0        194     OLD ROUTE TYPE      LOAD NEW ROUTE      SELECT
          16918    124     195      2   0  3              0        195                                             modify address of next
          16919    102             64   0  0              0                                                        transfer (A) to N
          16920            192      2   0  0              0        192     NEW ROUTE TYPE                          SELECT
          16921    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16922    11               0   0  0             80                                                        ADD LITERAL
          16923    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16924    1       999      7   0  0              0                NEW ROUTE                               ADD
          16925    124     999      5   0  3              0                                                        modify address of next
  Source image: P1030186.JPG
          16926    102             34   0  0              0                                                        transfer (A) to N
          16927            999      7   0  0              0                                                        SELECT
          16928    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16929    11               0   0  0             80                                                        ADD LITERAL
          16930    124     999      5   0  3              0                                                        modify address of next
          16931    102             35   0  0              0                                                        transfer (A) to N
          16932    126     182      6   0  3              0        182                                             leave master routine
    18205>                                                                                                         
    16806>16933    52      3        0   0  0              0                                                        EDIT
          16934    C       198     12   0  0              0        198                                             
          16935    154     3        0   0  0              0                                                        COMMENT IN LOG
    18203>16936    62               0   0  0              0                NORMAL START HERE                       SET EXCESS CONSTANTS
          16937    54      3        0   1  0           2358                ALL SECNS PASS 0                        BULK CLEAR
          16938    76      102      2   0  0              0        102     >GET AMEND BLOCK                        JUMP unconditional
                                                                                                                   
          17000    PROCR   170       170     START OF AMENDMENT RUN                                                
    10555>17002    0       5        0   1  0              0                                                        SELECT
          17003    3       197     44   1  0              0        197     AMDT IND                                COPY
          17004    2       197     52   1  0              0        197     'AMEND'                                 SUBTRACT
          17005    70      170     13   0  0              0        170                                             JUMP IF A == 0
    17033>                                                                                                         
    10324>17006    150              0   0  0              3                                    ALARM*03            OFFER OPTIONS
          17007    C       190     58   0  0              0        190     >UNLOAD                                 
          17008    C       170      9   0  0              0        170     >REENTER                                
    19055>                                                                                                         
    17008>                                                                                                         
    13104>17009            27       9   0  0              0                                                        SELECT
          17010    11               0   0  0         900000                                                        ADD LITERAL
          17011    91               0   0  1              0                (END VALUE NONZERO)                     SET MODIFICATION REGISTER AT VARIABLE
          17012    76      100      5   0  0              0        100                                             JUMP unconditional
    17005>17013    80      196      2   0  0              0        196     UNPACK AND CHECK AMEND BLOCK            ENTER SUBROUTINE
          17014    40      A6       0   0  0              0                                                        OPEN FILE
          17015    54      9        4   1  0             50                                                        BULK CLEAR
          17016    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          17017    80      186      2   0  0              0        186     >WRITE 'AMEND'                          ENTER SUBROUTINE
          17018            7       14   1  0              0                                                        SELECT
          17019    2       153     62   1  0              0        153     BEW                                     SUBTRACT
          17020    71      170     24   0  0              0        170     >NOT ISSUE 2,3 OUTPUT                   JUMP IF A != 0
          17021    5       7       12   1  0              0                                                        TRANSFER
          17022    5       7       14   1  0              0                                                        TRANSFER
          17023    5       7       16   1  0              0                                                        TRANSFER
    17020>17024            7       16   2  0              0                MULTIRECORD IND                         SELECT
          17025    3       27       1   0  0              0                                                        COPY
          17026    3       150     20   1  0              0        150                                             COPY
          17027    71      170     29   0  0              0        170                                             JUMP IF A != 0
          17028    83      133      2   0  0              2        133     SINGLE-REC                              SET SWITCH(ES) AT LITERAL VALUE
    17027>17029            7       14   2  0              0                                                        SELECT
          17030    5       27       2   0  0              0                                                        TRANSFER
          17031            7       12   2  0              0                                                        SELECT
          17032    3       27       0   0  0              0                                                        COPY
          17033    70      170      6   0  0              0        170     >*03                                    JUMP IF A == 0
                                                                                                                   
          17100    PROCR   171       171     DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN                               
          17102    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17103    C                0   0  0             46                                                        
    17107>17104    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          17105    55      7        4   2  0             46                                                        BULK COPY
          17106    C       3        0   0  1              0                INDEX 3/0-45                            
          17107    94      171      4   0  1             23        171                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17108            3       45   0  0              0                                                        SELECT
  Source image: P1030187.JPG
          17109    80      195      2   0  0              0        195     >DEC                                    ENTER SUBROUTINE
          17110    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          17111    5       17      21   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           TRANSFER
          17112    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          17113            3       45   0  0              0                (HIGHEST B/FWD PROCR+1)IN BINARY        SELECT
          17114    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          17115    101            100   1  1              0                CREATE B/FWD OLD-NEW PROCR INDEX        add literal address
          17116    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          17117    101            100   1  3              0                                                        select literal address
    17120>17118    3       6      100-  0  1              0                STORE ONE-FOR-ONE                       COPY
          17119    11               0   0  0              1                                                        ADD LITERAL
          17120    94      171     18   0  1              1        171                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17121            3       45   0  0              0                MAX B/FWD PROCR                         SELECT
          17122    5       94      45   0  0              0                =PROVIS MAX C/FWD PROCR                 TRANSFER
          17123    52      18       0   0  0              0                                                        EDIT
          17124    C       198      2   0  0              0        198                                             
          17125    154     18       0   0  0              0                TYPE'AMEND' COMMENT                     COMMENT IN LOG
                                                                                                                   
          17200    PROCR   172       172     READ/WRITE MODS UP TO FIRST AMEND DIRECTIVE                           
    17205>17202    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          17203    70      172      6   0  0              0        172     >YES                                    JUMP IF A == 0
          17204    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17205    76      172      2   0  0              0        172                                             JUMP unconditional
    17203>17206    10               0   0  0           9999                                                        SELECT LITERAL
          17207    3       17      10   0  0              0                SET FOR SEQUENCE CHECKS                 COPY
          17208    5       17      14   0  0              0                                                        TRANSFER
          17209    76      173      7   0  0              0        173                                             JUMP unconditional
                                                                                                                   
          17300    PROCR   173       173     MAIN LOOP                                                             
    17640>17302    80      193      2   0  0              0        193     >READ                                   ENTER SUBROUTINE
          17303    70      181      2   0  0              0        181     >PT END                                 JUMP IF A == 0
          17304    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          17305    80      184      2   0  0              0        184     >STORE SWITCH, TEST DIRECTIVE           ENTER SUBROUTINE
          17306    71      179      2   0  0              0        179     >NOT A NEW DIRECTIVE                    JUMP IF A != 0
    17531>                                                                                                         
    17823>                                                                                                         
    18005>                                                                                                         
    17209>17307    60               0   0  0              0                                                        SET DECIMAL RADIX
          17308            17      10   0  0              0                CHECK SEQUENCE AT NEW DIRECTIVE         SELECT
          17309    2       4        2   2  0              0                                                        SUBTRACT
          17310    73      173     15   0  0              0        173     >OK                                     JUMP IF A < 0
          17311    71      180      2   0  0              0        180     >REJECT,READ/COPY TO NEXT DIRECTIVE     JUMP IF A != 0
          17312    0       17      12   0  0              0                                    SAME SERIAL         SELECT
          17313    12               0   0  0              3                                                        SUBTRACT LITERAL
          17314    71      180      2   0  0              0        180     >PREVIOUS NOT'T',IGNORE THIS            JUMP IF A != 0
    17310>17315            17      21   0  0              0                MAX B/FWD LINE SERIAL                   SELECT
          17316    2       4        2   2  0              0                THIS LINE SERIAL                        SUBTRACT
          17317    72      173     22   0  0              0        173     >NORMAL?                                JUMP IF A >= 0
    17321>                                                                                                         
    17322>17318    10               0   0  0              1                                                        SELECT LITERAL
          17319    5       17      16   1  0              0                SET'PASS 0 DOESNNT LIKE IT'             TRANSFER
          17320    80      188      2   0  0              0        188     >WRITE A6                               ENTER SUBROUTINE
          17321    76      173     18   0  0              0        173                                             JUMP unconditional
    17317>17322    70      173     18   0  0              0        173                                             JUMP IF A == 0
          17323            4        2   2  0              0                                                        SELECT
          17324    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          17325    80      194      2   0  0              0        194     BIN                 TEST IF VALUE       ENTER SUBROUTINE
          17326    5       195      2   0  0              0        195                         DIRECTIVE?          TRANSFER
          17327    124     195      2   0  1              0        195     EQUIV OF CURRENT PROCR                  modify address of next
          17328            6      100-  0  0              0                                                        SELECT
  Source image: P1030188.JPG
          17329    70      180      2   0  0              0        180     >REJECT,READ/COPY TO NEXT DIRECTIVE     JUMP IF A == 0
          17330    85      184      2   0  0              0        184                                             SWITCH R
          17331    C       178      2   0  0              0        178     R                                       
          17332    C       174      2   0  0              0        174     D                                       
          17333    C       180      2   0  0              0        180     >REJECT                                 
          17334    C       180      2   0  0              0        180     >REJECT                                 
                                                                                                                   
          17400    PROCR   174       174     DEAL WITH 'DELETE' DIRECTIVE-PREP STAGE                               
    17332>17402    80      185      2   0  0              0        185     >FIND 'PROCR 'LENGTH'                   ENTER SUBROUTINE
          17403    5       17       0   0  0              0                0=SHORT, 1=LONG                         TRANSFER
          17404    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          17405    36      4        2   2  0              0                                                        COLLATE AND ADD
          17406    12               0   0  0              1                                                        SUBTRACT LITERAL
          17407    70      174     12   0  0              0        174     >DELETION BEGINS AT'NOTES'              JUMP IF A == 0
          17408    10               0   0  0              0                                                        SELECT LITERAL
          17409    34      17       0   0  0              0                                                        SET (N) IN B
          17410    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          17411    71      180      2   0  0              0        180     >UNACCEPTABLE MOD                       JUMP IF A != 0
    17407>17412    0       4        2   2  0              0                                                        SELECT
          17413    3       17      14   0  0              0                                                        COPY
          17414    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17415    70      174     19   0  0              0        174     >DELETING PROCR                         JUMP IF A == 0
          17416            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          17417    101            900   1  2              0                                                        subtract literal address
          17418    70      180      2   0  0              0        180     >LIST FULL,COPY TO NEXT DIRECTIVE       JUMP IF A == 0
    17415>17419    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17420    80      193      2   0  0              0        193     >READ                                   ENTER SUBROUTINE
          17421    70      175      2   0  0              0        175     >PT AT END, SINGLE LINE DELETE          JUMP IF A == 0
          17422    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          17423    80      184      2   0  0              0        184     >TEST DIRECTIVE                         ENTER SUBROUTINE
          17424    71      176      2   0  0              0        176     >NO, HENCE MULTIPLE DELETE              JUMP IF A != 0
                                                                                                                   
          17500    PROCR   175       175     DEAL WITH SINGLE LINE DELETION                                        
    17421>17502    0       17      14   0  0              0                                                        SELECT
          17503    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
          17504    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17505    71      175      8   0  0              0        175     >NOT DELETING 'PROCR'                   JUMP IF A != 0
          17506            17      14   0  0              0                                                        SELECT
          17507    76      176     12   0  0              0        176     >JOIN UP WITH MULTIPLE DELETION         JUMP unconditional
    17505>17508    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          17509    12               0   0  0              1                                                        SUBTRACT LITERAL
          17510    70      175     26   0  0              0        175     >DELETING'NOTES'ONLY                    JUMP IF A == 0
          17511    10               0   0  0              0                                                        SELECT LITERAL
          17512    2       17       0   0  0              0                                                        SUBTRACT
          17513    12               0   0  0              1                                                        SUBTRACT LITERAL
          17514    5       17      15   0  0              0                                                        TRANSFER
          17515            17      14   0  0              0                                                        SELECT
          17516    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17517    5       17      19   0  0              0                PROCR                                   TRANSFER
          17518            17      14   0  0              0                                                        SELECT
          17519    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAILS)              SUBTRACT
          17520    5       17      14   0  0              0                                                        TRANSFER
          17521            17      14   0  0              0                LINE SERIAL+ADJUST DETAIL               SELECT
          17522    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17523    2       17      19   0  0              0                                                        SUBTRACT
          17524    71      175     26   0  0              0        175     CARRY INTO NEXT PROCDON'T STORE         JUMP IF A != 0
          17525    80      192      2   0  0              0        192     >STORE SDJUSTMENT                       ENTER SUBROUTINE
    17524>                                                                                                         
    17510>17526    0       5        0   1  0              0                                                        SELECT
          17527    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
  Source image: P1030189.JPG
          17528    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          17529    2       197     56   1  0              0        197     'END'                                   SUBTRACT
          17530    70      181      2   0  0              0        181     >PT AT END                              JUMP IF A == 0
          17531    76      173      7   0  0              0        173     >TEST NEW DIRECTIVE IN SEQUENCE         JUMP unconditional
                                                                                                                   
          17600    PROCR   176       176     DEAL WITH MULTIPLE DELETION                                           
    17424>17602    80      185      2   0  0              0        185     >FIND PROCR LENGTH                      ENTER SUBROUTINE
          17603    5       17       0   0  0              0                                                        TRANSFER
          17604    34      17       0   0  0              0                                                        SET (N) IN B
          17605    36      4        2   2  0              0                LINE SERIAL 'TO'                        COLLATE AND ADD
          17606    71      180      2   0  0              0        180     >REJECT AMENDMENT                       JUMP IF A != 0
          17607    0       17      14   0  0              0                'FROM'                                  SELECT
          17608    2       4        2   2  0              0                'TO'                                    SUBTRACT
          17609    72      180      2   0  0              0        180     >REJECT,OUT OF SEQUENCE                 JUMP IF A >= 0
          17610            4        2   2  0              0                'TO'PROCR                               SELECT
          17611    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
    17507>17612    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17613    5       17      15   0  0              0                3-DIGIT'TO'                             TRANSFER
          17614            17      14   0  0              0                'FROM'PROCR                             SELECT
          17615    32               0   0  0              2-               'TO'PROCR                               SHIFT (AB) BY QUARTETS
          17616    3       17      19   0  0              0                '3-DIGIT'FROM'                          COPY
          17617    2       17      15   0  0              0                                                        SUBTRACT
          17618    71      180      2   0  0              0        180                                             JUMP IF A != 0
          17619    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          17620    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17621    0       17      14   0  0              0                                                        SELECT
          17622    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          17623    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          17624    12               0   0  0              1                                                        SUBTRACT LITERAL
          17625    70      180      2   0  0              0        180     >MULTIPLE DELETION BEGINS AT'NOTES',REJEJUMP IF A == 0
          17626            17      14   0  0              0                'FROM'SERIAL                            SELECT
          17627    2       4        2   2  0              0                'TO'SERIAL                              SUBTRACT
          17628    2       17       0   0  0              0                LENGTH                                  SUBTRACT
          17629    12               0   0  0              1                                                        SUBTRACT LITERAL
          17630    5       17      15   0  0              0                NEGATIVE ADJUST DETAIL                  TRANSFER
          17631            17      14   0  0              0                                                        SELECT
          17632    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAIL)               SUBTRACT
          17633    5       17      14   0  0              0                                                        TRANSFER
          17634            17      14   0  0              0                LINE SERIAL+ADJUSTMENT                  SELECT
          17635    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          17636    2       17      19   0  0              0                PREVIOUS PROCR                          SUBTRACT
          17637    71      176     39   0  0              0        176     >CARRY INTO PROCR,DON T STORE           JUMP IF A != 0
          17638    80      192      2   0  0              0        192     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    17924>                                                                                                         
    17637>17639    80      186      2   0  0              0        186     >WRITE                                  ENTER SUBROUTINE
          17640    76      173      2   0  0              0        173     >READ NEXT BLOCK                        JUMP unconditional
                                                                                                                   
          17700    PROCR   177       177     DELETE MANY PROCEDURES                                                
                                                                                                                   
          17800    PROCR   178       178     'R'DIRECTIVES AND'A'DIRECTIVES                                        
    17331>17802    35               0   0  0             11                                    DIRECTIVE LINE'R'   PREPARE FOR DIGIT COLLATION
          17803    10               0   0  0              0                                                        SELECT LITERAL
          17804    36      4        2   2  0              0                                                        COLLATE AND ADD
          17805    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17806    80      185      2   0  0              0        185     >FIND'LENGTH'                           ENTER SUBROUTINE
          17807    5       17       0   0  0              0                                                        TRANSFER
          17808    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          17809    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          17810    12               0   0  0              1                                                        SUBTRACT LITERAL
          17811    70      180      2   0  0              0        180                                             JUMP IF A == 0
  Source image: P1030190.JPG
          17812    10               0   0  0              0                                                        SELECT LITERAL
          17813    34      17       0   0  0              0                                                        SET (N) IN B
          17814    36      4        2   2  0              0                                                        COLLATE AND ADD
          17815    71      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A != 0
          17816            4        2   2  0              0                                                        SELECT
          17817    3       17      14   0  0              0                                                        COPY
          17818    3       17      10   0  0              0                                                        COPY
          17819    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17820    5       17      19   0  0              0                                                        TRANSFER
          17821    80      186      2   0  0              0        186     WRITE                                   ENTER SUBROUTINE
          17822    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          17823    70      173      7   0  0              0        173     >YES                                    JUMP IF A == 0
                                                                                                                   
          17900    PROCR   179       179     DEAL WITH NON-DIRECTIVE LINE                                          
    17306>17902    85      184      2   0  0              0        184                                             SWITCH R
          17903    C       179      7   0  0              0        179     R                                       
          17904    C       180      2   0  0              0        180                                             
          17905    C       180      2   0  0              0        180                                             
          17906    C       180      2   0  0              0        180                                             
    17903>17907    60               0   0  0              0                                                        SET DECIMAL RADIX
          17908            17       0   0  0              0                CURRENT LENGTH                          SELECT
          17909    11               0   0  0              1                                                        ADD LITERAL
          17910    4       17      10   0  0              0                STEP SEQ CTR                            AUGMENT
          17911            17      10   0  0              0                                                        SELECT
          17912    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          17913    2       17      19   0  0              0                PROCR OF R OR A-DIRECTIVE               SUBTRACT
          17914    71      179     25   0  0              0        179     >NOT STILL IN SAME PROCR                JUMP IF A != 0
          17915            4        6   1  0              0                                                        SELECT
          17916    2       197     46   1  0              0        197     'PROCR'                                 SUBTRACT
          17917    70      180      2   0  0              0        180                                             JUMP IF A == 0
          17918            4        6   1  0              0                                                        SELECT
          17919    2       197     48   1  0              0        197     'TABLE                                  SUBTRACT
          17920    70      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A == 0
          17921            4        6   1  0              0                                                        SELECT
          17922    2       197     50   1  0              0        197     'CONST'                                 SUBTRACT
          17923    70      180      2   0  0              0        180     >UNACCEPTABLE                           JUMP IF A == 0
          17924    76      176     39   0  0              0        176                                             JUMP unconditional
    17914>17925    10               0   0  0              1-                                                       SELECT LITERAL
          17926    2       17       0   0  0              0                                                        SUBTRACT
          17927    4       17      10   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       AUGMENT
          17928    76      180      2   0  0              0        180     >READ/COPY TO NEXT DIRECTIVE            JUMP unconditional
                                                                                                                   
          18000    PROCR   180       180     DEAL WITH INSERTIONS                                                  
    17928>                                                                                                         
    17923>                                                                                                         
    17920>                                                                                                         
    17917>                                                                                                         
    17906>                                                                                                         
    17905>                                                                                                         
    17904>                                                                                                         
    17815>                                                                                                         
    17811>                                                                                                         
    17805>                                                                                                         
    17625>                                                                                                         
    17620>                                                                                                         
    17618>                                                                                                         
    17609>                                                                                                         
    17606>                                                                                                         
    17418>                                                                                                         
    17411>                                                                                                         
    17334>                                                                                                         
    17333>                                                                                                         
    17329>                                                                                                         
    17314>                                                                                                         
  Source image: P1030191.JPG
    17311>18002    10               0   0  0              1                SET IND'PASS 0 DOESN T LIKE IT'         SELECT LITERAL
          18003    5       17      16   1  0              0                                                        TRANSFER
          18004    80      188      2   0  0              0        188     READ/WRITE TO NEXT DIRECTIVE            ENTER SUBROUTINE
          18005    76      173      7   0  0              0        173                                             JUMP unconditional
                                                                                                                   
          18100    PROCR   181       181     CONSTRUCT C/FWD PROCR LENGTH INDEX                                    
    18304>                                                                                                         
    17530>                                                                                                         
    17303>18102    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18103    101             25   1  3              0                                                        select literal address
          18104    104     152     22   0  0              0        152                                             add (N) to (A)
          18105    118              5   0  1              0                                                        shift arithmetic
          18106    104     999      8   0  0              0                                                        add (N) to (A)
          18107    125           4096   1  1              0                                                        clear indicators
          18108    124     999      0   0  3              0                                                        modify address of next
          18109    123            160   0  2              0                                                        enter master routine
          18110    55      3        0   0  0             45                COPY                                    BULK COPY
          18111    C       94       0   0  0              0                                                        
          18112    76      182      6   0  0              0        182                                             JUMP unconditional
                                                                                                                   
          18200    PROCR   182       182     END OF PASS 0                                                         
          18202    85      184      2   0  0              0        184     3 ORDER CONSTS                          SWITCH R
          18203    C       169     36   0  0              0        169                                             
          18204    C       168      3   0  0              0        168                                             
          18205    C       169     33   0  0              0        169                                             
    18112>18206    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18207    C                0   0  0            450                                                        
          18208    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18209    C                0   0  0            900                                                        
          18210    10               0   0  0              0                                                        SELECT LITERAL
          18211    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
    18217>18212    36      6        1   0  2              0                                                        COLLATE AND ADD
          18213    31               0   0  0             10                                                        SHIFT (A) BY BITS
          18214    36      6        0   0  2              0                                                        COLLATE AND ADD
          18215    5       22       0   0  1              0                                                        TRANSFER
          18216    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18217    94      182     12   0  2              2        182                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18218    76      182     22   0  0              0        182                                             JUMP unconditional
          18219    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          18220    10               0   0  0              1                                                        SELECT LITERAL
          18221    4       94      45   0  0              0                                                        AUGMENT
    18218>18222    80      186      2   0  0              0        186     >WRITE END SIGN                         ENTER SUBROUTINE
          18223    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18224    45      A6       0   0  0              0                                                        REWIND
          18225    55      22       0   0  0           1110                                                        BULK COPY
          18226    C       18       0   0  0              0                                                        
          18227    55      22    1110   0  0            240                                                        BULK COPY
          18228    C       25       0   0  0              0                                                        
          18229    55      94       0   0  0             46                                                        BULK COPY
          18230    C       18    1110   0  0              0                                                        
          18231    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18232    C                0   0  0             20                                                        
    18234>18233    80      143      2   0  0              0        143     >BLANKS                                 ENTER SUBROUTINE
          18234    94      182     33   0  1              1        182                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18235    91               0   0  1              0                CLEAR R1                                SET MODIFICATION REGISTER AT VARIABLE
          18236    46      A1      10   0  0              1                RUN BACK TO START                       RUN BACK
  Source image: P1030192.JPG
          18237    C       152     27   0  0              0        152     OF PASI                                 
          18238    76      101      2   0  0              0        101     >CALL PASS 1                            JUMP unconditional
                                                                                                                   
          18300    PROCR   183       183     READ,TEST NEXT PT BLOCK                                               
          18302    81      183      2   0  0              0        183                                             START OF SUBROUTINE
          18303    80      193      2   0  0              0        193     >READ PT                                ENTER SUBROUTINE
          18304    70      181      2   0  0              0        181     >'END'                                  JUMP IF A == 0
          18305    80      187      2   0  0              0        187     >UNPACK                                 ENTER SUBROUTINE
          18306    80      184      2   0  0              0        184     >TEST DIRECTIVE                         ENTER SUBROUTINE
          18307    82      183      2   0  0              0        183                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18400    PROCR   184       184     TEST DIRECTIVE                                                        
          18402    81      184      2   0  0              0        184                                             START OF SUBROUTINE
          18403    60               0   0  0              0                                                        SET DECIMAL RADIX
          18404    34      4        4   1  0              0                                                        SET (N) IN B
          18405    10               0   0  0              0                                                        SELECT LITERAL
          18406    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          18407    12               0   0  0             69                                                        SUBTRACT LITERAL
          18408    70      184     18   0  0              0        184     >R                                      JUMP IF A == 0
          18409    11               0   0  0             15                                                        ADD LITERAL
          18410    70      184     17   0  0              0        184     >D                                      JUMP IF A == 0
          18411    12               0   0  0             19                                                        SUBTRACT LITERAL
          18412    70      184     16   0  0              0        184     >T                                      JUMP IF A == 0
          18413    11               0   0  0             22                                                        ADD LITERAL
          18414    71      184     24   0  0              0        184     >NO DIRECTIVE                           JUMP IF A != 0
          18415    10               0   0  0              1                A=4                                     SELECT LITERAL
    18412>18416    11               0   0  0              1                T=3                                     ADD LITERAL
    18410>18417    11               0   0  0              1                D=2                                     ADD LITERAL
    18408>18418    11               0   0  0              1                R=1                                     ADD LITERAL
          18419    5       185      2   0  0              0        185                                             TRANSFER
          18420    86      184      2   0  0              0        184                                             SELECT SWITCH R
          18421    5       17      12   0  0              0                STORE PREVIOUS SETTING                  TRANSFER
          18422    84      184      2   0  0              0        184                                             SET SWITCH(ES) AT VARIABLE VALUE
          18423    C       185      2   0  0              0        185     (A)ZERO DIRECTIVE FOUND                 
    18414>18424    82      184      2   0  0              0        184     (A)NON-ZERO,NO DIRECTIVE FOUND          END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18500    PROCR   185       185     FIND 'LENGTH'                                                         
          18502    81      185      2   0  0              0        185                                             START OF SUBROUTINE
          18503            4        2   2  0              0                LINE SERIAL OF AMENDMENT                SELECT
          18504    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          18505    80      194      2   0  0              0        194     CONVERT TO BIN                          ENTER SUBROUTINE
          18506    101            100   1  2              0                                                        subtract literal address
          18507    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          18508    5       197     42   0  0              0        197                                             TRANSFER
          18509    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          18510    5       197     43   0  0              0        197                                             TRANSFER
          18511    34      197      2   0  0              0        197     1                                       SET (N) IN B
          18512    124     197     43   0  1              0        197                                             modify address of next
          18513    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          18514    124     197     42   0  1              0        197                                             modify address of next
          18515    36      3        0   0  0              0                                                        COLLATE AND ADD
          18516    70      185     18   0  0              0        185     >SHORT                                  JUMP IF A == 0
          18517    10               0   0  0              1                                                        SELECT LITERAL
    18516>18518    60               0   0  0              0                                                        SET DECIMAL RADIX
          18519    82      185      2   0  0              0        185     (A)=ZERO OR ONE                         END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18600    PROCR   186       186     WRITE>A6 FROM SEC 9                                                   
          18602    81      186      2   0  0              0        186                                             START OF SUBROUTINE
          18603    80      189      2   0  0              0        189     REPLACE 'BE' BY 'LE'                    ENTER SUBROUTINE
          18604            153     62   1  0              0        153     BEW                                     SELECT
  Source image: P1030193.JPG
          18605    5       9       52   1  0              0                                                        TRANSFER
          18606            17      16   1  0              0                IND'PASS 0 DIDN'T LIKE IT' NON-ZERO     SELECT
          18607    5       9       50   1  0              0                                                        TRANSFER
          18608    43      A6       0   0  0              0                                                        OUTPUT
          18609    C       9        0   0  0              0                                                        
          18610    54      9        4   1  0             50                                                        BULK CLEAR
          18611    5       17      16   1  0              0                CLEAR IND                               TRANSFER
          18612    82      186      2   0  0              0        186                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18700    PROCR   187       187     UNPACK POSSIBLE DIRECTIVE BLOCK                                       
          18702    81      187      2   0  0              0        187                                             START OF SUBROUTINE
          18703    10               0   0  0              0                                                        SELECT LITERAL
          18704    5       4        4   1  0              0                WL FOR AMEND DIRECTIVE LETTER           TRANSFER
          18705    5       4       16   1  0              0                                                        TRANSFER
          18706    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          18707    C       199      2   0  0              0        199                                             
          18708    82      187      2   0  0              0        187                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18800    PROCR   188       188     O/P WHEN MOD NOT ACCEPTED                                             
          18802    81      188      2   0  0              0        188                                             START OF SUBROUTINE
    18805>18803    80      186      2   0  0              0        186     >O/P TO A6                              ENTER SUBROUTINE
          18804    80      183      2   0  0              0        183     >READ/TEST PT                           ENTER SUBROUTINE
          18805    71      188      3   0  0              0        188     >NOT YET                                JUMP IF A != 0
          18806    82      188      2   0  0              0        188     NEXT DIRECTIVE FOUND>                   END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18900    PROCR   189       189     REPLACE BE CHAR BY LE CHAR IN SEC 5                                   
          18902    81      189      2   0  0              0        189                                             START OF SUBROUTINE
          18903    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          18904    C                0   0  0             56                                                        
    18915>18905    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          18906    C                0   0  0              2-                                                       
          18907    34      5        0   1  1              0                                                        SET (N) IN B
    18912>18908    10               0   0  0              0                                                        SELECT LITERAL
          18909    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          18910    12               0   0  0             7.                                                        SUBTRACT LITERAL
          18911    70      189     16   0  0              0        189     >BE FOUND                               JUMP IF A == 0
          18912    94      189      8   0  2              2-       189     >GET NEXT CHAR                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          18913            5        0   1  1              0                COPY TO O/P SECTION                     SELECT
          18914    5       9        4   1  1              0                                                        TRANSFER
          18915    94      189      5   0  1              2        189     >GET NEXT WORD                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    18911>18916    96               0   0  2              0                                                        SELECT MODIFIER
          18917    5       190      2   0  0              0        190                                             TRANSFER
          18918    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          18919    10               0   0  0             5.                                                        SELECT LITERAL
          18920    124     190      2   0  1              0        190                                             modify address of next
          18921    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          18922    3       5        0   1  1              0                REPLACE BEW BY LE IN 1ST CHAR           COPY
          18923    5       9        4   1  1              0                                                        TRANSFER
          18924    100     17      22   1  0              0                                                        copy registers
          18925    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18926    96               0   0  1              0                                                        SELECT MODIFIER
          18927    11               0   0  0              4                                                        ADD LITERAL
          18928    30               0   0  0              3                >Q4,5                                   SHIFT (A) BY QUARTETS
          18929    5       9       48   2  0              0                                                        TRANSFER
          18930    35               0   0  0             11                COLUMN POSITION                         PREPARE FOR DIGIT COLLATION
          18931    36      190      2   0  0              0        190                                             COLLATE AND ADD
          18932    37      9       48   2  0              0                                                        REPLACE SELECTED BITS
          18933    100     17      26   0  3              0                                                        set radix
          18934    82      189      2   0  0              0        189                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030194.JPG
          19000    PROCR   190       190     GET TO START OF AMENDED PROGRAM                                       
          19002    81      190      2   0  0              0        190                                             START OF SUBROUTINE
    19010>                                                                                                         
    19016>                                                                                                         
    19024>                                                                                                         
    19042>                                                                                                         
    19057>19003    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          19004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19005            7        4   1  0              0                                                        SELECT
          19006    2       197     60   1  0              0        197     'FINIS'                                 SUBTRACT
          19007    70      190     48   0  0              0        190     >ALARM*02                               JUMP IF A == 0
          19008            7        8   2  0              0                                                        SELECT
          19009    12               0   0  0                                                                       SUBTRACT LITERAL
          19010    71      190      3   0  0              0        190                                             JUMP IF A != 0
          19011            7       10   1  0              0                                                        SELECT
          19012    2       197     54   1  0              0        197     'PASS I'                                SUBTRACT
          19013    70      190     39   0  0              0        190                                             JUMP IF A == 0
          19014            7        6   1  0              0                                                        SELECT
          19015    2       197     58   1  0              0        197     'INDEX'             USE'INDEX'DATA TO   SUBTRACT
          19016    71      190      3   0  0              0        190     >NO                 SEE IF PROGM ON TAPEJUMP IF A != 0
    19038>19017    80      132      2   0  0              0        132     READ A1>7                               ENTER SUBROUTINE
          19018    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          19019    C                0   0  0             48                                                        
    19037>19020            7        4   2  1              0                PROG ID                                 SELECT
          19021    2       197     20   0  0              0        197                                             SUBTRACT
          19022    71      190     26   0  0              0        190     >NOT END SIGN                           JUMP IF A != 0
          19023            197     84   0  0              0        197                                             SELECT
          19024    70      190      3   0  0              0        190     >INTERCODE FOUND,READTO'PASSI'          JUMP IF A == 0
          19025    76      190     48   0  0              0        190     >ALARM*02                               JUMP unconditional
    19022>19026    1       197     20   0  0              0        197                                             ADD
          19027    12               0   0  0           9001                GO EVEN FASTER MASTER ROUTINE           SUBTRACT LITERAL
          19028    71      190     37   0  0              0        190     >NOT                                    JUMP IF A != 0
          19029            7        8   2  1              0                                                        SELECT
          19030    70      190     34   0  0              0        190     >INTERCODE                              JUMP IF A == 0
          19031            7       10   2  1              0                IDENTIFIER                              SELECT
          19032    84      645      2   0  0              0        645                                             SET SWITCH(ES) AT VARIABLE VALUE
          19033    76      190     37   0  0              0        190                                             JUMP unconditional
    19030>19034    5       197     84   0  0              0        197     SET'PROGRAM TAPE'                       TRANSFER
          19035            7       10   2  1              0                STORE INDEX                             SELECT
          19036    5       152     27   0  0              0        152     IDENTIFIER                              TRANSFER
    19033>                                                                                                         
    19028>19037    94      190     20   0  1              8        190                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          19038    76      190     17   0  0              0        190     >NEXT BLOCK                             JUMP unconditional
    19013>19039    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          19040            7        4   2  0              0                                                        SELECT
          19041    12               0   0  0           9001                                    GEFM                SUBTRACT LITERAL
          19042    71      190      3   0  0              0        190     >NO                                     JUMP IF A != 0
          19043    10               0   0  0           9001                                    GEFM                SELECT LITERAL
          19044    5       40       4   2  0              0                                                        TRANSFER
          19045            7        6   2  0              0                                                        SELECT
          19046    5       40       6   2  0              0                                                        TRANSFER
          19047    82      190      2   0  0              0        190     MATCH FOUND                             END OF SUBROUTINE / LEAVE SUBROUTINE
    19025>                                                                                                         
    19007>                                                                                                         
    10329>19048    41      A1       0   0  0              1                                                        CLOSE FILE
          19049    10               0   0  0              1                                                        SELECT LITERAL
          19050    5       197     84   0  0              0        197                                             TRANSFER
          19051    84      645      2   0  0              0        645     CLEAR                                   SET SWITCH(ES) AT VARIABLE VALUE
          19052    150              0   0  0              2                                    ALARM  *02          OFFER OPTIONS
          19053    C       190     58   0  0              0        190     >UNLOAD                                 
  Source image: P1030195.JPG
          19054    C       190     56   0  0              0        190     >TRY NEW INPUT TAPE                     
          19055    C       170      9   0  0              0        170     >REENTER                                
    19054>19056    80      191      2   0  0              0        191     >OPEN A1                                ENTER SUBROUTINE
          19057    76      190      3   0  0              0        190     >TRY AGAIN                              JUMP unconditional
    19053>                                                                                                         
    17007>                                                                                                         
    16804>                                                                                                         
    13103>19058    151              0   0  0              0                                                        UNLOAD PROGRAMME
                                                                                                                   
          19100    PROCR   191       191     OPEN A1                                                               
          19102    81      191      2   0  0              0        191                                             START OF SUBROUTINE
          19103    40      A1       0   0  0              1                                                        OPEN FILE
          19104    82      191      2   0  0              0        191                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19200    PROCR   192       192     STORE ADJUST DETAIL                                                   
          19202    81      192      2   0  0              0        192                                             START OF SUBROUTINE
          19203            17       3   0  0              0                                                        SELECT
          19204    101            900   1  2              0                                                        subtract literal address
          19205    72      192     28   0  0              0        192     >TOO MANY SPACES                        JUMP IF A >= 0
          19206    10               0   0  0              0                                                        SELECT LITERAL
          19207    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          19208    36      17      14   0  0              0                                                        COLLATE AND ADD
          19209    5       190      2   0  0              0        190     ITEM                                    TRANSFER
          19210            17      14   0  0              0                                                        SELECT
          19211    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          19212    80      194      2   0  0              0        194                                             ENTER SUBROUTINE
          19213    5       193      2   0  0              0        193     BIN REF                                 TRANSFER
          19214    124     193      2   0  1              0        193                                             modify address of next
          19215            6      100-  0  0              0                UPDATED REF                             SELECT
          19216    80      195      2   0  0              0        195     >TO DEC                                 ENTER SUBROUTINE
          19217    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          19218    1       190      2   0  0              0        190                                             ADD
          19219    124     17       3   0  1              0                                                        modify address of next
          19220    5       19       0   0  0              0                LOCN OF ADJUSTMENT                      TRANSFER
          19221    0       17      15   0  0              0                                                        SELECT
          19222    124     17       3   0  1              0                                                        modify address of next
          19223    5       19       1   0  0              0                QUANTITY                                TRANSFER
          19224    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19225    10               0   0  0              2                                                        SELECT LITERAL
          19226    4       17       3   0  0              0                STEP CTR                                AUGMENT
          19227    60               0   0  0              0                                                        SET DECIMAL RADIX
    19205>19228    82      192      2   0  0              0        192                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19300    PROCR   193       193     SR TO READ PT AND TEST END                                            
          19302    81      193      2   0  0              0        193                                             START OF SUBROUTINE
          19303    100     17      22   1  0              0                                                        copy registers
          19304    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          19305    82      139      2   0  0              0        139     >FETCH                                  END OF SUBROUTINE / LEAVE SUBROUTINE
    13906>19306    100     17      22   1  1              0                                                        replace registers
          19307    0       5        0   1  0              0                                                        SELECT
          19308    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          19309    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          19310    2       197     56   1  0              0        197     'END  '                                 SUBTRACT
          19311    82      193      2   0  0              0        193     (A)=0 IF END                            END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19400    PROCR   194       194     CONVERT TO BIN                                                        
          19402    81      194      2   0  0              0        194                                             START OF SUBROUTINE
          19403    5       197     42   1  0              0        197                                             TRANSFER
          19404    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          19405    124     197     22   0  2              0        197                                             select literal and division
  Source image: P1030196.JPG
          19406    112     197     42   1  0              0        197                                             convert
          19407    82      194      2   0  0              0        194                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19500    PROCR   195       195     CONVERT TO DEC                                                        
          19502    81      195      2   0  0              0        195                                             START OF SUBROUTINE
          19503    5       197     42   1  0              0        197                                             TRANSFER
          19504    60               0   0  0              0                                                        SET DECIMAL RADIX
          19505    124     197      2   0  2              0        197                                             select literal and division
          19506    112     197     42   1  0              0        197                                             convert
          19507    82      195      2   0  0              0        195                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19600    PROCR   196       196     UNPACK AMEND HEADING, GET TO PROGM START                              
          19602    81      196      2   0  0              0        196                                             START OF SUBROUTINE
          19603    51      5        0   0  0              0                                                        UNPACK VARIABLE FIELD DATA
          19604    C       199     10   0  0              0        199                                             
          19605            4        2   0  0              0                SUITE                                   SELECT
          19606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          19607    1       4        3   0  0              0                JOB                                     ADD
          19608    3       4        2   0  0              0                                                        COPY
          19609    5       17      28   0  0              0                PROG ID                                 TRANSFER
          19610            4        4   0  0              0                PROG                                    SELECT
          19611    5       17      29   0  0              0                                                        TRANSFER
          19612    82      196      2   0  0              0        196                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19700    CONST   197       197     1    CONVERT TABLES                                                   
          19702          (D)1;                                             BIN>DEC                                 
          19704          16;                                                                                       
          19706          256;                                                                                      
          19708          4096;                                                                                     
          19710          65536;                                                                                    
          19712          1048576;                                                                                  
          19714          16777216;                                                                                 
          19716          268435456;                                                                                
          19718          4294967296;                                                                               
          19720          ££££££££££;                                                                               
          19722          1;                                                DEC>BIN                                 
          19724          Ю;                                                                                        
          19726          64;                                                                                       
          19728          3.8;                                                                                      
          19730          2710;                                                                                     
          19732          186Ю0;                                                                                    
          19734          £4240;                                                                                    
          19736          989680;                                                                                   
          19738          5£5.100;                                                                                  
          19740          3‼9Ю+Ю00;                                                                                 
          19742          0;                                                WL(A)                                   
          19744          (A)PROGM;                                                                                 
          19746          (A)PROCR;                                                                                 
          19748          (A)TABLE;                                                                                 
          19750          (A)CONST;                                                                                 
          19752          AMEND;                                                                                    
          19754          (A)PASSI;                                                                                 
          19756          (A)END  ;                                                                                 
          19758          (A)INDEX;                                                                                 
          19760          FINIS;                                                                                    
          19762          (D)0000005.5.;                                    DOUBLE LINE END                         
          19764          (D)3££;                                           BITS1-10                                
          19766          (D)6£6£6£6£6£;                                                                            
          19768          (A)INDEX;                                                                                 
          19770          £££££;                                                                                    
  Source image: P1030197.JPG
          19772          2;                                                                                        
          19774          CHAIN;                                                                                    
          19776          FIEND;                                                                                    
          19778          08004;                                                                                    
          19780          ALLOC;                                                                                    
          19782          ATED ;                                                                                    
          19784          EXTRA;                                                                                    
          19786          ROUTE;                                                                                    
          19788          (D)£8;                                            BITS 4-8                                
          19790          (D)0514908000;                                                                            
                                                                                                                   
          19800    TABLE   198       198     1    TYPE'AMEND'COMMENT                                               
          19802   197    78     0     0  2  0   5   0   0   0  0  0  0     '08000'                                 
          19804   197    52     0     0  2  0   5   0   2   0  0  0  0     'AMEND'                                 
          19806     4     2     0     0  0  0   5   0   2   0  0  0  0     PROG NO                                 
          19808     4     4     0     0  0  0   5   0   1   4  0  0  0     SERIAL NO                               
          19810   197    62     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          19812   197    78     0     0  2  0   5   0   0   0  0  0  0     '08000'                                 
          19814   197    80     0     0  2  0   5   0   1   0  0  0  0     'ALLOC'                                 
          19816   197    82     0     0  2  0   5   0   0   0  0  0  0     'ATED'                                  
          19818   197    84     0     0  2  0   5   0   0   0  0  0  0     'EXTRA'                                 
          19820   197    86     0     0  2  0   5   0   1   0  0  0  0     'ROUTE'                                 
          19822   197    42     0     0  0  0   2   3   2   1  0  0  0     CHANNEL                                 
          19824   184     2     0     0  0  0   1   4   0   0  0  0  0     ROUTE                                   
          19826   197    62     0     0  2  0   2   3   1   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          19900    TABLE   199       199     3    UNPACK PT OR CARD INPUT                                          
          19902     4     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIRECTIVE                     
          19904     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          19906     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          19908     4    16     0     0  0  0   1   0   0   0  0  0  1     /////TYPE OR(ANNOTATION+TYPE)           
          19910     4     6     0     0  2  0   5   0   0   0  0  0  0     'AMEND'                                 
          19912     4     2     0     0  0  0   3   0   0   0  0  0  0     SUITE                                   
          19914     4     3     0     0  0  0   2   0   0   0  0  0  0     JOB                                     
          19916     4     4     0     0  0  0   5   0   0   0  0  0  1     SERIAL                                  
          19918     4     2     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          19920     4     4     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE LETTER                        
          19922     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          19924     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          19926     4    16     0     0  0  0   1   0   0   0  0  0  1     TYPE                                    
                                                                                                                   
          20000    PROCR   200       200     START OF PASS1                                                        
          20001     NOTES                         TEST DID THE COMPILER READ IN THE TRANSLATOR                     SELECT
    32342>20002    152     200      4   0  0              0        200     CALL/ENTER PASS 2                       OVERLAY
          20003    C       326      6   0  0              0        326     (OVERLAY THE OLAY ORDER)                
          20004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          20005    101            512   0  1              0                Q10                                     prepare for digit collation
          20006    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          20007    10               0   0  0              0                                                        SELECT LITERAL
          20008    37      312      8   1  0              0        312     CLEAR BIT 40                            REPLACE SELECTED BITS
          20009    37      312     14   1  0              0        312     DO.                                     REPLACE SELECTED BITS
          20010            325      6   0  0              0        325                                             SELECT
          20011    3       23      46   0  0              0                SET 'PRINT PASS 2'                      COPY
          20012    5       325      3   0  0              0        325                                             TRANSFER
          20013    54      1        0   1  0             46                                                        BULK CLEAR
          20014    54      72       0   1  0            738                ALL SECNS PASS 2                        BULK CLEAR
          20015    83      100      5   0  0              1        100     SET 'PRINT PASS 3'                      SET SWITCH(ES) AT LITERAL VALUE
          20016    5       27       6   0  0              0                CLEAR 'PT OMITTED'                      TRANSFER
          20017    84      403      2   0  0              0        403                                             SET SWITCH(ES) AT VARIABLE VALUE
          20018    84      407      2   0  0              0        407                                             SET SWITCH(ES) AT VARIABLE VALUE
  Source image: P1030198.JPG
          20019    5       27       4   0  0              0                                                        TRANSFER
          20020    83      254      2   0  0              5        254     AMEND DIRECTIVE SWITCH                  SET SWITCH(ES) AT LITERAL VALUE
                                                                                                                   
          20100    PROCR   201       201     TEST INITIAL RUN                                                      
          20101     NOTES          RADIX                                                                           SELECT
          20102    40      A6       0   0  0              1                                                        OPEN FILE
          20103    54      12       0   1  0            120                                                        BULK CLEAR
          20104    10               0   0  0           6700                                                        SELECT LITERAL
          20105    5       12       3   0  0              0                ERROR LETTER'P'                         TRANSFER
          20106    80      292      2   0  0              0        292     >READ FIRST BLOCK                       ENTER SUBROUTINE
          20107    124     213      2   0  2              0        213                                             select literal and division
          20108    80      325      2   0  0              0        325     >UNPACK BLOCK                           ENTER SUBROUTINE
          20109    60               0   0  0              0                                                        SET DECIMAL RADIX
          20110    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          20111    5       1       16   1  0              0                CLEAR FOR INDS                          TRANSFER
          20112    5       1       18   1  0              0                                                        TRANSFER
          20113    124     213     12   0  2              0        213                                             select literal and division
          20114    80      325      2   0  0              0        325     >UNPACK 'AMEND' BLOCK AGAIN             ENTER SUBROUTINE
          20115    10               0   0  0              0                                                        SELECT LITERAL
          20116    34      1       16   0  0              0                PRINT INDS                              SET (N) IN B
          20117    36      317      2   0  0              0        317     BIT 2                                   COLLATE AND ADD
          20118    5       23      46   0  0              0                                                        TRANSFER
          20119            1       20   1  0              0                                                        SELECT
          20120    12               0   0  0     7300000000                                                        SUBTRACT LITERAL
          20121    71      201     24   0  0              0        201                                             JUMP IF A != 0
          20122    10               0   0  0              2                                                        SELECT LITERAL
          20123    76      201     25   0  0              0        201                                             JUMP unconditional
    20121>20124    10               0   0  0              0                                                        SELECT LITERAL
    20123>20125    5       27      12   0  0              0                0/2=PTS NO/YES                          TRANSFER
          20126    10               0   0  0              2-                                                       SELECT LITERAL
          20127    36      319      2   0  0              0        319     BIT 1                                   COLLATE AND ADD
          20128    84      100      5   0  0              0        100     SET AT 1 OR 2                           SET SWITCH(ES) AT VARIABLE VALUE
          20129    0       1       17   0  0              0                CHANGE TO ISSUE?                        SELECT
          20130    5       227      2   0  0              0        227     SR LINK                                 TRANSFER
          20131    0       1        4   0  0              0                SUITE                                   SELECT
          20132    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20133    1       1        6   0  0              0                                                        ADD
          20134    5       12       0   0  0              0                                                        TRANSFER
          20135    34      1        8   1  0              0                                                        SET (N) IN B
          20136    80      320      2   0  0              0        320     RIGHT ALIGN         PROGRAM SERIAL      ENTER SUBROUTINE
          20137    0       12      88   2  0              0                                                        SELECT
          20138    5       12       1   0  0              0                                                        TRANSFER
          20139    10               0   0  0              1                SET'AMEND RUN'                          SELECT LITERAL
          20140    3       92      30   0  0              0                                                        COPY
          20141    5       12       8   0  0              0                                                        TRANSFER
                                                                                                                   
          20200    PROCR   202       202                                                                           
          20201     NOTES          RADIX                                                                           SELECT
          20202    80      292      2   0  0              0        292     >READ A6                                ENTER SUBROUTINE
          20203    54      1        0   0  0             46                                                        BULK CLEAR
    20207>20204    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          20205    0       7        6   1  0              0                                                        SELECT
          20206    2       215     12   1  0              0        215     'PROGM'                                 SUBTRACT
          20207    71      202      4   0  0              0        202     >GET TO IT                              JUMP IF A != 0
          20208    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          20209    C       210      8   0  0              0        210                                             
          20210    55      7       20   1  0             30                COPY ANNOTATION                         BULK COPY
          20211    C       1       16   1  0              0                                                        
          20212    60               0   0  0              0                                                        SET DECIMAL RADIX
          20213    10               0   0  0              1                AUGMENT PROG SERIAL                     SELECT LITERAL
  Source image: P1030199.JPG
          20214    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          20215    36      1        8   2  0              0                                                        COLLATE AND ADD
          20216    37      1        8   2  0              0                NO CARRY AFTER 99                       REPLACE SELECTED BITS
                                                                                                                   
          20300    PROCR   203       203     OPEN O/P FILE, WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK           
          20301     NOTES  203                                                                                     SELECT
          20302    54      8        4   0  0             46                                                        BULK CLEAR
          20303    40      A2       0   0  0              0                OPEN FILE                               OPEN FILE
          20304    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          20305    84      212      2   0  0              0        212     SPOOL NUMBER>WL                         SET SWITCH(ES) AT VARIABLE VALUE
          20306    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20307    80      289      2   0  0              0        289     +2 BLANKS                               ENTER SUBROUTINE
          20308    55      318     30   1  0             10        318                                             BULK COPY
          20309    C       8        4   1  0              0                                                        
          20310    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20311            1        4   0  0              0                SUITE                                   SELECT
          20312    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20313    1       1        6   0  0              0                                                        ADD
          20314    3       12      32   0  0              0                WL=PROG IDENTITY                        COPY
          20315    3       8        4   2  0              0                                                        COPY
          20316    3       8       12   2  0              0                                                        COPY
          20317    0       1        8   2  0              0                PROG SERIAL                             SELECT
          20318    5       12       1   0  0              0                WL                  FOR REPORTS LAT     TRANSFER
          20319    0       227      2   0  0              0        227     NEW ISSUE WL                            SELECT
          20320    70      203     24   0  0              0        203     >NO CHANGE                              JUMP IF A == 0
          20321    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20322    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20323    37      12       1   0  0              0                REPLACE EXISTING ISSUE                  REPLACE SELECTED BITS
    20320>20324    52      1        8   0  0              0                                                        EDIT
          20325    C       210      6   0  0              0        210     RESTORE TD 1/8 WITH SIG ZEROS           
          20326    0       1        8   1  0              0                                                        SELECT
          20327    3       8        6   1  0              0                                                        COPY
          20328    5       8       14   1  0              0                                                        TRANSFER
          20329    10               0   0  0              2                INTERCODE IDENTIFIER                    SELECT LITERAL
          20330    5       8       10   2  0              0                                                        TRANSFER
          20331    10               0   0  0              3                MACHINE COSE IDENTIFIER                 SELECT LITERAL
          20332    3       8       18   2  0              0                                                        COPY
          20333    10               0   0  0              2                                                        SELECT LITERAL
          20334    1       27      12   0  0              0                0 OR 2                                  ADD
          20335    5       8       16   2  0              0                                                        TRANSFER
          20336            318     30   2  0              0        318                                             SELECT
          20337    5       8       20   2  0              0                                                        TRANSFER
          20338    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20339            12      32   0  0              0                                                        SELECT
          20340    5       8        4   2  0              0                PROG IDENTITY                           TRANSFER
          20341            1        8   1  0              0                                                        SELECT
          20342    5       8        6   1  0              0                PROG SERIAL                             TRANSFER
          20343    10               0   0  0                                                                       SELECT LITERAL
          20344    5       8        8   2  0              0                                                        TRANSFER
          20345            215     20   1  0              0        215     'PASSI'                                 SELECT
          20346    5       8       10   1  0              0                                                        TRANSFER
          20347    155              0   0  0              0                PROG SERIAL                             SELECT PROGRAM SERIAL TO A
          20348    3       8       12   1  0              0                'ISSUE 6'IND                            COPY
          20349    5       8       16   2  0              0                SET'MULTI-RECORD'                       TRANSFER
          20350    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20351            18    1155   0  0              0                                                        SELECT
          20352    5       318     23   0  0              0        318                                             TRANSFER
          20353    55      18    1110   0  0             23                1ST PROCR LENGTH BLOCK                  BULK COPY
          20354    C       8        4   2  0              0                                                        
          20355    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
  Source image: P1030200.JPG
          20356    55      18    1133   0  0             23                2ND PROCR LENGTH BLOCK                  BULK COPY
          20357    C       8        4   2  0              0                                                        
          20358    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20359    52      8        4   0  0              0                                                        EDIT
          20360    C       210      8   0  0              0        210                                             
          20361    55      1       16   1  0             30                COPY ANNOTATION                         BULK COPY
          20362    C       8       20   1  0              0                                                        
          20363    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          20364    0       316      5   0  0              0        316     ABS ADDRESS 18:2496                     SELECT
          20365    5       92       9   0  0              0                                                        TRANSFER
          20366    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          20400    PROCR   204       204     DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS                         
          20401     NOTES  204                                                                                     SELECT
          20402    80      291      2   0  0              0        291     >READ 'ENTRY' EX MT                     ENTER SUBROUTINE
          20403    10               0   0  0              0                                                        SELECT LITERAL
          20404    5       7       46   1  0              0                CLEAR REPORT WORDS                      TRANSFER
          20405    5       7       48   1  0              0                                                        TRANSFER
          20406    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          20407    80      207      2   0  0              0        207     >WRITE                                  ENTER SUBROUTINE
          20408    80      291      2   0  0              0        291     >READ                                   ENTER SUBROUTINE
          20409    55      7        8   2  0             30                                                        BULK COPY
          20410    C       12      13   0  0              0                                    MT 'CHAPS' UNAM     
          20411    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          20412            12      13   0  0              0                NUMBER OF CARDS                         SELECT
          20413    80      248      2   0  0              0        248     >TO BIN                                 ENTER SUBROUTINE
          20414    5       12      13   0  0              0                                                        TRANSFER
          20415    55      12      14   0  0             14                                                        BULK COPY
          20416    C       7       10   2  0              0                                                        
          20417    55      7        4   1  0             34                COPY ANNEXES                            BULK COPY
          20418    C       8        4   1  0              0                                                        
          20419    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
                                                                                                                   
          20500    PROCR   205       205     PREPARE TO PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION      
          20501     NOTES  205                                                                                     SELECT
          20502    10               0   0  0                                                                       SELECT LITERAL
          20503    5       18    2498   1  0              0                LIST END SIGN                           TRANSFER
          20504    5       18    2496   1  0              0                CLEAR FIRST ENTRY                       TRANSFER
          20505    83      267      2   0  0              1        267     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          20506    0       12      13   0  0              0                NO OF CHAPS                             SELECT
          20507    80      247      2   0  0              0        247     >TO DEC                                 ENTER SUBROUTINE
          20508    5       215      8   0  0              0        215                                             TRANSFER
          20509    10               0   0  0           7200                                                        SELECT LITERAL
          20510    5       12       3   0  0              0                ERROR LETTER S                          TRANSFER
          20511    10               0   0  0             99                                                        SELECT LITERAL
          20512    5       92       3   0  0              0                FIRST PROCR-1                           TRANSFER
          20513    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20514    C                0   0  0             14                TO STORE CHAPTER ENDS                   
          20515    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          20516    91      12      12   0  3              0                C:0                                     SET MODIFICATION REGISTER AT VARIABLE
    20519>20517    11               0   0  0              1                                                        ADD LITERAL
          20518    3       92      10   0  3              0                STORE UNCORRECTED CHAP NUMBERS          COPY
          20519    94      205     17   0  3              1        205                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          20520    60               0   0  0              0                                                        SET DECIMAL RADIX
          20521    10               0   0  0           1001                                                        SELECT LITERAL
          20522    5       12       9   0  0              0                SET FIRST SECTION SERIAL NUMBER         TRANSFER
                                                                                                                   
          20600    PROCR   206       206     DEAL WITH UNAMENDED SECTION LINE                                      
          20602    80      208      2   0  0              0        208     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          20603    80      209      2   0  0              0        209     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
  Source image: P1030201.JPG
          20604    76      217      2   0  0              0        217                                             JUMP unconditional
                                                                                                                   
          20700    PROCR   207       207                                                                           
          20702    81      207      2   0  0              0        207                                             START OF SUBROUTINE
          20703    43      A2       0   0  0              0                                                        OUTPUT
          20704    C       7        0   0  0              0                                                        
          20705    82      207      2   0  0              0        207                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20800    PROCR   208       208     TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION                   
          20802    81      208      2   0  0              0        208                                             START OF SUBROUTINE
          20803    80      294      2   0  0              0        294     >TEST AMEND DIRECTIVE/END               ENTER SUBROUTINE
          20804    70      208      8   0  0              0        208     >NO                                     JUMP IF A == 0
          20805    10               0   0  0              1                                                        SELECT LITERAL
          20806    5       12      45   0  0              0                                                        TRANSFER
          20807    10               0   0  0              1                                                        SELECT LITERAL
    20804>20808    82      208      2   0  0              0        208     (A)=0 IF NOT DIRECTIVE                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20900    PROCR   209       209     TEST MT AT START OF CODING                                            
          20902    81      209      2   0  0              0        209                                             START OF SUBROUTINE
          20903            27       1   0  0              0                                                        SELECT
          20904    70      209      8   0  0              0        209     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          20905            7       12   1  0              0                DIRECTIVE WORD                          SELECT
    20909>20906    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          20907    82      209      2   0  0              0        209                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20904>20908            7       10   1  0              0                                                        SELECT
          20909    76      209      6   0  0              0        209                                             JUMP unconditional
                                                                                                                   
          21000    TABLE   210       210     1    UNPACK/EDIT PROG HEADING+FILES+CHAPS+SECTIONS                    
          21001     NOTES                                                                                          
          21002     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          21004     1     2     0     0  2  0   5   0   0   0  0  0  1     'CHAPS'                                 
          21006    12     1     0     0  0  0   5   0   0   4  0  0  1     FOR UPDATED SERIAL                      
          21008     1     0     0     0  0  0   5   0   0   5  0  0  0                                             
          21010     1     2     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          21012     1     4     0     0  0  0   5   0   0   5  0  0  0                                             
          21014     1     6     0     0  0  0   5   0   0   4  0  0  0                                             
          21016     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL/CODER                            
          21018     1    10     0     0  1  0  10   0   0  10  0  0  0     (SPACER)                                
          21020     1    10     0     0  0  0   5   0   0   5  0  0  1     (SPACER)                                
                                                                                                                   
          21100    PROCR   211       211     ERROR REPORT SR                                                       
          21102    81      211      2   0  0              0        211                                             START OF SUBROUTINE
          21103    5       12       4   0  0              0                                                        TRANSFER
          21104    91      12       2   0  3              0                CTR                                     SET MODIFICATION REGISTER AT VARIABLE
          21105            318      8   1  0              0        318     '*'                                     SELECT
          21106    1       12       4   0  0              0                REPORT NUMBER                           ADD
          21107    1       12       3   0  0              0                REPORT LETTER                           ADD
          21108    5       1       38   1  3              0                                                        TRANSFER
          21109    12               0   0  0              2                                                        SUBTRACT LITERAL
          21110    4       12       2   0  0              0                REDUCE CTR                              AUGMENT
          21111    10               0   0  0              0                                                        SELECT LITERAL
          21112    82      211      2   0  0              0        211                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21200    PROCR   212       212     REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS                      
          21202    81      212      2   0  0              0        212     (12/119=DEC PROCR)                      START OF SUBROUTINE
          21203            12     119   0  0              0                                                        SELECT
          21204    80      248      2   0  0              0        248     >BIN                                    ENTER SUBROUTINE
          21205    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          21206    5       319     42   1  0              0        319                                             TRANSFER
          21207    91      319     42   0  1              0        319                                             SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1030202.JPG
          21208    74      212     12   0  0              0        212     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          21209            18      50-  0  1              0                                                        SELECT
          21210    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          21211    76      212     14   0  0              0        212                                             JUMP unconditional
    21208>21212    34      318     20   0  0              0        318     BITS 1-10                               SET (N) IN B
          21213    36      18      50-  0  1              0                                                        COLLATE AND ADD
    21211>21214    80      247      2   0  0              0        247     >DEC                                    ENTER SUBROUTINE
          21215    82      212      2   0  0              0        212                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21300    TABLE   213       213     3                                                                     
          21302     1     2     0     0  2  0   5   0   0   0  0  0  0     PROGM/ENTRY                             
          21304     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO/ENTRY PT                       
          21306     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB/PRIORITY                            
          21308     1     8     0     0  2  0   5   0   0   0  0  0  0     SER,VERSION,BLANK/CODER                 
          21310     1    16     0     0  2  1   5   0   0   0  0  0  1     /////ANNOT/CHCKR                        
          21312     1     2     0     0  2  0   5   0   0   0  0  0  0     AMEND                                   
          21314     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE                                   
          21316     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB                                     
          21318     1     8     0     0  2  0   2   0   0   0  0  0  0     ISSUE/+SER/ISSUE                        
          21320     1    20     0     0  2  0   3   0   0   0  0  0  0     WORDS/SER                               
          21322     1    16     0     0  0  0   1   0   0   0  0  0  0     PRINT IND                               
          21324     1    17     0     0  0  0   3   0   0   0  0  0  0     ISSUE                                   
          21326     1    18     0     0  2  0   1   0   0   0  0  0  1     PTS(CARDS)                              
                                                                                                                   
          21400    TABLE   214       214     3    UNPACK CHAPS BLOCK                                               
          21401     NOTES                         FROM CARDS                                                       
          21402     1     2     0     0  2  0   5   0   0   0  0  0  0     'CHAPS'                                 
          21404     1     4     0     0  0  0   2   0   0   0  0  0  0     NO OF CHAPS                             
          21406     1     5     0     0  0  0   3   0   0   0  0  0  0     1-ST START                              
          21408     1     6     0     0  0  0   3   0   0   0  0  0  0     2-ND START                              
          21410     1     7     0     0  0  0   3   0   0   0  0  0  0                                             
          21412     1     8     0     0  0  0   3   0   0   0  0  0  0                                             
          21414     1     9     0     0  0  0   3   0   0   0  0  0  0                                             
          21416     1    10     0     0  0  0   3   0   0   0  0  0  0                                             
          21418     1    11     0     0  0  0   3   0   0   0  0  0  0                                             
          21420     1    12     0     0  0  0   3   0   0   0  0  0  0                                             
          21422     1    13     0     0  0  0   3   0   0   0  0  0  0                                             
          21424     1    14     0     0  0  0   3   0   0   0  0  0  0     10-TH START                             
          21426     1    15     0     0  0  0   3   0   0   0  0  0  0                                             
          21428     1    16     0     0  0  0   3   0   0   0  0  0  0                                             
          21430     1    17     0     0  0  0   3   0   0   0  0  0  0                                             
          21432     1    18     0     0  0  0   3   0   0   0  0  0  1     14-TH START                             
                                                                                                                   
          21500    CONST   215       215     1    FUNCTIONAL                                                       
          21502          (D)100099;                                        UPPER/LOWER LIM SEC NUMBER              
          21504          4096;                                             DO LENGTH                               
          21506          1;                                                DO TX AREA IND                          
          21508          0;                                                DO CHAP NO                              
          21510          1£1£1£1£1£;                                                                               
          21512          (A)PROGM;                                                                                 
          21514          ENTRY;                                                                                    
          21516          AMEND;                                                                                    
          21518          CHAPS;                                                                                    
          21520          PASSI;                                                                                    
          21522          STORE;                                                                                    
                                                                                                                   
          21600    CONST   216       216     1    DUMMY                                                            
          21602          (B)0;                                                                                     
          21604          ;                                                                                         
          21606          ;                                                                                         
  Source image: P1030203.JPG
          21608          ;                                                                                         
          21610          ;                                                                                         
                                                                                                                   
          21700    PROCR   217       217     MAIN LOOP-DEAL WITH INITIAL TRANSLATION                               
          21701     NOTES          RADIX                                                                           SELECT
    20604>21702    55      18       0   0  0           1110                                                        BULK COPY
          21703    C       93       0   0  0              0                                                        
          21704    55      25       0   0  0            240                                                        BULK COPY
          21705    C       93    1110   0  0              0                                                        
          21706    83      222      2   0  0              2        222     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          21707    10               0   0  0              1                                                        SELECT LITERAL
          21708    5       27       5   0  0              0                UNPACK SWITCH                           TRANSFER
          21709    0       92      30   0  0              0                                                        SELECT
          21710    3       12       8   1  0              0                (CLEAR 12/9)                            COPY
    21711>21711    70      217     11   0  0              0        217                                             JUMP IF A == 0
          21712    59      7        6   0  8              0                SET I/P MR                              SET MODIFICATION REGISTER FOR MERGE
          21713    C       7        4   2  0              0                                                        
          21714    76      253      2   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          21800    PROCR   218       218     START OF CHECK/EDIT/OUTPUT SR                                         
          21801     NOTES          RADIX                                                                           SELECT
          21802    81      218      2   0  0              0        218                                             START OF SUBROUTINE
          21803            12      38   0  0              0                STACKING DIRECTIVE?                     SELECT
          21804    70      222      2   0  0              0        222     NO                                      JUMP IF A == 0
          21805    72      222      2   0  0              0        222     >'NOTES' BLOCK                          JUMP IF A >= 0
          21806            12      61   0  0              0                C-LINE MUST FOLLOW  SHOULD THIS         SELECT
          21807    70      218      9   0  0              0        218     INDCATOR            BE A C-LINE         JUMP IF A == 0
          21808    80      296      2   0  0              0        296     IGNORE THIS INSTRUCTION                 ENTER SUBROUTINE
    21807>21809            12      54   0  0              0                                    EXCEPT FOR          SELECT
          21810    12               0   0  0             55                                    ACTION 85,CLEAR     SUBTRACT LITERAL
          21811    70      218     14   0  0              0        218                         C-LINE MAY          JUMP IF A == 0
          21812    10               0   0  0              0                                    FOLLOW INDICATOR    SELECT LITERAL
          21813    5       12      60   1  0              0                                                        TRANSFER
    21811>21814    5       12       9   0  0              0                                                        TRANSFER
          21815    5       12      43   0  0              0                CLEAR LINE INCREMENT FOR'SER'CHECKS     TRANSFER
          21816            27       5   0  0              0                                                        SELECT
          21817    12               0   0  0              4                                                        SUBTRACT LITERAL
          21818    70      219     34   0  0              0        219     >VALUE(DIRECTIVE OR DATA)               JUMP IF A == 0
          21819            92       3   0  0              0                                                        SELECT
          21820    11               0   0  0              1                FORM TRANSLATORS PROCR                  ADD LITERAL
          21821    3       92       3   0  0              0                                                        COPY
          21822    3       12       0   0  0              0                                                        COPY
          21823    5       12       4   0  0              0                                                        TRANSFER
                                                                                                                   
          21900    PROCR   219       219     TEST NEW CHAPTER                                                      
          21901     NOTES          RADIX                                                                           SELECT
          21902            1        8   2  0              0                                                        SELECT
          21903    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          21904    3       1       14   0  0              0                B/FWD PROCR                             COPY
          21905    2       92       3   0  0              0                                                        SUBTRACT
          21906    70      219      9   0  0              0        219     >OK PASS 0 HASN'T BOOBED                JUMP IF A == 0
          21907            318     40   1  0              0        318     '????R'                                 SELECT
          21908    5       1       44   1  0              0                                                        TRANSFER
    21906>21909    52      1        8   0  0              0                EDIT NEW PROCR                          EDIT
          21910    C       306      2   0  0              0        306                                             
          21911            1       14   0  0              0                OLD                                     SELECT
          21912    2       12       4   0  0              0                NEW                                     SUBTRACT
          21913    70      219     15   0  0              0        219     >PROCR DOESN T CHANGE                   JUMP IF A == 0
          21914    80      220      2   0  0              0        220     >SET'PRINT PROCR'                       ENTER SUBROUTINE
    21913>21915            92       3   0  0              0                                                        SELECT
  Source image: P1030204.JPG
          21916    12               0   0  0            100                                                        SUBTRACT LITERAL
          21917    71      219     21   0  0              0        219     >NOT FIRST TIME THROUGH                 JUMP IF A != 0
          21918    0       12       0   0  0              0                FIRST CODERS PROCR                      SELECT
          21919    5       12      14   0  0              0                SET AS FIRST CHAP START                 TRANSFER
          21920    76      219     29   0  0              0        219                                             JUMP unconditional
    21917>21921            12      14   0  4              0                                                        SELECT
          21922    2       12       0   0  0              0                                                        SUBTRACT
          21923    71      219     34   0  0              0        219     >THIS PROCR IS NOT A CHAPTER START      JUMP IF A != 0
          21924            92       3   0  0              0                                                        SELECT
          21925    12               0   0  0              1                                                        SUBTRACT LITERAL
          21926    80      248      2   0  0              0        248     >CHAP END IN BIN                        ENTER SUBROUTINE
          21927    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          21928    4       92       9   0  4              0                STORE CHAP END POINT                    AUGMENT
    21920>21929    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          21930    10               0   0  0              1                                                        SELECT LITERAL
          21931    4       92       0   0  0              0                STEP UNCORR CHAP IN BIN                 AUGMENT
          21932    60               0   0  0              0                                                        SET DECIMAL RADIX
          21933    94               0   0  4              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    21923>                                                                                                         
    21818>21934    83      222      2   0  0              1        222     SET CHECK SWITCH FOR DIRECTIVES         SET SWITCH(ES) AT LITERAL VALUE
          21935    76      222      2   0  0              0        222                                             JUMP unconditional
                                                                                                                   
          22000    PROCR   220       220     SET IND IN SEC 23 IF PROCR TO BE PRINTED                              
          22002    81      220      2   0  0              0        220                                             START OF SUBROUTINE
          22003            92       3   0  0              0                CURRENT PROCR                           SELECT
          22004    80      248      2   0  0              0        248     >BIN                                    ENTER SUBROUTINE
          22005    19               0   0  0             14                                                        DIVIDE LITERAL
          22006    5       319     42   0  0              0        319                                             TRANSFER
          22007    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          22008    5       319     43   0  0              0        319     REMAINDER                               TRANSFER
          22009    34      319     22   0  0              0        319     1                                       SET (N) IN B
          22010    124     319     43   0  1              0        319                                             modify address of next
          22011    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          22012            319     20   0  0              0        319     £X5                                     SELECT
          22013    124     319     42   0  1              0        319                                             modify address of next
          22014    37      23       5-  0  0              0                SET BIT                                 REPLACE SELECTED BITS
          22015    60               0   0  0              0                                                        SET DECIMAL RADIX
          22016    82      220      2   0  0              0        220                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22100    PROCR   221       221     CHECK FOR B/FWD ERROR REPORT                                          
          22101     NOTES  221                                                                                     SELECT
          22102    81      221      2   0  0              0        221                                             START OF SUBROUTINE
          22103            1       42   1  0              0                LAST 5 CHARS OF ANNOTATION              SELECT
          22104    2       318     26   1  0              0        318     '?????'                                 SUBTRACT
          22105    70      221     12   0  0              0        221                                             JUMP IF A == 0
          22106            1       42   1  0              0                                                        SELECT
          22107    12               0   0  0     5£5£5£5£5£                FIVE SQUARES                            SUBTRACT LITERAL
          22108    70      221     12   0  0              0        221                                             JUMP IF A == 0
          22109            1       42   1  0              0                                                        SELECT
          22110    2       318     24   1  0              0        318     'SHEET'                                 SUBTRACT
          22111    71      221     13   0  0              0        221                                             JUMP IF A != 0
    22108>                                                                                                         
    22105>22112    5       1       42   1  0              0                CLEAR OUT REPORT                        TRANSFER
    22111>22113    82      221      2   0  0              0        221                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22200    PROCR   222       222     SWITCH B                                                              
          22201     NOTES          RADIX                                                                           SELECT
    21935>                                                                                                         
    21805>                                                                                                         
    21804>22202    80      221      2   0  0              0        221     >DELETE B/FWD ERROR REPORTS             ENTER SUBROUTINE
  Source image: P1030205.JPG
    23312>22203            12      33   0  0              0                                                        SELECT
          22204    70      222      9   0  0              0        222     >EX MT                                  JUMP IF A == 0
          22205            92      30   0  0              0                                                        SELECT
          22206    70      222      9   0  0              0        222                                             JUMP IF A == 0
          22207    80      220      2   0  0              0        220     >SET'PRINT PROCR'                       ENTER SUBROUTINE
          22208    10               0   0  0              0                                                        SELECT LITERAL
    22206>                                                                                                         
    22204>22209    85      222      2   0  0              0        222                                             SWITCH R
          22210    C       231      2   0  0              0        231     STACKING DIRECTIVE                      
          22211    C       236      2   0  0              0        236     INSTRUCTIONS                            
          22212    C       276      2   0  0              0        276     TABLES                                  
          22213    C       260      2   0  0              0        260     CONSTANTS                               
          22214    85      173      2   0  0              0        173                                             SWITCH R
          22215    C       249      2   0  0              0        249     >LAST REF/ITEM CORRECT                  
          22216    C       222     17   0  0              0        222     >LAST REF/ITEM IGNORED                  
    22216>22217    80      225      2   0  0              0        225     REPORT R                                ENTER SUBROUTINE
          22218    80      295      2   0  0              0        295     IGNORE THIS LINE                        ENTER SUBROUTINE
          22219    76      249      2   0  0              0        249     >EDIT AND O/P                           JUMP unconditional
                                                                                                                   
          22300    PROCR   223       223     ERROR REPORT OF D                                                     
          22301     NOTES  223                                                                                     SELECT
          22302    81      223      2   0  0              0        223                                             START OF SUBROUTINE
          22303    10               0   0  0             54                D                                       SELECT LITERAL
          22304    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22305    82      223      2   0  0              0        223                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22400    PROCR   224       224     ERROR REPORT OF M                                                     
          22401     NOTES  224                                                                                     SELECT
          22402    81      224      2   0  0              0        224                                             START OF SUBROUTINE
          22403    10               0   0  0             64                M                                       SELECT LITERAL
          22404    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22405    82      224      2   0  0              0        224                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22500    PROCR   225       225     ERROR REPORT OF R                                                     
          22501     NOTES  225                                                                                     SELECT
          22502    81      225      2   0  0              0        225                                             START OF SUBROUTINE
          22503    10               0   0  0             69                                                        SELECT LITERAL
          22504    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22505    82      225      2   0  0              0        225                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22600    PROCR   226       226     ERROR REPORT OF I                                                     
          22601     NOTES  226                                                                                     SELECT
          22602    81      226      2   0  0              0        226                                             START OF SUBROUTINE
          22603    10               0   0  0             59                I                                       SELECT LITERAL
          22604    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22605    82      226      2   0  0              0        226                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22700    PROCR   227       227     ERROR REPORT OF L                                                     
          22701     NOTES  227                                                                                     SELECT
          22702    81      227      2   0  0              0        227                                             START OF SUBROUTINE
          22703    10               0   0  0             63                L                                       SELECT LITERAL
          22704    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22705    82      227      2   0  0              0        227                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          22800    PROCR   228       228     ERROR REPORT OF T                                                     
          22801     NOTES  228                                                                                     SELECT
          22802    81      228      2   0  0              0        228                                             START OF SUBROUTINE
          22803    10               0   0  0             73                T                                       SELECT LITERAL
          22804    80      229      2   0  0              0        229                                             ENTER SUBROUTINE
          22805    82      228      2   0  0              0        228                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030206.JPG
          22900    PROCR   229       229     MAKE ERROR REPORT                                                     
          22901     NOTES  229                                                                                     SELECT
          22902    81      229      2   0  0              0        229                                             START OF SUBROUTINE
          22903    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          22904            1       44   1  0              0                TEST REPORT ALREADY MADE                SELECT
          22905    30               0   0  0              2-               WITH '????'                             SHIFT (A) BY QUARTETS
          22906    12               0   0  0       5:5:5:5:                                                        SUBTRACT LITERAL
          22907    70      229     16   0  0              0        229     >YES,DON T CORRUPT IT                   JUMP IF A == 0
          22908    10               0   0  0              0                                                        SELECT LITERAL
          22909    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          22910    124     12     115   1  2              0                                                        modify address of next
          22911    30               0   0  0              0                /////                                   SHIFT (A) BY QUARTETS
          22912    4       1       44   1  0              0                                                        AUGMENT
          22913    10               0   0  0              2                                                        SELECT LITERAL
          22914    1       12     115   0  0              0                                                        ADD
          22915    5       12     115   0  0              0                                                        TRANSFER
    22907>22916    82      229      2   0  0              0        229                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23000    PROCR   230       230     ADJUST SR-ISSUE 6 O/P                                                 
          23002    81      230      2   0  0              0        230                                             START OF SUBROUTINE
          23003    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          23004    C                0   0  0            900                                                        
          23005    10               0   0  0              0                (12/58)=SERIAL TO BE ADJUSTED           SELECT LITERAL
          23006    5       12      46   0  0              0                CLEAR FOR TOTAL ADJUSTMENT              TRANSFER
          23007    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          23008    36      12      58   0  0              0                                                        COLLATE AND ADD
          23009    5       12      30   0  0              0                PROCR                                   TRANSFER
    23022>23010    36      97       0   0  1              0                                                        COLLATE AND ADD
          23011    70      230     23   0  0              0        230     >END                                    JUMP IF A == 0
          23012    2       12      30   0  0              0                                                        SUBTRACT
          23013    73      230     21   0  0              0        230     >SEARCH                                 JUMP IF A < 0
          23014    71      230     23   0  0              0        230     >END                                    JUMP IF A != 0
          23015            97       0   0  1              0                                                        SELECT
          23016    2       12      58   0  0              0                                                        SUBTRACT
          23017    70      230     19   0  0              0        230                                             JUMP IF A == 0
          23018    72      230     32   0  0              0        230     >NEXT ADJUST POINT IN PROCR IS LATER    JUMP IF A >= 0
    23017>23019            97       1   0  1              0                                                        SELECT
          23020    4       12      46   0  0              0                                                        AUGMENT
    23013>23021    10               0   0  0              0                                                        SELECT LITERAL
          23022    94      230     10   0  1              2        230                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23034>                                                                                                         
    23037>                                                                                                         
    23014>                                                                                                         
    23011>23023    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          23024            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          23025    36      12      58   0  0              0                                                        COLLATE AND ADD
          23026    3       12      58   0  0              0                NEW ITEM                                COPY
          23027    12               0   0  0            100                                                        SUBTRACT LITERAL
          23028    73      230     31   0  0              0        230     '????I'                                 JUMP IF A < 0
          23029            318     42   1  0              0        318     REPORT WRITTEN ITEM>99                  SELECT
          23030    5       1       44   1  0              0                                                        TRANSFER
    23028>23031    82      230      2   0  0              0        230     QUANTITY(+-)                            END OF SUBROUTINE / LEAVE SUBROUTINE
    23018>23032    1       97       1   0  1              0                >ADDRESS DELETED                        ADD
          23033    70      230     35   0  0              0        230     >NEXT IS INSERTION                      JUMP IF A == 0
          23034    72      230     23   0  0              0        230     '????DELTA'                             JUMP IF A >= 0
    23033>23035            318     44   1  0              0        318                                             SELECT
          23036    5       1       44   1  0              0                                                        TRANSFER
          23037    76      230     23   0  0              0        230                                             JUMP unconditional
                                                                                                                   
  Source image: P1030207.JPG
          23100    PROCR   231       231     DEAL WITH PROCR/TABLE/CONST                                           
          23101     NOTES          RADIX                                                                           SELECT
    22210>23102            1        6   1  0              0                                    TEST PROCR          SELECT
          23103    2       318      6   1  0              0        318     PROCR                                   SUBTRACT
          23104    71      231      7   0  0              0        231     NO                                      JUMP IF A != 0
          23105    5       12      90   1  0              0                                                        TRANSFER
          23106    76      249      2   0  0              0        249     FORM SERIAL NO.     AND OUTPUT          JUMP unconditional
    23104>23107            1        6   1  0              0                                    TEST TABLE          SELECT
          23108    2       318      2   1  0              0        318     TABLE                                   SUBTRACT
          23109    71      232      5   0  0              0        232     NO                                      JUMP IF A != 0
          23110    10               0   0  0         100001                SET LONG/SHORT      USED TO             SELECT LITERAL
          23111    5       12      90   1  0              0                COUNTER             STEP ON SERIAL      TRANSFER
          23112    34      1       16   1  0              0                TABLE TYPE                              SET (N) IN B
          23113    80      320      2   0  0              0        320     >RIGHT ALIGN                            ENTER SUBROUTINE
          23114    0       12      88   2  0              0                                                        SELECT
          23115    73      231     20   0  0              0        231     TABLE TYPE IS       NEGATIVE            JUMP IF A < 0
          23116    3       12      59   0  0              0                                                        COPY
          23117    70      231     20   0  0              0        231                                             JUMP IF A == 0
          23118    12               0   0  0              5                                                        SUBTRACT LITERAL
          23119    73      232      2   0  0              0        232                                             JUMP IF A < 0
    23117>                                                                                                         
    23115>23120    83      278      8   0  0              5        278     TABLE TYPE IS OUT   OF RANGE            SET SWITCH(ES) AT LITERAL VALUE
          23121    76      282     29   0  0              0        282                                             JUMP unconditional
                                                                                                                   
          23200    PROCR   232       232                                                                           
          23201     NOTES          RADIX                                                                           SELECT
    23119>23202    84      278      8   0  0              0        278     SET TABLE CHECKING                      SET SWITCH(ES) AT VARIABLE VALUE
          23203    C       12      59   0  0              0                SWITCH ACCORDING TO TYPE                
          23204    76      249      2   0  0              0        249     FORM SERIAL NO.     AND OUTPUT          JUMP unconditional
    23109>23205            1        6   1  0              0                                    TEST CONST          SELECT
          23206    2       318      4   1  0              0        318     CONST                                   SUBTRACT
          23207    71      232     25   0  0              0        232     >NO                                     JUMP IF A != 0
          23208    54      94      60   0  0             40                                                        BULK CLEAR
          23209    34      317      3   0  0              0        317     BIT 17                                  SET (N) IN B
          23210    36      1       16   2  0              0                                                        COLLATE AND ADD
          23211    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          23212    3       12      90   0  0              0                LONG/SHORT IND                          COPY
          23213    71      232     15   0  0              0        232     >LONG                                   JUMP IF A != 0
          23214    10               0   0  0             30                ALPHA ZERO                              SELECT LITERAL
    23213>23215    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          23216    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          23217    37      1       17   0  0              0                SET ALPHA 0 OR 1                        REPLACE SELECTED BITS
          23218    76      232     21   0  0              0        232                                             JUMP unconditional
          23219    10               0   0  0              1                                                        SELECT LITERAL
          23220    03      12      90   0  0              0                                                        COPY
    23218>23221    83      263      2   0  0              1        263     SAFETY VALUE                            SET SWITCH(ES) AT LITERAL VALUE
          23222    10               0   0  0              4                SET CHECK SWITCH                        SELECT LITERAL
          23223    84      222      2   0  0              0        222                                             SET SWITCH(ES) AT VARIABLE VALUE
          23224    76      249      2   0  0              0        249     >O/P                                    JUMP unconditional
    23207>23225    76      233      2   0  0              0        233     NOTES                                   JUMP unconditional
                                                                                                                   
          23300    PROCR   233       233     DEAL WITH NOTES                                                       
          23301     NOTES          RADIX                                                                           SELECT
    23225>23302            12      91   0  0              0                                                        SELECT
          23303    71      233      6   0  0              0        233                                             JUMP IF A != 0
          23304    10               0   0  0              2                FOR INSTRUCTIONS                        SELECT LITERAL
          23305    76      233      7   0  0              0        233                                             JUMP unconditional
    23303>23306    10               0   0  0              3                FOR TABLE ENTRIES                       SELECT LITERAL
    23305>23307    84      222      2   0  0              0        222     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          23308    2       12      38   0  0              0                DIRECTIVE IND FOR THIS LINE             SUBTRACT
  Source image: P1030208.JPG
          23309    73      249      2   0  0              0        249     >IS'NOTES'(IE>0)                        JUMP IF A < 0
          23310    10               0   0  0              2                                                        SELECT LITERAL
          23311    5       12       9   0  0              0                SET THIS LINE SERIAL                    TRANSFER
          23312    76      222      3   0  0              0        222     >TO CHECK SWITCH                        JUMP unconditional
                                                                                                                   
          23400    PROCR   234       234     REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI     
          23401     NOTES          RADIX                                                                           SELECT
          23402    81      234      2   0  0              0        234                                             START OF SUBROUTINE
          23403    34      1        8   1  0              0                REF                                     SET (N) IN B
          23404    80      320      2   0  0              0        320     >RIGHT ALIGN                            ENTER SUBROUTINE
    27507>23405    0       12      88   2  0              0                                                        SELECT
          23406    3       12       4   0  0              0                                                        COPY
          23407    12               0   0  0            100                                                        SUBTRACT LITERAL
          23408    73      234     25   0  0              0        234     >SECTION                                JUMP IF A < 0
          23409    12               0   0  0            899                                                        SUBTRACT LITERAL
          23410    72      234     25   0  0              0        234     >NOT REPLACEABLE (INCLUDES 999)         JUMP IF A >= 0
          23411            1       10   1  0              0                                                        SELECT
          23412    5       294      2   0  0              0        294     'PREVIOUS'ITEM                          TRANSFER
          23413    80      235      2   0  0              0        235     >CALC C/FWD ADDRESS                     ENTER SUBROUTINE
          23414            12      88   2  0              0                                    TEST IMPLICIT       SELECT
          23415    2       12       4   0  0              0                                    AMENDMENT           SUBTRACT
          23416    71      234     20   0  0              0        234     >CHANGE TO REF                          JUMP IF A != 0
          23417            1       10   1  0              0                                                        SELECT
          23418    2       294      2   0  0              0        294                                             SUBTRACT
          23419    70      234     21   0  0              0        234     >NO CHANGE TO ITEM                      JUMP IF A == 0
    23416>23420    80      220      2   0  0              0        220     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    23419>23421            12      88   2  0              0                                                        SELECT
          23422    5       12       4   0  0              0                NEW REF                                 TRANSFER
          23423    52      1        8   0  0              0                REPLACE REF-WITH ZEROS                  EDIT
          23424    C       306      2   0  0              0        306                                             
    23410>                                                                                                         
    23408>23425    82      234      2   0  0              0        234                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23500    PROCR   235       235     REPLACE AND ADJUST ADDRESS                                            
          23501     NOTES  235                                                                                     SELECT
          23502    81      235      2   0  0              0        235                                             START OF SUBROUTINE
          23503            12      88   2  0              0                REPLACE PROCR(NEW STYLE)                SELECT
          23504    3       12     118   0  0              0                                                        COPY
          23505    3       12     119   0  0              0                                                        COPY
          23506    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          23507    1       1       10   0  0              0                                                        ADD
          23508    5       12      58   0  0              0                                                        TRANSFER
          23509            1       10   1  0              0                                                        SELECT
          23510    73      235     14   0  0              0        235     >DONT ADJUST NEG ITEMS                  JUMP IF A < 0
          23511    80      230      2   0  0              0        230     >ADJUST SR(NEW STYLE)                   ENTER SUBROUTINE
          23512            12      58   0  0              0                NEW ITEM                                SELECT
          23513    5       1       10   0  0              0                                                        TRANSFER
    23510>23514    82      235      2   0  0              0        235                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          23600    PROCR   236       236     BEGIN CHECKS ON ACTION OR C-LINE                                      
          23601     NOTES          RADIX                                                                           SELECT
    22211>23602    80      234      2   0  0              0        234     >DEAL WITH ADDRESS OF INSTRUCTION       ENTER SUBROUTINE
          23603            12       4   0  0              0                NEW REF                                 SELECT
          23604    12               0   0  0            100                                                        SUBTRACT LITERAL
          23605    73      236     10   0  0              0        236                                             JUMP IF A < 0
          23606    12               0   0  0            899                                                        SUBTRACT LITERAL
          23607    72      236     10   0  0              0        236                                             JUMP IF A >= 0
          23608            12     118   0  0              0                PREVIOUS PROCR                          SELECT
          23609    5       1       22   0  0              0                                                        TRANSFER
    23607>                                                                                                         
  Source image: P1030209.JPG
    23605>23610            12      61   0  0              0                                                        SELECT
          23611    70      236     13   0  0              0        236                                             JUMP IF A == 0
          23612    80      296      2   0  0              0        296                                             ENTER SUBROUTINE
    23611>23613    34      1        6   1  0              0                                                        SET (N) IN B
          23614    80      320      2   0  0              0        320     RIGHT ALIGN ACTION                      ENTER SUBROUTINE
          23615    00      12      88   2  0              0                                                        SELECT
          23616    73      237      2   0  0              0        237     >NEGATIVE ACTION                        JUMP IF A < 0
          23617    12               0   0  0            100                                                        SUBTRACT LITERAL
          23618    73      237      2   0  0              0        237     >REJECT                                 JUMP IF A < 0
          23619    12               0   0  0             30                                                        SUBTRACT LITERAL
          23620    72      237      2   0  0              0        237                                             JUMP IF A >= 0
          23621    0       12      88   2  0              0                                                        SELECT
          23622    80      248      2   0  0              0        248     >TO BIN                                 ENTER SUBROUTINE
          23623    3       12      54   0  0              0                BINARY ACTION                           COPY
          23624    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          23625    101     316      2   0  0              0        316                                             table look up
          23626    32               0   0  0             10                ABS BIN ADDRESS>A                       SHIFT (AB) BY QUARTETS
          23627    3       12      55   0  0              0                LOCN TO SELECT C-LINE CHECK CONSTAN     COPY
          23628    124     12      55   1  2              0                                                        modify address of next
          23629    100              0   0  2              0                CHECK CONST                             replace (B) by (N)
          23630    10               0   0  0              0                                                        SELECT LITERAL
          23631    36      317      4   0  0              0        317     Q1-3                                    COLLATE AND ADD
          23632    71      237      6   0  0              0        237     >ACTION EXISTS                          JUMP IF A != 0
                                                                                                                   
          23700    PROCR   237       237                                                                           
          23701     NOTES          RADIX                                                                           SELECT
    23620>                                                                                                         
    23618>                                                                                                         
    23616>23702    10               0   0  0     5100000000                                                        SELECT LITERAL
          23703    5       1       44   1  0              0                NONEXISTENT ACTION=ERROR OF A           TRANSFER
          23704    80      295      2   0  0              0        295                                             ENTER SUBROUTINE
          23705    76      249      2   0  0              0        249                                             JUMP unconditional
    23632>23706    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          23707    10               0   0  0              0                LOSE 'LIT SWITCH'                       SELECT LITERAL
          23708    36      317      5   0  0              0        317     BITS 5-7                                COLLATE AND ADD
          23709    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          23710    84      240      2   0  0              0        240     'REF/ITEM'SWITCH BY Q2                  SET SWITCH(ES) AT VARIABLE VALUE
          23711    36      317      7   0  0              0        317     BIT 4                                   COLLATE AND ADD
          23712    5       12      61   0  0              0                IND THAT C-LINE ESSENTIAL               TRANSFER
          23713    36      317      8   0  0              0        317     BIT 8                                   COLLATE AND ADD
          23714    5       12      60   0  0              0                IND THAT C-LINE IS POSSIBLE             TRANSFER
          23715    5       12      59   0  0              0                CLEAR THIS                              TRANSFER
                                                                                                                   
          23800    PROCR   238       238                                                                           
          23801     NOTES          RADIX                                                                           SELECT
          23802    60               0   0  0              0                                                        SET DECIMAL RADIX
          23803            1       10   0  0              0                MODULUS OF ITEM                         SELECT
          23804    12               0   0  0           8192                                                        SUBTRACT LITERAL
          23805    72      238      8   0  0              0        238     >REPORT                                 JUMP IF A >= 0
          23806            1       11   0  0              0                                                        SELECT
          23807    70      238      9   0  0              0        238     >OK                                     JUMP IF A == 0
    23805>23808    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
    23807>23809            1       12   1  0              0                DISC                                    SELECT
          23810    70      238     14   0  0              0        238     >OK                                     JUMP IF A == 0
          23811    12               0   0  0              1                                                        SUBTRACT LITERAL
          23812    70      238     14   0  0              0        238     >OK                                     JUMP IF A == 0
          23813    80      223      2   0  0              0        223     >REPORT D                               ENTER SUBROUTINE
    23812>                                                                                                         
    23810>23814    0       1       14   1  0              0                MOD                                     SELECT
          23815    70      240      2   0  0              0        240     >OK                                     JUMP IF A == 0
  Source image: P1030210.JPG
          23816    12               0   0  0              4                                                        SUBTRACT LITERAL
          23817    73      240      2   0  0              0        240     >OK                                     JUMP IF A < 0
          23818    80      224      2   0  0              0        224     >REPORT M                               ENTER SUBROUTINE
          23819    76      240      2   0  0              0        240     >TO CHECK R,I,L                         JUMP unconditional
                                                                                                                   
          23900    PROCR   239       239     TEST D IS ZERO                                                        
          23901     NOTES          RADIX                                                                           SELECT
          23902    81      239      2   0  0              0        239                                             START OF SUBROUTINE
          23903            1       12   1  0              0                                                        SELECT
          23904    70      239      6   0  0              0        239                                             JUMP IF A == 0
          23905    80      223      2   0  0              0        223     REPORT D                                ENTER SUBROUTINE
    23904>23906    82      239      2   0  0              0        239                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24000    PROCR   240       240                                                                           
          24001     NOTES          RADIX                                                                           SELECT
    23819>                                                                                                         
    23817>                                                                                                         
    23815>24002    85      240      2   0  0              0        240                                             SWITCH R
          24003    C       241      2   0  0              0        241     >R ZERO, PROCR, SECTION OR '1000+'      
                                                                                                                   
          24100    PROCR   241       241     SWITCH = 1                                                            
          24101     NOTES          RADIX     B    R ZERO, OR A SECTION                                             SELECT
    24003>24102            12       4   0  0              0                                                        SELECT
          24103    73      241     18   0  0              0        241     >IGNORE R                               JUMP IF A < 0
          24104    71      241     13   0  0              0        241     >OK                                     JUMP IF A != 0
          24105            1       14   0  0              0                MOD DIGITS                              SELECT
          24106    71      241     20   0  0              0        241     >OK                                     JUMP IF A != 0
          24107    0       1       10   1  0              0                ITEM                                    SELECT
          24108    73      241     18   0  0              0        241     IG                                      JUMP IF A < 0
          24109    71      241     20   0  0              0        241     >OK                                     JUMP IF A != 0
          24110    0       12      54   0  0              0                ACTION                                  SELECT
          24111    70      241     18   0  0              0        241     >IGNORE R                               JUMP IF A == 0
          24112    76      241     20   0  0              0        241     >OK                                     JUMP unconditional
    24104>24113    70      242      2   0  0              0        242     OK                                      JUMP IF A == 0
          24114    12               0   0  0            100                                                        SUBTRACT LITERAL
          24115    73      241     18   0  0              0        241     IG                                      JUMP IF A < 0
          24116    12               0   0  0            900                                                        SUBTRACT LITERAL
          24117    73      241     20   0  0              0        241     >OK                                     JUMP IF A < 0
    24115>                                                                                                         
    24111>                                                                                                         
    24108>                                                                                                         
    24103>24118    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          24119    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
    24117>                                                                                                         
    24112>                                                                                                         
    24109>                                                                                                         
    24106>24120    76      242      2   0  0              0        242     CHECK L                                 JUMP unconditional
          24121    80      277      2   0  0              0        277     >CHECK REF                              ENTER SUBROUTINE
                                                                                                                   
          24200    PROCR   242       242     SWITCH FOR LITERALS                                                   
          24201     NOTES          RADIX          CHECK L IS NOT > 10 QUARTETS                                     SELECT
    24120>                                                                                                         
    24113>24202    0       1       18   1  0              0                                                        SELECT
          24203    70      244      2   0  0              0        244                                             JUMP IF A == 0
                                                                                                                   
          24300    PROCR   243       243     MAKE REPORTS ON L                                                     
          24301     NOTES          RADIX          SWITCH=2                                                         SELECT
          24302    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          24303    80      227      2   0  0              0        227     >REPORT L                               ENTER SUBROUTINE
                                                                                                                   
  Source image: P1030211.JPG
          24400    PROCR   244       244     TEST FP/MG USED, STORE MR>3 DETAILS                                   
          24401     NOTES          RADIX          MOD REGISTERS 1-3                                                SELECT
    24203>24402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
                                                                                                                   
          24500    PROCR   245       245     MACHINE CODE SEQUENCE CHANGES                                         
          24501     NOTES          RADIX                                                                           SELECT
          24502    0       12      54   0  0              0                BIN ACTION                              SELECT
          24503    12               0   0  0             7                                                         SUBTRACT LITERAL
          24504    70      246      2   0  0              0        246     >ACTION 127/D/M                         JUMP IF A == 0
          24505    11               0   0  0              3                                                        ADD LITERAL
          24506    71      249      2   0  0              0        249     >NOT 124/D/M                            JUMP IF A != 0
          24507            1       12   0  0              0                                                        SELECT
          24508    12               0   0  0              1                                                        SUBTRACT LITERAL
          24509    71      249      2   0  0              0        249     >NOT 124/1/M                            JUMP IF A != 0
          24510            1       14   0  0              0                                                        SELECT
          24511    71      249      2   0  0              0        249     >NOT 124/1/0                            JUMP IF A != 0
          24512    76      246      2   0  0              0        246                                             JUMP unconditional
          24513    60               0   0  0              0                                    ACTION 94           SET DECIMAL RADIX
          24514    0       1       16   1  0              0                L                                       SELECT
          24515    71      245     17   0  0              0        245                                             JUMP IF A != 0
          24516    80      227      2   0  0              0        227     >REPORT L                               ENTER SUBROUTINE
    24515>24517    0       1        8   1  0              0                                                        SELECT
          24518    71      246      2   0  0              0        246     >COUNT AS SEQ CHANGE                    JUMP IF A != 0
          24519    0       1       10   0  0              0                                                        SELECT
          24520    70      249      2   0  0              0        249     YES                                     JUMP IF A == 0
    26717>24521    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
          24522    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24600    PROCR   246       246     TEST IF SEQUENCE CHANGE IS FORWARD OR BACK                            
          24601     NOTES          RADIX                                                                           SELECT
    24518>                                                                                                         
    24512>                                                                                                         
    24504>24602    0       12       4   0  0              0                DEC REF                                 SELECT
          24603    12               0   0  0            999                                                        SUBTRACT LITERAL
          24604    72      249      2   0  0              0        249                                             JUMP IF A >= 0
          24605    0       92       3   0  0              0                (CURRENT LINE SERIAL)                   SELECT
          24606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24607    1       12       9   0  0              0                SEQ CHANGE SOURCE                       ADD
          24608    3       12     118   0  0              0                SOURCE                                  COPY
          24609    2       1        8   2  0              0                L-ALIGNED REF                           SUBTRACT
          24610    2       1       10   0  0              0                ITEM                                    SUBTRACT
          24611    73      249      2   0  0              0        249     >SOURCE<DEST, SEQ CHANGE FWD            JUMP IF A < 0
          24612            1        8   2  0              0                                                        SELECT
          24613    70      249      2   0  0              0        249     >SC TO ABS ADDRESS,DON T STORE          JUMP IF A == 0
          24614    1       1       10   0  0              0                                                        ADD
          24615    73      249      2   0  0              0        249     >SKIP                                   JUMP IF A < 0
          24616    5       12     119   0  0              0                DESTINATION                             TRANSFER
          24617    0       12     118   1  0              0                                                        SELECT
          24618    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24619    124     92       9   1  2              0                ABS START OF LIST(18:2496 INITIALLY     modify address of next
          24620    101              0   1  0              0                TABLE LOOKUP                            table look up
          24621    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24622    91               0   0  1              0                STORE LOCN OF FIRST GREATER             SET MODIFICATION REGISTER AT VARIABLE
          24623    2       92       9   0  0              0                                                        SUBTRACT
          24624    30               0   0  0              5                SHIFT QTTY TO BE MOVED                  SHIFT (A) BY QUARTETS
          24625    1       92       9   0  0              0                START                                   ADD
          24626    5       12      88   1  0              0                WL=BULK COPY TABLE ENTRY                TRANSFER
          24627    0       92       9   0  0              0                CURRENT LIST START                      SELECT
          24628    2       316      6   0  0              0        316     ABS ADDRESS 18:0                        SUBTRACT
          24629    70      249      2   0  0              0        249     >LIST FULL, DON T STORE                 JUMP IF A == 0
  Source image: P1030212.JPG
          24630    10               0   0  0              2-                                                       SELECT LITERAL
          24631    4       92       9   0  0              0                ADJUST FOR NEW START                    AUGMENT
          24632            12      88   1  0              0                                                        SELECT
          24633    124     92       9   1  2              0                                                        modify address of next
          24634    128              0   1  1              0                BULK COPY UP ONE WORD                   bulk copy long numeric
          24635    94               0   0  1              2-               ADJUST                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24636            12     118   1  0              0                NEW SEQ CH BACK                         SELECT
          24637    5                0   1  1              0                PLACE IN LIST                           TRANSFER
          24638    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24700    PROCR   247       247     CONVERT (A) TO DEC                                                    
          24701     NOTES  247                                                                                     SELECT
          24702    81      247      2   0  0              0        247                                             START OF SUBROUTINE
          24703    5       319     42   1  0              0        319                                             TRANSFER
          24704    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          24705    124     319      2   0  2              0        319                                             select literal and division
          24706    112     319     42   1  0              0        319                                             convert
          24707    82      247      2   0  0              0        247                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24800    PROCR   248       248     CONVERT (A) TO BINARY                                                 
          24801     NOTES  248                                                                                     SELECT
          24802    81      248      2   0  0              0        248                                             START OF SUBROUTINE
          24803    5       319     42   1  0              0        319                                             TRANSFER
          24804    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          24805    124     319     22   0  2              0        319                                             select literal and division
          24806    112     319     42   1  0              0        319                                             convert
          24807    82      248      2   0  0              0        248                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24900    PROCR   249       249     FORM SERIAL NUMBER                                                    
          24901     NOTES          RADIX                                                                           SELECT
    26621>                                                                                                         
    26624>                                                                                                         
    26714>                                                                                                         
    26718>                                                                                                         
    26808>                                                                                                         
    27103>                                                                                                         
    27107>                                                                                                         
    27304>                                                                                                         
    27813>                                                                                                         
    28026>                                                                                                         
    28037>                                                                                                         
    28122>                                                                                                         
    28231>                                                                                                         
    24638>                                                                                                         
    24629>                                                                                                         
    24615>                                                                                                         
    24613>                                                                                                         
    24611>                                                                                                         
    24604>                                                                                                         
    24522>                                                                                                         
    24520>                                                                                                         
    24511>                                                                                                         
    24509>                                                                                                         
    24506>                                                                                                         
    23705>                                                                                                         
    23309>                                                                                                         
    23224>                                                                                                         
    23204>                                                                                                         
    23106>                                                                                                         
    22219>                                                                                                         
  Source image: P1030213.JPG
    22215>24902    00      12      85   0  0              0                TEST IF TO IGNORE                       SELECT
          24903    70      249      5   0  0              0        249     THIS BLOCK                              JUMP IF A == 0
          24904    80      295      2   0  0              0        295     YES - IGNORE                            ENTER SUBROUTINE
    24903>24905    60               0   0  0              0                                                        SET DECIMAL RADIX
          24906            92       3   0  0              0                TRANSLATOR'S PROCR                      SELECT
          24907    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24908    5       12      88   0  0              0                                                        TRANSFER
          24909    86      222      2   0  0              0        222                                             SELECT SWITCH R
          24910            12       9   0  0              0                LINE SERIAL IN PROCR                    SELECT
          24911    12               0   0  0            100                                    NO LINE SERIAL>99   SUBTRACT LITERAL
          24912    73      249     24   0  0              0        249     >OK                                     JUMP IF A < 0
          24913    86      222      2   0  0              0        222                                             SELECT SWITCH R
          24914    12               0   0  0              2                                                        SUBTRACT LITERAL
          24915    70      249     20   0  0              0        249     >INSTRUCTIONS,IGNORE                    JUMP IF A == 0
          24916    35               0   0  0         111111                TABLE ENTRIES,CONST='SER'               PREPARE FOR DIGIT COLLATION
          24917    10               0   0  0         725569                                                        SELECT LITERAL
          24918    37      1       44   1  0              0                                                        REPLACE SELECTED BITS
          24919    76      249     21   0  0              0        249                                             JUMP unconditional
    24915>24920    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    24919>24921    10               0   0  0             99                                                        SELECT LITERAL
          24922    2       12      90   0  0              0                (0=SHORT,1=LONG)                        SUBTRACT
          24923    76      249     25   0  0              0        249     >SET 98 OR 99                           JUMP unconditional
    24912>24924            12       9   0  0              0                                                        SELECT
    24923>24925    4       12      88   0  0              0                                                        AUGMENT
          24926    52      1        2   0  0              0                EDIT SERIAL                             EDIT
          24927    C       306      6   0  0              0        306                                             
                                                                                                                   
          25000    PROCR   250       250     AUGMENT INSTRUCTION COUNTER                                           
          25001     NOTES          RADIX                                                                           SELECT
          25002    10               0   0  0              0                                                        SELECT LITERAL
          25003    85      222      2   0  0              0        222                                             SWITCH R
          25004    C       250      9   0  0              0        250     >'PROCR/TABLE'                          
          25005    C       251     13   0  0              0        251     >INSTRUCTIONS/'NOTES'                   
          25006    C       251      2   0  0              0        251     >TABLE ENTRY/'NOTES'                    
          25007    C       251      7   0  0              0        251     >CONSTANT/'CONST'                       
          25008    C       250      9   0  0              0        250                                             
    25008>                                                                                                         
    25004>25009    0       12       9   0  0              0                SERIAL THIS LINE WITHIN SECTION         SELECT
          25010    71      250     16   0  0              0        250     >NOTES BLOCK                            JUMP IF A != 0
    25111>25011            318     22   0  0              0        318     SW 27/5 LAST TIME THRU                  SELECT
          25012    12               0   0  0              3                                                        SUBTRACT LITERAL
          25013    71      250     16   0  0              0        250     >LAST TIME WASN T FOR CONSTANTS         JUMP IF A != 0
          25014    10               0   0  0              1                                                        SELECT LITERAL
          25015    5       29       6   1  0              0                CONSTS END SIGN                         TRANSFER
    25013>                                                                                                         
    25010>25016    10               0   0  0              0                                                        SELECT LITERAL
          25017    76      251     13   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25100    PROCR   251       251     AUGMENT INSTRUCTION COUNTER                                           
          25101     NOTES          RADIX                                                                           SELECT
    25006>25102            12       9   0  0              0                                                        SELECT
          25103    12               0   0  0              1                                                        SUBTRACT LITERAL
          25104    70      251     13   0  0              0        251                                             JUMP IF A == 0
          25105    10               0   0  0              2                                                        SELECT LITERAL
          25106    76      251     14   0  0              0        251                                             JUMP unconditional
    25007>25107            12       9   0  0              0                                                        SELECT
          25108    71      251     12   0  0              0        251     >NOT'CONST'BLOCK                        JUMP IF A != 0
          25109    10               0   0  0              1                (SO AS TO STEP BY 2 EVENTUALLY)         SELECT LITERAL
          25110    4       12       9   0  0              0                >TEST IF LAST SECTION WAS CONSTANTS     AUGMENT
          25111    76      250     11   0  0              0        250                                             JUMP unconditional
  Source image: P1030214.JPG
    25108>25112    00      12      90   0  0              0                                                        SELECT
    25104>                                                                                                         
    25017>                                                                                                         
    25005>25113    11               0   0  0              1                                                        ADD LITERAL
    25106>25114    4       12       9   0  0              0                                                        AUGMENT
          25115    0       12      33   0  0              0                                                        SELECT
          25116    70      251     20   0  0              0        251     >BLOCK EX MT                            JUMP IF A == 0
          25117    0       12       1   0  0              0                                                        SELECT
          25118    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          25119    5       1        0   1  0              0                AMEND IND                               TRANSFER
    25116>25120    5       92      34   1  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          25200    PROCR   252       252     EDIT                                                                  
          25202    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          25203            317     11   0  0              0        317     INDICATOR                               SELECT
          25204    70      252      7   0  0              0        252     >FIRST RECORD                           JUMP IF A == 0
          25205    80      288      2   0  0              0        288                                             ENTER SUBROUTINE
          25206    76      252      8   0  0              0        252                                             JUMP unconditional
    25204>25207    80      289      2   0  0              0        289     >WRITE LAST SECTION                     ENTER SUBROUTINE
    25206>25208            12      38   0  0              0                                                        SELECT
          25209    71      252     30   0  0              0        252     >DIRECTIVE                              JUMP IF A != 0
          25210            27       5   0  0              0                SWITCH                                  SELECT
          25211    12               0   0  0              4                                                        SUBTRACT LITERAL
          25212    70      252     25   0  0              0        252     >VALUES                                 JUMP IF A == 0
          25213    124     27       5   0  1              0                                                        modify address of next
          25214            305      6   0  0              0        305                                             SELECT
          25215    128     29       2   1  2              0                EDIT PROCR,TABLE,CONST.                 edit fixed field formats
          25216            318     48   1  0              0        318                                             SELECT
          25217    124     27       5   0  1              0                                                        modify address of next
          25218    124     305      2   0  1              0        305                                             modify address of next
          25219    128     29       0   1  1              0                COPY ANNOTATION                         bulk copy long numeric
          25220            1       44   1  0              0                                                        SELECT
          25221    124     27       5   0  1              0                                                        modify address of next
          25222    124     305      2   0  1              0        305                                             modify address of next
          25223    5       29       2-  1  0              0                COPY REPORTS PASS 1                     TRANSFER
          25224    76      252     48   0  0              0        252                                             JUMP unconditional
    25212>25225    55      1       11   0  0             16                VALUES                                  BULK COPY
          25226    C       29      10   2  0              0                                                        
          25227    52      29       6   0  0              0                REF+ITEM                                EDIT
          25228    C       315      2   0  0              0        315                                             
          25229    76      252     48   0  0              0        252                                             JUMP unconditional
    25209>25230    52      29       2   0  0              0                DIRECTIVES                              EDIT
          25231    C       307     16   0  0              0        307                                             
          25232    10               0   0  0              0                                                        SELECT LITERAL
          25233    5       318     22   0  0              0        318                                             TRANSFER
          25234            27       5   0  0              0                                                        SELECT
          25235    12               0   0  0              1                                                        SUBTRACT LITERAL
          25236    71      252     43   0  0              0        252     >NOT PROCR                              JUMP IF A != 0
          25237            12      38   0  0              0                                                        SELECT
          25238    73      252     43   0  0              0        252     >NOT NOTES OF PROCR                     JUMP IF A < 0
          25239            1        8   1  0              0                                                        SELECT
          25240    5       29      12   1  0              0                COPY'RADIX'                             TRANSFER
          25241    5       29       8   1  0              0                CLEAR                                   TRANSFER
          25242    76      252     45   0  0              0        252                                             JUMP unconditional
    25238>                                                                                                         
    25236>25243            1       44   1  0              0                PASS 1 REPORTS                          SELECT
          25244    5       29      12   1  0              0                                                        TRANSFER
    25242>25245    55      1       16   1  0             28                BULK COPY ANNOTATION                    BULK COPY
          25246    C       29      14   1  0              0                                                        
          25247    76      252     50   0  0              0        252                                             JUMP unconditional
    25229>                                                                                                         
  Source image: P1030215.JPG
    25224>25248            27       5   0  0              0                                                        SELECT
          25249    5       318     22   0  0              0        318                                             TRANSFER
    25247>25250    10               0   0  0              1                                                        SELECT LITERAL
          25251    5       317     11   0  0              0        317     SET INDICATOR                           TRANSFER
          25252    60               0   0  0              0                                                        SET DECIMAL RADIX
          25253    10               0   0  0              0                                                        SELECT LITERAL
          25254    5       12     115   0  0              0                ERROR REPORT SHIFT CONTROL              TRANSFER
          25255    0       23      47   0  0              0                                                        SELECT
          25256    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25257    37      29       2   1  0              0                                                        REPLACE SELECTED BITS
          25258    10               0   0  0              0                                                        SELECT LITERAL
          25259    5       23      47   0  0              0                'IMPLICITLY AMENDED'                    TRANSFER
          25260    82      218      2   0  0              0        218                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          25300    PROCR   253       253     START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END            
    25628>                                                                                                         
    25762>                                                                                                         
    21714>25302    80      294      2   0  0              0        294     >TEST PT AT DIRECTIVE/END               ENTER SUBROUTINE
          25303    70      254      2   0  0              0        254     >NO                                     JUMP IF A == 0
    25321>                                                                                                         
    25517>                                                                                                         
    25732>25304    0       12      45   0  0              0                                                        SELECT
          25305    71      253     14   0  0              0        253     >PT AT END                              JUMP IF A != 0
          25306            27       1   0  0              0                                                        SELECT
          25307    70      253     10   0  0              0        253     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          25308                     4   2  8              0                (ABS MR)                                SELECT
          25309    76      253     11   0  0              0        253                                             JUMP unconditional
    25307>25310    0       7        6   2  0              0                MT SERIAL                               SELECT
    25309>25311    2       9        4   2  0              0                A6 SERIAL                               SUBTRACT
          25312    70      254      2   0  0              0        254     >MT AMENDED                             JUMP IF A == 0
          25313    72      255      2   0  0              0        255     >MT>PT,REPORT                           JUMP IF A >= 0
    25305>25314    80      299      2   0  0              0        299     >TEST MT=END                            ENTER SUBROUTINE
          25315    10               0   0  0              0                SET 'MT INPUT'                          SELECT LITERAL
          25316    5       12      33   0  0              0                                                        TRANSFER
          25317    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25318    80      284      2   0  0              0        284     >UNPACK                                 ENTER SUBROUTINE
          25319    80      218      2   0  0              0        218     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25320    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25321    76      253      4   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          25400    PROCR   254       254     SWITCH FOR AMENDMENTS                                                 
          25401     NOTES          RADIX                                                                           SELECT
    25312>                                                                                                         
    25303>25402    85      254      2   0  0              0        254                                             SWITCH R
          25403    C       256      2   0  0              0        256     >REPLACE                                
          25404    C       257      2   0  0              0        257     >DELETE                                 
          25405    C       255      2   0  0              0        255     OMIT PT             T                   
          25406    C       255      2   0  0              0        255                         A                   
                                                                                                                   
          25500    PROCR   255       255     DEAL WITH OUT-OF-SEQUENCE DIRECTIVE                                   
          25501     NOTES          RADIX                                                                           SELECT
    25406>                                                                                                         
    25405>                                                                                                         
    25313>25502            1        4   1  0              0                AMENDMENT           MODS ARE            SELECT
          25503    124     318     22   0  1              0        318                                             modify address of next
          25504    124     305     10   0  1              0        305                                             modify address of next
          25505    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25506    34      1        2   1  0              0                SERIAL                                  SET (N) IN B
    25743>                                                                                                         
  Source image: P1030216.JPG
    25745>25507    80      259      2   0  0              0        259                         PUT ERROR REPORT    ENTER SUBROUTINE
          25508    10               0   0  0           1:5:                '??'                OF 5-DIGIT          SELECT LITERAL
          25509    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25510    35               0   0  0           1111                                    SERIAL AND          PREPARE FOR DIGIT COLLATION
          25511    124     318     22   0  1              0        318                                             modify address of next
          25512    124     305     10   0  1              0        305                                             modify address of next
          25513    37      29       0   1  0              0                REPORT WORD                             REPLACE SELECTED BITS
    25516>25514    80      292      2   0  0              0        292     INPUT ON PAPER                          ENTER SUBROUTINE
          25515    80      294      2   0  0              0        294     FIND DIRECTIVE                          ENTER SUBROUTINE
          25516    70      255     14   0  0              0        255     >READ/IGNORE PT TO NEXT DIRECTIVE       JUMP IF A == 0
          25517    76      253      4   0  0              0        253     >MAKE THIS AMENDMENT                    JUMP unconditional
                                                                                                                   
          25600    PROCR   256       256     REPLACE                                                               
          25601     NOTES          RADIX                                                                           SELECT
    25403>25602            9       50   2  0              0                'PASS 0' IND                            SELECT
          25603    71      256     34   0  0              0        256     >REJECT                                 JUMP IF A != 0
          25604            27       5   0  0              0                'UNPACK' SWITCH                         SELECT
          25605    5       296      2   0  0              0        296     WL                                      TRANSFER
          25606    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25607    0       12      38   0  0              0                                                        SELECT
          25608    5       227      2   0  0              0        227     WL                                      TRANSFER
          25609    80      293      2   0  0              0        293     >TEST PT=STACK DIRECTIVE                ENTER SUBROUTINE
          25610    0       12      38   0  0              0                IS REPLACING BLOCK STACK DIR, OR NO     SELECT
          25611    2       227      2   0  0              0        227     ARE BOTH BLOCKS SIMILAR?                SUBTRACT
          25612    71      256     29   0  0              0        256     >NO,ILLEGAL?                            JUMP IF A != 0
    25631>25613    10               0   0  0              1                SET AS PT INPUT                         SELECT LITERAL
          25614    5       12      33   0  0              0                                                        TRANSFER
          25615    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          25616    80      299      2   0  0              0        299     >DONT REPLACE END SIGN                  ENTER SUBROUTINE
          25617    0       12      38   0  0              0                                                        SELECT
          25618    72      256     25   0  0              0        256     >NOT PT DIRECTIVE                       JUMP IF A >= 0
          25619            27       1   0  0              0                                                        SELECT
          25620    70      256     23   0  0              0        256     >1 RECORD PER BLOCK                     JUMP IF A == 0
          25621                    14   1  8              0                                                        SELECT
          25622    76      256     24   0  0              0        256                                             JUMP unconditional
    25620>25623    0       7       16   1  0              0                                                        SELECT
    25622>25624    5       1        8   1  0              0                TRANSFER MT PROCR NUMBER                TRANSFER
    25618>25625    80      302      2   0  0              0        302     >GET NEXT A1 RECORD                     ENTER SUBROUTINE
          25626    80      218      2   0  0              0        218     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25627    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25628    76      253      2   0  0              0        253                                             JUMP unconditional
    25612>25629    0       12      38   0  0              0                PT DIRECTIVE                            SELECT
          25630    1       227      2   0  0              0        227     MT DIRECTIVE                            ADD
          25631    72      256     13   0  0              0        256     >NEITHER IS STACK DIRECTIVE,ALLOW REPLACJUMP IF A >= 0
          25632            296      2   0  0              0        296                                             SELECT
          25633    5       27       5   0  0              0                RESTORE SWITCH                          TRANSFER
    25603>25634    10               0   0  0             69                'R'                                     SELECT LITERAL
          25635    76      257     36   0  0              0        257     >REPORT                                 JUMP unconditional
                                                                                                                   
          25700    PROCR   257       257     DELETION LOOP                                                         
          25701     NOTES          RADIX                                                                           SELECT
    25404>25702    80      299      2   0  0              0        299     >END SIGN ON MT?                        ENTER SUBROUTINE
          25703            9        4   1  0              0                                                        SELECT
          25704    5       1        0   1  0              0                STORE SERIAL                            TRANSFER
          25705            9       50   2  0              0                'PASS 0' IND                            SELECT
          25706    71      257     35   0  0              0        257     >REPORT                                 JUMP IF A != 0
          25707    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25708    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25709    71      257     46   0  0              0        257     >YES(SINGLE-LINE DELETE)                JUMP IF A != 0
          25710            9       50   2  0              0                PASS 0 IND                              SELECT
  Source image: P1030217.JPG
          25711    71      257     35   0  0              0        257     >MOD REJECTED                           JUMP IF A != 0
          25712            27       1   0  0              0                                                        SELECT
          25713    70      257     16   0  0              0        257     >1 RECORD/BLOCK                         JUMP IF A == 0
          25714                     4   2  8              0                                                        SELECT
          25715    76      257     17   0  0              0        257                                             JUMP unconditional
    25713>25716            7        6   2  0              0                MT SERIAL                               SELECT
    25715>25717    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25718    70      257     20   0  0              0        257     >DIRECTIVE DELETED                      JUMP IF A == 0
          25719    80      220      2   0  0              0        220     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    25734>                                                                                                         
    25718>25720    80      302      2   0  0              0        302                                             ENTER SUBROUTINE
          25721    80      299      2   0  0              0        299     >GET NEXT RECORD                        ENTER SUBROUTINE
          25722            27       1   0  0              0                >TEST END                               SELECT
          25723    70      257     26   0  0              0        257                                             JUMP IF A == 0
          25724                     4   2  8              0                                                        SELECT
          25725    76      257     27   0  0              0        257                                             JUMP unconditional
    25723>25726            7        6   2  0              0                MT SERIAL                               SELECT
    25725>25727    2       1        2   2  0              0                PT SERIAL                               SUBTRACT
          25728    71      257     34   0  0              0        257                                             JUMP IF A != 0
          25729    80      302      2   0  0              0        302     >GET NEXT MT RECORD                     ENTER SUBROUTINE
          25730    80      292      2   0  0              0        292     >READ PT(NEXT DIRECTIVE)                ENTER SUBROUTINE
          25731    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25732    71      253      4   0  0              0        253     >YES                                    JUMP IF A != 0
          25733    76      257     35   0  0              0        257     >REJECT                                 JUMP unconditional
    25728>25734    73      257     20   0  0              0        257     >LOOP                                   JUMP IF A < 0
    25733>                                                                                                         
    25711>                                                                                                         
    25706>25735    10               0   0  0             54                'D'                 REPORT              SELECT LITERAL
    25635>25736    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25737    124     318     22   0  1              0        318                                             modify address of next
          25738    124     305     10   0  1              0        305                                             modify address of next
          25739    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25740            27       1   0  0              0                                                        SELECT
          25741    70      257     44   0  0              0        257     >1 RECORD/BLOCK                         JUMP IF A == 0
          25742    34               4   1  8              0                                                        SET (N) IN B
          25743    76      255      7   0  0              0        255                                             JUMP unconditional
    25741>25744    34      7        6   1  0              0                SERIAL BEING DELETED                    SET (N) IN B
          25745    76      255      7   0  0              0        255     >REPORT                                 JUMP unconditional
    25709>25746            27       1   0  0              0                                                        SELECT
          25747    70      257     50   0  0              0        257                                             JUMP IF A == 0
          25748                     4   2  8              0                                                        SELECT
          25749    76      257     51   0  0              0        257                                             JUMP unconditional
    25747>25750            7        6   2  0              0                                                        SELECT
    25749>25751    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25752    70      257     54   0  0              0        257                                             JUMP IF A == 0
          25753    80      220      2   0  0              0        220                                             ENTER SUBROUTINE
    25761>                                                                                                         
    25752>25754    80      302      2   0  0              0        302     >GET RECORD AFTER DELETING ONE          ENTER SUBROUTINE
          25755            27       1   0  0              0                                                        SELECT
          25756    70      257     59   0  0              0        257                                             JUMP IF A == 0
          25757                     4   2  8              0                                                        SELECT
          25758    76      257     60   0  0              0        257                                             JUMP unconditional
    25756>25759            7        6   2  0              0                                                        SELECT
    25758>25760    2       1        0   2  0              0                PT SERIAL FOR DELETION                  SUBTRACT
          25761    70      257     54   0  0              0        257     >DELETE ALL BLOCKS THIS SERIAL          JUMP IF A == 0
          25762    76      253      2   0  0              0        253                                             JUMP unconditional
                                                                                                                   
          25800    PROCR   258       258     ENTRY TO 'UNPACK 'SR TO AVOID CLEARING SEC 1                          
          25802    81      258      2   0  0              0        258                                             START OF SUBROUTINE
          25803    0       258      2   0  0              0        258                                             SELECT
  Source image: P1030218.JPG
          25804    5       284      2   0  0              0        284     PLANT LINK                              TRANSFER
          25805    76      284      4   0  0              0        284     AVOID BULK CLEAR                        JUMP unconditional
                                                                                                                   
          25900    PROCR   259       259     STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS                           
          25902    81      259      2   0  0              0        259     (B)=REPORT WORD                         START OF SUBROUTINE
          25903    124     318     22   0  1              0        318                                             modify address of next
          25904    124     305      2   0  1              0        305                                             modify address of next
          25905            29      15   0  0              0                LAST 2½ CHARS ANNOTATION                SELECT
          25906    2       318     27   0  0              0        318                                             SUBTRACT
          25907    70      259     14   0  0              0        259     >LINE IGNORED,DON T OVERWRITE WORD      JUMP IF A == 0
          25908    10               0   0  0              0                CLEAR SIGN BIT A                        SELECT LITERAL
          25909    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25910    124     318     22   0  1              0        318                                             modify address of next
          25911    124     305      2   0  1              0        305                                             modify address of next
          25912    5       29      14   1  0              0                LAST 5 CHARS ANNOTATION                 TRANSFER
          25913    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    25907>25914    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25915    124     318     22   0  1              0        318                                             modify address of next
          25916    124     305      2   0  1              0        305                                             modify address of next
          25917    5       29      12   1  0              0                                                        TRANSFER
          25918    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          26000    PROCR   260       260     CONSTANTS ROUTINE                                                     
          26001     NOTES          RADIX                                                                           SELECT
    22213>26002    5       12      69   0  0              0                                                        TRANSFER
          26003    5       12      66   1  0              0                CLEAR INDICATOR                         TRANSFER
          26004    5       12      70   0  0              0                                                        TRANSFER
          26005    84      495      2   0  0              0        495     CLEAR WL=SWITCH                         SET SWITCH(ES) AT VARIABLE VALUE
          26006    91      12      66   0  2              0                CLEAR R2                                SET MODIFICATION REGISTER AT VARIABLE
          26007    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26008    C                0   0  0              5                                                        
          26009    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26010    C                0   0  0             18                                                        
          26011    54      94       0   0  0             60                CLEAR UNPACK AREA                       BULK CLEAR
          26012    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26013    34      1        6   1  0              0                FIRST WORD                              SET (N) IN B
          26014            12      33   0  0              0                NON ZERO IF EX PT                       SELECT
          26015    5       12      70   0  0              0                SET 'NE FOUND' IND                      TRANSFER
          26016    76      261      3   0  0              0        261                                             JUMP unconditional
    26311>                                                                                                         
    26339>26017    80      295      2   0  0              0        295     >IGNORE CONST                           ENTER SUBROUTINE
                                                                                                                   
          26100    PROCR   261       261                                                                           
          26101     NOTES          RADIX                                                                           SELECT
    26110>                                                                                                         
    26116>                                                                                                         
    26321>                                                                                                         
    26332>                                                                                                         
    26336>                                                                                                         
    26362>                                                                                                         
    26403>                                                                                                         
    26413>                                                                                                         
    26416>                                                                                                         
    26454>26102    80      274      2   0  0              0        274     >GET NEXT CHAR                          ENTER SUBROUTINE
    26016>26103    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          26104    3       12      88   1  0              0                                                        COPY
          26105    12               0   0  0             7:                                                        SUBTRACT LITERAL
          26106    70      261     12   0  0              0        261     >NE                                     JUMP IF A == 0
          26107    12               0   0  0              1                                                        SUBTRACT LITERAL
          26108    70      265      2   0  0              0        265     >BE,STORE NE AND END                    JUMP IF A == 0
  Source image: P1030219.JPG
          26109            12      70   0  0              0                                                        SELECT
          26110    71      261      2   0  0              0        261     >NO, DON T STORE CHAR                   JUMP IF A != 0
          26111    76      261     17   0  0              0        261     >STORE AND PROCESS                      JUMP unconditional
    26106>26112            12      70   0  0              0                'NE FOUND' IND                          SELECT
          26113    70      265      2   0  0              0        265     >YES, STORE NE AND END                  JUMP IF A == 0
          26114    5       12      70   0  0              0                                                        TRANSFER
          26115    5       12      70   0  0              0                CLEAR                                   TRANSFER
          26116    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
    26111>26117            12      88   0  0              0                                                        SELECT
          26118    5       94       0   0  2              0                STORE THIS CHAR                         TRANSFER
                                                                                                                   
          26200    PROCR   262       262                                                                           
          26201     NOTES          RADIX                                                                           SELECT
          26202    96               0   0  2              0                                                        SELECT MODIFIER
          26203    94      262      4   0  2              1        262                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26203>26204    71      262     21   0  0              0        262     >NOT FIRST CHAR IN LINE                 JUMP IF A != 0
          26205            12      88   0  0              0                THIS CHAR                               SELECT
          26206    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26207    70      262     23   0  0              0        262     >'('                                    JUMP IF A == 0
          26208    83      263     10   0  0              5        263     IGNORE'('                               SET SWITCH(ES) AT LITERAL VALUE
          26209    05      94      60   0  0              0                                                        TRANSFER
          26210    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26211    70      262     19   0  0              0        262     >WRONG                                  JUMP IF A == 0
          26212    84      267      2   0  0              0        267     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          26213    C       94      62   0  0              0                                                        
          26214    0       94      62   0  0              0                SWITCH FOR FIRST SUBFIELD               SELECT
          26215    12               0   0  0              5                                                        SUBTRACT LITERAL
          26216    71      262     21   0  0              0        262     >NOT REL ADDRESS                        JUMP IF A != 0
          26217    83      495      2   0  0              1        495     SET WL=1                                SET SWITCH(ES) AT LITERAL VALUE
          26218    76      262     21   0  0              0        262                                             JUMP unconditional
    26317>                                                                                                         
    26328>                                                                                                         
    26351>                                                                                                         
    26447>                                                                                                         
    26211>26219    83      263     10   0  0              1        263                                             SET SWITCH(ES) AT LITERAL VALUE
          26220    80      263     10   0  0              0        263     >IGNORE UNDIRECTED CONST                ENTER SUBROUTINE
    26218>                                                                                                         
    26216>                                                                                                         
    26204>26221            12      88   0  0              0                >CLEAR OUT ALL DETAILS                  SELECT
          26222    76      263     10   0  0              0        263     >SET SWITCH AT 2                        JUMP unconditional
    26207>26223    80      263     10   0  0              0        263                                             ENTER SUBROUTINE
          26224    76      263     20   0  0              0        263     CLEAR DETAILS                           JUMP unconditional
                                                                                                                   
          26300    PROCR   263       263                                                                           
          26301     NOTES          RADIX                                                                           SELECT
          26302    81      263     10   0  0              0        263                                             START OF SUBROUTINE
          26303    5       94      60   1  0              0                                                        TRANSFER
          26304    5       94      62   1  0              0                                                        TRANSFER
          26305    5       94      64   1  0              0                                                        TRANSFER
          26306    5       94      66   1  0              0                                                        TRANSFER
          26307    5       94      68   1  0              0                                                        TRANSFER
          26308    5       94      70   1  0              0                                                        TRANSFER
          26309    82      263     10   0  0              0        263                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    26222>26310    85      263     10   0  0              0        263                                             SWITCH R
          26311    C       260     17   0  0              0        260     >IGNORE                                 
          26312    C       263     40   0  0              0        263     >PREVIOUS WAS'C' DIRECTIVE LETTER EXPECT
          26313    C       264     39   0  0              0        264     >')' EXPECTED                           
          26314    C       263     16   0  0              0        263     >',' FORBIDDEN, '(' ALLOWED             
          26315    C       263     22   0  0              0        263     >'('FORBIDDEN ','ALLOWED                
    26314>26316    12               0   0  0             7+                COMMA                                   SUBTRACT LITERAL
  Source image: P1030220.JPG
          26317    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26318    11               0   0  0              2                                                        ADD LITERAL
          26319    71      264      2   0  0              0        264     >CHECK CHAR                             JUMP IF A != 0
    26224>26320    83      263     10   0  0              2        263     SET TO EXPECT DIRECTIVE LETTER          SET SWITCH(ES) AT LITERAL VALUE
          26321    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26315>26322    12               0   0  0             7+                                                        SUBTRACT LITERAL
          26323    71      263     37   0  0              0        263     >NOT COMMA                              JUMP IF A != 0
          26324    10               0   0  0              2                                                        SELECT LITERAL
          26325    4       94      60   0  0              0                                                        AUGMENT
          26326    124     94      60   0  0              0                SF CTR IN NON-DIRECTIVE LINE            modify address of next
          26327            94      62   0  0              0                SF DETAILS                              SELECT
          26328    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26329    84      267      2   0  0              0        267                                             SET SWITCH(ES) AT VARIABLE VALUE
          26330    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26331    12               0   0  0              5                                                        SUBTRACT LITERAL
          26332    71      261      2   0  0              0        261     >NOT REL ADDRESS                        JUMP IF A != 0
          26333    96               0   0  2              0                                                        SELECT MODIFIER
          26334    11               0   0  0              1                                                        ADD LITERAL
          26335    84      495      2   0  0              0        495     WL=LOCN OF SEOND CHAR                   SET SWITCH(ES) AT VARIABLE VALUE
          26336    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26323>26337    11               0   0  0              2                                                        ADD LITERAL
          26338    71      264      2   0  0              0        264     >NOT'(' CHECK CHAR                      JUMP IF A != 0
          26339    76      260     17   0  0              0        260     >IGNORE,GET NEXT CHAR                   JUMP unconditional
    26312>26340    12               0   0  0             51                                                        SUBTRACT LITERAL
          26341    70      263     59   0  0              0        263     >A                                      JUMP IF A == 0
          26342    12               0   0  0              1                                                        SUBTRACT LITERAL
          26343    70      263     57   0  0              0        263     >B                                      JUMP IF A == 0
          26344    12               0   0  0              1                                                        SUBTRACT LITERAL
          26345    70      263     52   0  0              0        263     >C                                      JUMP IF A == 0
          26346    12               0   0  0              1                                                        SUBTRACT LITERAL
          26347    70      263     58   0  0              0        263     >D                                      JUMP IF A == 0
          26348    12               0   0  0             13                                                        SUBTRACT LITERAL
          26349    70      263     56   0  0              0        263     >P                                      JUMP IF A == 0
          26350    12               0   0  0              2                                                        SUBTRACT LITERAL
          26351    71      262     19   0  0              0        262     >IGNORE, NOT R                          JUMP IF A != 0
    26345>26352    96               0   0  2              0                                                        SELECT MODIFIER
          26353    11               0   0  0              2                                                        ADD LITERAL
          26354    84      495      2   0  0              0        495     WL=LOCN OF SEOND CHAR                   SET SWITCH(ES) AT VARIABLE VALUE
          26355    10               0   0  0              1                RANDC                                   SELECT LITERAL
    26349>26356    11               0   0  0              1                R                                       ADD LITERAL
    26343>26357    11               0   0  0              1                B                                       ADD LITERAL
    26347>26358    11               0   0  0              1                D                                       ADD LITERAL
    26341>26359    11               0   0  0              1                A                                       ADD LITERAL
          26360    84      267      2   0  0              0        267     SET CHECKING SWITCH                     SET SWITCH(ES) AT VARIABLE VALUE
          26361    83      263     10   0  0              3        263     SET TO EXPECT ')'                       SET SWITCH(ES) AT LITERAL VALUE
          26362    76      261      2   0  0              0        261     >GET NEST CHAR                          JUMP unconditional
                                                                                                                   
          26400    PROCR   264       264                                                                           
          26401     NOTES          RADIX                                                                           SELECT
    26338>                                                                                                         
    26319>26402    85      267      2   0  0              0        267     CHECK SWITCH                            SWITCH R
          26403    C       261      2   0  0              0        261     >A,GNC                                  
          26404    C       264      8   0  0              0        264     >D                                      
          26405    C       264     17   0  0              0        264     >B                                      
          26406    C       264     21   0  0              0        264     >P                                      
          26407    C       264     26   0  0              0        264     >R                                      
    26420>                                                                                                         
    26422>                                                                                                         
    26424>                                                                                                         
    26432>                                                                                                         
  Source image: P1030221.JPG
    26404>26408    0       12      88   0  0              0                                    DECIMAL             SELECT
          26409    30               0   0  0              1-               CONTROL                                 SHIFT (A) BY QUARTETS
          26410    12               0   0  0              2                                                        SUBTRACT LITERAL
          26411    70      264     14   0  0              0        264     >REPORT *                               JUMP IF A == 0
          26412    12               0   0  0              3                                                        SUBTRACT LITERAL
          26413    73      261      2   0  0              0        261     >OK                                     JUMP IF A < 0
    26419>                                                                                                         
    26425>                                                                                                         
    26411>26414    10               0   0  0             5‼                *                                       SELECT LITERAL
          26415    5       1       44   1  0              0                                                        TRANSFER
          26416    76      261      2   0  0              0        261                                             JUMP unconditional
    26438>                                                                                                         
    26443>                                                                                                         
    26446>                                                                                                         
    26405>26417    0       12      88   2  0              0                BASIC               BINARY              SELECT
          26418    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          26419    72      264     14   0  0              0        264     >REPORT                                 JUMP IF A >= 0
          26420    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26406>26421    0       12      88   2  0              0                BASIC               PATTERN             SELECT
          26422    70      264      8   0  0              0        264     >OK                                     JUMP IF A == 0
          26423    12               0   0  0              1                                                        SUBTRACT LITERAL
          26424    70      264      8   0  0              0        264     >OK                                     JUMP IF A == 0
          26425    76      264     14   0  0              0        264     >REPORT                                 JUMP unconditional
    26407>26426            12      88   0  0              0                CAHR                RELATIVE ADDRESS    SELECT
          26427    12               0   0  0             4:                                                        SUBTRACT LITERAL
          26428    71      264     33   0  0              0        264     >NOT COLON                              JUMP IF A != 0
          26429    0       12      66   0  0              0                                                        SELECT
          26430    5       12      67   0  0              0                12/67=REF,12/66=ITEM                    TRANSFER
          26431    5       12      66   0  0              0                                                        TRANSFER
          26432    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26428>26433    0       12      66   0  0              0                                                        SELECT
          26434    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          26435    1       12      88   2  0              0                ASSEMBLER REF/ITEM                      ADD
          26436    5       12      66   0  0              0                                                        TRANSFER
          26437    83      263     10   0  0              5        263     INHIBIT ANOTHER DIRECTIVE               SET SWITCH(ES) AT LITERAL VALUE
          26438    76      264     17   0  0              0        264     >CHECK AS BINARY                        JUMP unconditional
    26313>26439    12               0   0  0             7‼                                                        SUBTRACT LITERAL
          26440    70      264     48   0  0              0        264     >IS ')'                                 JUMP IF A == 0
          26441    0       94       2-  0  2              0                                                        SELECT
          26442    12               0   0  0             52                B                                       SUBTRACT LITERAL
          26443    70      264     17   0  0              0        264     LAST CHAR WAS 'B'>CHECK THIS            JUMP IF A == 0
          26444    0       94       3-  0  2              0                                                        SELECT
          26445    12               0   0  0             52                B                                       SUBTRACT LITERAL
          26446    70      264     17   0  0              0        264     ONE BEFORE WAS 'B'>CHECK THIS           JUMP IF A == 0
          26447    76      262     19   0  0              0        262     NEITHER WAS 'B'>IGNORE                  JUMP unconditional
    26440>26448    86      267      2   0  0              0        267     CHECK SWITCH                            SELECT SWITCH R
          26449    124     94      61   0  0              0                CTR IN DIRECTIVE LINE                   modify address of next
          26450    5       94      62   0  0              0                                                        TRANSFER
          26451    10               0   0  0              2                                                        SELECT LITERAL
          26452    4       94      61   0  0              0                                                        AUGMENT
          26453    83      263     10   0  0              4        263     'COMMA FORBIDDEN'                       SET SWITCH(ES) AT LITERAL VALUE
          26454    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
                                                                                                                   
          26500    PROCR   265       265     TIDY UP AND REASSEMBLE CONST                                          
          26501     NOTES          RADIX                                                                           SELECT
    26113>                                                                                                         
    26108>26502    10               0   0  0             7:                                                        SELECT LITERAL
          26503    5       94       0   0  2              0                STORE END SIGN                          TRANSFER
          26504    86      263     10   0  0              0        263     DIRECTIVE SWITCH                        SELECT SWITCH R
          26505    12               0   0  0              4                                                        SUBTRACT LITERAL
  Source image: P1030222.JPG
          26506    72      265      8   0  0              0        265     >OK SWITCH SETTINGS                     JUMP IF A >= 0
          26507    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26506>26508            94      60   0  0              0                COMMASX2                                SELECT
          26509    70      265     14   0  0              0        265     >OK                                     JUMP IF A == 0
          26510    11               0   0  0              2                                                        ADD LITERAL
          26511    2       94      61   0  0              0                DIRECTIVE CTR                           SUBTRACT
          26512    70      265     14   0  0              0        265     >OK                                     JUMP IF A == 0
          26513    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26512>                                                                                                         
    26509>26514            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26515    12               0   0  0              +                                                        SUBTRACT LITERAL
          26516    73      265     18   0  0              0        265     >OK, NOT MORE THAN 5                    JUMP IF A < 0
          26517    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    26516>26518    96               0   0  2              0                                                        SELECT MODIFIER
          26519    5       12      70   0  0              0                TOT NO OF CHARS                         TRANSFER
          26520    91               0   0  2              0                CLEAR BOTH                              SET MODIFICATION REGISTER AT VARIABLE
          26521    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26522    86      495      2   0  0              0        495                                             SELECT SWITCH R
          26523    70      265     44   0  0              0        265     >NO REL ADDRESS IN CONST                JUMP IF A == 0
          26524    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26525    0       12      67   0  0              0                REF                                     SELECT
          26526    12               0   0  0            100                                                        SUBTRACT LITERAL
          26527    73      265     44   0  0              0        265     >SECTION                                JUMP IF A < 0
          26528    12               0   0  0            899                                                        SUBTRACT LITERAL
          26529    72      265     44   0  0              0        265     >EX RANGE                               JUMP IF A >= 0
          26530    0       12      67   0  0              0                                                        SELECT
          26531    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26532    32               0   0  0              2-               REPLACE 3-DIGIT NUMBER                  SHIFT (AB) BY QUARTETS
          26533    5       94       1-  0  1              0                (FIRST DIGIT ALWAYS NONZERO)            TRANSFER
          26534    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26535    71      265     37   0  0              0        265                                             JUMP IF A != 0
          26536    10               0   0  0             30                                                        SELECT LITERAL
    26535>26537    5       94       0   0  1              0                                                        TRANSFER
          26538    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26539    71      265     41   0  0              0        265                                             JUMP IF A != 0
          26540    10               0   0  0             30                                                        SELECT LITERAL
    26539>26541    5       94       1   0  1              0                                                        TRANSFER
          26542    54      1        6   0  0             18                                                        BULK CLEAR
          26543    76      265     80   0  0              0        265     >ASSEMBLE                               JUMP unconditional
    26529>                                                                                                         
    26527>                                                                                                         
    26523>26544    0       12      33   0  0              0                                                        SELECT
          26545    70      266     17   0  0              0        266     >MT                                     JUMP IF A == 0
          26546    54      1        6   0  0             18                CLEAR 1/6'-1/22'=EDIT AREA              BULK CLEAR
          26547    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          26548    C       265     80   0  0              0        265     >PT                                     
          26549    C       265     50   0  0              0        265     >CARDS                                  
    26549>26550            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26551    12               0   0  0              4                                                        SUBTRACT LITERAL
          26552    72      265     69   0  0              0        265     >MIXED CONST                            JUMP IF A >= 0
          26553    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26554    12               0   0  0              1                                                        SUBTRACT LITERAL
          26555    71      265     69   0  0              0        265     >NOT ALPHA                              JUMP IF A != 0
          26556            94       0   0  0              0                FIRST CHAR                              SELECT
          26557    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26558    70      265     60   0  0              0        265     >'('                                    JUMP IF A == 0
          26559    10               0   0  0              3-                                                       SELECT LITERAL
    26558>26560    11               0   0  0              3                                                        ADD LITERAL
          26561    17      12      90   0  0              3                LONG/SHORT CTR                          MULTIPLY LITERAL and ADD
          26562    11               0   0  0        1.00002                END VALUE 30                            ADD LITERAL
  Source image: P1030223.JPG
          26563    3       12      70   0  0              0                NEW CONSTANTS LENGTH                    COPY
          26564    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26565    10               0   0  0             7:                                                        SELECT LITERAL
    26567>26566    5       94       0   0  1              0                                                        TRANSFER
          26567    94      265     66   0  1              1        265     >CLEAR REST OF CONSTANT                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26568    76      265     80   0  0              0        265                                             JUMP unconditional
    26555>                                                                                                         
    26552>26569    90               0   0  1             28                                                        SET MODIFICATION REGISTER AT LITERAL
          26570    C                0   0  0              0                                                        
    26573>26571            94       0   0  1              0                                                        SELECT
          26572    71      265     74   0  0              0        265     >FIRST NONZERO CHAR FROM END            JUMP IF A != 0
          26573    94      265     71   0  1              1-       265                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26572>26574    10               0   0  0             7:                                                        SELECT LITERAL
          26575    5       94       1   0  1              0                SET NEW CONST END                       TRANSFER
          26576    5       94      29   0  0              0                CLEAR OLD END                           TRANSFER
          26577    96               0   0  1              0                                                        SELECT MODIFIER
          26578    11               0   0  0              1                                                        ADD LITERAL
          26579    5       12      70   0  0              0                NEW NUMBER OF CHARS                     TRANSFER
    26616>                                                                                                         
    26568>                                                                                                         
    26548>                                                                                                         
    26543>26580            94       0   0  2              0                                                        SELECT
                                                                                                                   
          26600    PROCR   266       266                                                                           
          26601     NOTES          RADIX                                                                           SELECT
          26602    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26603    1       94       1   0  2              0                                                        ADD
          26604    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26605    1       94       2   0  2              0                                                        ADD
          26606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26607    1       94       3   0  2              0                                                        ADD
          26608    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26609    1       94       4   0  2              0                                                        ADD
          26610    5       1        6   1  3              0                STORE NEXT WORD OF CONST                TRANSFER
          26611    125              2   0  3              0                                                        step on and test
          26612    125              5   0  2              0                                                        step on and test
          26613    96               0   0  2              0                                                        SELECT MODIFIER
          26614    12               0   0  0              1                                                        SUBTRACT LITERAL
          26615    2       12      70   0  0              0                NO OF CHARS                             SUBTRACT
          26616    73      265     80   0  0              0        265     >CYCLE FOR MULTIPLE OF 5                JUMP IF A < 0
    26545>26617            1       42   1  0              0                                                        SELECT
          26618    2       318     26   1  0              0        318                                             SUBTRACT
          26619    71      266     22   0  0              0        266     >OK                                     JUMP IF A != 0
          26620    80      263     10   0  0              0        263     CLEAR ALL DETAILS                       ENTER SUBROUTINE
          26621    76      249      2   0  0              0        249                                             JUMP unconditional
    26619>26622    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26623    12               0   0  0              4                                                        SUBTRACT LITERAL
          26624    72      249      2   0  0              0        249     >CONST IS MIXED OR CONTAINS (E)         JUMP IF A >= 0
          26625    90               0   0  1              0                CLEAR MODIFIER                          SET MODIFICATION REGISTER AT LITERAL
          26626    C                0   0  0              0                /////                                   
          26627            94       0   0  1              0                NEXT CHAR                               SELECT
          26628    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26629    71      267      2   0  0              0        267     >NOT'('                                 JUMP IF A != 0
    26633>26630    0       94       1   0  1              0                CHAR AFTER'('                           SELECT
          26631    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26632    12               0   0  0             7‼                )'                                      SUBTRACT LITERAL
          26633    71      266     30   0  0              0        266                                             JUMP IF A != 0
          26634    94               0   0  1              1                TO SELECT CHAR AFTER DIRECTIVE          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          26700    PROCR   267       267     CONSTANTS SWITCH                                                      
  Source image: P1030224.JPG
          26701     NOTES          RADIX                                                                           SELECT
    26629>26702    85      267      2   0  0              0        267                                             SWITCH R
          26703    C       268      2   0  0              0        268                                             
          26704    C       269      2   0  0              0        269                                             
          26705    C       270      2   0  0              0        270                                             
          26706    C       272      2   0  0              0        272                                             
          26707    C       267      8   0  0              0        267     >RELATIVE ADDRESS                       
    26707>26708            12      67   0  0              0                REF(DEC)                                SELECT
          26709    12               0   0  0           1000                                                        SUBTRACT LITERAL
          26710    72      267     13   0  0              0        267     >REPORT R                               JUMP IF A >= 0
          26711    11               0   0  0            £67                1000-99 BIN RADIX                       ADD LITERAL
          26712    72      267     15   0  0              0        267     >REF IS A PROCR                         JUMP IF A >= 0
    26710>26713    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
          26714    76      249      2   0  0              0        249                                             JUMP unconditional
    26712>26715            12      66   0  0              0                ITEM                                    SELECT
          26716    12               0   0  0             99                                                        SUBTRACT LITERAL
          26717    72      245     21   0  0              0        245     >REPORT I                               JUMP IF A >= 0
          26718    76      249      2   0  0              0        249     >OK                                     JUMP unconditional
                                                                                                                   
          26800    PROCR   268       268     CHECK ALPHA CONSTANTS                                                 
          26801     NOTES          RADIX                                                                           SELECT
    26703>26802    00      12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26803    70      268      5   0  0              0        268                                             JUMP IF A == 0
          26804    10               0   0  0              3                                                        SELECT LITERAL
    26803>26805    11               0   0  0              2                                                        ADD LITERAL
    26912>                                                                                                         
    26915>26806    98               0   0  1              0                +MODIFIER=DIRECTIVE LENGTH              ADD MODIFICATION REGISTER TO A
          26807    2       12      70   0  0              0                TOT CHARS IN CONST+1 (INDIRECTIVE)      SUBTRACT
          26808    72      249      2   0  0              0        249     >OK                                     JUMP IF A >= 0
          26809    76      273      2   0  0              0        273     >REPORT*                                JUMP unconditional
                                                                                                                   
          26900    PROCR   269       269     CHECK DECIMAL CONSTANTS                                               
          26901     NOTES          RADIX                                                                           SELECT
    26704>26902    00      12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26903    70      269      5   0  0              0        269     >SHORT                                  JUMP IF A == 0
          26904    10               0   0  0              5                                                        SELECT LITERAL
    26903>26905    11               0   0  0              5                                                        ADD LITERAL
    27206>26906    5       12      67   0  0              0                                                        TRANSFER
          26907    124     12      70   0  0              0                CHARS IN CONST                          modify address of next
          26908            94       1-  0  0              0                FINAL BEFORE NE                         SELECT
          26909    12               0   0  0             10                                                        SUBTRACT LITERAL
          26910    70      269     13   0  0              0        269     >ALLOW FOR SIGN                         JUMP IF A == 0
          26911    0       12      67   0  0              0                                                        SELECT
          26912    76      268      6   0  0              0        268     >CHECK                                  JUMP unconditional
    26910>26913    0       12      67   0  0              0                                                        SELECT
          26914    11               0   0  0              1                                                        ADD LITERAL
          26915    76      268      6   0  0              0        268     >CHECK                                  JUMP unconditional
                                                                                                                   
          27000    PROCR   270       270     BINARY NUMBERS                                                        
          27001     NOTES          RADIX                                                                           SELECT
    26705>27002    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          27003    C                0   0  0             11                                                        
    27016>27004            94       0   0  1              0                NEXT CHAR                               SELECT
          27005    12               0   0  0             7:                                                        SUBTRACT LITERAL
          27006    70      271      2   0  0              0        271     >NUMBER END                             JUMP IF A == 0
          27007    11               0   0  0             6:                                                        ADD LITERAL
          27008    70      271      2   0  0              0        271     >MINUS SIGN                             JUMP IF A == 0
          27009    11               0   0  0             10                                                        ADD LITERAL
          27010    5       12      10   1  0              0                STORE CHAR                              TRANSFER
          27011    0       12      66   1  0              0                                                        SELECT
  Source image: P1030225.JPG
          27012    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          27013    1       12      10   2  0              0                BASIC QTT                               ADD
          27014    5       12      66   1  0              0                ASSEMBLE CONST QTT BY QTT               TRANSFER
          27015    94      270     16   0  1              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    27015>27016    94      270      4   0  2              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27017    76      273      2   0  0              0        273     >REPORT TOO MANY CHARS                  JUMP unconditional
                                                                                                                   
          27100    PROCR   271       271                                                                           
          27101     NOTES          RADIX                                                                           SELECT
    27008>                                                                                                         
    27006>27102    00      12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27103    71      249      2   0  0              0        249                                             JUMP IF A != 0
          27104            12      66   1  0              0                                                        SELECT
          27105    12               0   0  0        1048576                                                        SUBTRACT LITERAL
          27106    72      273      2   0  0              0        273                                             JUMP IF A >= 0
          27107    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          27200    PROCR   272       272     BINARY PATTERN                                                        
          27201     NOTES          RADIX                                                                           SELECT
    26706>27202    00      12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27203    70      272      5   0  0              0        272                                             JUMP IF A == 0
          27204    10               0   0  0             14                                                        SELECT LITERAL
    27203>27205    11               0   0  0             14                                                        ADD LITERAL
          27206    76      269      6   0  0              0        269     >CHECK LENGTH VIA DEC                   JUMP unconditional
                                                                                                                   
          27300    PROCR   273       273     ERROR REPORT                                                          
          27301     NOTES          RADIX                                                                           SELECT
    27106>                                                                                                         
    27017>                                                                                                         
    26809>27302    10               0   0  0             5‼                *                                       SELECT LITERAL
          27303    5       1       44   1  0              0                                                        TRANSFER
          27304    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          27400    PROCR   274       274     GET NEXT CHAR OF CONSTANT(IE NEXT WORD)                               
          27401     NOTES          RADIX                                                                           SELECT
          27402    81      274      2   0  0              0        274                                             START OF SUBROUTINE
          27403    10               0   0  0              0                                                        SELECT LITERAL
          27404    94      274     13   0  3              1        274     >HAVE NOT EXHAUSTED 5-CHAR WORD         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27405    94      274     10   0  1              2        274     STEP FOR NEXT WORD,IF PRESENT           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27406    80      295      2   0  0              0        295     >IGNORE, MORE THAN 45 CHAR              ENTER SUBROUTINE
          27407    10               0   0  0             7:                                                        SELECT LITERAL
          27408    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          27409    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    27405>27410    90               0   0  3              0                R3 COUNTS A 5-CHAR WORD                 SET MODIFICATION REGISTER AT LITERAL
          27411    C                0   0  0              5                                                        
          27412    34      1        6   1  1              0                NEXT WORD OF CONSTANT                   SET (N) IN B
    27404>27413    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27500    PROCR   275       275     ALTERNATIVE ENTRY TO UPDATE ADDRESS                                   
          27502    81      275      2   0  0              0        275                                             START OF SUBROUTINE
          27503    5       12      88   2  0              0                                                        TRANSFER
          27504    0       275      2   0  0              0        275                                             SELECT
          27505    3       274      2   0  0              0        274     SET NONZERO='NOT P'                     COPY
          27506    5       234      2   0  0              0        234                                             TRANSFER
          27507    76      234      5   0  0              0        234     >ENTER                                  JUMP unconditional
                                                                                                                   
          27600    PROCR   276       276     TABLES                                                                
          27601     NOTES          RADIX                                                                           SELECT
    22212>27602    05      12       3   0  0              0                CLEAR ERROR WL                          TRANSFER
          27603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
  Source image: P1030226.JPG
          27604    C                0   0  0              8                                                        
    27621>27605    0       1       22   0  2              0                ITEM                                    SELECT
          27606    05      1       10   0  0              0                                                        TRANSFER
          27607    00      1       20   1  2              0                REF(NUM)                                SELECT
          27608    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          27609    00      1       10   0  0              0                NEW ITEM                                SELECT
          27610    05      1       22   0  2              0                                                        TRANSFER
          27611    00      12       4   0  0              0                NEW REF                                 SELECT
          27612    5       1       20   0  2              0                                                        TRANSFER
          27613    80      277      2   0  0              0        277     CHECK REF                               ENTER SUBROUTINE
          27614            1       19   0  0              0                DISC                                    SELECT
          27615    70      276     21   0  0              0        276     >                                       JUMP IF A == 0
          27616    10               0   0  0              1                1                                       SELECT LITERAL
          27617    32               0   0  0             10-               >B                                      SHIFT (AB) BY QUARTETS
          27618    36      1       10   0  0              0                ITEM                                    COLLATE AND ADD
          27619    70      276     21   0  0              0        276     >EVEN                                   JUMP IF A == 0
          27620    80      226      2   0  0              0        226     >REPORT I                               ENTER SUBROUTINE
    27619>                                                                                                         
    27615>27621    94      276      5   0  2              4        276                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27622    76      278      2   0  0              0        278                                             JUMP unconditional
                                                                                                                   
          27700    PROCR   277       277     SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES                       
          27701     NOTES          RADIX                                                                           SELECT
          27702    81      277      2   0  0              0        277                                             START OF SUBROUTINE
          27703    83      173      2   0  0              1        173                                             SET SWITCH(ES) AT LITERAL VALUE
          27704            12       4   0  0              0                REF TO BE CHECKED                       SELECT
          27705    70      277     14   0  0              0        277     OK                                      JUMP IF A == 0
          27706    12               0   0  0            100                                                        SUBTRACT LITERAL
          27707    72      277     12   0  0              0        277     >NOT SECTION                            JUMP IF A >= 0
    27713>27708    80      225      2   0  0              0        225     >REPORT R                               ENTER SUBROUTINE
          27709    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          27710    83      173      2   0  0              2        173     IGNORE ANY MORE 'VALTHIS REF FOR        SET SWITCH(ES) AT LITERAL VALUE
          27711    76      277     14   0  0              0        277                                             JUMP unconditional
    27707>27712    12               0   0  0            900                                                        SUBTRACT LITERAL
          27713    72      277      8   0  0              0        277     >REF>999,IGNORE                         JUMP IF A >= 0
    27711>                                                                                                         
    27705>27714    82      277      2   0  0              0        277                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27800    PROCR   278       278     TABLE SWITCH                                                          
          27801     NOTES          RADIX                                                                           SELECT
    27622>27802    0       1       19   0  0              0                DISC                                    SELECT
          27803    73      282     18   0  0              0        282     >REPORT T5                              JUMP IF A < 0
          27804    12               0   0  0              3                                                        SUBTRACT LITERAL
          27805    72      282     18   0  0              0        282                                             JUMP IF A >= 0
          27806    0       1       20   0  0              0                FIRST REF                               SELECT
          27807    70      282     24   0  0              0        282     >REPORT T1                              JUMP IF A == 0
          27808    85      278      8   0  0              0        278                                             SWITCH R
          27809    C       279      2   0  0              0        279                                             
          27810    C       281      2   0  0              0        281                                             
          27811    C       279     10   0  0              0        279     >TYPE 3                                 
          27812    C       281      2   0  0              0        281                                             
          27813    C       249      2   0  0              0        249                                             
                                                                                                                   
          27900    PROCR   279       279     TYPES 1 AND 3                                                         
          27901     NOTES          RADIX          EDIT AND UNPACK FIXED                                            SELECT
    27809>27902            1       12   0  0              0                NO OF CHARS                             SELECT
          27903    1       1       14   0  0              0                SPACES                                  ADD
          27904    4       12       5   0  0              0                TOTAL FOR TABLE                         AUGMENT
          27905            1       16   0  0              0                SIGN                                    SELECT
          27906    12               0   0  0              2                                                        SUBTRACT LITERAL
  Source image: P1030227.JPG
          27907    71      279     10   0  0              0        279     >NOT SEPARATE CHARACTER                 JUMP IF A != 0
          27908    10               0   0  0              1                                                        SELECT LITERAL
          27909    4       12       5   0  0              0                STEP TOTAL                              AUGMENT
    27907>                                                                                                         
    27811>27910            1       24   0  0              0                SECOND REF                              SELECT
          27911    34      1       26   0  0              0                SECOND ITEM                             SET (N) IN B
          27912    75      282     22   0  0              0        282     >REPORT T3                              JUMP IF AB != 0
          27913            1       11   0  0              0                                                        SELECT
          27914    71      282     16   0  0              0        282     >'UNPACK TO BE' IS SET                  JUMP IF A != 0
          27915    0       1       19   0  0              0                DISC                                    SELECT
          27916    12               0   0  0              1                                                        SUBTRACT LITERAL
          27917    70      279     19   0  0              0        279                                             JUMP IF A == 0
          27918    10               0   0  0              5-                                                       SELECT LITERAL
    27917>27919    11               0   0  0             10                                                        ADD LITERAL
          27920    2       1       12   0  0              0                CHARS                                   SUBTRACT
          27921    2       1       13   0  0              0                DISCARDS                                SUBTRACT
          27922    73      282     14   0  0              0        282     >IN CONSISTENT WITH SOURCE LENGTH       JUMP IF A < 0
          27923    1       1       12   0  0              0                                                        ADD
          27924    1       1       13   0  0              0                                                        ADD
          27925    2       1       15   0  0              0                ZEROS                                   SUBTRACT
          27926    73      282      8   0  0              0        282     >MORE ZEROS THAN SOURCE                 JUMP IF A < 0
                                                                                                                   
          28000    PROCR   280       280                                                                           
          28001     NOTES          RADIX                                                                           SELECT
          28002            1       14   0  0              0                                                        SELECT
          28003    12               0   0  0             16                                                        SUBTRACT LITERAL
          28004    72      282     10   0  0              0        282     >TOO MANY SPACES                        JUMP IF A >= 0
          28005    0       1       12   0  0              0                CHARS                                   SELECT
          28006    70      282     14   0  0              0        282     >REPORT'T7'                             JUMP IF A == 0
          28007    0       1       19   0  0              0                DISC                                    SELECT
          28008    12               0   0  0              2                                                        SUBTRACT LITERAL
          28009    71      280     12   0  0              0        280     >NOT ALPHA                              JUMP IF A != 0
          28010    0       1       15   0  0              0                ZEROS                                   SELECT
          28011    71      282      8   0  0              0        282     >REPORT'T10'                            JUMP IF A != 0
    28009>28012            1       17   0  0              0                STERLING INDICTOR                       SELECT
          28013    71      280     17   0  0              0        280                                             JUMP IF A != 0
          28014    2       12      63   0  0              0                STERLING CTR                            SUBTRACT
          28015    70      280     24   0  0              0        280     >OK                                     JUMP IF A == 0
          28016    76      280     38   0  0              0        280     >REPORT 'T12'                           JUMP unconditional
    28013>28017    12               0   0  0              1                                                        SUBTRACT LITERAL
          28018    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28019            12      63   0  0              0                                                        SELECT
          28020    12               0   0  0              2                                                        SUBTRACT LITERAL
          28021    70      280     23   0  0              0        280                                             JUMP IF A == 0
          28022    11               0   0  0              3                                                        ADD LITERAL
    28021>28023    5       12      63   0  0              0                                                        TRANSFER
    28015>28024            1       18   0  0              0                LAST TABLE ENTRY IND                    SELECT
          28025    3       12       6   0  0              0                COPY TO WL                              COPY
          28026    70      249      2   0  0              0        249                                             JUMP IF A == 0
          28027    12               0   0  0              1                                                        SUBTRACT LITERAL
          28028    71      282      2   0  0              0        282     >'T13' IF LTE WRONG                     JUMP IF A != 0
          28029            12       5   0  0              0                CHARACTERS EDITED                       SELECT
          28030    1       12       5   0  0              0                                                        ADD
          28031    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          28032    70      280     35   0  0              0        280     >MULT OF 5                              JUMP IF A == 0
          28033    10               0   0  0         727464                'SUM'                                   SELECT LITERAL
          28034    5       1       44   1  0              0                                                        TRANSFER
    28032>28035    5       12       5   0  0              0                CLEAR CTR AT EACH LTE                   TRANSFER
          28036    2       12      63   0  0              0                STERLING INDICATORAS NOT                SUBTRACT
          28037    70      249      2   0  0              0        249     OCCURRED IN 3       CONSECUTIVE LINES   JUMP IF A == 0
  Source image: P1030228.JPG
    28016>28038    4       12      63   0  0              0                CLEAR COUNTER                           AUGMENT
          28039    76      282      4   0  0              0        282     ERROR REPORT        T12                 JUMP unconditional
                                                                                                                   
          28100    PROCR   281       281     CHECK TABLES                                                          
          28101     NOTES          RADIX          TYPES 2 AND 4                                                    SELECT
    27812>                                                                                                         
    27810>28102            1       11   0  0              0                'SINGLE/BE'                             SELECT
          28103    70      281      8   0  0              0        281                                             JUMP IF A == 0
          28104    12               0   0  0              1                                                        SUBTRACT LITERAL
          28105    71      282     16   0  0              0        282                                             JUMP IF A != 0
          28106            1       18   0  0              0                'LAST TABLE ENTRY'                      SELECT
          28107    70      282      2   0  0              0        282                                             JUMP IF A == 0
    28103>28108            1       12   0  0              0                NO OF CHARS                             SELECT
          28109    71      282     14   0  0              0        282                                             JUMP IF A != 0
          28110            1       13   0  0              0                DISCARDS                                SELECT
          28111    71      282     12   0  0              0        282                                             JUMP IF A != 0
          28112            1       14   0  0              0                SPACES                                  SELECT
          28113    71      282     10   0  0              0        282                                             JUMP IF A != 0
          28114            1       15   0  0              0                ZEROS                                   SELECT
          28115    71      282      8   0  0              0        282                                             JUMP IF A != 0
          28116            1       16   0  0              0                SIGN                                    SELECT
          28117    70      281     20   0  0              0        281                                             JUMP IF A == 0
          28118    12               0   0  0              2                                                        SUBTRACT LITERAL
          28119    71      282      6   0  0              0        282                                             JUMP IF A != 0
    28117>28120            1       17   0  0              0                STERLING IND                            SELECT
          28121    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28122    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          28200    PROCR   282       282     MAKE REPORT'T*'                                                       
          28201     NOTES          RADIX                                                                           SELECT
    28107>                                                                                                         
    28028>28202    10               0   0  0              1                T13                                     SELECT LITERAL
          28203    5       12       3   0  0              0                                                        TRANSFER
    28121>                                                                                                         
    28039>                                                                                                         
    28018>28204    10               0   0  0              1                T12                                     SELECT LITERAL
          28205    4       12       3   0  0              0                                                        AUGMENT
    28119>28206    10               0   0  0              1                T11                                     SELECT LITERAL
          28207    4       12       3   0  0              0                                                        AUGMENT
    28115>                                                                                                         
    28011>                                                                                                         
    27926>28208    10               0   0  0              1                T10                                     SELECT LITERAL
          28209    4       12       3   0  0              0                                                        AUGMENT
    28113>                                                                                                         
    28004>28210    10               0   0  0              1                T9                                      SELECT LITERAL
          28211    4       12       3   0  0              0                                                        AUGMENT
    28111>28212    10               0   0  0              1                T8                                      SELECT LITERAL
          28213    4       12       3   0  0              0                                                        AUGMENT
    28109>                                                                                                         
    28006>                                                                                                         
    27922>28214    10               0   0  0              1                T7                                      SELECT LITERAL
          28215    4       12       3   0  0              0                                                        AUGMENT
    28105>                                                                                                         
    27914>28216    10               0   0  0              1                T6                                      SELECT LITERAL
          28217    4       12       3   0  0              0                                                        AUGMENT
    27805>                                                                                                         
    27803>28218    10               0   0  0              1                T5                                      SELECT LITERAL
          28219    4       12       3   0  0              0                                                        AUGMENT
          28220    10               0   0  0              1                T4                                      SELECT LITERAL
          28221    4       12       3   0  0              0                                                        AUGMENT
  Source image: P1030235.JPG
    27912>28222    10               0   0  0              2                T3                                      SELECT LITERAL
          28223    4       12       3   0  0              0                                                        AUGMENT
    27807>28224    10               0   0  0              1                T1                                      SELECT LITERAL
          28225    1       12       3   0  0              0                                                        ADD
          28226    5       12      88   0  0              0                                                        TRANSFER
          28227    52      1       44   0  0              0                                                        EDIT
          28228    C       306      6   0  0              0        306                                             
    23121>28229    10               0   0  0         730000                                                        SELECT LITERAL
          28230    4       1       44   1  0              0                                                        AUGMENT
          28231    76      249      2   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          28300    PROCR   283       283     UNPACK PAPER TAPE PART ONE-DIRECTIVES                                 
          28301     NOTES          RADIX                                                                           SELECT
          28302    81      283      2   0  0              0        283                                             START OF SUBROUTINE
          28303    54      1        0   1  0             46                                                        BULK CLEAR
          28304            12      38   0  0              0                                                        SELECT
          28305    70      285      2   0  0              0        285     >NOT A DIRECTIVE                        JUMP IF A == 0
          28306    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28307    C       283      9   0  0              0        283     P/T                                     
          28308    C       283     31   0  0              0        283     CARDS                                   
    28307>28309    00      92      30   0  0              0                AMEND RUN?                              SELECT
          28310    70      283     13   0  0              0        283     >NO                                     JUMP IF A == 0
          28311    124     311      2   0  2              0        311                                             select literal and division
          28312    76      283     14   0  0              0        283                                             JUMP unconditional
    28310>28313    124     311      4   0  2              0        311                                             select literal and division
    28312>28314    80      325      2   0  0              0        325     UNPACK P/T S/DIR                        ENTER SUBROUTINE
          28315    0       27       5   0  0              0                                                        SELECT
          28316    12               0   0  0              2                                                        SUBTRACT LITERAL
          28317    71      283     28   0  0              0        283     >NOT TABLE                              JUMP IF A != 0
          28318    00      12      38   0  0              0                                                        SELECT
          28319    73      283     28   0  0              0        283     >NOT 'NOTES' OF TABLE                   JUMP IF A < 0
          28320    10               0   0  0              0                S/DIR WAS 'NOTES' OF TABLE              SELECT LITERAL
          28321    05      1        8   1  0              0                & MUST BE UNPACKED DIFFERENTLY          TRANSFER
          28322    00      92      30   0  0              0                                                        SELECT
          28323    70      283     26   0  0              0        283     >INITIAL TRANSLATION                    JUMP IF A == 0
          28324    124     311     10   0  2              0        311                                             select literal and division
          28325    76      283     27   0  0              0        283                                             JUMP unconditional
    28323>28326    124     311     12   0  2              0        311                                             select literal and division
    28325>28327    80      325      2   0  0              0        325     UNPACK CORRECTLY                        ENTER SUBROUTINE
    28339>                                                                                                         
    28342>                                                                                                         
    28506>                                                                                                         
    28606>                                                                                                         
    28609>                                                                                                         
    28614>                                                                                                         
    28319>                                                                                                         
    28317>28328    10               0   0  0              0                                                        SELECT LITERAL
          28329    5       1       44   1  0              0                CLEAR ERROR WL                          TRANSFER
          28330    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28308>28331    50      9        8   0  0              0                UNPACK S/DIR FROM CARD                  UNPACK FIXED FIELD DATA
          28332    C       311      4   0  0              0        311                                             
          28333    55      9       18   1  0             16                                                        BULK COPY
          28334    C       1       18   1  0              0                                                        
          28335    00      1        8   1  0              0                                                        SELECT
          28336    30               0   0  0              4                LEFT ALIGN SECTION NO                   SHIFT (A) BY QUARTETS
          28337    05      1        8   1  0              0                                                        TRANSFER
          28338    00      12      38   0  0              0                                                        SELECT
          28339    73      283     28   0  0              0        283     NOT 'NOTES'                             JUMP IF A < 0
          28340            27       5   0  0              0                                                        SELECT
          28341    12               0   0  0              1                                                        SUBTRACT LITERAL
  Source image: P1030236.JPG
          28342    71      283     28   0  0              0        283     >NOT 'PROCR', LEAVE SR                  JUMP IF A != 0
          28343    00      1       18   1  0              0                S/DIR WAS ''NOTES'' OF PROCR            SELECT
          28344    05      1        8   1  0              0                MOVE ''RADIX''                          TRANSFER
          28345    55      9       20   1  0             16                COPY WORDS                              BULK COPY
          28346    C       1       18   1  0              0                                                        
          28347    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28400    PROCR   284       284     UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK                         
          28401     NOTES          RADIX                                                                           SELECT
          28402    81      284      2   0  0              0        284                                             START OF SUBROUTINE
          28403    54      1        6   1  0             40                                                        BULK CLEAR
    25805>28404            27       1   0  0              0                                                        SELECT
          28405    71      304      2   0  0              0        304     >MULTI-RECORD BLOCKS                    JUMP IF A != 0
          28406            12      38   0  0              0                                                        SELECT
          28407    70      284     21   0  0              0        284     >NOT DIRECTIVE                          JUMP IF A == 0
          28408    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28409    C       307      2   0  0              0        307                                             
          28410            12      86   0  0              0                                                        SELECT
          28411    70      284     18   0  0              0        284                                             JUMP IF A == 0
          28412            27       5   0  0              0                                                        SELECT
          28413    12               0   0  0              1                                                        SUBTRACT LITERAL
          28414    70      284     46   0  0              0        284     >'PROCR'                                JUMP IF A == 0
          28415    0       7       20   1  0              0                                                        SELECT
          28416    5       1       16   1  0              0                COPY TABLE OR CONST TYPE                TRANSFER
          28417    76      284     46   0  0              0        284                                             JUMP unconditional
    28411>28418    55      7       20   1  0             30                                                        BULK COPY
          28419    C       1       16   1  0              0                                                        
          28420    76      284     45   0  0              0        284                                             JUMP unconditional
    28407>28421    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28422    C       284     31   0  0              0        284     >'PROCR'                                
          28423    C       284     34   0  0              0        284     >'TABLE'                                
          28424    C       284     37   0  0              0        284     >'CONST'                                
          28425    C       284     26   0  0              0        284     'VALUE'=4                               
    28425>28426    55      7        8   2  0             36                R,I+VALUES                              BULK COPY
          28427    C       1        9   0  0              0                                                        
          28428    55      7       44   2  0              6                ANNOTATION                              BULK COPY
          28429    C       1       40   2  0              0                                                        
          28430    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28422>28431    50      7        4   0  0              0                INSTRUCTIONS                            UNPACK FIXED FIELD DATA
          28432    C       308      2   0  0              0        308                                             
          28433    76      284     41   0  0              0        284                                             JUMP unconditional
    28423>28434    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28435    C       309      2   0  0              0        309     UNPACK TABLE ENTRIES                    
          28436    76      284     41   0  0              0        284                                             JUMP unconditional
    28424>28437    55      7       12   1  0             18                CONSTANTS                               BULK COPY
          28438    C       1        6   1  0              0                                                        
          28439            7        4   2  0              0                AMEND IND                               SELECT
          28440    5       1        0   1  0              0                                                        TRANSFER
    28436>                                                                                                         
    28433>28441            12      86   0  0              0                                                        SELECT
          28442    71      284     46   0  0              0        284                                             JUMP IF A != 0
          28443    55      7       32   1  0             18                                                        BULK COPY
          28444    C       1       28   1  0              0                                                        
    28420>28445    5       1       44   1  0              0                CLEAR ERROR         INDICATOR           TRANSFER
    28442>                                                                                                         
    28417>                                                                                                         
    28414>28446    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28500    PROCR   285       285     UNPACK PAPER TAPE PART TWO                                            
          28501     NOTES          RADIX                                                                           SELECT
  Source image: P1030237.JPG
    28305>28502    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28503    C       286      2   0  0              0        286     >'PROCR'                                
          28504    C       286      7   0  0              0        286     >'TABLE'                                
          28505    C       286     10   0  0              0        286     >'CONST'                                
          28506    C       283     28   0  0              0        283     'VALUE'(DUMMY)                          
                                                                                                                   
          28600    PROCR   286       286     UNPACK PAPER TAPE PART THREE                                          
          28601     NOTES          RADIX                                                                           SELECT
    28503>28602    124     312      2   0  2              0        312                                             select literal and division
          28603    80      325      2   0  0              0        325     >INSTRUCTIONS                           ENTER SUBROUTINE
          28604    10               0   0  0              0                                                        SELECT LITERAL
          28605    5       1       20   1  0              0                CLEAR'CLEO'WORD                         TRANSFER
          28606    76      283     28   0  0              0        283                                             JUMP unconditional
    28504>28607    124     313      2   0  2              0        313                                             select literal and division
          28608    80      325      2   0  0              0        325     >TABLE ENTRIES                          ENTER SUBROUTINE
          28609    76      283     28   0  0              0        283                                             JUMP unconditional
    28505>28610    124     314      2   0  2              0        314                                             select literal and division
          28611    80      325      2   0  0              0        325     >CONSTANTS                              ENTER SUBROUTINE
          28612    50      9        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28613    C       310      8   0  0              0        310                                             
          28614    76      283     28   0  0              0        283                                             JUMP unconditional
                                                                                                                   
          28700    PROCR   287       287     TEST WORD IN ACCUMULATOR                                              
          28701     NOTES          RADIX          IS A STACKING WORD                                               SELECT
          28702    81      287      2   0  0              0        287                                             START OF SUBROUTINE
          28703    2       318      4   1  0              0        318     'CONST'                                 SUBTRACT
          28704    73      287     35   0  0              0        287     >NOT DIRECTIVE                          JUMP IF A < 0
          28705    70      287     28   0  0              0        287                                             JUMP IF A == 0
          28706    1       318      4   1  0              0        318                                             ADD
          28707    02      318     12   1  0              0        318     'NOTES'                                 SUBTRACT
          28708    71      287     14   0  0              0        287     >NO                                     JUMP IF A != 0
          28709            27       5   0  0              0                                                        SELECT
          28710    12               0   0  0              3                                                        SUBTRACT LITERAL
          28711    70      287     35   0  0              0        287     >NOTES FOLLOWING 'CONST'-NOT DIRECTIVE  JUMP IF A == 0
          28712    10               0   0  0             10                SET (12/38)>0                           SELECT LITERAL
          28713    76      287     33   0  0              0        287                                             JUMP unconditional
    28708>28714    01      318     12   1  0              0        318     'NOTES'                                 ADD
          28715    02      318      6   1  0              0        318     'PROCR'                                 SUBTRACT
          28716    70      287     30   0  0              0        287     >YES                                    JUMP IF A == 0
          28717    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28718    01      318      6   1  0              0        318     'PROCR'                                 ADD
          28719    02      318      2   1  0              0        318     'TABLE'                                 SUBTRACT
          28720    70      287     29   0  0              0        287     >YES                                    JUMP IF A == 0
          28721    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28722    01      318      2   1  0              0        318     'TABLE'                                 ADD
          28723    02      318     28   1  0              0        318     'VALUE'                                 SUBTRACT
          28724    71      287     35   0  0              0        287     >HENCE NOT A DIRECTIVE                  JUMP IF A != 0
          28725            12      33   0  0              0                                                        SELECT
          28726    71      287     35   0  0              0        287                                             JUMP IF A != 0
          28727    10               0   0  0              1                >PT IN,'VALUE' ISNT A DIRECTIVE         SELECT LITERAL
    28705>28728    11               0   0  0              1                                                        ADD LITERAL
    28720>28729    11               0   0  0              1                (CONST)                                 ADD LITERAL
    28716>28730    11               0   0  0              1                (TABLE)                                 ADD LITERAL
          28731    5       27       5   0  0              0                (PROCR)                                 TRANSFER
          28732    12               0   0  0             10                                                        SUBTRACT LITERAL
    28713>28733    05      12      38   0  0              0                SET<0 IF PROCR/TABLE/CONST/VALUE        TRANSFER
          28734    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28726>                                                                                                         
    28724>                                                                                                         
    28721>                                                                                                         
    28717>                                                                                                         
    28711>                                                                                                         
  Source image: P1030238.JPG
    28704>28735    10               0   0  0              0                                                        SELECT LITERAL
          28736    05      12      38   0  0              0                                                        TRANSFER
          28737    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28800    PROCR   288       288     SQUASH NEXT RECORD IN SEC 29,COPY TO 8,WRITE 8 IF FULL                
          28801     NOTES          RADIX                                                                           SELECT
          28802    81      288      2   0  0              0        288                                             START OF SUBROUTINE
          28803            12     110   0  0              0                CARD SER ERROR                          SELECT
          28804    70      288     11   0  0              0        288     >NO ERROR                               JUMP IF A == 0
          28805            12     111   0  0              0                                                        SELECT
          28806    70      288     10   0  0              0        288                                             JUMP IF A == 0
          28807    124     318     22   0  1              0        318                                             modify address of next
          28808    124     305     10   0  1              0        305                                             modify address of next
          28809    5       29       0   1  0              0                WRONG SERIAL TO ERROR REPORT WORD       TRANSFER
    28806>28810    5       12     110   0  0              0                                                        TRANSFER
    28804>28811    90               0   0  1             44                                                        SET MODIFICATION REGISTER AT LITERAL
          28812    C                0   0  0              2                                                        
    28815>28813            29       2-  1  1              0                LAST WORD                               SELECT
          28814    71      288     16   0  0              0        288     >NON-ZERO                               JUMP IF A != 0
          28815    94      288     13   0  1              2-       288                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    28814>28816    96               0   0  1              0                CONTENTS OF MODIFIER                    SELECT MODIFIER
          28817    3       29       0   2  0              0                REC LENGTH                              COPY
          28818    10               0   0  0             90                TOTAL ROOM SEC 8                        SELECT LITERAL
          28819    2       317     12   0  0              0        317                                             SUBTRACT
          28820    2       29       0   2  0              0                CURRENT RECORD LENGTH                   SUBTRACT
          28821    72      288     30   0  0              0        288     >+VE OR ZERO                            JUMP IF A >= 0
    32405>28822            317     12   0  0              0        317                                             SELECT
          28823    3       8        4   2  0              0                BLOCK LENGTH                            COPY
          28824    91      317     12   0  1              0        317                                             SET MODIFICATION REGISTER AT VARIABLE
          28825            318     10   1  0              0        318     BE WORD                                 SELECT
          28826    5       8        6   1  1              0                                                        TRANSFER
          28827    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          28828    54      8        4   1  0             46                                                        BULK CLEAR
          28829    5       317     12   0  0              0        317     CLEAR                                   TRANSFER
    28821>28830    10               0   0  0              6                                                        SELECT LITERAL
          28831    5       12       2   0  0              0                                                        TRANSFER
          28832    91      317     12   0  1              0        317                                             SET MODIFICATION REGISTER AT VARIABLE
          28833    55      29       0   1  0              0                COPY TO SEC 8                           BULK COPY
          28834    C       8        6   1  1              0                                                        
          28835    C       29       0   2  0              0                                                        
          28836            29       0   2  0              0                                                        SELECT
          28837    4       317     12   0  0              0        317     STEP QTTY IN BLOCK TO DATE              AUGMENT
          28838    54      29       0   1  0             44                CLEAR SEC 29                            BULK CLEAR
          28839    82      288      2   0  0              0        288                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28900    PROCR   289       289                                                                           
          28902    81      289      2   0  0              0        289                                             START OF SUBROUTINE
          28903    0       318     10   1  0              0        318                                             SELECT
          28904    5       8       50   1  0              0                BEW                                     TRANSFER
          28905    80      290      2   0  0              0        290                                             ENTER SUBROUTINE
          28906    54      8        4   1  0             46                                                        BULK CLEAR
          28907    82      289      2   0  0              0        289                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29000    PROCR   290       290                                                                           
          29002    81      290      2   0  0              0        290                                             START OF SUBROUTINE
          29003    43      A2       0   0  0              0                                                        OUTPUT
          29004    C       8        0   0  0              0                                                        
          29005    82      290      2   0  0              0        290                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1030239.JPG
          29100    PROCR   291       291     READ B/FWD MT FILE                                                    
          29102    81      291      2   0  0              0        291                                             START OF SUBROUTINE
          29103    42      A1       0   0  0              0                                                        INPUT
          29104    C       7        0   0  0              0                                                        
          29105    82      291      2   0  0              0        291                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29200    PROCR   292       292     INPUT OFF PAPER TAPE                                                  
          29201     NOTES          RADIX                                                                           SELECT
          29202    81      292      2   0  0              0        292                                             START OF SUBROUTINE
          29203    80      301      2   0  0              0        301     >READ A6                                ENTER SUBROUTINE
          29204            9        4   1  0              0                                                        SELECT
          29205    2       318     46   1  0              0        318     'TRAMD'                                 SUBTRACT
          29206    70      292     19   0  0              0        292     >DONT INSERT BE                         JUMP IF A == 0
          29207    34      9       48   2  0              0                                                        SET (N) IN B
          29208    10               0   0  0              0                                                        SELECT LITERAL
          29209    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          29210    5       319     42   1  0              0        319     WORD CTR                                TRANSFER
          29211    91      319     42   0  1              0        319                                             SET MODIFICATION REGISTER AT VARIABLE
          29212    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          29213    5       288      2   0  0              0        288     COL POSN>WL                             TRANSFER
          29214    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          29215    10               0   0  0             7.                                                        SELECT LITERAL
          29216    124     288      2   0  1              0        288                                             modify address of next
          29217    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          29218    37      9        0   1  1              0                                                        REPLACE SELECTED BITS
    29206>29219    82      292      2   0  0              0        292                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29300    PROCR   293       293     TEST AMENDMENT IS A STACKING DIRECTIVE                                
          29301     NOTES          RADIX                                                                           SELECT
          29302    81      293      2   0  0              0        293                                             START OF SUBROUTINE
          29303    54      1        0   1  0              8                                                        BULK CLEAR
          29304    124     311      2   0  2              0        311                                             select literal and division
          29305    80      325      2   0  0              0        325                                             ENTER SUBROUTINE
          29306            1        6   1  0              0                                                        SELECT
          29307    80      287      2   0  0              0        287     >TEST DIRECTIVE                         ENTER SUBROUTINE
          29308    82      293      2   0  0              0        293                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29400    PROCR   294       294     TEST FOR MOD END SIGN                                                 
          29401     NOTES          RADIX          OR DIRECTIVE                                                     SELECT
          29402    81      294      4   0  0              0        294                                             START OF SUBROUTINE
          29403            9        4   1  0              0                                                        SELECT
          29404    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          29405    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          29406    2       318     14   1  0              0        318     'END  '                                 SUBTRACT
          29407    70      294     11   0  0              0        294                                             JUMP IF A == 0
          29408            9        4   1  0              0                                                        SELECT
          29409    2       318     46   1  0              0        318     'TRAMD'                                 SUBTRACT
          29410    71      294     13   0  0              0        294                                             JUMP IF A != 0
    29407>29411    10               0   0  0         100000                                                        SELECT LITERAL
          29412    76      294     34   0  0              0        294                                             JUMP unconditional
    29410>29413    10               0   0  0              0                CLEAR LOCATION      TO WHICH            SELECT LITERAL
          29414    5       1        4   1  0              0                AMENDMENT DIRECTIVE IS UNPACKED         TRANSFER
          29415    124     311     10   0  2              0        311                                             select literal and division
          29416    80      325      2   0  0              0        325     >UNPACK AMEND LETTER                    ENTER SUBROUTINE
          29417    34      1        4   1  0              0                                                        SET (N) IN B
          29418    10               0   0  0              0                                                        SELECT LITERAL
          29419    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          29420    12               0   0  0             69                                                        SUBTRACT LITERAL
          29421    70      294     31   0  0              0        294                                             JUMP IF A == 0
  Source image: P1030240.JPG
          29422    11               0   0  0             15                                                        ADD LITERAL
          29423    70      294     30   0  0              0        294                                             JUMP IF A == 0
          29424    12               0   0  0             19                                                        SUBTRACT LITERAL
          29425    70      294     29   0  0              0        294                                             JUMP IF A == 0
          29426    11               0   0  0             22                                                        ADD LITERAL
          29427    71      294     36   0  0              0        294                                             JUMP IF A != 0
          29428    10               0   0  0              1                                                        SELECT LITERAL
    29425>29429    11               0   0  0              1                                                        ADD LITERAL
    29423>29430    11               0   0  0              1                                                        ADD LITERAL
    29421>29431    11               0   0  0              1                                                        ADD LITERAL
          29432    84      254      2   0  0              0        254                                             SET SWITCH(ES) AT VARIABLE VALUE
          29433    10               0   0  0              1                                                        SELECT LITERAL
    29437>                                                                                                         
    29412>29434    3       12      44   1  0              0                                                        COPY
          29435    82      294      2   0  0              0        294                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    29427>29436    10               0   0  0              0                                                        SELECT LITERAL
          29437    76      294     34   0  0              0        294                                             JUMP unconditional
                                                                                                                   
          29500    PROCR   295       295     IGNORE THIS INSTRUCTION                                               
          29501     NOTES          RADIX                                                                           SELECT
          29502    81      295      2   0  0              0        295                                             START OF SUBROUTINE
          29503            318     26   1  0              0        318                                             SELECT
          29504    5       1       42   1  0              0                                                        TRANSFER
          29505    82      295      2   0  0              0        295                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29600    PROCR   296       296     IGNORE PREVIOUS INSTRUCTION                                           
          29601     NOTES          RADIX                                                                           SELECT
          29602    81      296      2   0  0              0        296                                             START OF SUBROUTINE
          29603            318     26   1  0              0        318                                             SELECT
          29604    124     318     22   0  1              0        318                                             modify address of next
          29605    124     305      2   0  1              0        305                                             modify address of next
          29606    5       29      14   1  0              0                                                        TRANSFER
          29607    82      296      2   0  0              0        296                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29700    PROCR   297       297     +ANNOTATION IF CARD                                                   
          29701     NOTES          RADIX                                                                           SELECT
          29702    81      297      2   0  0              0        297                                             START OF SUBROUTINE
          29703    10               0   0  0                                                                       SELECT LITERAL
          29704    82      297      2   0  0              0        297                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29800    PROCR   298       298     BULK COPY ANNOTATION                                                  
          29801     NOTES          RADIX                                                                           SELECT
          29802    81      298      2   0  0              0        298                                             START OF SUBROUTINE
          29803    55      9       18   1  0             16                                                        BULK COPY
          29804    C       1       28   1  0              0                                                        
          29805    82      298      2   0  0              0        298                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29900    PROCR   299       299     TEST END SIGN ON MAG TAPE                                             
          29901     NOTES          RADIX                                                                           SELECT
          29902    81      299      2   0  0              0        299                                             START OF SUBROUTINE
          29903            27       1   0  0              0                                                        SELECT
          29904    70      299      7   0  0              0        299     >1 RECORD PER BLOCK                     JUMP IF A == 0
          29905                     6   1  8              0                                                        SELECT
          29906    76      299      8   0  0              0        299                                             JUMP unconditional
    29904>29907    00      7       10   1  0              0                                                        SELECT
    29906>29908    2       318     14   1  0              0        318                                             SUBTRACT
          29909    70      321      2   0  0              0        321                                             JUMP IF A == 0
          29910    82      299      2   0  0              0        299                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30000    PROCR   300       300     LEFT ALIGN SUB-ROUTINE                                                
  Source image: P1030241.JPG
          30001     NOTES          RADIX                                                                           SELECT
          30002    81      300      2   0  0              0        300     DATA IN B                               START OF SUBROUTINE
          30003    10               0   0  0              0                                                        SELECT LITERAL
          30004    74      300      8   0  0              0        300     ZERO NUMBER?                            JUMP IF AB == 0        // 27, 1, 0
    30006>30005    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          30006    70      300      5   0  0              0        300                                             JUMP IF A == 0
          30007    32               0   0  0              8                LEFT ALIGN IN A                         SHIFT (AB) BY QUARTETS
    30004>30008    82      300      2   0  0              0        300                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30100    PROCR   301       301                                                                           
          30102    81      301      2   0  0              0        301                                             START OF SUBROUTINE
          30103    42      A6       0   0  0              0                                                        INPUT
          30104    C       9        0   0  0              0                                                        
          30105    82      301      2   0  0              0        301                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30200    PROCR   302       302     STEP MR,TEST END OF BLOCK                                             
          30202    81      302      2   0  0              0        302                                             START OF SUBROUTINE
          30203            27       1   0  0              0                                                        SELECT
          30204    70      302     13   0  0              0        302     >1 RECORD PER BLOCK                     JUMP IF A == 0
          30205                     0   2  8              0                CURRENT RECORD LENGTH                   SELECT
          30206    5       291      2   0  0              0        291     WL                                      TRANSFER
          30207    97      291      2   0  8              0        291                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          30208    C       302     12   0  0              0        302     >BLOCK NOT EMPTY                        
          30209    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30210    59      7        6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          30211    C       7        4   2  0              0                                                        
    30208>30212    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30204>30213    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30214    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30300    PROCR   303       303     TEST MT=STACK DIRECTIVE                                               
          30302    81      303      2   0  0              0        303                                             START OF SUBROUTINE
          30303            27       1   0  0              0                                                        SELECT
          30304    70      303      8   0  0              0        303                                             JUMP IF A == 0
          30305                     6   1  8              0                                                        SELECT
    30309>30306    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          30307    82      303      2   0  0              0        303                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30304>30308            7       10   1  0              0                                                        SELECT
          30309    76      303      6   0  0              0        303                                             JUMP unconditional
                                                                                                                   
          30400    PROCR   304       304     UNPACK MT-MULTIRECORD BLOCKS                                          
    28405>30402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          30403    54      28       0   1  0             46                                                        BULK CLEAR
          30404            12      38   0  0              0                                                        SELECT
          30405    70      304     32   0  0              0        304     >NOT DIRECTIVE                          JUMP IF A == 0
          30406                     0   2  8              0                                                        SELECT
          30407    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30408    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30409    128     28       0   1  1              0                COPY DIRECTIVE+LENGTH WORD              bulk copy long numeric
          30410    50      28       2   0  0              0                UNPACK                                  UNPACK FIXED FIELD DATA
          30411    C       307     16   0  0              0        307                                             
          30412            27       5   0  0              0                                                        SELECT
          30413    12               0   0  0              1                                                        SUBTRACT LITERAL
          30414    71      304     19   0  0              0        304     >NOT'PROCR'                             JUMP IF A != 0
          30415            12      38   0  0              0                                                        SELECT
          30416    73      304     19   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
          30417            28      12   1  0              0                                                        SELECT
          30418    5       1        8   1  0              0                COPY'RADIX'                             TRANSFER
    30416>                                                                                                         
    30414>30419            12      86   0  0              0                                                        SELECT
  Source image: P1030242.JPG
          30420    70      304     29   0  0              0        304     >NOT'REPLACE ANNOTATION'                JUMP IF A == 0
          30421            27       5   0  0              0                                                        SELECT
          30422    12               0   0  0              1                                                        SUBTRACT LITERAL
          30423    71      304     26   0  0              0        304     >NOT'PROCR'                             JUMP IF A != 0
          30424            12      38   0  0              0                                                        SELECT
          30425    73      304     47   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
    30423>30426            28      14   1  0              0                CONST/TABLE TYPE OR RADIX LETTER        SELECT
          30427    5       1       16   1  0              0                                                        TRANSFER
          30428    76      304     47   0  0              0        304                                             JUMP unconditional
    30420>30429    55      28      14   1  0             26                ANNOTATION ETC EVEN IF ABSENT           BULK COPY
          30430    C       1       16   1  0              0                                                        
          30431    76      304     47   0  0              0        304                                             JUMP unconditional
    30405>30432            27       5   0  0              0                                                        SELECT
          30433    12               0   0  0              4                                                        SUBTRACT LITERAL
          30434    70      304     61   0  0              0        304     >VALUES                                 JUMP IF A == 0
          30435                     0   2  8              0                                                        SELECT
          30436    3       319     42   0  0              0        319     LENGTH                                  COPY
          30437    124     27       5   0  1              0                                                        modify address of next
          30438    2       305      2   0  0              0        305     (MAX DATA LENGTH+2)                     SUBTRACT
          30439    72      304     49   0  0              0        304     >RECORD HAS ANNOTATION                  JUMP IF A >= 0
          30440            319     42   0  0              0        319                                             SELECT
    30460>30441    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30442    98               0   0  8              0                DATA START                              ADD MODIFICATION REGISTER TO A
          30443    128     28       0   1  1              0                COPY RECORD                             bulk copy long numeric
          30444    124     27       5   0  1              0                                                        modify address of next
          30445            305      6   0  0              0        305                                             SELECT
          30446    128     28       2   0  2              0                UNPACK>SEC1                             unpack fixed field data
    30467>                                                                                                         
    30431>                                                                                                         
    30428>                                                                                                         
    30425>30447    60               0   0  0              0                                                        SET DECIMAL RADIX
          30448    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30439>30449    5       319     43   0  0              0        319     ANNOTATION LENGTH   ANNOTATED DATA      TRANSFER
          30450            12      86   0  0              0                                                        SELECT
          30451    71      304     58   0  0              0        304     >JUST HERE TO UNPACK NUMBERS            JUMP IF A != 0
          30452            319     43   0  0              0        319                                             SELECT
          30453    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30454    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30455    124     27       5   0  1              0                                                        modify address of next
          30456    1       305      2   0  0              0        305     DATA LENGTH+2                           ADD
          30457    128     1       28   1  1              0                COPY ANNOTATION                         bulk copy long numeric
    30451>30458    124     27       5   0  1              0                                                        modify address of next
          30459            305      2   0  0              0        305                                             SELECT
          30460    76      304     41   0  0              0        304     >UNPACK NUMBERS                         JUMP unconditional
    30434>30461                     0   2  8              0                LENGTH              VALUES              SELECT
          30462    12               0   0  0              6                                                        SUBTRACT LITERAL
          30463    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30464    98               0   0  8              0                START                                   ADD MODIFICATION REGISTER TO A
          30465    11               0   0  0              7                                                        ADD LITERAL
          30466    128     1        9   1  0              0                ALPHA>NUM                               bulk copy alpha to short
          30467    76      304     47   0  0              0        304     >EXIT                                   JUMP unconditional
                                                                                                                   
          30500    CONST   305       305     0    FOR UNPACKING MULTIRECORD MT                                     
          30502          (B)24;                                            DIRECTIVES-ANNOTATION                   
          30503          24;                                               ORDER LENGTH+2                          
          30504          24;                                               TABLE                                   
          30505          28;                                               CONSTANT                                
          30506          28;                                               VALUES                                  
          30507          (C)308:0;                                                                                 
          30508          309:0;                                                                                    
  Source image: P1030243.JPG
          30509          310:0;                                            DIRECTIVES-PASS 1 REPORTS               
          30510          (B)12;                                            ORDERS                                  
          30511          22;                                               TABLE                                   
          30512          22;                                               CONST                                   
          30513          26;                                               VALUE                                   
          30514          42;                                                                                       
                                                                                                                   
          30600    TABLE   306       306     1    'INDEX LINE'                                                     
          30601     NOTES                                                                                          
          30602    12     4     0     0  0  0   3   2   0   2  0  0  0     TO REPLACE CODERS REF                   
          30604    92     8     0     0  0  0   2   0   0   2  0  0  1                                             
          30606    12    88     0     0  0  0   5   0   0   5  0  0  1                                             
          30608    12    88     0     0  2  0   5   0   0   0  0  0  0     'SHEET'                                 
          30610    12    88     0     0  2  0   5   0   0   0  0  0  1     SHEET NUMBER                            
                                                                                                                   
          30700    TABLE   307       307     1                                                                     
          30701     NOTES                                                                                          
          30702     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30704     1     2     0     0  2  0   5   0   0   0  0  0  0     'PROCR/TABLE/CONST'ETC                  
          30706    92    35     0     0  0  0   5   0   0   5  0  0  0                                             
          30708     1     6     0     0  2  0   5   0   0   0  0  0  0     TYPE                                    
          30710    92    34     0     0  1  0  10   0   0  10  0  0  0                                             
          30712     1     8     0     0  2  0   5   0   0   0  0  0  0     NEW PROCR NUMBER                        
          30714     1    14     0     0  0  0   5   0   0   4  0  0  1     PREVIOUS PROCR NUMBER                   
          30716     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND-----MULTIREC BLOX             
          30718     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERAL                              
          30720     1     6     0     0  2  0   5   0   0   0  0  0  0     'PROCR'ETC                              
          30722     1     8     0     0  2  0   5   0   0   0  0  0  0     CURRENT PROCR                           
          30724     1    14     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR                          
                                                                                                                   
          30800    TABLE   308       308     3    EDIT INSTRUCTIONS                                                
          30801     NOTES                                                                                          
          30802     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30804     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERAL                              
          30806     1     6     0     0  2  0   5   0   0   0  0  0  0     ACTION                                  
          30808     1     8     0     0  2  0   5   0   0   0  0  0  0     REF                                     
          30810     1    10     0     0  1  0   5   5   0   5  1  0  0     ITEM +/-                                
          30812     1    12     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30814     1    14     0     0  0  0   3   2   0   3  0  0  0     MODIFIER                                
          30816     1    16     0     0  1  0  10   0   0  10  1  0  0     LITERAL +/-                             
          30818     1    20     0     0  2  0   5   0   0   0  0  0  0     'CLEO'PARA WORD                         
          30820     1    22     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR NO                       
                                                                                                                   
          30900    TABLE   309       309     1    EDIT TABLE ENTRIES                                               
          30901     NOTES                                                                                          
          30902     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30904     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          30906     1    20     0     0  0  0   5   0   0   5  0  0  0     FIRST REF                               
          30908     1    22     0     0  0  0   5   0   0   5  0  0  0     FIRST ITEM                              
          30910     1    24     0     0  0  0   5   0   0   5  0  0  0     SECOND REF                              
          30912     1    26     0     0  0  0   5   0   0   5  0  0  0     SECOND ITEM                             
          30914     1    19     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30916     1    11     0     0  0  0   3   2   0   3  0  0  0     SINGLE/TO BE                            
          30918     1    12     0     0  0  0   2   3   0   2  0  0  0     NO                                      
          30920     1    13     0     0  0  0   3   2   0   3  0  0  0     DISCARDED                               
          30922     1    14     0     0  0  0   2   3   0   2  0  0  0     SPACES                                  
          30924     1    15     0     0  0  0   3   2   0   3  0  0  0     ZEROS                                   
          30926     1    16     0     0  0  0   1   4   0   1  0  0  0     SIGN                                    
          30928     1    17     0     0  0  0   2   3   0   2  0  0  0     STERLING                                
          30930     1    18     0     0  0  0   2   3   0   2  0  0  1     LAST TABLE ENTRY                        
                                                                                                                   
  Source image: P1030244.JPG
          31000    TABLE   310       310     3    UNPACK CONSTANT AND EDIT                                         
          31001     NOTES                                                                                          
          31002     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          31004     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          31006    92    34     0     0  0  0   5   0   0   5  0  0  0     ZERO WORD                               
          31008     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT UNPACKED                       
          31010     1     8     0     0  2  0   5   0   0   0  0  0  0     FIXED FIELD TO                          
          31012     1    10     0     0  2  0   5   0   0   0  0  0  0     1/6' ONWARDS                            
          31014     1    12     0     0  2  0   5   0   0   0  0  0  0                                             
          31016     1    14     0     0  2  0   5   0   0   0  0  0  0                                             
          31018     1    16     0     0  2  0   5   0   0   0  0  0  0                                             
          31020     1    18     0     0  2  0   5   0   0   0  0  0  0                                             
          31022     1    20     0     0  2  0   5   0   0   0  0  0  0                                             
          31024     1    22     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          31100    TABLE   311       311     3    UNPACK STACKING DIRECTIVE                                        
          31101     NOTES                         FROM CARDS OR PAPER TAPE                                         
          31102     1     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIR?                          
          31104     1     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE                               
          31106     1     8     0     0  2  0   3   0   0   0  0  0  0     SECTION NO                              
          31108     1    16     0     0  2  1   5   0   0   0  0  0  1     /////TYPE OR ANNOTATION+TYPE            
          31110     1     2     0     0  2  0   5   0   0   0  0  0  0     SER NO +AMEND DIR?                      
          31112     1     6     0     0  2  0   5   0   0   0  0  0  0     ''NOTES'' OF TABLE                      
          31114     1    16     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
                                                                                                                   
          31200    TABLE   312       312     3    UNPACK TABLE ENTRIES                                             
          31201     NOTES                         FROM P/T OR CARDS                                                
          31202     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31204     1     6     0     0  2  0   3   0   0   0  0  0  0     ACTION                                  
          31206     1     8     0     0  2  0   3   0   0   0  0  0  0     REF                                     
          31208     1    10     0     0  1  0   5   0   0   0  1  0  0     ITEM                                    
          31210     1    12     0     0  0  0   1   0   0   0  0  0  0     DIRECTIVE                               
          31212     1    14     0     0  0  0   2   0   0   0  0  0  0     M                                       
          31214     1    16     0     0  1  0  10   0   0   0  1  0  0     LITERAL                                 
          31216     1    28     0     0  2  0   5   0   0   0  0  0  0     NOTES FROM P/T -RUBBISH FROM CARD       
          31218     1    36     0     0  2  0   5   0   0   0  0  0  1     COMMENTARY FROM P/T                     
                                                                                                                   
          31300    TABLE   313       313     3    UNPACK TABLE ENTRIES                                             
          31301     NOTES                         FROM P/T OR CARDS                                                
          31302     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31304     1    20     0     0  0  0   3   0   0   0  0  0  0     FIRST REF                               
          31306     1    22     0     0  0  0   5   0   0   0  0  0  0     FIRST ITEM                              
          31308     1    24     0     0  0  0   3   0   0   0  0  0  0     SECOND REF                              
          31310     1    26     0     0  0  0   5   0   0   0  0  0  0     SECOND ITEM                             
          31312     1    19     0     0  0  0   1   0   0   0  0  0  0     DISC                                    
          31314     1    11     0     0  0  0   1   0   0   0  0  0  0     SINGLE TO BE                            
          31316     1    12     0     0  0  0   2   0   0   0  0  0  0     NO OF CHARS                             
          31318     1    13     0     0  0  0   2   0   0   0  0  0  0     DISCARDS                                
          31320     1    14     0     0  0  0   2   0   0   0  0  0  0     SPACES                                  
          31322     1    15     0     0  0  0   2   0   0   0  0  0  0     ZEROS                                   
          31324     1    16     0     0  0  0   1   0   0   0  0  0  0     SIGN                                    
          31326     1    17     0     0  0  0   1   0   0   0  0  0  0                                             
          31328     1    18     0     0  0  0   1   0   0   0  0  0  0     LTE                                     
          31330     1    28     0     0  2  0   5   0   0   0  0  0  1     P/T ANNOTATION-SPACES IF CARD           
                                                                                                                   
          31400    TABLE   314       314     3    UNPACKCONSTANT (FIRST STAGE)                                     
          31401     NOTES                         FROM P/T OR CARDS                                                
          31402     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31404     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT (OR FIRST 5 CHS OF CONST)      
  Source image: P1030245.JPG
          31406     1    28     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          31500    TABLE   315       315     1    EDIT ALL BUT TRIAL DATA                                          
          31501     NOTES                                                                                          
          31502     1     9     0     0  0  0   5   0   0   4  0  0  0                                             
          31504     1    10     0     0  0  0   5   0   0   4  1  0  1                                             
                                                                                                                   
          31600    CONST   316       316     0    CHECKING CONSTANTS FOR INSTRUCTIONS                              
          31602          (D)83‼91;                                                                                 
          31603          00‼11;                                                                                    
          31604          ££000;                                                                                    
          31605          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          31606          (R)18:0;                                                                                  
          31607          (R)93:0;                                                                                  
          31608          (R)14:0;                                                                                  
          31609          (D)0;                                             ZERO IF RT9 PRINTER                     
                                                                                                                   
          31700    CONST   317       317     0    MISC                                                             
          31702          (D)2;                                                                                     
          31703          10000;                                            BIT 17                                  
          31704          £££;                                              Q1-3                                    
          31705          70;                                               BITS 5-7                                
          31706          7;                                                BITS 1-3                                
          31707          8;                                                BIT 4                                   
          31708          80;                                               BIT 8                                   
          31709          £00;                                              Q3                                      
          31710          4;                                                BIT3                                    
          31711          0;                                                FIRST RECORD INDICATOR                  
          31712          0;                                                ACC.RECORD LENGTH                       
                                                                                                                   
          31800    CONST   318       318     1    ALPHA CONSTANTS                                                  
          31802          (A)TABLE;                                                                                 
          31804          CONST;                                                                                    
          31806          PROCR;                                                                                    
          31808          *    ;                                                                                    
          31810          (D)7.0000007.;                                    BLOCK END WORD                          
          31812          (A)NOTES;                                                                                 
          31814          END  ;                                                                                    
          31816          DUMPS;                                                                                    
          31818          FILES;                                                                                    
          31820          (D)££+00003££;                                    BITS 1-10 AND 31-40                     
          31822          0;                                                EVEN=WL FOR EDIT SWITCH,ODD=C/FWD HIGHES
          31824          (A)SHEET;                                                                                 
          31826          (D)5:5:5:5:5:;                                    '?????'                                 
          31828          (A)VALUE;                                                                                 
          31830          (D)6£6£6£6£6£;                                                                            
          31832          (A)INDEX;                                                                                 
          31834          £££££;                                                                                    
          31836          2;                                                                                        
          31838          CHAIN;                                                                                    
          31840          ????R;                                                                                    
          31842          ????I;                                                                                    
          31844          ????*;                                                                                    
          31846          (A)TRAMD;                                                                                 
          31848          (B20)16(D)0(C)1:28;                               BULK COPY                               
          31850          (A)FINIS;                                                                                 
                                                                                                                   
          31900    CONST   319       319     1    CONVERT TABLES                                                   
          31902          (D)1;                                             BIN>DEC                                 
          31904          16;                                                                                       
  Source image: P1030246.JPG
          31906          256;                                                                                      
          31908          4096;                                                                                     
          31910          65536;                                                                                    
          31912          1048576;                                                                                  
          31914          16777216;                                                                                 
          31916          268435456;                                                                                
          31918          4294967296;                                                                               
          31920          ££££££££££;                                                                               
          31922          1;                                                DEC>BIN                                 
          31924          Ю;                                                                                        
          31926          64;                                                                                       
          31928          3.8;                                                                                      
          31930          2710;                                                                                     
          31932          186Ю0;                                                                                    
          31934          £4240;                                                                                    
          31936          989680;                                                                                   
          31938          5£5.100;                                                                                  
          31940          3‼9Ю+Ю00;                                         (A)WL                                   
          31942          0;                                                BITS 1-6                                
          31944          3£;                                                                                       
          31946          (A)CHAPT;                                                                                 
          31948          PREND;                                                                                    
                                                                                                                   
          32000    PROCR   320       320     RIGHT ALIGN A WORD                                                    
          32001     NOTES          RADIX          PLACED IN B                                                      SELECT
          32002    81      320      2   0  0              0        320                                             START OF SUBROUTINE
          32003    10               0   0  0              0                                                        SELECT LITERAL
          32004    5       12      88   1  0              0                                                        TRANSFER
    32008>32005    1       12      88   1  0              0                                                        ADD
          32006    32               0   0  0              2                LEAVE A CLEAR                           SHIFT (AB) BY QUARTETS
          32007    5       12      88   1  0              0                                                        TRANSFER
          32008    75      320      5   0  0              0        320     AND PUT WORD                            JUMP IF AB != 0
          32009            12      88   1  0              0                                                        SELECT
          32010    82      320      2   0  0              0        320     IN 12/88'                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          32100    PROCR   321       321     END ROUTINE                                                           
          32101     NOTES          RADIX                                                                           SELECT
    29909>32102    60               0   0  0              0                                                        SET DECIMAL RADIX
          32103    10               0   0  0              1                                                        SELECT LITERAL
          32104    4       92       3   0  0              0                STEP PROCR                              AUGMENT
          32105    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32106            318     22   0  0              0        318     DIRECTIVE FOR LAST BLOCK DELETED        SELECT
          32107    12               0   0  0              3                                                        SUBTRACT LITERAL
          32108    71      321     11   0  0              0        321     >WASNT A CONSTANT                       JUMP IF A != 0
          32109    10               0   0  0              1                                                        SELECT LITERAL
          32110    5       29       6   0  0              0                                                        TRANSFER
    32108>32111    80      288      2   0  0              0        288     >O/P FINAL DATA BLOCK                   ENTER SUBROUTINE
          32112    0       92       3   0  0              0                                                        SELECT
          32113    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          32114    5       12      88   0  0              0                                                        TRANSFER
          32115    52      29       4   0  0              0                                                        EDIT
          32116    C       306      6   0  0              0        306                                             
    32126>32117            9        4   1  0              0                                                        SELECT
          32118    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32119    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          32120    2       318     14   1  0              0        318                                             SUBTRACT
          32121    70      321     27   0  0              0        321     >END WITHOUT TD                         JUMP IF A == 0
          32122    10               0   0  0     5£5£5£5£5£                5 SQUARES                               SELECT LITERAL
          32123    3       27       6   0  0              0                'PT OMITTED'                            COPY
          32124    5       29      12   1  0              0                                                        TRANSFER
  Source image: P1030247.JPG
          32125    80      301      2   0  0              0        301     >READ PT                                ENTER SUBROUTINE
          32126    76      321     17   0  0              0        321     >TEST NEXT BLOCK                        JUMP unconditional
    32121>32127            318     50   1  0              0        318     'FINIS'                                 SELECT
          32128    5       9        4   1  0              0                                                        TRANSFER
          32129            318     14   1  0              0        318                                             SELECT
          32130    5       29       6   1  0              0                'END'                                   TRANSFER
          32131    80      288      2   0  0              0        288     >WRITE INTERCODE END SIGN               ENTER SUBROUTINE
          32132    80      324      2   0  0              0        324                                             ENTER SUBROUTINE
          32133    90               0   0  1              1                                                        SET MODIFICATION REGISTER AT LITERAL
          32134    C                0   0  0            100                                                        
          32135    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32136    C                0   0  0            200                                                        
    32165>32137    96               0   0  1              0                                                        SELECT MODIFIER
          32138    80      247      2   0  0              0        247     >TO DEC                                 ENTER SUBROUTINE
          32139    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32140    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          32141    92               0   0  3              0                TENS DIGIT                              SET MODIFIER AT VARIABLE
          32142    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          32143    5       247      2   0  0              0        247     WL                                      TRANSFER
          32144    10               0   0  0              1                                                        SELECT LITERAL
          32145    124     247      2   0  1              0        247                                             modify address of next
          32146    31               0   0  0              0                /////BIT PATTERN OF UNITS DIGIT         SHIFT (A) BY BITS
          32147    3       247      2   0  0              0        247                                             COPY
          32148    33               0   0  0             30-               REL TO BIT 10 OF B                      SHIFT (AB) BY BITS
          32149    36      12      72   0  3              0                12/72-81=SECTION BIT PATTERNS           COLLATE AND ADD
          32150    70      321     65   0  0              0        321                                             JUMP IF A == 0
          32151    96               0   0  3              0                CLEAR B                                 SELECT MODIFIER
          32152    35               0   0  0              0                HALVE                                   PREPARE FOR DIGIT COLLATION
          32153    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          32154    92               0   0  3              0                >WAS ODD                                SET MODIFIER AT VARIABLE
          32155    75      321     58   0  0              0        321                                             JUMP IF AB != 0
          32156    34      247      2   0  0              0        247                                             SET (N) IN B
          32157    76      321     60   0  0              0        321                                             JUMP unconditional
    32155>32158    34      247      2   0  0              0        247                                             SET (N) IN B
          32159    33               0   0  0             10                                                        SHIFT (AB) BY BITS
    32157>32160    36      12     100   0  3              0                12/100-104='TX AREA USED'INDS           COLLATE AND ADD
          32161    71      321     65   0  0              0        321     >NOT PSEUDO-TX AREA                     JUMP IF A != 0
          32162    96               0   0  1              0                                                        SELECT MODIFIER
          32163    5       92      34   0  2              0                STORE SECTION NUMBER                    TRANSFER
          32164    94               0   0  2              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    32161>                                                                                                         
    32150>32165    94      321     37   0  1              1        321     >NEXT SECTION                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          32200    PROCR   322       322     CALC CHAPS INITIALLY                                                  
          32202    10               0   0  0          £££00                                                        SELECT LITERAL
          32203    3       23      47   0  0              0                (TO PRINT HEADING)                      COPY
          32204    124     92       0   0  0              0                                                        modify address of next
          32205    4       92       9   0  0              0                'LAST PROCR'IN FINAL CHAP               AUGMENT
          32206    91      12      12   0  3              0                0:TWICE UNCORR CHAPS                    SET MODIFICATION REGISTER AT VARIABLE
    32213>32207            92      10   0  3              0                                                        SELECT
          32208    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          32209    30               0   0  0              9-               ISOLATE Q1=CORR CHAP                    SHIFT (A) BY QUARTETS
          32210    2       92      29   0  0              0                (ZERO INITIALLY)                        SUBTRACT
          32211    73      322     13   0  0              0        322                                             JUMP IF A < 0
          32212    4       92      29   0  0              0                UPDATE                                  AUGMENT
    32211>32213    94      322      7   0  3              1        322                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32214    10               0   0  0              1                                                        SELECT LITERAL
          32215    4       92      29   0  0              0                FORM CHAPS INITIALLY                    AUGMENT
          32216            92       9   0  0              0                                                        SELECT
          32217    5       92       8   0  0              0                STORE SC CTR                            TRANSFER
  Source image: P1030248.JPG
          32218            92      29   0  0              0                                                        SELECT
          32219    5       92       9   0  0              0                SPEC CHAP+'UNCORR CHAR 0'EQUIVALENT     TRANSFER
                                                                                                                   
          32300    PROCR   323       323     READ/COPY TRIAL DATA                                                  
          32301     NOTES          RADIX                                                                           SELECT
          32302    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32303    80      289      2   0  0              0        289     >WRITE 2 BLANKS                         ENTER SUBROUTINE
          32304            318     30   1  0              0        318                                             SELECT
          32305    5       8        4   1  0              0                5 ALIGNMENT MARKS                       TRANSFER
          32306    10               0   0  0              6                                                        SELECT LITERAL
          32307    5       8       10   0  0              0                                                        TRANSFER
          32308    80      289      2   0  0              0        289     >WRITE ALIGN BLOCK FOR PASS 3           ENTER SUBROUTINE
          32309            318     32   1  0              0        318     'INDEX'                                 SELECT
          32310    5       8        4   1  0              0                                                        TRANSFER
          32311    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          32312    90               0   0  1              0                                    WRITE CURRENT       SET MODIFICATION REGISTER AT LITERAL
          32313    C                0   0  0           1110                                    PROCR INDEX         
          32314    90               0   0  2              0                                    +ADJUST DETAILS     SET MODIFICATION REGISTER AT LITERAL
          32315    C                0   0  0             48                                    +UNIQUE REFS        
    32324>32316            93       0   0  1              0                                    UNCONDITIONALLY     SELECT
          32317    5       8        4   2  2              0                                                        TRANSFER
          32318    94      323     24   0  2              2        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32319            318     10   1  0              0        318     BEW                                     SELECT
          32320    5       8       52   1  0              0                                                        TRANSFER
          32321    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          32322    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32323    C                0   0  0             48                                                        
    32318>32324    94      323     16   0  1              1        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32325    80      290      2   0  0              0        290     >LAST BLOCK                             ENTER SUBROUTINE
          32326    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32327    80      289      2   0  0              0        289     >2 BLANKS                               ENTER SUBROUTINE
    32335>32328    0       9        4   1  0              0                                                        SELECT
          32329    2       318     50   1  0              0        318     'FINIS'                                 SUBTRACT
          32330    70      323     36   0  0              0        323     >YES                                    JUMP IF A == 0
          32331    55      9        4   1  0             50                                                        BULK COPY
          32332    C       8        4   1  0              0                                                        
          32333    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          32334    80      301      2   0  0              0        301     >READ                                   ENTER SUBROUTINE
          32335    76      323     28   0  0              0        323                                             JUMP unconditional
    32330>32336    45      A2       0   0  0              0                                                        REWIND
          32337    45      A6       0   0  0              1                                                        REWIND
          32338    0       12      12   1  0              0                COPY DATA FOR PASS 2 PREP STAGE         SELECT
          32339    5       94       0   1  0              0                                                        TRANSFER
          32340    5       27       3   0  0              0                                                        TRANSFER
          32341    41      A1       0   0  0              1                                                        CLOSE FILE
          32342    76      200      2   0  0              0        200     >CALL PASS 2                            JUMP unconditional
                                                                                                                   
          32400    PROCR   324       324                                                                           
          32402    81      324      2   0  0              0        324                                             START OF SUBROUTINE
          32403            324      2   0  0              0        324                                             SELECT
          32404    5       288      2   0  0              0        288                                             TRANSFER
          32405    76      288     22   0  0              0        288                                             JUMP unconditional
                                                                                                                   
          32500    PROCR   325       325     UNPACK SECTION 9 SUBROUTINE                                           
          32501     NOTES          RADIX                                                                           SELECT
          32502    81      325      2   0  0              0        325                                             START OF SUBROUTINE
          32503    124     999      0   1  2              0                (FORMED)                                modify address of next
          32504    128              4   0  3              0                                                        unpack variable field data
          32505    82      325      2   0  0              0        325                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          32506            9        0   0  0              0                DUMMY FOR PARAMETER                     SELECT
  Source image: P1030249.JPG
          32507    128              4   0  2              0                                                        unpack fixed field data
                                                                                                                   
          32600    PROCR   326       326     START OF PASS 2                                                       
          32601     NOTES          RADIX     B    DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT                       SELECT
    35935>32602    152     200      4   0  0              0        200     CALL/ENTER PASS 3                       OVERLAY
          32603    C       445      4   0  0              0        445                                             
          32604            999     16   1  0              0                COPY SEC 7 PARAS>PTS WL'S               SELECT
          32605    5       999     30   1  0              0                                                        TRANSFER
          32606    54      5        0   0  0             50                                                        BULK CLEAR
          32607    52      5        2   0  0              0                                                        EDIT
          32608    C       335     36   0  0              0        335     EDIT 'INDEX' LINE                       
                                                                                                                   
          32700    PROCR   327       327     CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER                
          32701     NOTES          RADIX     B    AND MOVE THE SC BACK LIST                                        SELECT
          32702    54      72       3   0  0             14                                                        BULK CLEAR
          32703    10               0   0  0              1                                                        SELECT LITERAL
          32704    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32705    10               0   0  0              8                                                        SELECT LITERAL
          32706    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32707    91      94       0   0  3              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32712>32708    10               0   0  0              1                                                        SELECT LITERAL
          32709    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          32710    36      72       3   0  3              0                                                        COLLATE AND ADD
          32711    4       72       3   0  3              0                ROUND UP CTRS                           AUGMENT
          32712    94      327      8   0  3              1        327                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32713    10               0   0  0              2                                    SEQ CHANGE LIST     SELECT LITERAL
          32714    4       92       8   0  0              0                                                        AUGMENT
          32715    1       437     74   0  0              0        437     ABS ADDRESS 18:2496                     ADD
          32716    2       92       8   0  0              0                                                        SUBTRACT
          32717    3       337      2   0  0              0        337     QTTY TO COPY                            COPY
          32718    70      327     23   0  0              0        327     >NONE                                   JUMP IF A == 0
          32719    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32720    1       92       8   0  0              0                START                                   ADD
          32721    124     436     15   1  2              0        436     ABS ADDRESS 18/0                        modify address of next
          32722    128              0   1  1              0                                                        bulk copy long numeric
    32718>32723            436     15   0  0              0        436                                             SELECT
          32724    1       337      2   0  0              0        337     QTTY                                    ADD
          32725    5       92       8   0  0              0                NEW LIST END                            TRANSFER
                                                                                                                   
          32800    PROCR   328       328     OPEN FILES CLEAR W/LS                                                 
          32801     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          32802    40      A2       0   0  0              1                *****DON T MOVE*****                    OPEN FILE
          32803    0       27       9   0  0              0                                                        SELECT
          32804    71      328     13   0  0              0        328     >NOT PRINT                              JUMP IF A != 0
          32805            27       8   0  0              0                PRINTER TYPE                            SELECT
          32806    11               0   0  0              Ю                                                        ADD LITERAL
          32807    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32808    1       999      7   0  0              0                ROUTE                                   ADD
          32809    125           4096   1  1              0                                                        clear indicators
          32810    124     999      0   0  3              0                                                        modify address of next
          32811    123            160   0  2              0                >OPEN PRINTER OR MT A9                  enter master routine
          32812    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    32804>32813    54      61       0   0  0            120                                                        BULK CLEAR
          32814    54      94       0   0  0            100                                                        BULK CLEAR
          32815    54      66       0   0  0             34                66+49                                   BULK CLEAR
          32816    10               0   0  0              1                                                        SELECT LITERAL
          32817    4       92       0   0  0              0                NO OF CHAPS                             AUGMENT
          32818    101            998   1  3              0                                                        select literal address
          32819    1       92       0   0  0              0                (CHAPS CODED)+1                         ADD
          32820    3       61       5   0  0              0                LONG CONSTS PROCR                       COPY
  Source image: P1030250.JPG
          32821    11               0   0  0              1                                                        ADD LITERAL
          32822    3       61       6   0  0              0                SHORT CONSTS PROCR                      COPY
          32823    11               0   0  0              1                                                        ADD LITERAL
          32824    5       61       7   0  0              0                TSL PROCR                               TRANSFER
          32825    10               0   0  0         800000                                                        SELECT LITERAL
          32826    1       27       9   0  0              0                                                        ADD
          32827    91               0   0  1              0                SET FOR RE-ENTRY                        SET MODIFICATION REGISTER AT VARIABLE
                                                                                                                   
          32900    PROCR   329       329     I/P 1ST BLOCK, UNPACK, PRINT                                          
          32901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    32908>32902    80      432      2   0  0              0        432     >READ                                   ENTER SUBROUTINE
          32903            8        6   1  0              0                                                        SELECT
          32904    2       336      2   1  0              0        336     'PROGM'                                 SUBTRACT
          32905    70      329     16   0  0              0        329     >OK                                     JUMP IF A == 0
          32906            8        4   1  0              0                                                        SELECT
          32907    12               0   0  0     5659650000                'FIN  '                                 SUBTRACT LITERAL
          32908    71      329      2   0  0              0        329     >KEEP READING                           JUMP IF A != 0
    32910>32909    150              0   0  0              4                                                        OFFER OPTIONS
          32910    C       329      9   0  0              0        329     (DUMMY)                                 
          32911    C       329     13   0  0              0        329     RUN BACK AND RETURN TO PASS 1           
          32912    C       329     15   0  0              0        329     >UNLOAD                                 
    32911>32913    45      A2       0   0  0              1                REWIND O/P TAPE                         REWIND
          32914    76      100      5   0  0              0        100     >ENTER PASS 1                           JUMP unconditional
    32912>32915    151              0   0  0              0                                    UNLOAD              UNLOAD PROGRAMME
    32905>32916    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          32917    C       334      2   0  0              0        334                                             
          32918    52      8        2   0  0              0                                                        EDIT
          32919    C       334      2   0  0              0        334                                             
          32920            66       4   1  0              0                SUITE NO                                SELECT
          32921    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          32922    1       66       6   2  0              0                JOB NO                                  ADD
          32923    5       61     112   0  0              0                PROG ID                                 TRANSFER
          32924    00      66       8   1  0              0                                                        SELECT
          32925    5       72       0   1  0              0                ALPHA SERIAL NUMBER                     TRANSFER
          32926            27       9   0  0              0                                                        SELECT
          32927    70      329     28   0  0              0        329     >PRINTING                               JUMP IF A == 0
    32927>32928    80      333      2   0  0              0        333     >WRITE/PRINT'PROGM'                     ENTER SUBROUTINE
          32929    40      A6       0   0  0              0                                                        OPEN FILE
          32930    52      9        4   0  0              0                EDIT FIRST HEADING                      EDIT
          32931    C       334     12   0  0              0        334     BLOCK                                   
          32932    80      407      2   0  0              0        407     OP                                      ENTER SUBROUTINE
          32933            435     20   0  0              0        435     '£££££'                                 SELECT
          32934    5       9        4   2  0              0                                                        TRANSFER
          32935            436      2   1  0              0        436     BEW                                     SELECT
          32936    5       9        6   1  0              0                                                        TRANSFER
          32937    80      407      2   0  0              0        407     >DUMMY 'INDEX'DATA                      ENTER SUBROUTINE
          32938    52      9        4   0  0              0                PROG & SERIAL FOR PASS 3                EDIT
          32939    C       334     20   0  0              0        334                                             
          32940    5       9       16   1  0              0                                                        TRANSFER
          32941    80      407      2   0  0              0        407     >SHORT RUBBISH BLOCK                    ENTER SUBROUTINE
          32942    80      432      2   0  0              0        432     I/P                                     ENTER SUBROUTINE
          32943    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          32944    C       334      2   0  0              0        334                                             
          32945            66       4   1  0              0                PROCR OF ENTRY                          SELECT
          32946    80      430      2   0  0              0        430     >CONVERT                                ENTER SUBROUTINE
          32947    5       72       2   0  0              0                                                        TRANSFER
          32948    52      8        2   0  0              0                                                        EDIT
          32949    C       334      2   0  0              0        334                                             
          32950    80      333      2   0  0              0        333     PRINT'ENTRY'                            ENTER SUBROUTINE
          32951    52      9        4   0  0              0                EDIT SECOND BLOCK                       EDIT
  Source image: P1030251.JPG
          32952    C       334     28   0  0              0        334                                             
          32953    80      407      2   0  0              0        407     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          33000    PROCR   330       330     DEAL WITH FILE IDS                                                    
          33001     NOTES          RADIX     B                                                                     SELECT
          33002    17      92       7   0  0             10                SPACE OCCUPIED BY CONVERT TABLES        MULTIPLY LITERAL and ADD
          33003    101            204   1  1              0                FOR ALLOCATOR                           add literal address
          33004    5       61     100   0  0              0                SP CHAP SPACE CTR                       TRANSFER
          33005    10               0   0  0              0                2R=0                                    SELECT LITERAL
          33006    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          33007    1       92      29   0  0              0                EXTRA CHAP NO                           ADD
          33008    1       92      29   0  0              0                                                        ADD
          33009    3       61      40   0  0              0                LAST ROUTE PARAMETER                    COPY
          33010    5       61      39   0  0              0                PARA CTR                                TRANSFER
          33011    10               0   0  0              0                2R=0                                    SELECT LITERAL
          33012    91               0   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          33013    90               0   0  1              0                O/P M.R.                                SET MODIFICATION REGISTER AT LITERAL
          33014    C                0   0  0             48                                                        
          33015    80      432      2   0  0              0        432     I/P                                     ENTER SUBROUTINE
                                                                                                                   
          33100    PROCR   331       331     O/P REMAINING FILE IDS, CHAP START POINTS                             
          33101     NOTES          RADIX     B    PREP                                                             SELECT
          33102    96               0   0  1              0                                                        SELECT MODIFIER
          33103    70      331      7   0  0              0        331                                             JUMP IF A == 0
          33104            436      2   1  0              0        436     BEW                                     SELECT
          33105    5       9        4   1  1              0                                                        TRANSFER
          33106    80      407      2   0  0              0        407     O/P                                     ENTER SUBROUTINE
    33103>33107    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33108    C       335      2   0  0              0        335     UNPACK 'CHAPS'                          
          33109    54      70       0   1  0            100                CLEAR FOR SECTION DETAILS               BULK CLEAR
          33110    80      405      2   0  0              0        405     >BLANK LINE                             ENTER SUBROUTINE
          33111    52      8        2   0  0              0                                                        EDIT
          33112    C       335      2   0  0              0        335                                             
          33113    80      333      2   0  0              0        333     PRINT'CHAPS'                            ENTER SUBROUTINE
          33114    80      432      2   0  0              0        432     >READ MT                                ENTER SUBROUTINE
                                                                                                                   
          33200    PROCR   332       332     PRINT CHAPS I/P & TEST S/D                                            
          33201     NOTES          RADIX     B    PREP STAGE                                                       SELECT
          33202    80      423      2   0  0              0        423     >PRINT'INDEX'EX SEC 5                   ENTER SUBROUTINE
          33203    80      423      2   0  0              0        423     >PRINT BLANK LINE                       ENTER SUBROUTINE
          33204    76      339      2   0  0              0        339     PROCR ETC ON MT                         JUMP unconditional
                                                                                                                   
          33300    PROCR   333       333                                                                           
          33302    81      333      2   0  0              0        333                                             START OF SUBROUTINE
          33303    55      8        0   1  0             52                                                        BULK COPY
          33304    C       7        0   1  0              0                                                        
          33305    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          33306    37      7        2   0  0              0                PRINT                                   REPLACE SELECTED BITS
          33307    80      403      2   0  0              0        403                                             ENTER SUBROUTINE
          33308    82      333      2   0  0              0        333                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          33400    TABLE   334       334     1    PROGM, ENTRY, O/P HDNG, SECTIONS FILES                           
          33401     NOTES                                                                                          
          33402    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33404    66     2     0     0  2  0   5   0  11   0  0  0  0     PROGM/ENTRY                             
          33406    66     4     0     0  1  0   5   5   1   2  0  0  0     SUITE/PROCR                             
          33408    66     6     0     0  2  0   5   0   2   0  0  0  0     JOB/PRIORITY                            
          33410    66     8     0     0  2  0   5   0   1   0  0  0  1     SERIAL/CODER                            
          33412   336    10     0     0  2  0   5   0   0   0  0  0  0     ALIGN MARKS                             
          33414   336     8     0     0  2  0   5   0   0   0  0  0  0     'INDEX'                                 
  Source image: P1030252.JPG
          33416   435    20     0     0  0  0   5   0   0   0  0  0  0                                             
          33418   336    13     0     0  0  0   1   3   4   0  0  0  0     '4'                                     
          33420    66     4     0     0  1  0   3   7   0   0  0  0  0     PROG SUITE                              
          33422    66     6     0     0  2  0   2   3   0   0  0  0  0     PROG ID                                 
          33424    66     8     0     0  2  0   5   0   0   0  0  0  0     PROG SERIAL                             
          33426   436     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          33428    92     5     0     0  0  0   5   0   0   4  0  0  0     FP IND                                  
          33430    92     4     0     0  0  0   5   0   0   4  0  0  0     MG                                      
          33432    66     6     0     0  2  0   5   0   0   0  0  0  0     PRIORITY                                
          33434    92     0     0     0  0  0   5   0   0   4  0  0  0     CHAPS+1                                 
          33436    92    29     0     0  0  0   5   0   0   4  0  0  0     CHAPS INITIALLY                         
          33438   436     2     0     0  2  0   5   0   0   0  0  0  1     BEW                                     
          33440    66    10     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33442    66     0     0     0  2  0   5   0   5   0  0  0  0     SERIAL                                  
          33444    66     2     0     0  1  0   5   5   4   4  0  0  0     SEC NO                                  
          33446    66     4     0     0  1  0   5   5   3   4  0  0  0     LENGTH                                  
          33448    66     6     0     0  1  0   5   5   0   4  0  0  0     TX AREA IND                             
          33450    66     8     0     0  1  0   5   5   3   4  0  0  1     CHAP                                    
          33452    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND== FILES                       
          33454    66     2     0     0  2  0   5   0  15   0  0  0  0     FILE ID                                 
          33456    66     4     0     0  1  0   5   5   1   4  0  0  0     ROUTE TYPE                              
          33458    66     6     0     0  1  0   5   5   2   4  0  0  0     RETN PERIOD                             
          33460    66     8     0     0  1  0   5   5   2   4  0  0  0     MBS                                     
          33462    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
          33464    66     2     0     0  2  0   5   0   0   0  0  0  0     FILE ID == FILES                        
          33466    66     4     0     0  1  0   5   5   0   4  0  0  0     ROUTE TYPE                              
          33468    66     6     0     0  1  0   5   5   0   4  0  0  0     RETN PERIOD                             
          33470    66     8     0     0  1  0   5   5   0   4  0  0  0     MBS                                     
          33472    61     0     0     0  0  0   5   0   0   4  0  0  0     START LOCN                              
          33474    66    10     0     0  1  0   5   5   0   4  0  0  1     ALT ROUTE                               
                                                                                                                   
          33500    TABLE   335       335     1    CHAPS LINE                                                       
          33501     NOTES                                                                                          
          33502    66     0     0     0  2  0   5   0   0   0  0  0  0     AMEND IND                               
          33504    66     2     0     0  2  0   5   0   1   0  0  0  0     'CHAPS'                                 
          33506    66     4     0     0  0  0   5   0   0   4  0  0  0     NUMBER OF CHAPS                         
          33508    66     6     0     0  0  0   5   0   1   4  0  0  0     1                                       
          33510    66     7     0     0  0  0   5   0   1   5  0  0  0     2                                       
          33512    66     8     0     0  0  0   5   0   1   5  0  0  0     3                                       
          33514    66     9     0     0  0  0   5   0   1   5  0  0  0     4                                       
          33516    66    10     0     0  0  0   5   0   1   5  0  0  0     5                                       
          33518    66    11     0     0  0  0   5   0   1   5  0  0  0     6                                       
          33520    66    12     0     0  0  0   5   0   1   5  0  0  0     7                                       
          33522    66    13     0     0  0  0   5   0   1   5  0  0  0     8                                       
          33524    66    14     0     0  0  0   5   0   1   5  0  0  0     9                                       
          33526    66    15     0     0  0  0   5   0   1   5  0  0  0     10                                      
          33528    66    16     0     0  0  0   5   0   1   5  0  0  0     11                                      
          33530    66    17     0     0  0  0   5   0   1   5  0  0  0     12                                      
          33532    66    18     0     0  0  0   5   0   1   5  0  0  0     13                                      
          33534    66    19     0     0  0  0   5   0   1   5  0  0  1     14-TH START                             
          33536   336     8     0     0  2  0   5   0   6   0  0  0  0     'INDEX'                                 
          33538    92    29     0     0  0  0   1   4   4   0  0  0  0     CHAPS INITIALLY                         
          33540    92    10     0     0  0  0   1   4   5   1  0  0  0     CORRECTED CHAPTER NUMBERS               
          33542    92    11     0     0  0  0   1   4   5   1  0  0  0                                             
          33544    92    12     0     0  0  0   1   4   5   1  0  0  0                                             
          33546    92    13     0     0  0  0   1   4   5   1  0  0  0                                             
          33548    92    14     0     0  0  0   1   4   5   1  0  0  0                                             
          33550    92    15     0     0  0  0   1   4   5   1  0  0  0                                             
          33552    92    16     0     0  0  0   1   4   5   1  0  0  0                                             
          33554    92    17     0     0  0  0   1   4   5   1  0  0  0                                             
  Source image: P1030253.JPG
          33556    92    18     0     0  0  0   1   4   5   1  0  0  0                                             
          33558    92    19     0     0  0  0   1   4   5   1  0  0  0                                             
          33560    92    20     0     0  0  0   1   4   5   1  0  0  0                                             
          33562    92    21     0     0  0  0   1   4   5   1  0  0  0                                             
          33564    92    22     0     0  0  0   1   4   5   1  0  0  0                                             
          33566    92    23     0     0  0  0   1   4   5   1  0  0  1     LAST ENTRY                              
                                                                                                                   
          33600    CONST   336       336     1    FOR PASS 2 PREP STAGE                                            
          33602          (A)PROGM;                                                                                 
          33604          ENTRY;                                                                                    
          33606          CHAPS;                                                                                    
          33608          INDEX;                                                                                    
          33610          (D)6£6£6£6£6£;                                                                            
          33612          0514908000;                                       08000 FILE A9                           
                                                                                                                   
          33700    PROCR   337       337     DUMMIES FOR SEC 61 DESCRIPTION                                        
          33701     NOTES  337                                                                                     SELECT
          33702            61       0   0  0              0                ACTION WL/ENTRY POINT                   SELECT
          33703            61       1   0  0              0                NON-ARITH IND                           SELECT
                                                                                                                   
          33800    PROCR   338       338                                                                           
          33802    81      338      2   0  0              0        338                                             START OF SUBROUTINE
          33803    0       338      2   0  0              0        338                                             SELECT
          33804    5       401      2   0  0              0        401                                             TRANSFER
          33805    76      401      8   0  0              0        401                                             JUMP unconditional
                                                                                                                   
          33900    PROCR   339       339     FORM PARA CTR ETC                                                     
          33901     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33204>33902    80      338      2   0  0              0        338                                             ENTER SUBROUTINE
          33903    80      354      2   0  0              0        354     >EDIT FIRST DIRECTIVE                   ENTER SUBROUTINE
          33904    10               0   0  0              0                                                        SELECT LITERAL
          33905    5       437     99   0  0              0        437                                             TRANSFER
          33906            61      39   0  0              0                                                        SELECT
          33907    11               0   0  0              1                FORM                                    ADD LITERAL
          33908    3       61      41   0  0              0                MOD GROUP PARAMETER                     COPY
          33909    11               0   0  0              4                                                        ADD LITERAL
          33910    5       61      39   0  0              0                TOTAL NO OF PARAMETER                   TRANSFER
          33911    0       92       8   0  0              0                LIST END                                SELECT
          33912    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          33913    1       436     15   0  0              0        436     ABS ADDRESS 18:0                        ADD
          33914    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          33915            436     14   0  0              0        436     ABS ADDRESS 18:2499                     SELECT
          33916    5       61     118   0  0              0                LOCN CTR SC'S FWD                       TRANSFER
          33917            436      4   1  0              0        436     0:144                                   SELECT
          33918    5       61      44   1  0              0                O/P MOD CTR                             TRANSFER
          33919    10               0   0  0              1                                                        SELECT LITERAL
          33920    5       61     111   0  0              0                UNCORRECTED CHAP NO.                    TRANSFER
    35819>33921    10               0   0  0             41                                                        SELECT LITERAL
          33922    5       61      26   1  0              0                TYPE                                    TRANSFER
          33923    5       61      28   1  0              0                SECTION NO.                             TRANSFER
          33924    80      409      2   0  0              0        409     O/P TYPE S/R        THIS CLEARS D67 INITENTER SUBROUTINE
          33925    10               0   0  0              1                                                        SELECT LITERAL
          33926    5       61      42   1  0              0                                                        TRANSFER
          33927    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          33928    05      67       0   0  0              0                67/0 NOT CLEARED BY O/P TYPE S/R        TRANSFER
                                                                                                                   
          34000    PROCR   340       340     O/P PARAS                                                             
          34001     NOTES          RADIX     B    CHAP START ROUTINE                                               SELECT
          34002            61      39   0  0              0                PARA CTR                                SELECT
          34003    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
  Source image: P1030254.JPG
          34004    5       61       0   1  0              0                                                        TRANSFER
          34005    91      61       0   1  3              0                M/R 3 AT W/L                            SET MODIFICATION REGISTER AT VARIABLE
    34009>34006    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
          34007    5       67       2   0  0              0                                                        TRANSFER
          34008    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          34009    94      340      6   0  3              1        340                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          34010    10               0   0  0              3                                                        SELECT LITERAL
          34011    4       61       5   0  0              0                LONG PROCR                              AUGMENT
          34012    4       61       6   0  0              0                SHORT PROCR                             AUGMENT
          34013    4       61       7   0  0              0                TSL PROCR                               AUGMENT
          34014    10               0   0  0              0                                                        SELECT LITERAL
          34015    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          34016    124     61     111   0  0              0                UNCORRECTED CHAP NO                     modify address of next
          34017    36      92       9   0  0              0                CORRECTED CHAP NUMBER                   COLLATE AND ADD
          34018    3       61      51   0  0              0                                                        COPY
          34019    1       61      51   0  0              0                                                        ADD
          34020    5       61       3   0  0              0                2C                                      TRANSFER
          34021            61       5   0  0              0                                                        SELECT
          34022    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          34023    1       61       3   0  0              0                                                        ADD
          34024    5       61       4   0  0              0                LN:2C                                   TRANSFER
          34025    10               0   0  0         .0000.                14:14                                   SELECT LITERAL
          34026    5       61      12   1  0              0                LN CTR                                  TRANSFER
          34027    5       61      14   1  0              0                SN CTR                                  TRANSFER
          34028            436     16   1  0              0        436     180:180                                 SELECT
          34029    5       61      16   1  0              0                TSL CTR                                 TRANSFER
          34030    5       61      10   1  0              0                                                        TRANSFER
          34031    80      411      2   0  0              0        411     O/P ZERO COMPARTMENTFOR LINK            ENTER SUBROUTINE
          34032    80      369      2   0  0              0        369     >O/P 25/1/1 4096+24/0/3 0               ENTER SUBROUTINE
          34033    10               0   0  0            700                7 IN Q3                                 SELECT LITERAL
          34034    5       67       1   0  0              0                SET'MR ENTRY' IND                       TRANSFER
          34035    0       437     60   0  0              0        437     23/0/2 0                                SELECT
          34036    80      350      2   0  0              0        350     >O/P                                    ENTER SUBROUTINE
          34037    80      411      2   0  0              0        411     O/P TWO ZERO COMPARTMENTS               ENTER SUBROUTINE
          34038    80      411      2   0  0              0        411                                             ENTER SUBROUTINE
          34039            438     15   0  0              0        438     26/0/1/6-                               SELECT
          34040    80      398      2   0  0              0        398     >O/P INT SC                             ENTER SUBROUTINE
                                                                                                                   
          34100    PROCR   341       341     SECTION START ROUTINE                                                 
          34101     NOTES          RADIX     B                                                                     SELECT
    35509>                                                                                                         
    35511>34102    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          34103                     6   1 12              0                                                        SELECT
          34104    2       434      8   1  0              0        434     PROCR                                   SUBTRACT
          34105    71      341      9   0  0              0        341                                             JUMP IF A != 0
          34106    10               0   0  0              1                                                        SELECT LITERAL
          34107    5       61      42   0  0              0                                                        TRANSFER
          34108    76      343      4   0  0              0        343                                             JUMP unconditional
    34105>34109    80      346      2   0  0              0        346     ROUND UP SPACE CTR                      ENTER SUBROUTINE
          34110                    14   2 12              0                CONST OR TABLE TYPE                     SELECT
          34111    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          34112    5       61      47   0  0              0                                                        TRANSFER
          34113                     6   1 12              0                                                        SELECT
          34114    2       434      4   1  0              0        434     TABLE                                   SUBTRACT
          34115    71      342      5   0  0              0        342     =                                       JUMP IF A != 0
                                                                                                                   
          34200    PROCR   342       342     SECTION START ROUTINE                                                 
          34201     NOTES          RADIX     B                                                                     SELECT
          34202    10               0   0  0              2                                                        SELECT LITERAL
          34203    5       61      42   0  0              0                                                        TRANSFER
  Source image: P1030255.JPG
          34204    76      343      3   0  0              0        343                                             JUMP unconditional
    34115>34205    10               0   0  0              2                AMOUNT TO AUGMENT   SPACE CTR ON O/P    SELECT LITERAL
          34206    5       61      42   0  0              0                                                        TRANSFER
                                                                                                                   
          34300    PROCR   343       343     SECTION START ROUTINE                                                 
          34301     NOTES          RADIX     B                                                                     SELECT
          34302    10               0   0  0              1                'CONST'                                 SELECT LITERAL
    34204>34303    11               0   0  0              1                TABLE                                   ADD LITERAL
    34108>34304    11               0   0  0              1                PROCR                                   ADD LITERAL
          34305    3       61      26   2  0              0                                                        COPY
          34306    84      345      2   0  0              0        345                                             SET SWITCH(ES) AT VARIABLE VALUE
          34307            7       12   2  0              0                NEW PROCR NO                            SELECT
                                                                                                                   
          34400    PROCR   344       344     SECTION START ROUTINE                                                 
          34401     NOTES          RADIX     B                                                                     SELECT
          34402    80      430      2   0  0              0        430     >CONVERT                                ENTER SUBROUTINE
          34403    3       61      28   2  0              0                                                        COPY
          34404    3       61      10   0  0              0                CURRENT PROCR                           COPY
          34405    2       72       2   0  0              0                ENTRY PROCR                             SUBTRACT
          34406    71      344      9   0  0              0        344     >NO                                     JUMP IF A != 0
          34407            61      43   0  0              0                                                        SELECT
          34408    5       27       5   0  0              0                ENTRY LOCN                              TRANSFER
    34406>34409    0       61      43   0  0              0                                                        SELECT
          34410    5       61      11   0  0              0                STORE PROCR START ADDRESS               TRANSFER
          34411    80      347      2   0  0              0        347     >SET'PRINT PROCEDURE'IND                ENTER SUBROUTINE
          34412    80      409      2   0  0              0        409     O/P TYPE                                ENTER SUBROUTINE
          34413    10               0   0  0             80                TRACK 8                                 SELECT LITERAL
          34414    5       61      46   0  0              0                HEAD OF FORM                            TRANSFER
          34415    80      423      2   0  0              0        423     >SECOND PRINT SR                        ENTER SUBROUTINE
          34416    80      402      2   0  0              0        402     >PRINT                                  ENTER SUBROUTINE
          34417    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          34418    76      353      2   0  0              0        353                                             JUMP unconditional
                                                                                                                   
          34500    PROCR   345       345     SWITCH A                                                              
          34501     NOTES          RADIX     B                                                                     SELECT
    35305>                                                                                                         
    35324>34502    85      345      2   0  0              0        345                                             SWITCH R
          34503    C       360      2   0  0              0        360     INST                                    
          34504    C       391      2   0  0              0        391     TABLE                                   
          34505    C       370      2   0  0              0        370     CONST                                   
          34506    C       353      2   0  0              0        353     DUMMY                                   
          34507    C       353      2   0  0              0        353     ' '                                     
          34508    C       353      2   0  0              0        353     ' '                                     
          34509    C       352      8   0  0              0        352                                             
                                                                                                                   
          34600    PROCR   346       346     SUBROUTINE 1                                                          
          34601     NOTES          RADIX     B    ROUND OFF TO MULT OF 2                                           SELECT
          34602    81      346      2   0  0              0        346                                             START OF SUBROUTINE
          34603    10               0   0  0              0                                                        SELECT LITERAL
          34604    34      436      6   0  0              0        436     1                                       SET (N) IN B
          34605    36      61      43   0  0              0                SPACE CTR                               COLLATE AND ADD
          34606    70      346     11   0  0              0        346                                             JUMP IF A == 0
          34607    5       61      42   0  0              0                                                        TRANSFER
          34608    5       67       0   1  0              0                                                        TRANSFER
          34609    5       67       2   1  0              0                                                        TRANSFER
          34610    80      411      2   0  0              0        411     >O/P ZERO LOCATION                      ENTER SUBROUTINE
    34606>34611    82      346      2   0  0              0        346                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34700    PROCR   347       347     EXTRACT'PRINT PROCEDURE'IND FROM ARRAY IN SEC 23                      
          34702    81      347      2   0  0              0        347                                             START OF SUBROUTINE
  Source image: P1030256.JPG
          34703    19      61      10   0  0             14                PROCR/20                                DIVIDE LITERAL
          34704    5       348      2   0  0              0        348                                             TRANSFER
          34705    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          34706    5       352      2   0  0              0        352     WL                                      TRANSFER
          34707    34      435     22   0  0              0        435     1                                       SET (N) IN B
          34708    124     352      2   0  1              0        352                                             modify address of next
          34709    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          34710    124     348      2   0  1              0        348                                             modify address of next
          34711    36      23       5-  0  0              0                                                        COLLATE AND ADD
          34712    5       23      47   0  0              0                NON-ZERO TO PRINT WHOLE PROCR           TRANSFER
          34713    82      347      2   0  0              0        347                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34800    PROCR   348       348     O/P WITH ZERO REF, PARA=2C                                            
          34801     NOTES  348                                                                                     SELECT
          34802    81      348      2   0  0              0        348     (A)=INSTRUCTION                         START OF SUBROUTINE
          34803    5       67       3   0  0              0                                                        TRANSFER
          34804            61       3   0  0              0                2C                                      SELECT
          34805    5       67       2   0  0              0                                                        TRANSFER
          34806    80      411      2   0  0              0        411                                             ENTER SUBROUTINE
          34807    82      348      2   0  0              0        348                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          34900    PROCR   349       349     O/P ARITH INSTRUCTION                                                 
          34901     NOTES  349                                                                                     SELECT
          34902    81      349      2   0  0              0        349                                             START OF SUBROUTINE
          34903    5       61       0   0  0              0                                                        TRANSFER
          34904    5       61       1   0  0              0                                                        TRANSFER
          34905    80      429      2   0  0              0        429     >COMPLEX O/P                            ENTER SUBROUTINE
          34906    82      349      2   0  0              0        349                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35000    PROCR   350       350                                                                           
          35001     NOTES  350                                                                                     SELECT
          35002    81      350      2   0  0              0        350                                             START OF SUBROUTINE
          35003    5       67       3   0  0              0                                                        TRANSFER
          35004    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          35005    82      350      2   0  0              0        350                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35100    PROCR   351       351                                                                           
          35102    81      351      2   0  0              0        351                                             START OF SUBROUTINE
          35103    54      7        2   1  0             48                BULK CLEAR SEC 7                        BULK CLEAR
          35104    82      351      2   0  0              0        351                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35200    PROCR   352       352     LN:2C SUBROUTINE                                                      
          35201     NOTES  352                                                                                     SELECT
          35202    81      352      2   0  0              0        352     (A)=INSTRUCTION                         START OF SUBROUTINE
          35203    5       67       3   0  0              0                                                        TRANSFER
          35204    0       61       4   0  0              0                LN:2C FOR FIRST LN PROCR                SELECT
          35205    5       67       2   0  0              0                IN CHAP                                 TRANSFER
          35206    80      411      2   0  0              0        411     >O/P                                    ENTER SUBROUTINE
          35207    82      352      2   0  0              0        352                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    36104>                                                                                                         
    36105>                                                                                                         
    36106>                                                                                                         
    36107>                                                                                                         
    36108>                                                                                                         
    36109>                                                                                                         
    36110>                                                                                                         
    36111>                                                                                                         
    36112>                                                                                                         
    36113>                                                                                                         
    36118>                                                                                                         
    36119>                                                                                                         
    36611>                                                                                                         
  Source image: P1030257.JPG
    34509>35208    80      352      2   0  0              0        352     (THEN GET NEXT BLOCK)                   ENTER SUBROUTINE
                                                                                                                   
          35300    PROCR   353       353     GET NEXT BLOCK                                                        
          35301     NOTES          RADIX     B                                                                     SELECT
    35327>                                                                                                         
    36010>                                                                                                         
    36011>                                                                                                         
    36013>                                                                                                         
    36706>                                                                                                         
    37718>                                                                                                         
    39518>                                                                                                         
    39522>                                                                                                         
    42109>                                                                                                         
    34508>                                                                                                         
    34507>                                                                                                         
    34506>                                                                                                         
    34418>35302    80      401      2   0  0              0        401     >READ                                   ENTER SUBROUTINE
    41509>35303                     6   1 12              0                                                        SELECT
          35304    2       434      6   1  0              0        434     'CONST'                                 SUBTRACT
          35305    73      345      2   0  0              0        345     >NOT A DIRECTIVE                        JUMP IF A < 0
          35306    80      354      2   0  0              0        354     EDIT DIRECTIVES                         ENTER SUBROUTINE
          35307                     6   1 12              0                                                        SELECT
          35308    2       434      6   1  0              0        434     'CONST'                                 SUBTRACT
          35309    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35310    1       434      6   1  0              0        434                                             ADD
          35311    2       434      4   1  0              0        434     TABLE                                   SUBTRACT
          35312    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35313    1       434      4   1  0              0        434                                             ADD
          35314    2       434      8   1  0              0        434     'PROCR'                                 SUBTRACT
          35315    70      355      2   0  0              0        355                                             JUMP IF A == 0
          35316    1       434      8   1  0              0        434                                             ADD
          35317    2       434     12   1  0              0        434     END(SPACE)(SPACE)                       SUBTRACT
          35318    71      353     22   0  0              0        353                                             JUMP IF A != 0
          35319    10               0   0  0              1                                                        SELECT LITERAL
          35320    5       61      48   0  0              0                                                        TRANSFER
          35321    76      355     13   0  0              0        355                                             JUMP unconditional
    35318>35322    1       434     12   1  0              0        434                                             ADD
          35323    2       434     10   1  0              0        434     'NOTES'                                 SUBTRACT
          35324    71      345      2   0  0              0        345                                             JUMP IF A != 0
          35325    80      402      2   0  0              0        402     >PRINT 'NOTES' LINE                     ENTER SUBROUTINE
          35326    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          35327    76      353      2   0  0              0        353                                             JUMP unconditional
                                                                                                                   
          35400    PROCR   354       354     EDIT DIRECTIVES                                                       
          35402    81      354      2   0  0              0        354                                             START OF SUBROUTINE
          35403    80      351      2   0  0              0        351     BULK CLEAR SEC 7                        ENTER SUBROUTINE
          35404            77       2   1  0              0                AMEND IND                               SELECT
          35405    5       7        2   1  0              0                                                        TRANSFER
          35406            77       4   1  0              0                LINE SERIAL                             SELECT
          35407    5       7        6   1  0              0                                                        TRANSFER
          35408            77       6   1  0              0                'PROCR/TABLE/CONST/NOTES/VALUE/END'     SELECT
          35409    5       7       10   1  0              0                                                        TRANSFER
          35410            77       8   1  0              0                PROCR NO                                SELECT
          35411    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          35412    5       7       12   1  0              0                                                        TRANSFER
          35413            77      10   1  0              0                OLD PROCR NO                            SELECT
          35414    5       7       16   1  0              0                                                        TRANSFER
          35415            77       6   1  0              0                                                        SELECT
  Source image: P1030258.JPG
          35416    2       434     10   1  0              0        434     'NOTES'                                 SUBTRACT
          35417    71      354     21   0  0              0        354     >NO                                     JUMP IF A != 0
          35418            77      12   1  0              0                'RADIX'                                 SELECT
          35419    5       7       16   1  0              0                                                        TRANSFER
          35420    76      354     23   0  0              0        354                                             JUMP unconditional
    35417>35421            77      12   1  0              0                PASS 1 REPORTS                          SELECT
          35422    5       7       48   1  0              0                                                        TRANSFER
    35420>35423            77       6   1  0              0                                                        SELECT
          35424    2       434      8   1  0              0        434     'PROCR'                                 SUBTRACT
          35425    70      354     29   0  0              0        354     >YES                                    JUMP IF A == 0
          35426            77      14   1  0              0                TABLE/CONST TYPE/RADIX LETTER           SELECT
          35427    5       7       20   1  0              0                                                        TRANSFER
          35428    76      354     31   0  0              0        354                                             JUMP unconditional
    35425>35429            77      14   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          35430    5       7       20   1  0              0                                                        TRANSFER
    35428>35431    55      77      16   1  0             26                COPY ANNOTATION                         BULK COPY
          35432    C       7       22   1  0              0                                                        
          35433    82      354      2   0  0              0        354                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35500    PROCR   355       355     TEST NEW CHAP                                                         
          35501     NOTES          RADIX     B                                                                     SELECT
    35315>                                                                                                         
    35312>                                                                                                         
    35309>35502    0       7       12   2  0              0                NEW PROCR                               SELECT
          35503    5       61      35   0  0              0                                                        TRANSFER
          35504    124     61     111   0  0              0                THIS CHAP UCORR                         modify address of next
          35505            92       9   0  0              0                LAST PROCR THIS CHAP                    SELECT
          35506    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          35507    80      431      2   0  0              0        431     >CONVERT TO DEC                         ENTER SUBROUTINE
          35508    2       61      35   0  0              0                                                        SUBTRACT
          35509    72      341      2   0  0              0        341     NOT NEW CHAP                            JUMP IF A >= 0
          35510    11               0   0  0              1                TEST THIS PROCEDURE SAFETY              ADD LITERAL
          35511    71      341      2   0  0              0        341     ONE GREATER THAN PREDEVICE              JUMP IF A != 0
          35512    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    35321>35513    80      346      2   0  0              0        346     >ROUND UP SPACE CTR                     ENTER SUBROUTINE
          35514    80      356      2   0  0              0        356     >ROUND UP FORMED SECTIONS               ENTER SUBROUTINE
          35515    80      357      2   0  0              0        357     >O/P FORMED SECTIONS                    ENTER SUBROUTINE
          35516    76      358      2   0  0              0        358                                             JUMP unconditional
                                                                                                                   
          35600    PROCR   356       356     ROUND UP SECTION CTRS                                                 
          35601     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          35602    81      356      2   0  0              0        356                                             START OF SUBROUTINE
          35603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          35604    C                0   0  0              6                                                        
    35611>35605    0       61      13   0  2              0                END VALUE                               SELECT
          35606    31               0   0  0              2                                                        SHIFT (A) BY BITS
          35607    32               0   0  0              1-               (DIVIDE BY 4)                           SHIFT (AB) BY QUARTETS
          35608    38               0   0  0              4                ROUND UP TO MULTIPLE OF 4               ROUND OFF
          35609    31               0   0  0              2                                                        SHIFT (A) BY BITS
          35610    5       61      13   0  2              0                                                        TRANSFER
          35611    94      356      5   0  2              2        356                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          35612    82      356      2   0  0              0        356                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35700    PROCR   357       357     O/P FORMED SECTIONS                                                   
          35701     NOTES          RADIX     B    SUBROUTINE                                                       SELECT
          35702    81      357      2   0  0              0        357                                             START OF SUBROUTINE
          35703    10               0   0  0         600000                                                        SELECT LITERAL
          35704    5       61       0   1  0              0                                                        TRANSFER
          35705    5       61      12   0  0              0                                                        TRANSFER
          35706    5       61       2   0  0              0                                                        TRANSFER
  Source image: P1030259.JPG
    35722>35707    91      61       2   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          35708            436      7   0  3              0        436     TYPE NO                                 SELECT
          35709    5       61      26   1  0              0                                                        TRANSFER
          35710            61       5   0  3              0                                                        SELECT
          35711    5       61      28   2  0              0                PROCR NUMBER                            TRANSFER
          35712    80      409      2   0  0              0        409     O/P TYPE                                ENTER SUBROUTINE
          35713            436     10   0  3              0        436                                             SELECT
          35714    5       61      42   0  0              0                NO OF LOCNS TO STEP ON LCN CTR ON O     TRANSFER
          35715    124     61       0   0  0              0                                                        modify address of next
          35716            61      12   1  0              0                SECT COUNTER                            SELECT
          35717    5       61      30   1  0              0                                                        TRANSFER
          35718    10               0   0  0              1                                                        SELECT LITERAL
          35719    4       61       2   0  0              0                                                        AUGMENT
          35720    123              2   0  0              0                                                        step on and test
          35721    C       61       0   0  0              0                                                        
          35722    76      357      7   0  0              0        357                                             JUMP unconditional
          35723    82      357      2   0  0              0        357                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          35800    PROCR   358       358     DEAL WITH TRANS VACANT SECS                                           
          35801     NOTES          RADIX     B    CHAP END ROUTINE                                                 SELECT
    35516>35802    10               0   0  0              1                TYPE 1                                  SELECT LITERAL
          35803    5       61      26   2  0              0                                                        TRANSFER
          35804    101           1001   1  3              0                CALC SWITCH PROCR                       select literal address
          35805    1       61     111   0  0              0                THIS CHAP UNCORRECTED                   ADD
          35806    5       61      28   2  0              0                61/43=CHAP LENGTH                       TRANSFER
          35807    80      409      2   0  0              0        409     >O/P 'TYPE'                             ENTER SUBROUTINE
          35808            61      43   0  0              0                CHAP LENGTH                             SELECT
          35809    124     61     111   0  1              0                UNCORR CHAP                             modify address of next
          35810    5       72      17   0  0              0                STORE 72/18-31                          TRANSFER
          35811            434     24   1  0              0        434     'TYPE.'                                 SELECT
          35812    5       61      26   1  0              0                                                        TRANSFER
          35813    5       61      28   1  0              0                                                        TRANSFER
          35814    80      410      2   0  0              0        410     ALPHA O/P S/R                           ENTER SUBROUTINE
          35815    10               0   0  0              1                                                        SELECT LITERAL
          35816    1       61     111   0  0              0                                                        ADD
          35817    3       61     111   0  0              0                                                        COPY
          35818            61      48   0  0              0                                                        SELECT
          35819    70      339     21   0  0              0        339                                             JUMP IF A == 0
          35820    76      359      3   0  0              0        359                                             JUMP unconditional
                                                                                                                   
          35900    PROCR   359       359     PROG END ROUTINE                                                      
          35901     NOTES          RADIX     B                                                                     SELECT
          35902    76      359      9   0  0              0        359     THIS AN ORDER CONSTANT                  JUMP unconditional
    35820>35903    80      413      2   0  0              0        413     >O/P REMAINING DETS S/R                 ENTER SUBROUTINE
          35904    0       437      6   0  0              0        437     ALL THE £'S                             SELECT
          35905    5       66       2   1  0              0                SET AS BLOCK SERIAL                     TRANSFER
          35906            359      2   0  0              0        359                                             SELECT
          35907    5       419      2   0  0              0        419     PLANT AN END SIGN                       TRANSFER
          35908    76      415     23   0  0              0        415     >I/P C-LINE SR                          JUMP unconditional
    35902>35909    10               0   0  0              1                                                        SELECT LITERAL
          35910    5       23      47   0  0              0                ALWAYS PRINT END SIGN                   TRANSFER
          35911    80      423      2   0  0              0        423     >BLANK LINE                             ENTER SUBROUTINE
          35912    80      403      2   0  0              0        403     >PRINT END SIGN                         ENTER SUBROUTINE
          35913            72       2   0  0              0                ENTRY POINT                             SELECT
          35914    5       61      35   0  0              0                                                        TRANSFER
          35915    80      396      2   0  0              0        396                                             ENTER SUBROUTINE
          35916    5       92       8   0  0              0                CHAP OF ENTRY                           TRANSFER
          35917            27       5   0  0              0                ENTRY LOCN                              SELECT
          35918    5       92       6   0  0              0                                                        TRANSFER
          35919    0       434     30   1  0              0        434     'TYPE£'                                 SELECT
  Source image: P1030260.JPG
          35920    05      9        4   1  0              0                                                        TRANSFER
          35921            436      2   1  0              0        436                                             SELECT
          35922    05      9        6   1  0              0                BEW                                     TRANSFER
          35923    80      407      2   0  0              0        407     >O/P                                    ENTER SUBROUTINE
    35931>35924    80      432      2   0  0              0        432     >READ A2                                ENTER SUBROUTINE
          35925            8        4   1  0              0                                                        SELECT
          35926    12               0   0  0     5659655972                'FINIS'                                 SUBTRACT LITERAL
          35927    70      359     32   0  0              0        359     >END                                    JUMP IF A == 0
          35928    55      8        4   1  0             50                                                        BULK COPY
          35929    C       9        4   1  0              0                                                        
          35930    80      407      2   0  0              0        407     >WRITE A6                               ENTER SUBROUTINE
          35931    76      359     24   0  0              0        359                                             JUMP unconditional
    35927>35932    55      70       0   1  0            100                COPY DETAILS FOR PASS 3                 BULK COPY
          35933    C       9        0   1  0              0                                                        
          35934    45      A6       0   0  0              0                REWIND O/P FILE                         REWIND
          35935    76      326      2   0  0              0        326     >CALL PASS 3                            JUMP unconditional
                                                                                                                   
          36000    PROCR   360       360     INST ROUTINE                                                          
          36001     NOTES          RADIX     B    NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE             SELECT
    34503>36002    10               0   0  0              1                                                        SELECT LITERAL
          36003    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          36004    80      415      2   0  0              0        415     -I/P C-LINE S/R                         ENTER SUBROUTINE
          36005            66       2   1  0              0                LINE SERIAL                             SELECT
          36006    5       67       0   1  0              0                                                        TRANSFER
          36007    5       61       2   0  0              0                CLEAR MOD DIGITS    FOR M&P.            TRANSFER
          36008    5       61      25   0  0              0                SET BINARY INDICATOR                    TRANSFER
          36009    0       61     110   0  0              0                GROUP+1                                 SELECT
          36010    70      353      2   0  0              0        353     G.N.B               TEST GROUP OUT      JUMP IF A == 0
          36011    73      353      2   0  0              0        353     G.N.B               OF RANGE            JUMP IF A < 0
          36012    12               0   0  0             11                                                        SUBTRACT LITERAL
          36013    72      353      2   0  0              0        353     G.N.B                                   JUMP IF A >= 0
          36014    84      361      2   0  0              0        361     SWITCH B (GROUP)                        SET SWITCH(ES) AT VARIABLE VALUE
          36015    C       61     110   0  0              0                                                        
          36016    84      411      2   0  0              0        411     VARIANT SWITCH                          SET SWITCH(ES) AT VARIABLE VALUE
          36017    C       61      50   0  0              0                VARIANT +1                              
                                                                                                                   
          36100    PROCR   361       361     SWITCH B                                                              
          36101     NOTES          RADIX     B                                                                     SELECT
          36102    10               0   0  0              0                                                        SELECT LITERAL
          36103    85      361      2   0  0              0        361                                             SWITCH R
          36104    C       352      8   0  0              0        352                                             
          36105    C       352      8   0  0              0        352                                             
          36106    C       352      8   0  0              0        352                                             
          36107    C       352      8   0  0              0        352                                             
          36108    C       352      8   0  0              0        352                                             
          36109    C       352      8   0  0              0        352                                             
          36110    C       352      8   0  0              0        352                                             
          36111    C       352      8   0  0              0        352                                             
          36112    C       352      8   0  0              0        352                                             
          36113    C       352      8   0  0              0        352                                             
          36114    C       366      5   0  0              0        366     10                                      
          36115    C       366      4   0  0              0        366     11                                      
          36116    C       366      3   0  0              0        366     12                                      
          36117    C       366      2   0  0              0        366     13                                      
          36118    C       352      8   0  0              0        352                                             
          36119    C       352      8   0  0              0        352                                             
                                                                                                                   
          36200    PROCR   362       362     S.C. S/R                                                              
          36201     NOTES          RADIX     B                                                                     SELECT
          36202    81      362      2   0  0              0        362     REF                                     START OF SUBROUTINE
  Source image: P1030261.JPG
          36203    0       66       6   1  0              0                REF                                     SELECT
          36204    70      364      9   0  0              0        364                                             JUMP IF A == 0
          36205    12               0   0  0            3.7                999                                     SUBTRACT LITERAL
          36206    72      364      9   0  0              0        364     >SKIP                                   JUMP IF A >= 0
          36207            66       8   1  0              0                ITEM                                    SELECT
          36208    71      362     13   0  0              0        362     >NOT TO PROCR START                     JUMP IF A != 0
          36209            61      10   0  0              0                THIS PROCR                              SELECT
          36210    2       66       6   0  0              0                REF                                     SUBTRACT
          36211    72      363     30   0  0              0        363     >SC BACK TO PROCR START                 JUMP IF A >= 0
          36212    76      362     23   0  0              0        362     >SC FORWARD                             JUMP unconditional
    36208>36213    95               0   0  1              0                CURRENT HEAD OF'SC BACK' LIST           SELECT MODIFICATION REGISTER
          36214    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          36215    1       436     15   0  0              0        436     ABS ADDRESS 18/0                        ADD
          36216    91               0   0  2              0                R2=(A)                                  SET MODIFICATION REGISTER AT VARIABLE
          36217    94      362     19   0  2              0        362     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          36218    76      362     23   0  0              0        362     >NO DESTS REPLACED YET                  JUMP unconditional
    36222>                                                                                                         
    36217>36219            66       2   0  0              0                THIS ORDER                              SELECT
          36220    2                1   0  2              0                INTERCODE DEST                          SUBTRACT
          36221    70      364      2   0  0              0        364     >MATCH FOUND                            JUMP IF A == 0
          36222    94      362     19   0  2              2        362     >TRY NEXT                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    36218>                                                                                                         
    36212>36223    0       66       6   1  0              0                                    ASSUME SEQ CH F     SELECT
          36224    80      431      2   0  0              0        431     >REF TO DEC                             ENTER SUBROUTINE
          36225    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          36226    5       61      18   0  0              0                                                        TRANSFER
          36227    0       66       8   1  0              0                                                        SELECT
          36228    80      431      2   0  0              0        431     >ITEM TO DEC                            ENTER SUBROUTINE
          36229    11               0   0  0              2                ADD 2 TO ITEM                           ADD LITERAL
          36230    4       61      18   0  0              0                                                        AUGMENT
          36231    62               0   0  0              0                SET BINARY                              SET EXCESS CONSTANTS
          36232    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          36233    91               0   0  2              0                ZERO END VALUE                          SET MODIFICATION REGISTER AT VARIABLE
          36234    70      363      9   0  0              0        363     >EMPTY                                  JUMP IF A == 0
          36235    12               0   0  0            12+                300                                     SUBTRACT LITERAL
          36236    73      362     38   0  0              0        362     >OK                                     JUMP IF A < 0
          36237    82      362      2   0  0              0        362     >EXIT, DON T SET S'C IND                END OF SUBROUTINE / LEAVE SUBROUTINE
    36308>                                                                                                         
    36236>36238    0       20       3-  0  2              0                NEXT DEST(LAST IN LIST FIRST)           SELECT
          36239    2       61      18   0  0              0                                                        SUBTRACT
          36240    73      363      9   0  0              0        363     >FITS NOW                               JUMP IF A < 0
                                                                                                                   
          36300    PROCR   363       363     S.C. S/R                                                              
          36301     NOTES          RADIX                                                                           SELECT
          36302    0       20       3-  0  2              0                MOVE LIST DOWN 1 ITEM                   SELECT
          36303    5       20       0   0  2              0                                                        TRANSFER
          36304    0       20       2-  0  2              0                                                        SELECT
          36305    5       20       1   0  2              0                                                        TRANSFER
          36306    0       20       1-  0  2              0                                                        SELECT
          36307    5       20       2   0  2              0                                                        TRANSFER
          36308    94      362     38   0  2              3-       362     >NEXT                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    36240>                                                                                                         
    36234>36309    0       61      18   0  0              0                DEST OF NEWCOMER                        SELECT
          36310    5       20       0   0  2              0                                                        TRANSFER
          36311            66       2   1  0              0                SOURCE                                  SELECT
          36312    5       20       1   0  2              0                                                        TRANSFER
          36313            66       8   1  0              0                                                        SELECT
          36314    3       20       2   0  2              0                                                        COPY
          36315    70      363     28   0  0              0        363     >DEST IS A PROCR START                  JUMP IF A == 0
          36316    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1030262.JPG
          36317    5       67       1   0  0              0                SET 'SEQ CH' IND                        TRANSFER
          36318    0       438     19   0  0              0        438     FLIPFLOP 1/10                           SELECT
          36319    30               0   0  0              4                TO Q5                                   SHIFT (A) BY QUARTETS
          36320    1       61     118   0  0              0                ABS LOCN IN SEC 18(18:2499 INITIALL     ADD
          36321    5       20       2   0  2              0                                                        TRANSFER
          36322    10               0   0  0              Ю                                                        SELECT LITERAL
          36323    2       438     19   0  0              0        438                                             SUBTRACT
          36324    3       438     19   0  0              0        438     REVERSE                                 COPY
          36325    71      363     28   0  0              0        363     >NEXT TIME IS TOP 10 BITS OF SAME LOCN  JUMP IF A != 0
          36326    12               0   0  0              1                                                        SUBTRACT LITERAL
          36327    4       61     118   0  0              0                REDUCE ABS ADDRESS                      AUGMENT
    36325>                                                                                                         
    36315>36328    10               0   0  0              3                                                        SELECT LITERAL
          36329    4       61     117   0  0              0                STEP CTR OF ACTIVE SC'S                 AUGMENT
    36211>36330    82      362      2   0  0              0        362                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36400    PROCR   364       364     SC S/R: MATCH FOUND IN SC BACK LIST                                   
          36401     NOTES          RADIX     B                                                                     SELECT
    36221>36402    34               0   0  2              0                PROCR+ITEM                              SET (N) IN B
          36403    33               0   0  0             30                                                        SHIFT (AB) BY BITS
          36404    5       66       6   1  0              0                REF(BITS 11-20)                         TRANSFER
          36405    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          36406    5       66       8   1  0              0                ITEM(BITS 1-10)                         TRANSFER
          36407    96               0   0  2              0                                                        SELECT MODIFIER
          36408    80      365      2   0  0              0        365     >CONTRACT LIST                          ENTER SUBROUTINE
    36206>                                                                                                         
    36204>36409    82      362      2   0  0              0        362                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36500    PROCR   365       365     CONTRACT THE SC BACK LIST BY 1 WORD                                   
          36501     NOTES  365                                                                                     SELECT
          36502    81      365      2   0  0              0        365                                             START OF SUBROUTINE
          36503    5       61     114   0  0              0                WORD TO BE OVERWRITTEN                  TRANSFER
          36504    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          36505    5       61      18   1  0              0                START/END OF LIST (ABS)                 TRANSFER
          36506            61      19   0  0              0                                                        SELECT
          36507    2       61     114   0  0              0                                                        SUBTRACT
          36508    70      365     18   0  0              0        365     >NONE TO BE MOVED                       JUMP IF A == 0
          36509    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          36510    1       61     114   0  0              0                                                        ADD
          36511    11               0   0  0              2                FORM SOURCE IN A                        ADD LITERAL
          36512    124     61     114   0  3              0                                                        modify address of next
          36513    128              0   1  1              0                COPY UP BY 1 WORD                       bulk copy long numeric
          36514    12               0   0  0              2                                                        SUBTRACT LITERAL
          36515    4       61      18   0  0              0                                                        AUGMENT
          36516    4       61      19   0  0              0                ADJUST R1 FOR NEW LIST POSITION         AUGMENT
          36517    91      61      18   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    36508>36518    82      365      2   0  0              0        365                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          36600    PROCR   366       366     M/C ACTIONS                                                           
          36601     NOTES          RADIX     B    CALCULATE PARAMETER, TEST 24/1/0 OR 27/D/M                       SELECT
    36117>36602    10               0   0  0              Ю                GROUP 13                                SELECT LITERAL
    36116>36603    11               0   0  0              Ю                12                                      ADD LITERAL
    36115>36604    11               0   0  0              Ю                11                                      ADD LITERAL
    36114>36605    12               0   0  0              1                10                                      SUBTRACT LITERAL
          36606    1       61      50   0  0              0                V+1                                     ADD
          36607    3       61       0   0  0              0                ACTION                                  COPY
          36608    12               0   0  0             17                23                                      SUBTRACT LITERAL
          36609    70      368      2   0  0              0        368     >ACTION 23                              JUMP IF A == 0
          36610    12               0   0  0              9                                                        SUBTRACT LITERAL
          36611    72      352      8   0  0              0        352                                             JUMP IF A >= 0
  Source image: P1030263.JPG
    36804>36612            66       6   0  0              0                REF                 PARA 0 OR 2C        SELECT
          36613    70      366     20   0  0              0        366                                             JUMP IF A == 0
          36614    3       61      35   0  0              0                                                        COPY
          36615    80      396      2   0  0              0        396     DET CHAP                                ENTER SUBROUTINE
          36616    31               0   0  0              1                FORM 2C'                                SHIFT (A) BY BITS
          36617    76      366     20   0  0              0        366     >STORE PARA                             JUMP unconditional
          36618            61      51   0  0              0                                                        SELECT
          36619    1       61      51   0  0              0                                                        ADD
    36617>                                                                                                         
    36613>36620    5       61      34   0  0              0                PARA W/L                                TRANSFER
          36621    0       66      10   0  0              0                DISC                                    SELECT
          36622    12               0   0  0              2                                                        SUBTRACT LITERAL
          36623    71      366     27   0  0              0        366     >TAKE YOUR CHANCE                       JUMP IF A != 0
          36624    10               0   0  0              1                                                        SELECT LITERAL
          36625    3       66      10   0  0              0                                                        COPY
          36626    4       66       8   1  0              0                ADJUST ITEM                             AUGMENT
    36623>36627            61       0   0  0              0                ACTION                                  SELECT
          36628    3       362      2   0  0              0        362                                             COPY
          36629    31               0   0  0              1                                                        SHIFT (A) BY BITS
          36630    34      435      2   0  0              0        435     BIT 1                                   SET (N) IN B
          36631    36      66      10   0  0              0                DISC                                    COLLATE AND ADD
          36632    31               0   0  0              2                                                        SHIFT (A) BY BITS
          36633    34      436     18   0  0              0        436     BITS 1+2                                SET (N) IN B
          36634    36      66      12   0  0              0                MOD DIGITS                              COLLATE AND ADD
          36635    31               0   0  0              1                                                        SHIFT (A) BY BITS
          36636    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          36637    3       61       0   0  0              0                COMBINED A/D/M                          COPY
          36638    30               0   0  0              5-                                                       SHIFT (A) BY QUARTETS
          36639    70      366     47   0  0              0        366     >POSITIVE ACTION                        JUMP IF A == 0
          36640            61       0   0  0              0                                                        SELECT
          36641    71      366     44   0  0              0        366     >NOT'0-'                                JUMP IF A != 0
          36642    10               0   0  0              2                                                        SELECT LITERAL
          36643    5       67       1   0  0              0                SET IND                                 TRANSFER
    36641>36644    10               0   0  0              0                                                        SELECT LITERAL
          36645    2       61       0   0  0              0                                                        SUBTRACT
          36646    5       61       0   0  0              0                NEGATE ACTION                           TRANSFER
    36639>36647    5       66      10   1  0              0                                                        TRANSFER
          36648    5       66      12   1  0              0                                                        TRANSFER
          36649            61       0   0  0              0                                                        SELECT
          36650    2       437     46   0  0              0        437     24/1/0                                  SUBTRACT
          36651    70      367      2   0  0              0        367     >IS A SEQ CHANGE                        JUMP IF A == 0
          36652            362      2   0  0              0        362                                             SELECT
          36653    12               0   0  0             1‼                TEST FOR 27/D/M                         SUBTRACT LITERAL
          36654    71      367      3   0  0              0        367                                             JUMP IF A != 0
                                                                                                                   
          36700    PROCR   367       367     M/C ACTIONS                                                           
          36701     NOTES          RADIX     B                                                                     SELECT
    36651>36702    80      362      2   0  0              0        362     -S.C. S/R                               ENTER SUBROUTINE
    36821>                                                                                                         
    36654>36703    80      424      2   0  0              0        424     -NEG NO S/R                             ENTER SUBROUTINE
          36704    80      425      2   0  0              0        425     - STACK                                 ENTER SUBROUTINE
          36705    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          36706    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
                                                                                                                   
          36800    PROCR   368       368     ACTION 123/0/0                                                        
          36801     NOTES          RADIX     B                                                                     SELECT
    36609>36802            66      12   0  0              0                MOD                                     SELECT
          36803    34      66      10   0  0              0                DISC                                    SET (N) IN B
          36804    75      366     12   0  0              0        366                                             JUMP IF AB != 0
          36805    5       61      34   0  0              0                SET PARA ZERO                           TRANSFER
  Source image: P1030264.JPG
          36806    00      437     61   0  0              0        437     23/0/0                                  SELECT
          36807    5       61       0   0  0              0                                                        TRANSFER
          36808    80      425      2   0  0              0        425     -STACK                                  ENTER SUBROUTINE
          36809    80      411      2   0  0              0        411     -O/P                                    ENTER SUBROUTINE
          36810    80      414      2   0  0              0        414     I/P INSTRUCTION                         ENTER SUBROUTINE
          36811            66       6   0  0              0                                                        SELECT
          36812    70      368     19   0  0              0        368     -ABS ADD                                JUMP IF A == 0
          36813    5       61      35   0  0              0                                                        TRANSFER
          36814    80      396      2   0  0              0        396     -DET CHAP                               ENTER SUBROUTINE
          36815    3       61      34   0  0              0                                                        COPY
          36816    1       61      34   0  0              0                                                        ADD
          36817    70      368     19   0  0              0        368     >DON'T MAKE A PARA 1-                   JUMP IF A == 0
          36818    12               0   0  0              1                                                        SUBTRACT LITERAL
    36817>                                                                                                         
    36812>36819    5       61      34   0  0              0                                                        TRANSFER
          36820    5       61       0   0  0              0                                                        TRANSFER
          36821    76      367      3   0  0              0        367                                             JUMP unconditional
                                                                                                                   
          36900    PROCR   369       369     SET NON-INTERRUPTIBLE S/R                                             
          36901     NOTES          RADIX     B    GROUPS 4 AND 15 BEFORE ENTER MASTER                              SELECT
          36902    81      369      2   0  0              0        369                                             START OF SUBROUTINE
          36903            437     73   0  0              0        437     25/1/1/4096                             SELECT
          36904    80      350      2   0  0              0        350     >O/P                                    ENTER SUBROUTINE
          36905    80      399      2   0  0              0        399     >O/P 24/0/3 0                           ENTER SUBROUTINE
          36906    82      369      2   0  0              0        369                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37000    PROCR   370       370     CONSTANTS                                                             
          37001     NOTES          RADIX     B                                                                     SELECT
    34505>37002    54      61      55   0  0             14                CLEAR W/LS                              BULK CLEAR
          37003    80      379      2   0  0              0        379     -PREP S/R                               ENTER SUBROUTINE
          37004    80      380      2   0  0              0        380     -GET NEXT CHAR S/R                      ENTER SUBROUTINE
    37418>37005    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          37100    PROCR   371       371     CONSTANTS                                                             
          37101     NOTES          RADIX     B                                                                     SELECT
    37732>37102    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          37103    10               0   0  0              1                                                        SELECT LITERAL
          37104    5       61      30   0  0              0                DEFN LINE IND                           TRANSFER
          37105    5       61      98   1  0              0                                                        TRANSFER
          37106    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          37107            61      24   0  0              0                THIS CHARACTER                          SELECT
          37108    12               0   0  0             51                A                                       SUBTRACT LITERAL
          37109    70      372      6   0  0              0        372                                             JUMP IF A == 0
          37110    12               0   0  0              1                B                                       SUBTRACT LITERAL
          37111    70      372      3   0  0              0        372                                             JUMP IF A == 0
          37112    12               0   0  0              1                >NOT 'C'                                SUBTRACT LITERAL
          37113    71      371     16   0  0              0        371     16                                      JUMP IF A != 0
          37114    10               0   0  0             10                >SET AS SUBFIELD LENGTH                 SELECT LITERAL
          37115    76      371     21   0  0              0        371                                             JUMP unconditional
    37113>37116    12               0   0  0              1                                                        SUBTRACT LITERAL
          37117    70      372      4   0  0              0        372                                             JUMP IF A == 0
          37118    12               0   0  0             13                P                                       SUBTRACT LITERAL
          37119    70      372      5   0  0              0        372                                             JUMP IF A == 0
          37120    10               0   0  0              £                HENCE'R'                                SELECT LITERAL
    37115>37121    5       61      55   0  2              0                SUBFIELD LENGTH                         TRANSFER
                                                                                                                   
          37200    PROCR   372       372     CONSTANTS                                                             
          37201     NOTES          RADIX     B                                                                     SELECT
          37202    10               0   0  0              1                R,C=5                                   SELECT LITERAL
    37111>37203    11               0   0  0              1                B=4                                     ADD LITERAL
  Source image: P1030265.JPG
    37117>37204    11               0   0  0              1                D=3                                     ADD LITERAL
    37119>37205    11               0   0  0              1                P=2                                     ADD LITERAL
    37109>37206    11               0   0  0              1                A=1                                     ADD LITERAL
          37207    3       61      62   0  2              0                SWITCH SETTING                          COPY
          37208    84      374      2   0  0              0        374                                             SET SWITCH(ES) AT VARIABLE VALUE
    37216>37209    80      380      2   0  0              0        380     GET NEXT CHAR                           ENTER SUBROUTINE
          37210    12               0   0  0             7‼                )                                       SUBTRACT LITERAL
          37211    70      373      2   0  0              0        373                                             JUMP IF A == 0
          37212    00      61      98   1  0              0                COLLECT * IN'(B)' DIRECTIVE             SELECT
          37213    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          37214    1       61      24   0  0              0                THIS CHAR                               ADD
          37215    05      61      98   1  0              0                                                        TRANSFER
          37216    76      372      9   0  0              0        372     LOOP UNTIL')'FOUND                      JUMP unconditional
                                                                                                                   
          37300    PROCR   373       373     CONSTANTS                                                             
          37301     NOTES          RADIX     B                                                                     SELECT
    37211>37302    32               0   0  0             10                PRESERVE B DURING CONVERT               SHIFT (AB) BY QUARTETS
          37303    5       61      96   1  0              0                                                        TRANSFER
          37304            61      98   2  0              0                                                        SELECT
          37305    80      430      2   0  0              0        430     CONVERT NO OF BITS FOR BIN CONSTANT     ENTER SUBROUTINE
          37306    73      373      8   0  0              0        373     >SAFETY DEVICE                          JUMP IF A < 0
          37307    4       61      55   0  2              0                AUG SHIFT CONTROL                       AUGMENT
    37306>37308    34      61      96   1  0              0                RESTORE B                               SET (N) IN B
    38414>                                                                                                         
    38416>                                                                                                         
    38419>37309    10               0   0  0              0                                                        SELECT LITERAL
                                                                                                                   
          37400    PROCR   374       374     CONSTANTS MAIN LOOP                                                   
          37401     NOTES          RADIX     B                                                                     SELECT
    38311>                                                                                                         
    38509>                                                                                                         
    38518>                                                                                                         
    38608>37402    80      380      2   0  0              0        380     GET NEXT CHAR                           ENTER SUBROUTINE
    37608>                                                                                                         
    37728>                                                                                                         
    38806>37403    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          37404    70      374     15   0  0              0        374     >YES                                    JUMP IF A == 0
          37405    12               0   0  0              2                ,                                       SUBTRACT LITERAL
          37406    70      376      2   0  0              0        376                                             JUMP IF A == 0
          37407    12               0   0  0              1                NE                                      SUBTRACT LITERAL
          37408    70      377      2   0  0              0        377     >END OF CONSTANT                        JUMP IF A == 0
          37409    85      374      2   0  0              0        374                                             SWITCH R
          37410    C       383      2   0  0              0        383     ALPHA                                   
          37411    C       384      2   0  0              0        384     P                                       
          37412    C       385      2   0  0              0        385     D                                       
          37413    C       387      2   0  0              0        387     B                                       
          37414    C       389      2   0  0              0        389     R                                       
    37404>37415    10               0   0  0              1                                                        SELECT LITERAL
          37416    5       61      61   0  0              0                MIXED CONST IND                         TRANSFER
          37417    80      375      2   0  0              0        375     >SHIFT UP PREVIOUS SUBFIELD             ENTER SUBROUTINE
          37418    76      370      5   0  0              0        370     >GET NEXT CHAR                          JUMP unconditional
                                                                                                                   
          37500    PROCR   375       375     CONSTANTS S/R                                                         
          37501     NOTES          RADIX     B    ADD THIS SUBFIELD TO PREVIOUS ONES                               SELECT
          37502    81      375      2   0  0              0        375                                             START OF SUBROUTINE
          37503    0       61      26   1  0              0                CONSTANT TO DATE                        SELECT
          37504    124     61      60   0  0              0                SUBFIELD CTR                            modify address of next
          37505    124     61      55   0  0              0                LENGTH OF SUBFIELD                      modify address of next
          37506    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          37507    1       61      28   1  0              0                VALUE OF CURRENT SUBCONST               ADD
  Source image: P1030266.JPG
          37508    5       61      26   1  0              0                                                        TRANSFER
          37509    5       61      28   1  0              0                                                        TRANSFER
          37510    10               0   0  0              1                                                        SELECT LITERAL
          37511    4       61      60   0  0              0                STEP SF COUNTER                         AUGMENT
          37512    82      375      2   0  0              0        375                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37600    PROCR   376       376     , ROUTINE                                                             
          37601     NOTES          RADIX     B                                                                     SELECT
    37406>37602    80      380      2   0  0              0        380     >GET NEXT CHAR AFTER COMMA              ENTER SUBROUTINE
          37603    80      375      2   0  0              0        375     >ADD IN SUBCONST PRECEDING COMMA        ENTER SUBROUTINE
    37726>37604    91      61      60   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          37605    84      374      2   0  0              0        374                                             SET SWITCH(ES) AT VARIABLE VALUE
          37606    C       61      62   0  2              0                NEXT SUBFIELD TYPE                      
          37607            61      24   0  0              0                NEXT CHAR AFTER COMMA                   SELECT
          37608    76      374      3   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          37700    PROCR   377       377     PREPARE FOR O/P                                                       
          37701     NOTES          RADIX     B    CONSTANTS                                                        SELECT
    37408>37702    80      375      2   0  0              0        375     >ADD IN FINAL SUBCONST                  ENTER SUBROUTINE
          37703            61      32   0  0              0                NEG IND                                 SELECT
          37704    70      377     13   0  0              0        377     >CONSTANT IS POSITIVE                   JUMP IF A == 0
          37705            61      47   0  0              0                CONST TYPE                              SELECT
          37706    70      377     11   0  0              0        377     SHORT CONST                             JUMP IF A == 0
          37707    10               0   0  0              0                                                        SELECT LITERAL
          37708    2       61      26   1  0              0                                                        SUBTRACT
          37709    5       61      26   1  0              0                                                        TRANSFER
          37710    76      377     13   0  0              0        377     COMPLEMENT CONST LONG OR SHORT          JUMP unconditional
    37706>37711    2       61      26   0  0              0                                                        SUBTRACT
          37712    5       61      26   0  0              0                                                        TRANSFER
    37919>                                                                                                         
    37710>                                                                                                         
    37704>37713                     6   2 12              0                                                        SELECT
          37714    5       61      31   0  0              0                SET END IND                             TRANSFER
          37715    80      403      2   0  0              0        403     >PRINT                                  ENTER SUBROUTINE
          37716    80      378      2   0  0              0        378     >CONST O/P SR                           ENTER SUBROUTINE
          37717            61      31   0  0              0                END IND                                 SELECT
          37718    71      353      2   0  0              0        353     >YES,GNB                                JUMP IF A != 0
          37719    80      401      2   0  0              0        401     -I/P                                    ENTER SUBROUTINE
          37720    80      379      2   0  0              0        379     -PREP S/R                               ENTER SUBROUTINE
          37721    10               0   0  0              0                CLEAR A FOR GET NEXTCHARACTER S/R       SELECT LITERAL
          37722    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          37723    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          37724    70      377     29   0  0              0        377     >THIS IS A DIRECTIVE LINE               JUMP IF A == 0
          37725            61      61   0  0              0                                                        SELECT
          37726    71      376      4   0  0              0        376     -THIS IS A MIXED CONSTANT               JUMP IF A != 0
          37727            61      24   0  0              0                NEXT CHARACTER                          SELECT
          37728    76      374      3   0  0              0        374     -                                       JUMP unconditional
    37724>37729    5       61      55   0  0              0                                                        TRANSFER
          37730    5       61      56   1  0              0                                                        TRANSFER
          37731    5       61      58   1  0              0                                                        TRANSFER
          37732    76      371      2   0  0              0        371     >GET DIRECTIVE LETTER                   JUMP unconditional
                                                                                                                   
          37800    PROCR   378       378     O/P S/R                                                               
          37801     NOTES          RADIX     B    CONSTANTS                                                        SELECT
          37802    81      378      2   0  0              0        378                                             START OF SUBROUTINE
          37803            61      27   0  0              0                MOST SIG HALF LONG CONST                SELECT
          37804    5       67       3   0  0              0                                                        TRANSFER
          37805            61      26   0  0              0                LEAST SIG HALF                          SELECT
          37806    124     61      68   0  0              0                0 OR 2                                  modify address of next
          37807    5       67       1   0  0              0                                                        TRANSFER
  Source image: P1030267.JPG
          37808            61      47   0  0              0                CONST TYPE                              SELECT
          37809    71      378     16   0  0              0        378     -LONG NO CONST                          JUMP IF A != 0
          37810            61      31   0  0              0                NONZERO IF FINAL CONST IN SECTION       SELECT
          37811    71      378     16   0  0              0        378     -                                       JUMP IF A != 0
          37812    10               0   0  0              2                                                        SELECT LITERAL
          37813    2       61      68   0  0              0                                                        SUBTRACT
          37814    3       61      68   0  0              0                                                        COPY
          37815    71      378     23   0  0              0        378     >FIRST TIME THRU                        JUMP IF A != 0
    37811>                                                                                                         
    37809>37816            61      26   1  0              0                                    SET B8 OF PARAM     SELECT
          37817    72      378     22   0  0              0        378                         IF NEGATIVE LN CONSTJUMP IF A >= 0
          37818            61      27   0  0              0                                    WITH MOST SIGNI     SELECT
          37819    71      378     22   0  0              0        378     >MOST SIG HALF IS NOT MINUS ZERO        JUMP IF A != 0
          37820    10               0   0  0             80                B8                                      SELECT LITERAL
          37821    4       67       2   0  0              0                PARAMETER                               AUGMENT
    37819>                                                                                                         
    37817>37822    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
    37815>37823    82      378      2   0  0              0        378     END                                     END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          37900    PROCR   379       379     CONSTANTS PREP S/R                                                    
          37901     NOTES          RADIX     B                                                                     SELECT
          37902    81      379      2   0  0              0        379                                             START OF SUBROUTINE
          37903    54      61      26   0  0              8                CLEAR W/L'S                             BULK CLEAR
          37904            77       2   1  0              0                AMEND IND                               SELECT
          37905    5       7        2   1  0              0                                                        TRANSFER
          37906            77       4   1  0              0                LINE SERIAL                             SELECT
          37907    5       7        6   1  0              0                                                        TRANSFER
          37908    55      77       8   1  0             18                COPY CONSTANTS                          BULK COPY
          37909    C       7       12   1  0              0                                                        
          37910            77      26   1  0              0                PASS 1 REPORTS                          SELECT
          37911    5       7       48   1  0              0                                                        TRANSFER
          37912    55      77      28   1  0             16                COPY ANNOTATION                         BULK COPY
          37913    C       7       32   1  0              0                                                        
          37914    0       61      68   0  0              0                O/P IND                                 SELECT
          37915    71      379     17   0  0              0        379     >SECOND HALF OF SHORT CONST             JUMP IF A != 0
          37916    5       67       0   0  0              0                CLEAR THIS                              TRANSFER
    37915>37917            7       46   1  0              0                                                        SELECT
          37918    2       434     28   1  0              0        434     IGNORE TRANSLATION IND                  SUBTRACT
          37919    70      377     13   0  0              0        377     >YES,GO TO PRINT                        JUMP IF A == 0
          37920    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          37921    C                0   0  0             10                                                        
          37922    34      77       8   1  0              0                FIRST WORD OF CONSTANT                  SET (N) IN B
          37923    10               0   0  0              2                                                        SELECT LITERAL
          37924    5       61      38   0  0              0                SET WORD CTR                            TRANSFER
          37925    5       61      60   0  0              0                S/F MOD                                 TRANSFER
          37926    82      379      2   0  0              0        379                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38000    PROCR   380       380     GET NEXT CHAR S/R                                                     
          38001     NOTES          RADIX     B                                                                     SELECT
          38002    81      380      2   0  0              0        380                                             START OF SUBROUTINE
          38003    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          38004    5       61      24   1  0              0                THIS CHAR W/L                           TRANSFER
          38005    94      380     12   0  3              2        380                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          38006    124     61      38   0  0              0                                                        modify address of next
          38007    34      77       8   1  0              0                NEXT WORD                               SET (N) IN B
          38008    10               0   0  0              2                                                        SELECT LITERAL
          38009    4       61      38   0  0              0                                                        AUGMENT
          38010    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          38011    C                0   0  0             10                                                        
    38005>38012            61      24   1  0              0                                                        SELECT
  Source image: P1030268.JPG
          38013    82      380      2   0  0              0        380                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38100    PROCR   381       381     TEST (,NE S/R                                                         
          38101     NOTES          RADIX     B    CONSTANTS                                                        SELECT
          38102    81      381      2   0  0              0        381                                             START OF SUBROUTINE
          38103    12               0   0  0             7Ю                (                                       SUBTRACT LITERAL
          38104    70      381      8   0  0              0        381                                             JUMP IF A == 0
          38105    12               0   0  0              2                ,                                       SUBTRACT LITERAL
          38106    70      381      8   0  0              0        381                                             JUMP IF A == 0
          38107    12               0   0  0              1                NE                                      SUBTRACT LITERAL
    38106>                                                                                                         
    38104>38108    82      381      2   0  0              0        381                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38200    PROCR   382       382     PUT THIS CHAR INTO O/P WORD S/R                                       
          38201     NOTES          RADIX     B                                                                     SELECT
          38202    81      382      2   0  0              0        382                                             START OF SUBROUTINE
          38203            61      28   1  0              0                                                        SELECT
          38204    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          38205    1       61      24   2  0              0                NEXT CHAR(BASIC ONLY)                   ADD
          38206    5       61      28   1  0              0                                                        TRANSFER
          38207    82      382      2   0  0              0        382                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          38300    PROCR   383       383     ALPHA CONSTANTS                                                       
          38301     NOTES          RADIX     B                                                                     SELECT
    37410>38302            61      30   0  0              0                DEFN LINE IND                           SELECT
          38303    70      383      7   0  0              0        383     >NO                                     JUMP IF A == 0
          38304    10               0   0  0              8                                                        SELECT LITERAL
          38305    124     61      60   0  0              0                SF CTR                                  modify address of next
          38306    4       61      55   0  0              0                AUG SF LENGTH BY 8 FOR EACH ALPHA C     AUGMENT
    38303>38307            61      28   1  0              0                                                        SELECT
          38308    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          38309    1       61      24   0  0              0                                                        ADD
          38310    5       61      28   1  0              0                ADD IN THIS CHAR TO SUBCONST            TRANSFER
          38311    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38400    PROCR   384       384     BINAY PATTERNS                                                        
          38401     NOTES          RADIX     B                                                                     SELECT
    37411>38402    0       61      24   0  0              0                THIS CHARACTER                          SELECT
          38403    12               0   0  0             10                MINUS SIGN                              SUBTRACT LITERAL
          38404    70      384     15   0  0              0        384                                             JUMP IF A == 0
          38405    0       61      30   0  0              0                                                        SELECT
          38406    70      384     10   0  0              0        384     >NOT DEFINITION LINE                    JUMP IF A == 0
          38407    10               0   0  0              1                                                        SELECT LITERAL
          38408    124     61      60   0  0              0                SF MOD                                  modify address of next
          38409    4       61      55   0  0              0                AUG SF LENGTH BY 1 BIT PER CHAR         AUGMENT
    38406>38410            61      28   1  0              0                                                        SELECT
          38411    1       61      28   1  0              0                                                        ADD
          38412    1       61      24   2  0              0                                                        ADD
          38413    5       61      28   1  0              0                ADD THIS BIT INTO SUBCONST              TRANSFER
          38414    76      373      9   0  0              0        373                                             JUMP unconditional
    38404>38415    0       61      60   0  0              0                TEST FIRST SUBFIELD                     SELECT
          38416    71      373      9   0  0              0        373                                             JUMP IF A != 0
          38417    10               0   0  0              1                                                        SELECT LITERAL
          38418    5       61      32   0  0              0                NEG INDICATOR                           TRANSFER
          38419    76      373      9   0  0              0        373                                             JUMP unconditional
                                                                                                                   
          38500    PROCR   385       385     DECIMAL CONSTS (-VE)                                                  
          38501     NOTES          RADIX     B                                                                     SELECT
    37412>38502            61      24   0  0              0                                                        SELECT
          38503    12               0   0  0             10                NEG SIGN                                SUBTRACT LITERAL
  Source image: P1030269.JPG
          38504    71      386      2   0  0              0        386                                             JUMP IF A != 0
          38505            61      60   0  0              0                S/F MOD                                 SELECT
          38506    71      385     10   0  0              0        385     NOT FIRST MOD                           JUMP IF A != 0
          38507    10               0   0  0              1                                                        SELECT LITERAL
          38508    5       61      32   0  0              0                NEG IND                                 TRANSFER
          38509    76      374      2   0  0              0        374                                             JUMP unconditional
    38506>38510    10               0   0  0              1                BIT 1                                   SELECT LITERAL
          38511    124     61      60   0  0              0                SF MOD                                  modify address of next
          38512    124     61      55   0  0              0                SF LENGTH                               modify address of next
          38513    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          38514    60               0   0  0              0                                                        SET DECIMAL RADIX
          38515    2       61      28   1  0              0                FORM N BIT                              SUBTRACT
          38516    5       61      28   1  0              0                DEC COMPT                               TRANSFER
          38517    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          38518    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38600    PROCR   386       386     DECIMAL CONSTANTS (+VE)                                               
          38601     NOTES          RADIX     B                                                                     SELECT
    38504>38602            61      30   0  0              0                                                        SELECT
          38603    70      386      7   0  0              0        386     >NOT DIRECTIVE LINE                     JUMP IF A == 0
          38604    10               0   0  0              4                                                        SELECT LITERAL
          38605    124     61      60   0  0              0                SF MOD                                  modify address of next
          38606    4       61      55   0  0              0                AUG SF LENGTH BY 4 BITS PER CHAR        AUGMENT
    38603>38607    80      382      2   0  0              0        382     >ADD THIS CHAR TO O/P WORD              ENTER SUBROUTINE
          38608    76      374      2   0  0              0        374                                             JUMP unconditional
                                                                                                                   
          38700    PROCR   387       387     BINARY NO CONSTANTS                                                   
          38701     NOTES          RADIX     B                                                                     SELECT
    38711>                                                                                                         
    37413>38702            61      24   0  0              0                                                        SELECT
          38703    12               0   0  0             10                -SIGN                                   SUBTRACT LITERAL
          38704    71      387      8   0  0              0        387                                             JUMP IF A != 0
          38705    10               0   0  0              1                                                        SELECT LITERAL
          38706    5       61      33   0  0              0                                                        TRANSFER
          38707    76      387      9   0  0              0        387                                             JUMP unconditional
    38704>38708    80      382      2   0  0              0        382     -THIS CHAP SET UP O/P                   ENTER SUBROUTINE
    38707>38709    80      380      2   0  0              0        380     -GET NEXT CHAT                          ENTER SUBROUTINE
          38710    80      381      2   0  0              0        381     -TEST S/R                               ENTER SUBROUTINE
          38711    71      387      2   0  0              0        387                                             JUMP IF A != 0
          38712    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          38713    5       61      34   1  0              0                PRESERVE B                              TRANSFER
          38714            61      28   1  0              0                DEC VALUE OD CONST                      SELECT
          38715    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          38716    5       61      28   1  0              0                                                        TRANSFER
          38717    34      61      34   1  0              0                RESTORE B                               SET (N) IN B
          38718            61      33   0  0              0                NEG IND FOR BIN CONSTS                  SELECT
          38719    70      388      5   0  0              0        388     >NOT NEGATIVE                           JUMP IF A == 0
          38720            61      60   0  0              0                S/F MOD                                 SELECT
          38721    70      388      2   0  0              0        388     >FIRST S/F                              JUMP IF A == 0
          38722    10               0   0  0              1                                                        SELECT LITERAL
          38723    124     61      60   0  0              0                S/F MOD                                 modify address of next
          38724    124     61      55   0  0              0                S/F LENGTH=N                            modify address of next
          38725    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          38726    2       61      28   1  0              0                FORM N-BIT COMPT                        SUBTRACT
          38727    5       61      28   1  0              0                                                        TRANSFER
          38728    76      388      4   0  0              0        388                                             JUMP unconditional
                                                                                                                   
          38800    PROCR   388       388     BINARY NO CONSTANTS                                                   
          38801     NOTES          RADIX                                                                           SELECT
    38721>38802    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1030270.JPG
          38803    5       61      32   0  0              0                NEG IND                                 TRANSFER
    38728>38804    5       61      33   0  0              0                BIN NO NEG IND                          TRANSFER
    39032>                                                                                                         
    38719>38805            61      24   0  0              0                                                        SELECT
          38806    76      374      3   0  0              0        374     -                                       JUMP unconditional
                                                                                                                   
          38900    PROCR   389       389     RELATIVE ADDRESS CONSTS                                               
          38901     NOTES          RADIX                                                                           SELECT
    38910>                                                                                                         
    37414>38902            61      24   0  0              0                                                        SELECT
          38903    12               0   0  0             4:                                                        SUBTRACT LITERAL
          38904    70      390      2   0  0              0        390     >COLON                                  JUMP IF A == 0
          38905    11               0   0  0             4:                                                        ADD LITERAL
          38906    80      381      2   0  0              0        381     -TEST S/R                               ENTER SUBROUTINE
          38907    70      390     24   0  0              0        390                                             JUMP IF A == 0
          38908    80      382      2   0  0              0        382     -THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          38909    80      380      2   0  0              0        380     -GET NEXT CHAR                          ENTER SUBROUTINE
          38910    76      389      2   0  0              0        389                                             JUMP unconditional
                                                                                                                   
          39000    PROCR   390       390     RELATIVE ADDRESS CONSTS                                               
          39001     NOTES          RADIX     B                                                                     SELECT
    38904>39002    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39003    5       61      98   1  0              0                STORE REGISTER B                        TRANSFER
          39004            61      28   1  0              0                                                        SELECT
          39005    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          39006    5       61      35   0  0              0                                                        TRANSFER
          39007    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          39008    80      396      2   0  0              0        396     -DET CHAP S/R                           ENTER SUBROUTINE
          39009    3       67       0   0  2              0                PARA                                    COPY
          39010    70      390     13   0  0              0        390     ABS ADD                                 JUMP IF A == 0
          39011    12               0   0  0              1                =2C+1                                   SUBTRACT LITERAL
          39012    4       67       0   0  2              0                                                        AUGMENT
    39010>39013            61      35   0  0              0                REF                                     SELECT
          39014    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39015    4       67       0   0  2              0                                                        AUGMENT
          39016    10               0   0  0              0                                                        SELECT LITERAL
          39017    5       61      28   1  0              0                CLEAR FOR ITEM                          TRANSFER
          39018    34      61      98   1  0              0                                                        SET (N) IN B
    39023>39019    80      380      2   0  0              0        380     >GET NEXT CHAR                          ENTER SUBROUTINE
          39020    80      381      2   0  0              0        381     >TEST S/R                               ENTER SUBROUTINE
          39021    70      390     26   0  0              0        390                                             JUMP IF A == 0
          39022    80      382      2   0  0              0        382     >THIS CHAR SET UP O/P                   ENTER SUBROUTINE
          39023    76      390     19   0  0              0        390                                             JUMP unconditional
    38907>39024    91      61      68   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          39025    5       67       0   0  2              0                                                        TRANSFER
    39021>39026    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39027    5       61      34   1  0              0                STORE 2                                 TRANSFER
          39028            61      28   1  0              0                                                        SELECT
          39029    80      430      2   0  0              0        430     CONVERT ITEM                            ENTER SUBROUTINE
          39030    5       61      28   1  0              0                                                        TRANSFER
          39031    34      61      34   1  0              0                REPLACE B                               SET (N) IN B
          39032    76      388      5   0  0              0        388     -                                       JUMP unconditional
                                                                                                                   
          39100    PROCR   391       391     TABLE ENTRIES                                                         
          39101     NOTES          RADIX     B                                                                     SELECT
    34504>39102    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          39103    C       441      2   0  0              0        441                                             
          39104    52      7        2   0  0              0                EDIT TABLES                             EDIT
          39105    C       441      2   0  0              0        441                                             
          39106            77      22   1  0              0                PASS 1 REPORTS                          SELECT
  Source image: P1030271.JPG
          39107    5       7       48   1  0              0                                                        TRANSFER
          39108    55      77      24   1  0             16                COPY ANNOTATION                         BULK COPY
          39109    C       7       32   1  0              0                                                        
          39110    80      403      2   0  0              0        403     PRINT                                   ENTER SUBROUTINE
                                                                                                                   
          39200    PROCR   392       392     TABLE ENTRIES                                                         
          39201     NOTES          RADIX     B                                                                     SELECT
          39202    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          39203    C                0   0  0             20                                                        
    39207>39204            66       3   0  2              0                                                        SELECT
          39205    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          39206    5       66       3   0  2              0                                                        TRANSFER
          39207    94      392      4   0  2              1        392                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          39208    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          39209    C                0   0  0              4                                                        
    39217>39210            66      16   0  2              0                                                        SELECT
          39211    101            100   1  2              0                                                        subtract literal address
          39212    73      392     17   0  0              0        392     >SECTION                                JUMP IF A < 0
          39213    101            899   1  2              0                                                        subtract literal address
          39214    72      392     17   0  0              0        392     >999                                    JUMP IF A >= 0
          39215    10               0   0  0              2-                                                       SELECT LITERAL
          39216    4       66      17   0  2              0                REDUCE ITEM FOR CALCS                   AUGMENT
    39214>                                                                                                         
    39212>39217    94      392     10   0  2              2        392                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          39218    10               0   0  0              0                                                        SELECT LITERAL
          39219    34      61      47   0  0              0                TYPE                                    SET (N) IN B
          39220    36      436      6   0  0              0        436     BIT 1                                   COLLATE AND ADD
          39221    71      392     28   0  0              0        392     NOT TYPES 2 OR 4                        JUMP IF A != 0
          39222    0       66      19   0  0              0                SECOND ITEM                             SELECT
          39223    71      392     27   0  0              0        392     >'LAST ITEM'GIVEN                       JUMP IF A != 0
          39224    0       66      17   0  0              0                FIRST ITEM                              SELECT
          39225    71      392     27   0  0              0        392                                             JUMP IF A != 0
          39226    00      437      8   0  0              0        437     SOMETHING IN Q5                         SELECT
    39225>                                                                                                         
    39223>39227    5       67       2   0  0              0                                                        TRANSFER
    39221>39228    0       66      16   0  0              0                FIRST REF                               SELECT
          39229    5       61      35   0  0              0                REF                                     TRANSFER
          39230    80      396      2   0  0              0        396     DET CHAP                                ENTER SUBROUTINE
                                                                                                                   
          39300    PROCR   393       393     TABLE ENTRIES                                                         
          39301     NOTES          RADIX     B                                                                     SELECT
          39302    3       67       0   0  0              0                                    FORM PARA 2C-1      COPY
          39303    70      393      6   0  0              0        393     ABS ADD                                 JUMP IF A == 0
          39304    12               0   0  0              1                                                        SUBTRACT LITERAL
          39305    4       67       0   0  0              0                                                        AUGMENT
    39303>39306            61      35   0  0              0                REF                                     SELECT
          39307    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39308    4       67       0   0  0              0                                                        AUGMENT
          39309    0       66       3   0  0              0                SHORT/LONG/ALPHA                        SELECT
          39310    70      393     15   0  0              0        393                                             JUMP IF A == 0
          39311    12               0   0  0              1                                                        SUBTRACT LITERAL
          39312    70      393     14   0  0              0        393                                             JUMP IF A == 0
          39313            437     49   0  0              0        437     B17                                     SELECT
    39312>39314    1       437     13   0  0              0        437     B18                                     ADD
    39310>39315    5       67       3   0  0              0                                                        TRANSFER
          39316            66      13   0  0              0                SIGN                                    SELECT
          39317    70      394      2   0  0              0        394                                             JUMP IF A == 0
          39318    12               0   0  0              2                                                        SUBTRACT LITERAL
          39319    70      393     21   0  0              0        393                                             JUMP IF A == 0
          39320            437     51   0  0              0        437     B20                                     SELECT
  Source image: P1030272.JPG
    39319>39321    1       437      9   0  0              0        437                                             ADD
          39322    4       67       3   0  0              0                                                        AUGMENT
                                                                                                                   
          39400    PROCR   394       394     TABLE ENTRIES                                                         
          39401     NOTES          RADIX     B                                                                     SELECT
    39317>39402    0       66       4   0  0              0                SINGLE/BE                               SELECT
          39403    70      394      6   0  0              0        394                                             JUMP IF A == 0
          39404            437     51   0  0              0        437     B20                                     SELECT
          39405    4       67       3   0  0              0                                                        AUGMENT
    39403>39406            66      12   0  0              0                ZEROS                                   SELECT
          39407    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39408    1       66      10   0  0              0                DISC                                    ADD
          39409    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39410    1       66      11   0  0              0                SPACES                                  ADD
          39411    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          39412    1       66       5   0  0              0                NO OF CHARS                             ADD
          39413    4       67       3   0  0              0                                                        AUGMENT
          39414            66      15   0  0              0                LTE                                     SELECT
          39415    70      395      4   0  0              0        395                                             JUMP IF A == 0
          39416    10               0   0  0              0                                                        SELECT LITERAL
          39417    2       67       3   0  0              0                                                        SUBTRACT
          39418    70      395      2   0  0              0        395                                             JUMP IF A == 0
          39419    5       67       3   0  0              0                                                        TRANSFER
          39420    76      395      4   0  0              0        395                                             JUMP unconditional
                                                                                                                   
          39500    PROCR   395       395     TABLE ENTRIES                                                         
          39501     NOTES          RADIX     B                                                                     SELECT
    39418>39502    10               0   0  0             80                B8                  SET B8 OF PARAM     SELECT LITERAL
          39503    4       67       0   0  0              0                                    IF LTE AND 67/3     AUGMENT
    39420>                                                                                                         
    39415>39504    0       66      17   0  0              0                FIRST ITEM                              SELECT
          39505    5       67       1   0  0              0                                                        TRANSFER
          39506            66      14   0  0              0                STERLING INDICATOR                      SELECT
          39507    70      395     16   0  0              0        395                         SET BIT 17          JUMP IF A == 0
          39508    4       61     109   0  0              0                                    ON 2ND TIME TWR     AUGMENT
          39509    0       61     109   0  0              0                                    AND THERE AFTER     SELECT
          39510    12               0   0  0              2                                    EVERY THIRD TIME    SUBTRACT LITERAL
          39511    71      395     16   0  0              0        395                         THRU IE FOR SHILLINGJUMP IF A != 0
          39512    12               0   0  0              1                                                        SUBTRACT LITERAL
          39513    5       61     109   0  0              0                SET CTR=1-                              TRANSFER
          39514            437     49   0  0              0        437     B17                                     SELECT
          39515    4       67       1   0  0              0                                                        AUGMENT
    39511>                                                                                                         
    39507>39516    0       66      15   0  0              0                LTE IND                                 SELECT
          39517    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          39518    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
          39519    5       61     109   0  0              0                                                        TRANSFER
          39520    5       61     109   0  0              0                CLEAR STERLING CTR                      TRANSFER
          39521    80      411      2   0  0              0        411     O/P                                     ENTER SUBROUTINE
          39522    76      353      2   0  0              0        353     GNB                                     JUMP unconditional
                                                                                                                   
          39600    PROCR   396       396     DETERMINE CHAP S/R                                                    
          39601     NOTES          RADIX     B                                                                     SELECT
          39602    81      396      2   0  0              0        396                                             START OF SUBROUTINE
          39603            61      35   0  0              0                REF                                     SELECT
          39604    70      396     18   0  0              0        396     ABS ADD                                 JUMP IF A == 0
          39605    12               0   0  0             64                100                                     SUBTRACT LITERAL
          39606    72      397      2   0  0              0        397                                             JUMP IF A >= 0
          39607    35               0   0  0              1                Q1                                      PREPARE FOR DIGIT COLLATION
          39608    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1030273.JPG
          39609    124     61      35   0  0              0                                                        modify address of next
          39610    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
          39611    5       61      18   0  0              0                                                        TRANSFER
          39612    34      437     51   0  0              0        437     B20                                     SET (N) IN B
          39613    124     61      35   0  0              0                                                        modify address of next
          39614    36      70       0   0  0              0                SECT DETS                               COLLATE AND ADD
    39714>39615    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          39616    124     61      18   0  0              0                UNCORRECTED CHAP                        modify address of next
          39617    36      92       9   0  0              0                CORRECTED CHAP IN Q1                    COLLATE AND ADD
    39604>39618    82      396      2   0  0              0        396                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39700    PROCR   397       397     DET CHAP S/R                                                          
          39701     NOTES          RADIX     B                                                                     SELECT
    39606>39702    12               0   0  0            383                899                 REF999              SUBTRACT LITERAL
          39703    73      397      8   0  0              0        397                                             JUMP IF A < 0
          39704    71      397     10   0  0              0        397     >REF >999, CHEAT                        JUMP IF A != 0
          39705    5       61      35   0  0              0                SET REF ZERO                            TRANSFER
          39706            61      51   0  0              0                THIS CHAP                               SELECT
          39707    82      396      2   0  0              0        396                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    39703>39708    11               0   0  0            3.7                999                                     ADD LITERAL
          39709    30               0   0  0              2                PROCR IN Q3-5                           SHIFT (A) BY QUARTETS
    39704>39710    101     92      10   0  0              0                BIN LAST PROCRS IN CHAP                 table look up
          39711    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          39712    2       437      2   0  0              0        437     ABS ADDRESS 92/9                        SUBTRACT
          39713    5       61      18   0  0              0                UNCORR C NO                             TRANSFER
          39714    76      396     15   0  0              0        396                                             JUMP unconditional
                                                                                                                   
          39800    PROCR   398       398     SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS                      
          39801     NOTES  398                                                                                     SELECT
          39802    81      398      2   0  0              0        398                                             START OF SUBROUTINE
          39803    73      398      7   0  0              0        398     >NEGATIVE ACTION                        JUMP IF A < 0
          39804    1       61      43   0  0              0                                                        ADD
          39805    2       61      11   0  0              0                START OF CURRENT PROCR                  SUBTRACT
          39806    76      398      9   0  0              0        398                                             JUMP unconditional
    39803>39807    2       61      43   0  0              0                                                        SUBTRACT
          39808    1       61      11   0  0              0                                                        ADD
    39806>39809    5       67       3   0  0              0                                                        TRANSFER
          39810    0       61      10   0  0              0                CURRENT PROCR(IN THIS CHAPTER)          SELECT
          39811    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          39812    1       61       3   0  0              0                2C                                      ADD
          39813    5       67       2   0  0              0                PARA                                    TRANSFER
          39814    80      411      2   0  0              0        411     >O/P                                    ENTER SUBROUTINE
          39815    82      398      2   0  0              0        398                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          39900    PROCR   399       399     OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START               
          39901     NOTES  399                                                                                     SELECT
          39902    81      399      2   0  0              0        399                                             START OF SUBROUTINE
          39903    70      399      8   0  0              0        399     >24/0/3 BY 0                            JUMP IF A == 0
          39904    5       67       3   0  0              0                                                        TRANSFER
  Source image: P1030281.JPG
          39905    10               0   0  0              1                                                        SELECT LITERAL
          39906    2       67       3   0  0              0                                                        SUBTRACT
          39907    2       67       3   0  0              0                                                        SUBTRACT
    39903>39908    1       438      2   0  0              0        438     24/0/3                                  ADD
          39909    80      348      2   0  0              0        348     >O/P                                    ENTER SUBROUTINE
          39910    82      399      2   0  0              0        399                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40000    PROCR   400       400     OUTPUT 24/0/3 BY 0                                                    
          40001     NOTES          RADIX     B                                                                     SELECT
          40002    81      400      2   0  0              0        400                                             START OF SUBROUTINE
          40003    10               0   0  0              0                                                        SELECT LITERAL
          40004    80      399      2   0  0              0        399                                             ENTER SUBROUTINE
          40005    82      400      2   0  0              0        400                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40100    PROCR   401       401     I/P SR                                                                
          40101     NOTES          RADIX     B                                                                     SELECT
          40102    81      401      2   0  0              0        401                                             START OF SUBROUTINE
          40103                     0   2 12              0                CURRENT RECORD LENGTH                   SELECT
          40104    5       430      2   0  0              0        430                                             TRANSFER
          40105    97      430      2   0 12              0        430                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          40106    C       401      8   0  0              0        401                                             
          40107    80      432      2   0  0              0        432     >READ                                   ENTER SUBROUTINE
    40106>                                                                                                         
    33805>40108    10               0   0  0              0                                                        SELECT LITERAL
          40109    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          40110    36               2   1 12              0                'AMENDED IMPLICITY'IND                  COLLATE AND ADD
          40111    5       437     99   0  0              0        437                                             TRANSFER
          40112    37               2   1 12              0                CLEAR 2 CHARS                           REPLACE SELECTED BITS
          40113    54      77       0   1  0             44                BULK CLEAR                              BULK CLEAR
          40114    55               0   1 12              0                BULK COPY                               BULK COPY
          40115    C       77       0   1  0              0                                                        
          40116    C                0   2 12              0                                                        
          40117    82      401      2   0  0              0        401                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40200    PROCR   402       402     PRINT LINE AND RE-SITE AMEND IND                                      
          40201     NOTES  402                                                                                     SELECT
          40202    81      402      2   0  0              0        402                                             START OF SUBROUTINE
          40203            8        4   1  0              0                                                        SELECT
          40204    5       8        2   1  0              0                                                        TRANSFER
          40205    5       8        4   1  0              0                                                        TRANSFER
          40206    80      403      2   0  0              0        403     >PRINT                                  ENTER SUBROUTINE
          40207    82      402      2   0  0              0        402                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40300    PROCR   403       403     PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE              
          40301     NOTES          RADIX     B                                                                     SELECT
          40302    81      403      2   0  0              0        403                                             START OF SUBROUTINE
          40303    0       436      2   1  0              0        436     BEW                                     SELECT
          40304    5       7       50   1  0              0                                                        TRANSFER
          40305            7       46   1  0              0                                                        SELECT
          40306    80      408      2   0  0              0        408     >REPORT IF TOP 4 CHARS='?'              ENTER SUBROUTINE
          40307    70      403     21   0  0              0        403     >YES                                    JUMP IF A == 0
          40308            7       48   1  0              0                                                        SELECT
          40309    70      403     23   0  0              0        403     >NO ERRORS                              JUMP IF A == 0
  Source image: P1030282.JPG
          40310    80      408      2   0  0              0        408     >TEST FOR REPORT                        ENTER SUBROUTINE
          40311    70      403     21   0  0              0        403     >DISASTROUS ERROR                       JUMP IF A == 0
          40312            7       32   1  0              0                FIRST 5 CHARS ANNOTATION                SELECT
          40313    12               0   0  0     7171717171                '/////'                                 SUBTRACT LITERAL
          40314    71      403     18   0  0              0        403                                             JUMP IF A != 0
          40315    35               0   0  0         111111                Q1-6                                    PREPARE FOR DIGIT COLLATION
          40316    37      7       48   1  0              0                                                        REPLACE SELECTED BITS
          40317    76      403     23   0  0              0        403     >DONT COUNT                             JUMP unconditional
    40314>40318    86      407      2   0  0              0        407                                             SELECT SWITCH R
          40319    11               0   0  0              1                STEP CTR OF OTHER ERRORS                ADD LITERAL
          40320    84      407      2   0  0              0        407                                             SET SWITCH(ES) AT VARIABLE VALUE
    40311>                                                                                                         
    40307>40321    10               0   0  0              1                (PRINT REPORTED LINES)                  SELECT LITERAL
          40322    5       437     99   0  0              0        437                                             TRANSFER
    40317>                                                                                                         
    40309>40323    0       23      46   1  0              0                'PRINT PROCR'+'PRINT ALL'INDS           SELECT
          40324    71      403     30   0  0              0        403     >PRINT                                  JUMP IF A != 0
          40325    0       437     99   0  0              0        437     'IMPLICITLY AMENDED'                    SELECT
          40326    70      403     35   0  0              0        403     >DONT PRINT                             JUMP IF A == 0
          40327    0       438     20   0  0              0        438     LAST RECORD PRINTED?                    SELECT
          40328    71      403     30   0  0              0        403     >YES                                    JUMP IF A != 0
          40329    80      405      2   0  0              0        405     >BLANK LINE                             ENTER SUBROUTINE
    40328>                                                                                                         
    40324>40330    0       61      46   0  0              0                HEAD OF FORM,OR ZERO                    SELECT
          40331    5       7        0   2  0              0                                                        TRANSFER
          40332    80      406      2   0  0              0        406     >PRINT LINE                             ENTER SUBROUTINE
          40333    10               0   0  0              1                                                        SELECT LITERAL
          40334    3       61      46   0  0              0                SET FOR NEXT TIME                       COPY
    40326>40335    5       438     20   0  0              0        438     SET/CLEAR IND                           TRANSFER
          40336    82      403      2   0  0              0        403                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40400    PROCR   404       404     STORE LINE SERIAL FOR DIS ERRORS                                      
          40402    100              0   0  0              0                                                        Halt
          40403    124     435     46   0  1              0        435                                             modify address of next
          40404    102     24       0   0  0              0                                                        transfer (A) to N
          40405    123              1   0  0              0                                                        step on and test
          40406    100     435     46   0  0              0        435                                             Halt
          40407    126     404      2   0  1              0        404                                             leave subroutine
          40408    106     404      7   0  0              0        404                                             select (N)
          40409    102     404      3   0  0              0        404                                             transfer (A) to N
          40410    126     404      2   0  1              0        404                                             leave subroutine
                                                                                                                   
          40500    PROCR   405       405     PRINT BLANK LINE UNCONDITIONALLY                                      
          40502    81      405      2   0  0              0        405                                             START OF SUBROUTINE
          40503            999     16   1  0              0                COPY SEC 7 PARAS                        SELECT
          40504    5       435     42   1  0              0        435                                             TRANSFER
          40505    0       999      8   0  0              0                PT ROUTE                                SELECT
          40506    5       999     16   0  0              0                                                        TRANSFER
          40507    2       999      8   0  0              0                                                        SUBTRACT
          40508    12               0   0  0             40                65                                      SUBTRACT LITERAL
          40509    5       999     17   0  0              0                CREATE R,-(64+R)                        TRANSFER
          40510    5       7        0   1  0              0                                                        TRANSFER
          40511    0       436      2   1  0              0        436     BEW                                     SELECT
          40512    5       7        2   1  0              0                                                        TRANSFER
          40513    80      406      2   0  0              0        406     >PRINT EX SEC 7                         ENTER SUBROUTINE
          40514    0       435     42   1  0              0        435                                             SELECT
          40515    5       999     16   1  0              0                RESTORE SEC 7 PARAS                     TRANSFER
          40516    82      405      2   0  0              0        405                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40600    PROCR   406       406     PRINT SEC 7(OR SEC 5,OR PT ANNEX)                                     
  Source image: P1030283.JPG
          40602    81      406      2   0  0              0        406                                             START OF SUBROUTINE
          40603            27       9   0  0              0                                                        SELECT
          40604    70      406      9   0  0              0        406     >PRINTER                                JUMP IF A == 0
          40605    55      7        0   1  0             54                                                        BULK COPY
          40606    C       10       4   1  0              0                                                        
          40607    80      433      2   0  0              0        433     >O/P>                                   ENTER SUBROUTINE
          40608    82      406      2   0  0              0        406                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    40604>40609            27       8   0  0              0                PRINTER TYPE                            SELECT
          40610    12               0   0  0              9                                                        SUBTRACT LITERAL
          40611    70      406     28   0  0              0        406     >SPECIAL                                JUMP IF A == 0
          40612            437     51   0  0              0        437     BIT20                                   SELECT
          40613    5       7        1   0  0              0                                                        TRANSFER
          40614    54      10       0   1  0            384                (GP ANNEX)                              BULK CLEAR
          40615    124     999     17   1  2              0                SEC 7                                   modify address of next
          40616    124              0   0  2              0                                                        select literal and division
          40617    124     999     13   1  2              0                SEC 10                                  modify address of next
          40618    129              0   0  1              0                                                        edit for anelex output
          40619    10               0   0  0              4                                                        SELECT LITERAL
    40631>40620    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          40621    1       999      7   0  0              0                ROUTE                                   ADD
          40622    34      999     12   0  0              0                                                        SET (N) IN B
          40623    125           4096   1  1              0                                                        clear indicators
          40624    124     999      0   0  3              0                                                        modify address of next
          40625    123            160   0  2              0                                                        enter master routine
          40626    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          40627    82      406      2   0  0              0        406                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    40611>40628    55      7        0   1  0             54                COPY ANNEXES                            BULK COPY
          40629    C       10       0   1  0              0                                                        
          40630    10               0   0  0              9                                                        SELECT LITERAL
          40631    76      406     20   0  0              0        406                                             JUMP unconditional
                                                                                                                   
          40700    PROCR   407       407     OUTPUT 9>A6                                                           
          40701     NOTES          RADIX     B                                                                     SELECT
          40702    81      407      2   0  0              0        407                                             START OF SUBROUTINE
          40703    43      A6       0   0  0              0                                                        OUTPUT
          40704    C       9        0   0  0              0                                                        
          40705    82      407      2   0  0              0        407                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40800    PROCR   408       408     TEST FOR DISASTROUS ERROR CONDITION IN PRINTER ANNEX                  
          40801     NOTES  408                                                                                     SELECT
          40802    81      408      2   0  0              0        408                                             START OF SUBROUTINE
          40803    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          40804    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          40805    11               0   0  0             5:                                                        ADD LITERAL
          40806    2       434     28   1  0              0        434     '?????'                                 SUBTRACT
          40807    71      408     14   0  0              0        408     >NOT DISASTROUS                         JUMP IF A != 0
          40808    86      403      2   0  0              0        403     STEP DISASTER CTR                       SELECT SWITCH R
          40809    11               0   0  0              1                                                        ADD LITERAL
          40810    84      403      2   0  0              0        403     (CLEARS A)                              SET SWITCH(ES) AT VARIABLE VALUE
          40811            7        6   2  0              0                                                        SELECT
          40812    80      404      2   0  0              0        404                                             ENTER SUBROUTINE
          40813    10               0   0  0              0                                                        SELECT LITERAL
    40807>40814    82      408      2   0  0              0        408                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          40900    PROCR   409       409     O/P TYPE SR                                                           
          40901     NOTES          RADIX     B                                                                     SELECT
          40902    81      409      2   0  0              0        409                                             START OF SUBROUTINE
          40903    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          40904            61      26   1  0              0                TYPE NO ALPHA                           SELECT
          40905    1       434     18   1  0              0        434     TYPE(SPACE)                             ADD
  Source image: P1030284.JPG
          40906    05      9        4   1  2              0                                                        TRANSFER
          40907            61      28   1  0              0                                                        SELECT
          40908    05      9        6   1  2              0                                                        TRANSFER
          40909            61      43   0  0              0                SPACE CTR                               SELECT
          40910    05      9        8   2  2              0                                                        TRANSFER
          40911    5       9       10   1  2              0                CLEAR                                   TRANSFER
          40912    76      412      2   0  0              0        412                                             JUMP unconditional
                                                                                                                   
          41000    PROCR   410       410     ALPHA OUTPUT SR                                                       
          41001     NOTES          RADIX     B                                                                     SELECT
          41002    81      410      2   0  0              0        410                                             START OF SUBROUTINE
          41003    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          41004            61      26   1  0              0                                                        SELECT
          41005    05      9        4   1  2              0                                                        TRANSFER
          41006            61      28   1  0              0                                                        SELECT
          41007    05      9        6   1  2              0                                                        TRANSFER
          41008            67       2   0  0              0                                                        SELECT
          41009    05      9        8   2  2              0                                                        TRANSFER
          41010            67       3   0  0              0                                                        SELECT
          41011    05      9       10   2  2              0                                                        TRANSFER
          41012            410      2   0  0              0        410     O/P ALPHA S/R LINK                      SELECT
          41013    76      411     15   0  0              0        411                                             JUMP unconditional
                                                                                                                   
          41100    PROCR   411       411     O/P SR                                                                
          41101     NOTES          RADIX     B                                                                     SELECT
          41102    81      411      2   0  0              0        411                                             START OF SUBROUTINE
          41103            61      42   0  0              0                                                        SELECT
          41104    4       61      43   0  0              0                AUGMENT LOCATION COUNTER                AUGMENT
          41105    91      61      44   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          41106            67       0   0  0              0                SERIAL NO FOR INST  RUCTIONS            SELECT
          41107    05      9        4   2  2              0                                                        TRANSFER
          41108            67       1   0  0              0                SC INDICATOR FOR INSIONS                SELECT
          41109    05      9        6   2  2              0                                                        TRANSFER
          41110            67       2   0  0              0                PARAMETER                               SELECT
          41111    05      9        8   2  2              0                                                        TRANSFER
          41112            67       3   0  0              0                                                        SELECT
          41113    05      9       10   2  2              0                                                        TRANSFER
          41114            411      2   0  0              0        411     LINK                                    SELECT
    41013>41115    5       409      2   0  0              0        409     O/P TYPE S/R LINK                       TRANSFER
                                                                                                                   
          41200    PROCR   412       412     O/P SR                                                                
          41201     NOTES          RADIX     B                                                                     SELECT
    40912>41202    94      412      8   0  2              8        412                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41308>41203            436      2   1  0              0        436     BE WORD                                 SELECT
          41204    05      9        4   1  2              0                                                        TRANSFER
          41205    80      407      2   0  0              0        407     PREP STAGE OP                           ENTER SUBROUTINE
          41206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          41207    C                0   0  0            144                                                        
    41202>41208    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          41209    5       61      44   1  0              0                                                        TRANSFER
          41210    5       67       1   0  0              0                CLEAR S67                               TRANSFER
          41211    5       67       2   1  0              0                                                        TRANSFER
          41212    82      409      2   0  0              0        409     -                                       END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41300    PROCR   413       413     OP REMAINING DETAILS SR                                               
          41301     NOTES          RADIX     B                                                                     SELECT
          41302    81      413      2   0  0              0        413                                             START OF SUBROUTINE
          41303    00      61      44   0  0              0                                                        SELECT
          41304    70      413      9   0  0              0        413     NOTHING TO O/P                          JUMP IF A == 0
          41305    91      61      44   0  2              0                OP CTR                                  SET MODIFICATION REGISTER AT VARIABLE
  Source image: P1030285.JPG
          41306    00      413      2   0  0              0        413     LINK                                    SELECT
          41307    05      409      2   0  0              0        409     O/P TYPE S/R LINK                       TRANSFER
          41308    76      412      3   0  0              0        412                                             JUMP unconditional
    41304>41309    82      413      2   0  0              0        413                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41400    PROCR   414       414     I/P INSTRUCTION S/R                                                   
          41401     NOTES          RADIX     B                                                                     SELECT
          41402    81      414      2   0  0              0        414                                             START OF SUBROUTINE
          41403    80      401      2   0  0              0        401     -I/P                                    ENTER SUBROUTINE
          41404    10               0   0  0              1                                                        SELECT LITERAL
          41405    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          41406    80      415      2   0  0              0        415     -I/P C-LINE S/R                         ENTER SUBROUTINE
          41407    82      414      2   0  0              0        414                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41500    PROCR   415       415     I/P C-LINE S/R                                                        
          41501     NOTES          RADIX     B                                                                     SELECT
          41502    81      415      2   0  0              0        415                                             START OF SUBROUTINE
          41503            61      99   0  0              0                NON I/P IND                             SELECT
          41504    71      415     10   0  0              0        415                                             JUMP IF A != 0
          41505    80      427      2   0  0              0        427     SUSPEND                                 ENTER SUBROUTINE
          41506    80      401      2   0  0              0        401     INPUT                                   ENTER SUBROUTINE
          41507                     6   1 12              0                                                        SELECT
          41508    2       434     26   1  0              0        434     C, , , , ,                              SUBTRACT
          41509    71      353      3   0  0              0        353     -G.N.B.                                 JUMP IF A != 0
    41504>41510    50      77       2   0  0              0                                                        UNPACK FIXED FIELD DATA
          41511    C       440      2   0  0              0        440                                             
          41512    52      7        2   0  0              0                EDIT INSTRUCTIONS                       EDIT
          41513    C       440      2   0  0              0        440                                             
          41514            77      20   1  0              0                PREVIOUS PROCR NO                       SELECT
          41515    5       7       28   1  0              0                                                        TRANSFER
          41516            77      22   1  0              0                PASS 1 REPORTS                          SELECT
          41517    5       7       48   1  0              0                                                        TRANSFER
          41518    55      77      24   1  0             16                COPY ANNOTATION                         BULK COPY
          41519    C       7       32   1  0              0                                                        
          41520    0       66       4   1  0              0                ACTION ALPHA                            SELECT
          41521    2       434     26   1  0              0        434                                             SUBTRACT
          41522    70      419      2   0  0              0        419     >THIS IS A C-LINE                       JUMP IF A == 0
    41535>                                                                                                         
    35908>41523    10               0   0  0              0                                                        SELECT LITERAL
          41524    5       61      20   1  0              0                                                        TRANSFER
          41525    94      415     27   0  1              0        415     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          41526    76      418      2   0  0              0        418     >NO UNMATCHED SEQ CHS BACK              JUMP unconditional
    41525>41527                     1   0  1              0                (R1 ABS) SC BACK DEST                   SELECT
          41528    02      66       2   1  0              0                SERIAL THIS ORDER                       SUBTRACT
          41529    70      417      2   0  0              0        417     >THIS IS A DESTINATION                  JUMP IF A == 0
          41530    72      418      2   0  0              0        418     >NOW TRY SEQ CH FWD LIST                JUMP IF A >= 0
          41531            434     28   1  0              0        434     ?????                                   SELECT
          41532    5       61      20   1  0              0                                                        TRANSFER
          41533    80      416      2   0  0              0        416     >STORE 'ADDRESS'=CURRENT SPACE CTR      ENTER SUBROUTINE
    41840>41534    80      422      2   0  0              0        422     PRINT ENTRY POINT S/PRINT WRONG ENTRY POENTER SUBROUTINE
          41535    76      415     23   0  0              0        415                                             JUMP unconditional
                                                                                                                   
          41600    PROCR   416       416                                                                           
          41601     NOTES  416                                                                                     SELECT
          41602    81      416      2   0  0              0        416                                             START OF SUBROUTINE
          41603                     0   0  1              0                SOURCE OF SC BACK                       SELECT
          41604    3       61       0   0  0              0                                                        COPY
          41605    5                1   0  1              0                OVERWRITE DEST                          TRANSFER
          41606    0       61      20   1  0              0                                                        SELECT
          41607    71      416     15   0  0              0        416     >IGNORED                                JUMP IF A != 0
  Source image: P1030286.JPG
          41608    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          41609    36      66       2   0  0              0                                                        COLLATE AND ADD
          41610    12               0   0  0              2                                                        SUBTRACT LITERAL
          41611    71      416     15   0  0              0        416     >NOT TO PROCR START                     JUMP IF A != 0
          41612    96               0   0  1              0                                                        SELECT MODIFIER
          41613    80      365      2   0  0              0        365     >CONTRACT SC BACK LIST                  ENTER SUBROUTINE
          41614    76      416     20   0  0              0        416     >STEP R1                                JUMP unconditional
    41611>                                                                                                         
    41607>41615    0       61      10   0  0              0                CURRENT PROCR                           SELECT
          41616    31               0   0  0             10                                                        SHIFT (A) BY BITS
          41617    1       61      43   0  0              0                SPACE CTR                               ADD
          41618    2       61      11   0  0              0                PROCR START                             SUBTRACT
          41619    5                0   0  1              0                STORE PROCR+ADDRESS IN PROCR            TRANSFER
    41614>41620    94      416     21   0  1              2        416     STEP                                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    41620>41621    82      416      2   0  0              0        416                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          41700    PROCR   417       417     I/P C-LINE S/R                                                        
          41701     NOTES          RADIX     B    STORE ABS DEST FOR MATCHES SC'S BACK                             SELECT
    41707>                                                                                                         
    41529>41702    80      416      2   0  0              0        416     >STORE ADDRESS                          ENTER SUBROUTINE
          41703    0       0        1   0  1              0                (R1 IS ABS) NEXT DEST                   SELECT
          41704    2       66       2   0  0              0                THIS SERIAL                             SUBTRACT
          41705    71      418     41   0  0              0        418     >NONE,TRY SC FWD LIST                   JUMP IF A != 0
          41706    80      422      2   0  0              0        422                                             ENTER SUBROUTINE
          41707    76      417      2   0  0              0        417     >THERE MAY BE MORE                      JUMP unconditional
                                                                                                                   
          41800    PROCR   418       418     I/P C-LINE S/R                                                        
          41801     NOTES          RADIX     B    TRY MATCH WITH SEQ CHS FWD                                       SELECT
    41530>                                                                                                         
    41526>41802    0       61     117   0  0              0                CTR OF SEC 20 LENGTH                    SELECT
          41803    70      419      2   0  0              0        419     >EMPTY                                  JUMP IF A == 0
          41804    0       20       0   0  0              0                SMALLEST DEST OF SC FWD                 SELECT
          41805    70      419      2   0  0              0        419     >LIST EMPTY,SKIP TO END                 JUMP IF A == 0
          41806    2       66       2   1  0              0                THIS SERIAL                             SUBTRACT
          41807    70      418     11   0  0              0        418     >IS DEST OF SEQ CH FWD                  JUMP IF A == 0
          41808    72      419      2   0  0              0        419     >EARLIER THAN EARLIEST DEST             JUMP IF A >= 0
          41809    00      434     28   1  0              0        434                                             SELECT
          41810    5       61      20   1  0              0                                    SEQ CHS FORWARD     TRANSFER
    41845>                                                                                                         
    41807>41811            20       2   0  0              0                                                        SELECT
          41812    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          41813    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          41814    70      418     17   0  0              0        418     >SC TO PROCR START                      JUMP IF A == 0
          41815    99               0   1  1              0                                                        SUBTRACT MODIFICATION REGISTER FROM A
          41816    72      418     17   0  0              0        418     >OK                                     JUMP IF A >= 0
    41816>                                                                                                         
    41814>41817    0       20       1   0  0              0                                                        SELECT
          41818    5       61       0   0  0              0                                                        TRANSFER
          41819    0       20       2   0  0              0                                                        SELECT
          41820    70      418     30   0  0              0        418     >SC TO PROGR START                      JUMP IF A == 0
          41821    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          41822    5       416      2   0  0              0        416     FLIPFLOP                                TRANSFER
          41823    0       61      43   0  0              0                SPACE CTR                               SELECT
          41824    2       61      11   0  0              0                CURRENT PROCR START                     SUBTRACT
          41825    34      436     24   0  0              0        436     BITS 1-10                               SET (N) IN B
          41826    124     416      2   0  1              0        416     0 OR 10                                 modify address of next
          41827    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          41828    124     20       2   0  3              0                ABS LOCN Q1-4                           modify address of next
          41829    114              0   0  0              0                PACK NEXT ENTRY>SEC 18                  replace selected bits
    41820>41830    0       61     117   0  0              0                                                        SELECT
  Source image: P1030287.JPG
          41831    12               0   0  0              3                                                        SUBTRACT LITERAL
          41832    3       61     117   0  0              0                REDUCE NO OF SC'S IN TRANSIT            COPY
          41833    71      418     36   0  0              0        418     >LIST NOT EMPTY                         JUMP IF A != 0
          41834    5       20       0   0  0              0                                                        TRANSFER
          41835    76      418     39   0  0              0        418     >TEST IF LAST SC WAS WRONG              JUMP unconditional
    41833>41836    124     20       3   0  2              0                                                        select literal and division
          41837    1       61     116   1  0              0                LENGTH IN 61/117                        ADD
          41838    128     20       0   0  0              0                IP 3 LOCNS                              bulk copy short numeric
    41835>41839            61      20   1  0              0                                                        SELECT
          41840    71      415     34   0  0              0        415     >WAS A WRONG ENTRY POINT                JUMP IF A != 0
    41705>41841            20       0   0  0              0                NEXT SC FWD DEST    LOOK FOR MORE E     SELECT
          41842    2       66       2   0  0              0                                                        SUBTRACT
          41843    71      418     46   0  0              0        418     >NO MORE ENTRIES HERE                   JUMP IF A != 0
          41844    80      422      2   0  0              0        422                                             ENTER SUBROUTINE
          41845    76      418     11   0  0              0        418     >MOVE LIST UP,TRY AGAIN                 JUMP unconditional
    41843>41846    52      7        2   0  0              0                EDIT ENTRY POINT                        EDIT
          41847    C       443      8   0  0              0        443                                             
                                                                                                                   
          41900    PROCR   419       419     I/P C LINE S/R                                                        
          41901     NOTES          RADIX     B                                                                     SELECT
    41808>                                                                                                         
    41805>                                                                                                         
    41803>                                                                                                         
    41522>41902    10               0   0  0              0                                                        SELECT LITERAL
          41903    34      66       6   1  0              0                REF                                     SET (N) IN B
          41904    80      426      2   0  0              0        426     RT ALIGN S/R                            ENTER SUBROUTINE
          41905    5       66       6   1  0              0                                                        TRANSFER
          41906    5       66      16   0  0              0                CLEAR INDICATOR                         TRANSFER
          41907    35               0   0  0              1                QUARTET ONE.                            PREPARE FOR DIGIT COLLATION
          41908    36      66       8   1  0              0                ITEM                                    COLLATE AND ADD
          41909    12               0   0  0              +                +                                       SUBTRACT LITERAL
          41910    71      420      2   0  0              0        420     >NOT 'ITEM+'                            JUMP IF A != 0
          41911    10               0   0  0              1                                                        SELECT LITERAL
          41912    5       66      16   0  0              0                                    IF IT IS SET        TRANSFER
          41913            66       8   1  0              0                                    INDICATOR           SELECT
          41914    30               0   0  0              1-                                   AND REMOVE +        SHIFT (A) BY QUARTETS
          41915    72      419     17   0  0              0        419                                             JUMP IF A >= 0
          41916    11               0   0  0              1                TO MAKE COMPLEMENT  CORRECT             ADD LITERAL
    41915>41917    5       66       8   1  0              0                                                        TRANSFER
                                                                                                                   
          42000    PROCR   420       420     I/P C-LINE S/R                                                        
          42001     NOTES          RADIX     B                                                                     SELECT
    41910>42002            77      38   1  0              0                IGNORE'IND                              SELECT
          42003    2       434     28   1  0              0        434                                             SUBTRACT
          42004    3       61      98   1  0              0                                                        COPY
          42005    70      420      6   0  0              0        420                                             JUMP IF A == 0
    42005>42006    80      403      2   0  0              0        403     PRINT                                   ENTER SUBROUTINE
          42007            66       6   2  0              0                DEC REF                                 SELECT
          42008    12               0   0  0            100                                                        SUBTRACT LITERAL
          42009    73      420     16   0  0              0        420     >SECTION                                JUMP IF A < 0
          42010    12               0   0  0            899                                                        SUBTRACT LITERAL
          42011    72      420     16   0  0              0        420     >999 OR 1000+                           JUMP IF A >= 0
          42012    60               0   0  0              0                                                        SET DECIMAL RADIX
          42013    10               0   0  0              2-                                                       SELECT LITERAL
          42014    4       66       8   1  0              0                REDUCE ITEM                             AUGMENT
          42015    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    42011>                                                                                                         
    42009>42016            66       4   1  0              0                                                        SELECT
          42017    2       434     26   1  0              0        434     C, , , , ,                              SUBTRACT
          42018    70      421      6   0  0              0        421                                             JUMP IF A == 0
  Source image: P1030288.JPG
          42019    34      66       4   1  0              0                                                        SET (N) IN B
          42020    80      426      2   0  0              0        426     RT ALIGN S/R                            ENTER SUBROUTINE
          42021    5       66       4   1  0              0                                                        TRANSFER
          42022            66       4   2  0              0                ACTION                                  SELECT
          42023    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          42024    5       61     110   0  0              0                GROUP                                   TRANSFER
          42025    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          42026    11               0   0  0              1                                                        ADD LITERAL
          42027    5       61      50   0  0              0                VARIANT +1                              TRANSFER
                                                                                                                   
          42100    PROCR   421       421     I/P C-LINE S/R                                                        
          42101     NOTES          RADIX     B                                                                     SELECT
          42102    0       61     110   0  0              0                                                        SELECT
          42103    80      430      2   0  0              0        430     CONVERT                                 ENTER SUBROUTINE
          42104    11               0   0  0              1                                                        ADD LITERAL
          42105    5       61     110   0  0              0                GROUP+1                                 TRANSFER
    42018>42106            61      98   1  0              0                W/L                                     SELECT
          42107    71      421     10   0  0              0        421                                             JUMP IF A != 0
          42108    5       61     110   0  0              0                CLEAR GROUP WHEN'IGNORE'IND SET         TRANSFER
          42109    76      353      2   0  0              0        353     >GNB                                    JUMP unconditional
    42107>42110    124     435     22   0  2              0        435                                             select literal and division
          42111    112     66       8   1  0              0                                                        convert
          42112    5       66       8   1  0              0                ITEM TO BIN                             TRANSFER
          42113    124     435     22   0  2              0        435                                             select literal and division
          42114    112     66      12   1  0              0                                                        convert
          42115    5       66      12   1  0              0                MOD DIGITS TO BIN                       TRANSFER
          42116    124     435     22   0  2              0        435                                             select literal and division
          42117    112     66       7   1  0              0                                                        convert
          42118    5       66       6   1  0              0                REF TO BIN                              TRANSFER
          42119    5       61      99   0  0              0                NON I/P IND                             TRANSFER
          42120    82      415      2   0  0              0        415                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42200    PROCR   422       422     PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE                         
          42201     NOTES          RADIX     B                                                                     SELECT
          42202    81      422      2   0  0              0        422                                             START OF SUBROUTINE
          42203    0       61      20   1  0              0                                                        SELECT
          42204    71      422      7   0  0              0        422     >PRINT REPORTED SC                      JUMP IF A != 0
          42205    0       23      46   1  0              0                'PRINT UNCONDITIONALLY' INDS            SELECT
          42206    70      422     12   0  0              0        422     >DONT PRINT SEPARATE SC                 JUMP IF A == 0
    42204>42207    52      5        2   0  0              0                                                        EDIT
          42208    C       443      2   0  0              0        443                                             
          42209    0       61      20   1  0              0                ?????'OR ZERO                           SELECT
          42210    5       5       46   1  0              0                                                        TRANSFER
          42211    80      423      2   0  0              0        423                                             ENTER SUBROUTINE
    42206>42212    82      422      2   0  0              0        422                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42300    PROCR   423       423     SECOND PRINT S/R                                                      
          42301     NOTES          RADIX     B                                                                     SELECT
          42302    81      423      2   0  0              0        423                                             START OF SUBROUTINE
          42303    00      436      2   1  0              0        436     BEW                                     SELECT
          42304    5       5       50   1  0              0                                                        TRANSFER
          42305    0       999     14   1  0              0                SEC 5 PARAS                             SELECT
          42306    5       999     16   1  0              0                CORRUPT SEC 7 PARAS                     TRANSFER
          42307    80      403      2   0  0              0        403     >PRINT SR(WHICH WILL USE SEC 5)         ENTER SUBROUTINE
          42308    0       999     30   1  0              0                                                        SELECT
          42309    5       999     16   1  0              0                RESTORE SEC 7 PARAS EX WL               TRANSFER
          42310    54      5        2   1  0             48                                                        BULK CLEAR
          42311    82      423      2   0  0              0        423                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42400    PROCR   424       424     NEG NO S/R                                                            
  Source image: P1030289.JPG
          42401     NOTES          RADIX     B                                                                     SELECT
          42402    81      424      2   0  0              0        424                                             START OF SUBROUTINE
          42403    10               0   0  0              0                                                        SELECT LITERAL
          42404    2       66       8   1  0              0                ITEM                                    SUBTRACT
          42405    70      424     17   0  0              0        424     DO NOT SET INDICATORFOR ZERO ITEM       JUMP IF A == 0
          42406    73      424     17   0  0              0        424                                             JUMP IF A < 0
          42407    5       66       8   1  0              0                                                        TRANSFER
          42408    10               0   0  0             80                B8                                      SELECT LITERAL
          42409    4       61      34   0  0              0                PARA W/L                                AUGMENT
          42410            66      10   1  0              0                                    DEAL WITH           SELECT
          42411    12               0   0  0              2                                    DISC 2              SUBTRACT LITERAL
          42412    71      424     17   0  0              0        424                         FOR -VE ITEM        JUMP IF A != 0
          42413    12               0   0  0              1                                                        SUBTRACT LITERAL
          42414    4       66       8   1  0              0                                                        AUGMENT
          42415    10               0   0  0              1                                                        SELECT LITERAL
          42416    5       66      10   1  0              0                                                        TRANSFER
    42412>                                                                                                         
    42406>                                                                                                         
    42405>42417    82      424      2   0  0              0        424                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42500    PROCR   425       425     STACK S/R                                                             
          42501     NOTES          RADIX     B                                                                     SELECT
          42502    81      425      2   0  0              0        425                                             START OF SUBROUTINE
          42503    0       61       0   0  0              0                ACTION                                  SELECT
          42504    5       67       3   0  0              0                                                        TRANSFER
          42505            66       6   1  0              0                REF                                     SELECT
          42506    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          42507    1       61      34   0  0              0                PARAM                                   ADD
          42508    5       67       2   0  0              0                                                        TRANSFER
          42509            66      10   1  0              0                                                        SELECT
          42510    70      425     16   0  0              0        425     GDISC 0                                 JUMP IF A == 0
          42511    12               0   0  0              2                                                        SUBTRACT LITERAL
          42512    71      425     15   0  0              0        425     >NOT DISC 2                             JUMP IF A != 0
          42513    10               0   0  0              1                STEP ITEM                               SELECT LITERAL
          42514    4       66       8   1  0              0                                                        AUGMENT
    42512>42515            437     29   0  0              0        437     B16                                     SELECT
    42510>42516    124     66      12   0  1              0                MOD DIGITS                              modify address of next
          42517    1       437     25   0  0              0        437     BITS IN B14 POSN                        ADD
          42518    1       66       8   0  0              0                ITEM                                    ADD
          42519    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          42520    36      67       3   0  0              0                                                        COLLATE AND ADD
          42521    37      67       3   0  0              0                PACK WITH ACTION                        REPLACE SELECTED BITS
          42522    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          42523    82      425      2   0  0              0        425                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42600    PROCR   426       426     RT ALIGN S/R                                                          
          42601     NOTES          RADIX     B                                                                     SELECT
          42602    81      426      2   0  0              0        426                                             START OF SUBROUTINE
          42603    10               0   0  0              0                                                        SELECT LITERAL
          42604    05      61      18   1  0              0                                                        TRANSFER
    42608>42605    00      61      18   1  0              0                                                        SELECT
          42606    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          42607    05      61      18   1  0              0                                                        TRANSFER
          42608    75      426      5   0  0              0        426                                             JUMP IF AB != 0
          42609    00      61      18   1  0              0                                                        SELECT
          42610    82      426      2   0  0              0        426                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42700    PROCR   427       427     SUSPEND S/R                                                           
          42701     NOTES          RADIX     B                                                                     SELECT
          42702    81      427      2   0  0              0        427                                             START OF SUBROUTINE
  Source image: P1030290.JPG
          42703    55      66       6   1  0              8                                                        BULK COPY
          42704    C       61      26   1  0              0                                                        
          42705            66      16   0  0              0                ITEM + IND                              SELECT
          42706    5       66      17   0  0              0                ITEM + IND (STORE)                      TRANSFER
          42707    82      427      2   0  0              0        427                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42800    PROCR   428       428     REPLACE S/R                                                           
          42801     NOTES          RADIX     B                                                                     SELECT
          42802    81      428      2   0  0              0        428                                             START OF SUBROUTINE
          42803    55      61      26   1  0              8                                                        BULK COPY
          42804    C       66       6   1  0              0                                                        
          42805            66      17   0  0              0                ITEM + IND (STORE)                      SELECT
          42806    5       66      16   0  0              0                ITEM + IND                              TRANSFER
          42807    82      428      2   0  0              0        428                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          42900    PROCR   429       429     OP INST S/R                                                           
          42901     NOTES          RADIX     B                                                                     SELECT
          42902    81      429      2   0  0              0        429                                             START OF SUBROUTINE
          42903            66      12   1  0              0                MOD DIGITS                              SELECT
          42904    5       61       2   0  0              0                                                        TRANSFER
          42905    80      497      2   0  0              0        497     >MOD AND PARAMETER                      ENTER SUBROUTINE
          42906            61       2   0  0              0                                                        SELECT
          42907    5       66      12   1  0              0                                                        TRANSFER
          42908    0       66       8   1  0              0                                                        SELECT
          42909    72      429     11   0  0              0        429     >NOT NEGATIVE ITEM                      JUMP IF A >= 0
          42910    80      424      2   0  0              0        424     NEG NO                                  ENTER SUBROUTINE
    42909>42911    80      425      2   0  0              0        425     STACK                                   ENTER SUBROUTINE
          42912    80      411      2   0  0              0        411     OP                                      ENTER SUBROUTINE
          42913    82      429      2   0  0              0        429                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43000    PROCR   430       430     CONVERT (A) TO BINARY                                                 
          43001     NOTES          RADIX                                                                           SELECT
          43002    81      430      2   0  0              0        430                                             START OF SUBROUTINE
          43003    5       435     42   1  0              0        435                                             TRANSFER
          43004    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          43005    124     435     22   0  2              0        435                                             select literal and division
          43006    112     435     42   1  0              0        435                                             convert
          43007    82      430      2   0  0              0        430                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43100    PROCR   431       431     CONVERT (A) TO DECIMAL                                                
          43101     NOTES  431                                                                                     SELECT
          43102    81      431      2   0  0              0        431                                             START OF SUBROUTINE
          43103    5       435     42   1  0              0        435                                             TRANSFER
          43104    60               0   0  0              0                                                        SET DECIMAL RADIX
          43105    124     435      2   0  2              0        435                                             select literal and division
          43106    112     435     42   1  0              0        435                                             convert
          43107    82      431      2   0  0              0        431                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43200    PROCR   432       432     A2>8                                                                  
          43202    81      432      2   0  0              0        432                                             START OF SUBROUTINE
          43203    42      A2       0   0  0              0                                                        INPUT
          43204    C       8        0   0  0              0                                                        
          43205    59      8        6   0 12              0                                                        SET MODIFICATION REGISTER FOR MERGE
          43206    C       8        4   2  0              0                                                        
          43207    82      432      2   0  0              0        432                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43300    PROCR   433       433     O/P>A9                                                                
          43302    81      433      2   0  0              0        433                                             START OF SUBROUTINE
          43303    10               0   0  0         800000                                                        SELECT LITERAL
          43304    34      999     12   0  0              0                                                        SET (N) IN B
  Source image: P1030291.JPG
          43305    125           4096   1  1              0                                                        clear indicators
          43306    1       999      7   0  0              0                D1/A9                                   ADD
          43307    124     999      0   0  3              0                                                        modify address of next
          43308    123            160   0  2              0                                                        enter master routine
          43309    82      433      2   0  0              0        433                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          43400    CONST   434       434     1    ALPHA CONSTANTS                                                  
          43402          (A)VALUE;                                                                                 
          43404          TABLE;                                                                                    
          43406          CONST;                                                                                    
          43408          PROCR;                                                                                    
          43410          (A)NOTES;                                                                                 
          43412          END  ;                                            END                                     
          43414          DUMPS;                                                                                    
          43416          FILES;                                                                                    
          43418          TYPE ;                                                                                    
          43420          FIEND;                                                                                    
          43422          >    ;                                                                                    
          43424          TYPE.;                                                                                    
          43426          C    ;                                                                                    
          43428          ?????;                                                                                    
          43430          TYPE£;                                                                                    
          43432          (B)1;                                             CONVERT LITERALS OF 35 ACTION           
          43434          2;                                                                                        
          43436          4;                                                                                        
          43438          8;                                                                                        
          43440          16;                                                                                       
          43442          32;                                                                                       
          43444          64;                                                                                       
          43446          128;                                                                                      
          43448          256;                                                                                      
          43450          512;                                                                                      
                                                                                                                   
          43500    CONST   435       435     1    CONVERT TABLES                                                   
          43502          (D)1;                                             BIN>DEC                                 
          43504          16;                                                                                       
          43506          256;                                                                                      
          43508          4096;                                                                                     
          43510          65536;                                                                                    
          43512          1048576;                                                                                  
          43514          16777216;                                                                                 
          43516          268435456;                                                                                
          43518          4294967296;                                                                               
          43520          ££££££££££;                                                                               
          43522          1;                                                DEC>BIN                                 
          43524          Ю;                                                                                        
          43526          64;                                                                                       
          43528          3.8;                                                                                      
          43530          2710;                                                                                     
          43532          186Ю0;                                                                                    
          43534          £4240;                                                                                    
          43536          989680;                                                                                   
          43538          5£5.100;                                                                                  
          43540          3‼9Ю+Ю00;                                                                                 
          43542          0;                                                (A)WL                                   
          43544          0;                                                'CLEO'PARA WORD                         
          43546          +00000;                                                                                   
                                                                                                                   
          43600    CONST   436       436     0    DECIMAL CONSTANTS                                                
          43602          (D)7.;                                            B.E.                                    
  Source image: P1030292.JPG
          43603          7.000;                                            WORD                                    
          43604          0;                                                0:48  MR SETTING                        
          43605          90;                                               MR NOW 0:144                            
          43606          1;                                                FUNCTION WORDS                          
          43607          45;                                               TYPES IN ALPHA                          
          43608          45;                                                                                       
          43609          44;                                                                                       
          43610          4;                                                                                        
          43611          4;                                                                                        
          43612          2;                                                                                        
          43613          0;                                                                                        
          43614          (R)18:2499;                                       FOR SEQUENCE CHANGES                    
          43615          18:0;                                                                                     
          43616          (B)180;                                           FOR TSL STORAGE                         
          43617          180;                                                                                      
          43618          (D)3;                                                                                     
          43619          7£££0;                                            B5-19                                   
          43620          1£££;                                             B1-13                                   
          43621          66666;                                            DEC RADIX                               
          43622          66.64;                                            ST RADIX                                
          43623          66666;                                            DEC RADIX                               
          43624          3££;                                              BITS 1-10                               
          43625          01000;                                            BIT 13                                  
          43626          3£;                                               BITS 1-6                                
                                                                                                                   
          43700    CONST   437       437     0    INSTRUCTIONS                                                     
          43702          (R)92:9;                                                                                  
          43703          (D)08006;                                         10/1/0/6                                
          43704          +8006;                                            12/1/0/6                                
          43705          7;                                                                                        
          43706          £££££;                                            THIS ISN'T A DUMMY                      
          43707          £££££;                                                                                    
          43708          (D)60000;                                         6                                       
          43709          40000;                                            4 B19                                   
          43710          50000;                                            5                                       
          43711          30000;                                            3                                       
          43712          70000;                                            7                                       
          43713          20000;                                            2      B18                              
          43714          90000;                                            9                                       
          43715          Ю0000;                                            10                                      
          43716          ‼0000;                                            11                                      
          43717          :0000;                                            13                                      
          43718          20001-;                                           18/1/1/0/1                              
          43719          8+000-;                                           24/1/2                                  
          43720          80000-;                                           24/0/0                                  
          43721          0Ю000;                                            0/1/1                                   
          43722          1.000;                                            0/1/3                                   
          43723          1Ю000;                                            1/1/1                                   
          43724          1+000;                                            1/1/2                                   
          43725          0;                                                0/0/0                                   
          43726          02000;                                            0/0/1 B14                               
          43727          04000;                                            0/0/2 B15                               
          43728          06000;                                            0/0/3 B14                               
          43729          08000;                                            0/1/0 B16                               
          43730          28000;                                            2/1/0                                   
          43731          38000;                                            3/1/0                                   
          43732          22000-;                                           18/0/1                                  
          43733          26000-;                                           18/0/3                                  
          43734          2Ю000-;                                           18/1/1                                  
          43735          2.000-;                                           18/1/3                                  
  Source image: P1030293.JPG
          43736          12000;                                            1/0/1                                   
          43737          £0000;                                            15                                      
          43738          .0000;                                            14                                      
          43739          14000;                                            1/0/2                                   
          43740          ‼0000-;                                           27/0/0                                  
          43741          ‼2000-;                                           27/0/1                                  
          43742          ‼4000-;                                           27/0/2                                  
          43743          ‼6000-;                                           27/0/3                                  
          43744          ‼8000-;                                           27/1/0                                  
          43745          ‼Ю000-;                                           27/1/1                                  
          43746          88000-;                                           24/1/0                                  
          43747          Ю0000-;                                           26/0/0                                  
          43748          Ю2000-;                                           26/0/1                                  
          43749          10000;                                            1/0/0 B17                               
          43750          2Ю00Ю-;                                           18/1/1/0/10                             
          43751          80000;                                            8/0/0 B20                               
          43752          88000;                                            8/1/0                                   
          43753          1.001;                                            1/1/3/0/1                               
          43754          48000;                                            4/1/0                                   
          43755          2Ю005-;                                           18/1/1/0/5                              
          43756          Ю8000-;                                           26/1/0                                  
          43757          68000;                                            6/1/0                                   
          43758          +0000;                                            12                                      
          43759          90000-;                                           25/0/0                                  
          43760          74000-;                                           23/0/2                                  
          43761          70000-;                                           23/0/0                                  
          43762          2‼016-;                                           18/1/1/0/10  (18/1/11/4096+22)          
          43763          Ю4000-;                                           26/0/2                                  
          43764          2‼017-;                                           18/1/1/0/9- (18/1/1/4094+23             
          43765          +0000-;                                           28/0/0                                  
          43766          84000-;                                           24/0/2                                  
          43767          :2000-;                                           29/0/1                                  
          43768          +4000-;                                           28/0/2                                  
          43769          +6000-;                                           28/0/3                                  
          43770          ++000-;                                           28/1/2                                  
          43771          +.000-;                                           28/1/3                                  
          43772          2‼01‼-;                                           18/1/1/0/5-                             
          43773          9‼000-;                                                                                   
          43774          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          43775          (D)1;                                                                                     
          43776          £0000-;                                           31/0/0                                  
          43777          £8000-;                                           31/1/0                                  
          43778          .8000-;                                           30/1/0                                  
          43779          .0008-;                                           30/0/0/8                                
          43780          .0000-;                                           30/0/0                                  
          43781          £0008-;                                           31/0/0/8                                
          43782          40000-;                                           20/0/0                                  
          43783          48000-;                                           20/1/0                                  
          43784          58000-;                                           21/1/0                                  
          43785          40008-;                                           20/0/0/8                                
          43786          50000-;                                           21/0/0                                  
          43787          60000-;                                           22/0/0                                  
          43788          .0004-;                                           30/0/0 4                                
          43789          £8004-;                                           31/1/0 4                                
          43790          68000-;                                           22/1/0                                  
          43791          407+;                                             BITS 3-7+15                             
          43792          400;                                              PARA 152                                
          43793          6808Ю;                                            6/1/0 138                               
          43794          500;                                              PARA 154                                
          43795          0409+;                                            0/0/2/156                               
  Source image: P1030294.JPG
          43796          200;                                              PARA 150                                
          43797          300;                                              PARA 151                                
          43798          Ю6000-;                                           26/0/3 0                                
          43799          ;                                                 INDICATOR FOR PRINTING CURRENT BLOCK    
                                                                                                                   
          43800    CONST   438       438     0    MORE ACTIONS                                                     
          43802          (D)86000-;                                        24/0/3                                  
          43803          82000-;                                           24/0/1                                  
          43804          28006;                                            2/1/06                                  
          43805          38006;                                            3/1/06                                  
          43806          ‼8002-;                                           27/1/02                                 
          43807          1Ю002;                                            1/1/12                                  
          43808          22005-;                                           18/0/15                                 
          43809          06004;                                            0/0/34                                  
          43810          20001;                                            2/0/01                                  
          43811          88001-;                                           24/1/01                                 
          43812          ‼4002-;                                           27/0/22                                 
          43813          88007-;                                           24/1/07                                 
          43814          Ю5££‼-;                                           26/0/35-                                
          43815          Ю1££Ю-;                                           26/0/16-                                
          43816          20006;                                            2/0/06                                  
          43817          86006-;                                           24/0/36                                 
          43818          74002-;                                           23/0/22                                 
          43819          0;                                                THIS IS A 0/10 FLIPFLOP USED FOR SC'S FW
          43820          0;                                                SERIAL LAST MT BLOCK PRINTED IMPLICITLY 
          43821          8+006-;                                           24/1/2 6                                
          43822          1Ю00Ю;                                            1/1/1 10                                
          43823          30002;                                            3/0/0 2                                 
          43824          1Ю014;                                            1/1/1 20                                
          43825          04002;                                            0/0/2 2                                 
          43826          88005-;                                           24/1/0 5                                
          43827          :6000-;                                           29/0/3 0                                
          43828          8000-;                                            16/1/0 0                                
                                                                                                                   
          43900    TABLE   439       439     1    TRIAL DATA HEADING BLOCK 'FILES'                                 
          43901     NOTES                                                                                          
                                                                                                                   
          44000    TABLE   440       440     1    INSTRUCTIONS                                                     
          44001     NOTES                                                                                          
          44002    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          44004    66     2     0     0  1  0   5   5   5   0  0  0  0     S. NO                                   
          44006    66     4     0     0  2  0   5   0   4   0  0  0  0     ACTION                                  
          44008    66     6     0     0  2  0   5   0   3   0  0  0  0     REF                                     
          44010    66     8     0     0  1  0   5   5   0   4  2  0  0     ITEM                                    
          44012    66    10     0     0  1  0   2   8   1   1  0  0  0     DISC                                    
          44014    66    12     0     0  1  0   3   7   0   2  0  0  0     MOD                                     
          44016    66    14     0     0  1  0  10   0   5   9  2  0  0     LITERAL                                 
          44018   435    44     0     0  2  0   5   0   0   0  0  0  1     'CLEO'PARA WORD                         
                                                                                                                   
          44100    TABLE   441       441     1    TABLES                                                           
          44101     NOTES                                                                                          
          44102    66     0     0     0  2  0   5   0   0   0  0  0  0     AM IND                                  
          44104    66     2     0     0  0  0   5   0   5   0  0  0  0     S NO                                    
          44106    66    16     0     0  0  0   5   0   1   4  0  0  0     FIRST REF                               
          44108    66    17     0     0  0  0   5   0   1   4  0  0  0     FIRST ITEM                              
          44110    66    18     0     0  0  0   5   0   1   4  0  0  0     SECOND REF                              
          44112    66    19     0     0  0  0   5   0   1   4  0  0  0     SECOND ITEM                             
          44114    66     3     0     0  0  0   2   3   1   1  0  0  0     S/L/ALPHA                               
          44116    66     4     0     0  0  0   3   2   0   2  0  0  0     SINGLE/BE                               
          44118    66     5     0     0  0  0   2   3   2   1  0  0  0     NO OF CHARS                             
  Source image: P1030295.JPG
          44120    66    10     0     0  0  0   3   2   1   2  0  0  0     DISC                                    
          44122    66    11     0     0  0  0   2   3   2   1  0  0  0     SPACES                                  
          44124    66    12     0     0  0  0   3   2   1   2  0  0  0     ZEROS                                   
          44126    66    13     0     0  0  0   1   4   2   0  0  0  0     SIGN                                    
          44128    66    14     0     0  0  0   2   3   1   1  0  0  0     STERLING                                
          44130    66    15     0     0  0  0   2   3   1   1  0  0  1     L.T.E.