Source image: P1000054.JPG
                PROGM   080      0   801     INTERCODE TRANSLATOR                                                  
                ENTRY   102      3                                                                                 
                    D1       14      0    195    0                         PRINTER(OR CLEO-SIZEDANNEX)             
                    B1       15      4     27    0                         PT/CARDS MODS                           
                    A1        7      4     75    0                                                                 
                    A2        8      4     75    0                                                                 
                    A6        7      4     75    0                                                                 
                                                                                                                   
      CHAPS   10   100   101   152   327   553   680   776   918   994   995                                       
      INDEX    3     1     2     2     2     2     2     2     2     2     2                                       
                                                                                                                   
          *1001        3      24    0       2                              PROCR 'LENGTH' INDEX B/FWD              
          *1002        4      50    0       2                              PASS 0 INPUT UNPACKED                   
          *1003        6     450    0       2                              PASS 0 OLD/NEW PROCR INDEX              
          *1004       17      50    0       2                              WL'S IN PASS 0                          
          *1005       22     225    0       2                              PASS 0 PROCR INDEX                      
          *1006       19     230    0       2                              PASS 0 ADJUST DETAILS                   
          *1007       21      50    0       2                              PASS 0 UNIQUE REFS                      
          *1008        2       5    0       1                              EXTENSION BACKWARDS OF SECTION 18       
          *1009       18    1250    0       1                              SEQUENCE CHANGES FORWARD AND BACK       
          *1010        1      23    0       3                              PASS 1 INPUT UNPACKED                   
          *1011       28      23    0       3                              PASS 1 NEXT RECORD                      
          *1012       29      22    0       3                              PASS 1 NEXT OUTPUT REC                  
  Source image: P1000055.JPG
          *1013       66      12    0       4                              PASS 2 INPUT UNPACKED                   
          *1014       67       2    0       4                              PASS 2 O/P UNPACKED                     
          *1015       61      60    0       4                              PASS 2 WL'S                             
          *1016       72      16    0       4                              SWITCH PROCR LENGTHS+CHAP LENGTHS       
          *1017       71      10    0       4                              17 'MR>3' DETAILS+COUNTER               
          *1018       94      50    0       4                              MISC EACH PASS                          
          *1019       53       0    0       4                              PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
          *1020       77      22    0       4                              PASS 2 NEXT INPUT REC                   
          *1021       70       0    0       4                              PASS 1 SECTION DETAILS(LENGTH 50)       
          *1022       30       9    0       4                              UNPACKED PT FOR 08005                   
          *1023       31      11    0       4                              FOR MT BLOCK FOR 08005                  
          *1024       32      85    0       4                              TD WL'S FOR 08005                       
          *1025       54      80    0       4                              PASS 1 ADJUST DETAILS                   
          *1026       55      25    0       4                              PASS 1 UNIQUE REFS                      
          *1027       92      19    0       4                              GENERAL ALL PASSES                      
          *1028       91      18    0       4                              TWO OTRS.FILES LIST-TX AREAS LIST       
          *1029       98       6    0       4                              10 'ITEM+'DETAILS AND COUNTER           
          *1030       95      25    0       4                              48 SWITCH DETAILS AND COUNTER           
          *1031       99      25    0       4                              25 RADIX PAIRS PER PROGRAMME            
          *1032       23      24    0       4                              'PRINT PROCEDURES' INDICATORS           
          *1033       25      21    0       4                              'TRACE'DETAILS                          
          *1034       40      10    0       4                              FRILL FOR PRINTING REPORT SERIALS       
          *1035       27      10    0       4                              PERMANENT WL'S                          
          *1036       10     195    1       0                              PRINTER/CLEO I/P TX AREA                
          *1037       14       0    0       4                              DUMMY                                   
          *1038        5      27    1       4                              PT IN+PRINT                             
          *1039        7      75    1       4                              MTIN,OUT+PRINT                          
          *1040        8      75    1       4                                                                      
          *1041        9      75    1       4                                                                      
          *1042       26     540    0       6                              PROCR START ADDRESSES                   
          *1043       11      10    0       7                                                                      
          *1044       13      16    0       7                                                                      
          *1045       16      20    0       7                                                                      
          *1046       15      50    0       7                                                                      
          *1047       24      18    0       7                                                                      
          *1048       12      60    0       9                              PASS 1 WL'S                             
          *1049       93     225    0       9                              PASS 1 OLD/NEW PROCR INDEX              
          *1050       97     230    0       9                              PASS 1 ADJUST DETAILS                   
          *1051       52      50    0       9                              PASS 1 UNIQUE REFS                      
          *1052       63      30    0      10                              PASS 2 60 SHORT CONSTS PER CHAPTER      
          *1053       62     110    0      10                              PASS 2 90 LONG+20 TSL PER CHAPTER       
          *1054       20     150    0      10                              PASS 2 100 ACTIVE SEQ CHANGES FWD       
                                                                                                                   
          10000    PROCR   100       100     CHAPTER ONE                                                           
          10001     NOTES                         MAIN OVERLAY ORDER TO RECALL PASS 0                              SELECT
    10715>                                                                                                         
    16271>                                                                                                         
    68039>                                                                                                         
    88512>                                                                                                         
    88523>10002    152     101      2   0  0              0        101                                             OVERLAY
          10003    C       101      2   0  0              0        101                                             
          10004    76      102      2   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10100    PROCR   101       101     CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0                         
    12541>                                                                                                         
    12546>10102    152     101      2   0  0              0        101                                             OVERLAY
          10103    C       152      2   0  0              0        152                                             
                                                                                                                   
          10200    PROCR   102       102     STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE                        
    10408>                                                                                                         
  Source image: P1000056.JPG
    10004>10202    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10203    125           4096   1  1              0                                                        clear indicators
          10204    123     102      5   0  2              0        102                                             enter master routine
          10205    100              0   0  0              0                                                        Halt
          10206    5       148     42   1  0              0        148     ORIGINAL(A)                             TRANSFER
          10207    5       27       0   1  0              0                CLEAR WL'S                              TRANSFER
          10208    5       27       2   1  0              0                                                        TRANSFER
          10209    5       27       4   1  0              0                                                        TRANSFER
          10210    5       27       6   1  0              0                                                        TRANSFER
          10211    5       27      11   0  0              0                                                        TRANSFER
          10212    5       27      13   0  0              0                                                        TRANSFER
          10213    84      786      2   0  0              0        786     CLEAR SWITCH 772                        SET SWITCH(ES) AT VARIABLE VALUE
          10214    123     128      2   0  3              0        128     PROG TAG                                select tag
          10215    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          10216    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
          10217    37      125      4   0  0              0        125     FORM LINKS                              REPLACE SELECTED BITS
          10218    37      125      5   0  0              0        125                                             REPLACE SELECTED BITS
          10219    37      125      6   0  0              0        125                                             REPLACE SELECTED BITS
          10220    94      102     87   0  3              0        102     /////           *REENTRY                STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10221    124     999      5   0  3              0                                                        modify address of next
          10222    106             34   0  0              0                D1                                      select (N)
          10223    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          10224    5       27       8   1  0              0                INITIAL PRINTER TYPE+CLEAR 'OFFLINE'    TRANSFER
          10225    124     999      5   0  3              0                                                        modify address of next
          10226    106             36   0  0              0                B1                                      select (N)
          10227    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          10228    12               0   0  0              4                                                        SUBTRACT LITERAL
          10229    5       27      10   0  0              0                INPUT TYPE                              TRANSFER
          10230    0       126     15   0  0              0        126     23/0/2                                  SELECT
          10231    5       126      7   0  0              0        126                                             TRANSFER
          10232            148     42   2  0              0        148                                             SELECT
          10233    70      102     98   0  0              0        102     >THINGS OK.EXIT                         JUMP IF A == 0
    10291>10234    0       148     42   0  0              0        148                                             SELECT
          10235    5       999     31   0  0              0                                                        TRANSFER
          10236    10               0   0  0              7                RT7                                     SELECT LITERAL
          10237    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10238    70      102     45   0  0              0        102     >OK                                     JUMP IF A == 0
          10239    10               0   0  0              8                RT8                                     SELECT LITERAL
          10240    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10241    70      102     45   0  0              0        102                                             JUMP IF A == 0
          10242    10               0   0  0              ‼                RT11                                    SELECT LITERAL
          10243    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10244    71      104      2   0  0              0        104     >ALARM*10                               JUMP IF A != 0
    10241>                                                                                                         
    10238>10245    84      787      2   0  0              0        787     CLEAR SWITCH                            SET SWITCH(ES) AT VARIABLE VALUE
          10246    C       999      0   0  0              0                TO OPEN A9                              
          10247    10               0   0  0              1                                                        SELECT LITERAL
    10297>10248    5       27       9   0  0              0                                                        TRANSFER
          10249    96               0   0  2              0                ALLOC ROUTE                             SELECT MODIFIER
          10250    12               0   0  0             40                64                                      SUBTRACT LITERAL
          10251    3       999      7   0  0              0                                                        COPY
          10252    31               0   0  0              1                                                        SHIFT (A) BY BITS
          10253    32               0   0  0              1-                                                       SHIFT (AB) BY QUARTETS
          10254    5       126      2   0  0              0        126     CHANNEL                                 TRANSFER
          10255    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          10256    5       129      2   0  0              0        129     ROUTE                                   TRANSFER
          10257            126      2   0  0              0        126     CHANNEL                                 SELECT
          10258    80      143      2   0  0              0        143     *DEC                                    ENTER SUBROUTINE
          10259    5       148     42   0  0              0        148                                             TRANSFER
          10260    62               0   0  0              0                                                        SET EXCESS CONSTANTS
  Source image: P1000057.JPG
          10261            27       9   0  0              0                                                        SELECT
          10262    70      104      9   0  0              0        104                                             JUMP IF A == 0
          10263    124     999      5   0  3              0                SP CHAP START                           modify address of next
          10264    124             32   0  3              0                                                        modify address of next
          10265    124             16   0  3              0                                                        modify address of next
          10266    10               0   0  0              0                START OF REEL CTRS                      SELECT LITERAL
          10267    1       999      7   0  0              0                                                        ADD
          10268    5       142      2   0  0              0        142     WL                                      TRANSFER
          10269    124     142      2   0  3              0        142                                             modify address of next
          10270    102              0   0  0              0                CLEAR REEL CTR FOR ROUTE                transfer (A) to N
          10271    124     999      5   0  3              0                FORM MODIFIER FOR HIGH LOW              modify address of next
          10272    124             32   0  3              0                                                        modify address of next
          10273    106             22   0  0              0                                                        select (N)
          10274    1       999      7   0  0              0                                                        ADD
          10275    5       103      2   0  0              0        103                                             TRANSFER
          10276    124     999      5   0  3              0                TEST MACHINE IS HIGH DENSITY            modify address of next
          10277    124             32   0  3              0                                                        modify address of next
          10278    106             21   0  0              0                                                        select (N)
          10279    70      104      9   0  0              0        104     >NO                                     JUMP IF A == 0
          10280            999     31   0  0              0                                                        SELECT
          10281    12               0   0  0             58                'H'(=HIGH DENSITY WANTED)               SUBTRACT LITERAL
          10282    71      103     22   0  0              0        103     >NO                                     JUMP IF A != 0
          10283    10               0   0  0              1                                                        SELECT LITERAL
    10323>10284    124     103      2   0  3              0        103                                             modify address of next
          10285    102              0   0  0              0                                                        transfer (A) to N
          10286    76      104      9   0  0              0        104                                             JUMP unconditional
    10220>10287    96               0   0  3              0                                                        SELECT MODIFIER
          10288    70      102     92   0  0              0        102     >PRINTER WANTED   REENTRY               JUMP IF A == 0
          10289            27       9   0  0              0                                                        SELECT
          10290    71      102     98   0  0              0        102     >MT WANTED AND GOT,EXIT                 JUMP IF A != 0
          10291    76      102     34   0  0              0        102     >GET MT                                 JUMP unconditional
    10288>10292            27       9   0  0              0                                                        SELECT
          10293    70      102     98   0  0              0        102     >PRINTER WANTED AND GOT,EXIT            JUMP IF A == 0
          10294            27       8   0  0              0                INITIAL PRINTER TYPE                    SELECT
          10295    80      103      2   0  0              0        103                                             ENTER SUBROUTINE
          10296    71      104      2   0  0              0        104     >ALARM*10                               JUMP IF A != 0
          10297    76      102     48   0  0              0        102                                             JUMP unconditional
    10293>                                                                                                         
    10290>                                                                                                         
    10233>10298    126     125      4   0  3              0        125     >TO MAIN PATH                           leave master routine
                                                                                                                   
          10300    PROCR   103       103     ALLOCATE ANOTHER DEVICE                                               
          10302    81      103      2   0  0              0        103                                             START OF SUBROUTINE
          10303    5       140      2   0  0              0        140                                             TRANSFER
          10304    90               0   0  2             64                                                        SET MODIFICATION REGISTER AT LITERAL
          10305    C                0   0  0            128                                                        
    10310>10306            140      2   0  0              0        140                                             SELECT
          10307    124     999      0   0  3              0                                                        modify address of next
          10308    105              0   0  2              0                                                        subtract (N) from (A)
          10309    70      103     21   0  0              0        103     >MATCH END                              JUMP IF A == 0
          10310    94      103      6   0  2              1        103                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10311            999      9   0  0              0                KNOWN MT ROUTE                          SELECT
          10312    12               0   0  0             18                CH3/0                                   SUBTRACT LITERAL
          10313    73      103     21   0  0              0        103     >SLOW CHANNEL       END WITHOUT MATCH   JUMP IF A < 0
          10314    90               0   0  2            192                                                        SET MODIFICATION REGISTER AT LITERAL
          10315    C                0   0  0            240                                                        
    10320>10316    124     999      0   0  3              0                TRY FAST CHANNEL                        modify address of next
          10317    106              0   0  2              0                                                        select (N)
          10318    2       140      2   0  0              0        140                                             SUBTRACT
          10319    70      103     21   0  0              0        103                                             JUMP IF A == 0
  Source image: P1000058.JPG
          10320    94      103     16   0  2              1        103     THE ALLOCATED ROUTE                     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    10319>                                                                                                         
    10313>                                                                                                         
    10309>10321    82      103      2   0  0              0        103     (A) NONZERO IF NO MATCH                 END OF SUBROUTINE / LEAVE SUBROUTINE
    10282>10322    10               0   0  0              0                                                        SELECT LITERAL
          10323    76      102     84   0  0              0        102                                             JUMP unconditional
                                                                                                                   
          10400    PROCR   104       104     ALARM IF CANT FIND REQUIRED ???                                       
    10296>                                                                                                         
    10244>10402    126     125      5   0  3              0        125                                             leave master routine
    12504>10403    150              0   0  0             10                                                        OFFER OPTIONS
          10404    C       136     61   0  0              0        136     >UNLOAD                                 
          10405    C       104      7   0  0              0        104     >TRY AGAIN                              
          10406    C       105     38   0  0              0        105     >AS YOU ARE                             
    10405>10407            148     42   1  0              0        148     ORIGINAL (A)                            SELECT
          10408    76      102      2   0  0              0        102                                             JUMP unconditional
    10286>                                                                                                         
    10279>                                                                                                         
    10262>10409    124     999      5   0  3              0                                                        modify address of next
          10410    106             34   0  0              0                                                        select (N)
          10411    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          10412    5       142      2   0  0              0        142     ROUTE TYPE                              TRANSFER
          10413    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          10414    10               0   0  0              0                (ALT ROUTE)                             SELECT LITERAL
          10415    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          10416    5       143      2   0  0              0        143     ROUTE                                   TRANSFER
          10417    124     999      5   0  3              0                                                        modify address of next
          10418    124             32   0  3              0                                                        modify address of next
          10419    124             12   0  3              0                START OF ASSEMBLER TABLE                modify address of next
          10420    101              0   1  3              0                                                        select literal address
          10421    34      143      2   0  0              0        143     BITS 4-8                                SET (N) IN B
          10422    36      148     96   0  0              0        148     8XCHANNEL                               COLLATE AND ADD
          10423    5       126      2   0  0              0        126                                             TRANSFER
                                                                                                                   
          10500    PROCR   105       105     START PASS 0-DEAL WITH INITIAL TRANSLATION                            
          10502    11               0   0  0             80                *                                       ADD LITERAL
          10503    106     105      2   0  0              0        105     **                                      select (N)
          10504    124     999      5   0  3              0                ADJUST ORDERS                           modify address of next
          10505    124             32   0  3              0                FOR FCC MACHINES                        modify address of next
          10506    104             32   0  0              0                *****                                   add (N) to (A)
          10507    103     105     24   0  0              0        105     ****                                    copy (A) to N
          10508    102     105     31   0  0              0        105     ***                                     transfer (A) to N
          10509    124     126      2   0  3              0        126                                             modify address of next
          10510    106              0   0  0              0                LAST ROUTE ON CHANNEL                   select (N)
          10511    2       143      2   0  0              0        143                                             SUBTRACT
          10512    71      105     15   0  0              0        105     NOT THIS ONE                            JUMP IF A != 0
          10513    124     126      2   0  3              0        126                                             modify address of next
          10514    102              0   1  0              0                CLEAR DETAILS                           transfer (A) to N
    10512>10515    124     143      2   0  3              0        143                                             modify address of next
          10516    106             64   0  0              0                OLD ASL                                 select (N)
          10517    124     999      7   0  3              0                NEW ROUTE                               modify address of next
          10518    102             64   0  0              0                                                        transfer (A) to N
          10519            142      2   0  0              0        142     OLD ROUTE TYPE    LOAD NEW ROUTE        SELECT
          10520    124     143      2   0  3              0        143                                             modify address of next
          10521    102             64   0  0              0                                                        transfer (A) to N
          10522            140      2   0  0              0        140     NEW ROUTE TYPE                          SELECT
          10523    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10524    11               0   0  0             80                ***** DON'T MOVE *****                  ADD LITERAL
          10525    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10526    1       999      7   0  0              0                NEW ROUTE                               ADD
  Source image: P1000059.JPG
          10527    124     999      5   0  3              0                                                        modify address of next
          10528    102             34   0  0              0                                                        transfer (A) to N
          10529            999      7   0  0              0                                                        SELECT
          10530    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10531    11               0   0  0             80                ***** DON'T MOVE *****                  ADD LITERAL
          10532    124     999      5   0  3              0                                                        modify address of next
          10533    102             35   0  0              0                                                        transfer (A) to N
          10534    126     125      6   0  3              0        125                                             leave master routine
    12505>10535    52      3        0   0  0              0                                                        EDIT
          10536    C       149     16   0  0              0        149                                             
          10537    154     3        0   0  0              0                                                        COMMENT IN LOG
    12503>                                                                                                         
    10406>10538    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10539    80      134      2   0  0              0        134     >INTERCHANGE A1     D1 ASL'S            ENTER SUBROUTINE
          10540            27      10   0  0              0                INPUT TYPE                              SELECT
          10541    11               0   0  0              .                                                        ADD LITERAL
          10542    34      148     70   1  0              0        148                                             SET (N) IN B
          10543    80      126      2   0  0              0        126     >OPEN B1                                ENTER SUBROUTINE
          10544    54      3        0   1  0           2158                ALL SECTIONS PASS 0                     BULK CLEAR
          10545    54      72       0   1  0            838                ALL SECTIONS PASS 2                     BULK CLEAR
          10546    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          10547            5        0   1  0              0                                                        SELECT
          10548    2       148     44   1  0              0        148     PROGM'                                  SUBTRACT
          10549    3       148     44   1  0              0        148     IND'INITIAL TRANSLATION'                COPY
          10550    71      107      2   0  0              0        107     >AMENDMENT                              JUMP IF A != 0
          10551    40      A6       0   0  0              0                                                        OPEN FILE
          10552    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          10553    10               0   0  0             63                99                                      SELECT LITERAL
          10554    5       94      45   0  0              0                TRANSLATORS PROCR                       TRANSFER
    10639>10555    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          10556    70      125     19   0  0              0        125     >PT AT END SIGN                         JUMP IF A == 0
          10557    0       5        0   1  0              0                                                        SELECT
          10558    2       148     72   1  0              0        148     TRAMD'                                  SUBTRACT
          10559    71      105     66   0  0              0        105                                             JUMP IF A != 0
          10560    10               0   0  0              1                                                        SELECT LITERAL
          10561    5       27      11   0  0              0                IND'INITIAL TRANSLATION'                TRANSFER
    10565>10562    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          10563    80      141      2   0  0              0        141     READ                                    ENTER SUBROUTINE
          10564    70      125     19   0  0              0        125     >PT AT END                              JUMP IF A == 0
          10565    76      105     62   0  0              0        105                                             JUMP unconditional
    10559>10566    54      4        0   1  0             18                                                        BULK CLEAR
          10567            27      10   0  0              0                                                        SELECT
          10568    12               0   0  0              1                                                        SUBTRACT LITERAL
          10569    70      105     73   0  0              0        105     >PT                                     JUMP IF A == 0
          10570    50      5        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          10571    C       150      4   0  0              0        150                                             
          10572    76      105     76   0  0              0        105                                             JUMP unconditional
    10569>10573    124     150      4   0  2              0        150                                             select literal and division
          10574    124     999     15   1  2              0                SEC 5                                   modify address of next
          10575    128              0   0  3              0                                                        unpack variable field data
    10572>10576            4        6   1  0              0                                                        SELECT
          10577    2       148     46   1  0              0        148     PROCR'                                  SUBTRACT
          10578    71      105     81   0  0              0        105     >NO                                     JUMP IF A != 0
          10579    3       148     90   0  0              0        148     SET IND FOR 'PROCR'                     COPY
          10580    76      105     91   0  0              0        105                                             JUMP unconditional
    10578>10581            4        6   1  0              0                                                        SELECT
          10582    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          10583    70      105     90   0  0              0        105                                             JUMP IF A == 0
          10584            4        6   1  0              0                                                        SELECT
          10585    2       148     50   1  0              0        148     CONST'                                  SUBTRACT
  Source image: P1000060.JPG
          10586    71      106     37   0  0              0        106     >NOT A DIRECTIVE                        JUMP IF A != 0
          10587    34      4       16   0  0              0                CONSTANT TYPE                           SET (N) IN B
          10588    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          10589    70      105     91   0  0              0        105     >SHORT                                  JUMP IF A == 0
    10583>10590    10               0   0  0              1                                                        SELECT LITERAL
    10589>                                                                                                         
    10580>10591    5       17       0   0  0              0                                                        TRANSFER
          10592    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          10593    10               0   0  0              1                                                        SELECT LITERAL
          10594    4       94      45   0  0              0                TRANSLATOR PROCR                        AUGMENT
          10595    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          10600    PROCR   106       106     DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION                     
          10602            4        8   1  0              0                CODERS PROCR                            SELECT
          10603    12               0   0  0            100                                                        SUBTRACT LITERAL
          10604    73      106     40   0  0              0        106     >LESS THAN 100                          JUMP IF A < 0
          10605    12               0   0  0            899                                                        SUBTRACT LITERAL
          10606    72      106     40   0  0              0        106                                             JUMP IF A >= 0
          10607            4        8   1  0              0                >GREATER THAN 998                       SELECT
          10608    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          10609    12               0   0  0             64                -100                                    SUBTRACT LITERAL
          10610    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          10611    5       17       8   1  0              0                                                        TRANSFER
          10612    74      106     15   0  0              0        106     >C-100 EVEN                             JUMP IF AB == 0        // 27, 1, 0
          10613    10               0   0  0              Ю                                                        SELECT LITERAL
          10614    5       17       9   0  0              0                NO OF BITS TO BE SHIFTED                TRANSFER
    10612>10615            94      45   0  0              0                TRANSLATORS PROCR                       SELECT
          10616    34      148     68   0  0              0        148     BITS 1-10                               SET (N) IN B
          10617    124     17       9   0  1              0                LS HALF EVEN PROCR NUMBER               modify address of next
          10618    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          10619    5       142      2   0  0              0        142     WL                                      TRANSFER
          10620    124     17       8   0  1              0                                                        modify address of next
          10621    36      22       0   0  0              0                                                        COLLATE AND ADD
          10622    71      106     40   0  0              0        106     >PROCR ALREADY USED                     JUMP IF A != 0
          10623            142      2   0  0              0        142                                             SELECT
          10624    124     17       8   0  1              0                                                        modify address of next
          10625    37      22       0   0  0              0                                                        REPLACE SELECTED BITS
    10642>10626    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          10627            94      45   0  0              0                TRANSLATORS PROCR                       SELECT
          10628    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          10629    5       17      10   0  0              0                                                        TRANSFER
          10630    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          10631    5       17       9   0  0              0                                                        TRANSFER
          10632            17       0   0  0              0                SHORT/LONG IND                          SELECT
          10633    124     17       9   0  1              0                                                        modify address of next
          10634    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          10635    124     17      10   0  1              0                                                        modify address of next
          10636    4       94       5-  0  0              0                AUGMENT TABLE                           AUGMENT
    10586>10637    80      131      2   0  0              0        131     WRITE A6                                ENTER SUBROUTINE
          10638    60               0   0  0              0                                                        SET DECIMAL RADIX
          10639    76      105     55   0  0              0        105     >READ PT, TEST NEXT BLOCK               JUMP unconditional
    10622>                                                                                                         
    10606>                                                                                                         
    10604>10640    10               0   0  0              1                                                        SELECT LITERAL
          10641    5       17      16   2  0              0                SET 'PASS 0 DOESN'T LIKE IT'            TRANSFER
          10642    76      106     26   0  0              0        106     >O/P, UPDATE 'LENGTH' IND               JUMP unconditional
                                                                                                                   
          10700    PROCR   107       107     START OF AMENDMENT RUN                                                
    10550>10702    0       5        0   1  0              0                                                        SELECT
          10703    2       148     52   1  0              0        148     'AMEND'                                 SUBTRACT
  Source image: P1000061.JPG
          10704    70      107     16   0  0              0        107                                             JUMP IF A == 0
          10705            5        0   1  0              0                                                        SELECT
          10706    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          10707    70      144      2   0  0              0        144     >                                       JUMP IF A == 0
          10708    150              0   0  0              3                ALARM*3                                 OFFER OPTIONS
          10709    C       136     61   0  0              0        136     >UNLOAD                                 
          10710    C       107     11   0  0              0        107     >REENTER                                
    10965>                                                                                                         
    12524>                                                                                                         
    13658>                                                                                                         
    10710>10711            27       9   0  0              0                                                        SELECT
          10712    11               0   0  0         900000                                                        ADD LITERAL
          10713    91               0   0  3              0                (END VALUE NON ZERO)                    SET MODIFICATION REGISTER AT VARIABLE
          10714    80      134      2   0  0              0        134     >INTERCHANGE A1,D1 ASL'S                ENTER SUBROUTINE
          10715    76      100      2   0  0              0        100                                             JUMP unconditional
    10704>10716    80      145      2   0  0              0        145     UNPACK AND CHECK AMEND BLOCK            ENTER SUBROUTINE
          10717    40      A6       0   0  0              0                                                        OPEN FILE
          10718    54      9        4   1  0             50                                                        BULK CLEAR
          10719    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          10720    80      131      2   0  0              0        131     >WRITE 'AMEND'                          ENTER SUBROUTINE
          10721    0       10      14   1  0              0                                                        SELECT
          10722    12               0   0  0     7.0000007.                                                        SUBTRACT LITERAL
          10723    71      107     27   0  0              0        107     >NOT ISSUE 2.3 OUTPUT                   JUMP IF A != 0
          10724    5       10      12   1  0              0                                                        TRANSFER
          10725    5       10      14   1  0              0                                                        TRANSFER
          10726    5       10      16   1  0              0                                                        TRANSFER
    10723>10727    0       10      16   2  0              0                'MULTI-RECORD'IND                       SELECT
          10728    5       27       1   0  0              0                                                        TRANSFER
          10729    0       10      14   2  0              0                'PSEUDO-ISSUE 5'IND                     SELECT
          10730    5       27       2   0  0              0                                                        TRANSFER
          10731    0       10      12   2  0              0                'ISSUE 6 OR LATER'IND                   SELECT
          10732    3       27       0   0  0              0                                                        COPY
          10733    71      111      2   0  0              0        111     >YES                                    JUMP IF A != 0
    10747>10734    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          10735            27       1   0  0              0                                                        SELECT
          10736    70      107     39   0  0              0        107     >1-RECORD BLOX                          JUMP IF A == 0
          10737    0       10      12   1  0              0                                                        SELECT
          10738    76      107     40   0  0              0        107                                             JUMP unconditional
    10736>10739    0       10      10   1  0              0                                                        SELECT
    10738>10740    2       148     46   1  0              0        148     'PROCR'                                 SUBTRACT
          10741    70      107     48   0  0              0        107                                             JUMP IF A == 0
          10742    1       148     46   1  0              0        148                                             ADD
          10743    2       148     48   1  0              0        148     'TABLE'                                 SUBTRACT
          10744    70      107     48   0  0              0        107                                             JUMP IF A == 0
          10745    1       148     48   1  0              0        148                                             ADD
          10746    2       148     50   1  0              0        148     'CONST'                                 SUBTRACT
          10747    71      107     34   0  0              0        107     >GET TO FIRST PROCR START               JUMP IF A != 0
    10744>                                                                                                         
    10741>10748            27       1   0  0              0                                                        SELECT
          10749    70      107     52   0  0              0        107     >1-RECORD BLOX                          JUMP IF A == 0
          10750    59      10       6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          10751    C       10       4   2  0              0                                                        
    10866>                                                                                                         
    10870>                                                                                                         
    10872>                                                                                                         
    10749>10752            27       1   0  0              0                                                        SELECT
          10753    70      107     56   0  0              0        107                                             JUMP IF A == 0
          10754                     6   1  8              0                                                        SELECT
          10755    76      107     57   0  0              0        107                                             JUMP unconditional
    10753>10756    0       10      10   1  0              0                                                        SELECT
  Source image: P1000062.JPG
    10755>10757    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          10758    70      109      9   0  0              0        109     >END OF INTERCODE                       JUMP IF A == 0
          10759    1       148     60   1  0              0        148                                             ADD
          10760    2       148     46   1  0              0        148     'PROCR'                                 SUBTRACT
          10761    70      108     12   0  0              0        108     >YES                                    JUMP IF A == 0
          10762    1       148     46   1  0              0        148                                             ADD
          10763    2       148     48   1  0              0        148     'TABLE'                                 SUBTRACT
          10764    70      108     11   0  0              0        108     >YES                                    JUMP IF A == 0
          10765    1       148     48   1  0              0        148                                             ADD
          10766    2       148     50   1  0              0        148     'CONST'                                 SUBTRACT
          10767    70      108      2   0  0              0        108     >YES                                    JUMP IF A == 0
          10768    1       148     50   1  0              0        148                                             ADD
          10769    2       148     56   1  0              0        148     'DUMPS'                                 SUBTRACT
          10770    70      109      2   0  0              0        109     >YES                                    JUMP IF A == 0
          10771    1       148     56   1  0              0        148                                             ADD
          10772    2       148     58   1  0              0        148     'FILES'                                 SUBTRACT
          10773    70      109      2   0  0              0        109     >YES                                    JUMP IF A == 0
          10774    1       148     58   1  0              0        148                                             ADD
          10775    12               0   0  0     7551637455                'VALUE'                                 SUBTRACT LITERAL
          10776    71      108     61   0  0              0        108     >NOT A DIRECTIVE                        JUMP IF A != 0
          10777            27       1   0  0              0                                                        SELECT
          10778    70      107     81   0  0              0        107                                             JUMP IF A == 0
          10779                     4   2  8              0                                                        SELECT
          10780    76      107     82   0  0              0        107                                             JUMP unconditional
    10778>10781    0       10       6   2  0              0                LINE SERIAL                             SELECT
    10780>10782    70      108     61   0  0              0        108     >DON'T COUNT                            JUMP IF A == 0
          10783    94      108     61   0  3              1        108     >(NEVER RUNS OUT)                       STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          10800    PROCR   108       108     STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P          
    10767>10802            27       1   0  0              0                                                        SELECT
          10803    70      108      6   0  0              0        108                                             JUMP IF A == 0
          10804    34              14   2  8              0                CONST TYPE 05                           SET (N) IN B
          10805    76      108      7   0  0              0        108                                             JUMP unconditional
    10803>10806    34      10      20   2  0              0                                                        SET (N) IN B
    10805>10807    10               0   0  0              0                                                        SELECT LITERAL
          10808    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          10809    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          10810    70      108     12   0  0              0        108     >SHORT                                  JUMP IF A == 0
    10764>10811    10               0   0  0              1                                    TABLE               SELECT LITERAL
    10810>                                                                                                         
    10761>10812    5       3       45   0  0              0                WL                  PROCR               TRANSFER
          10813    60               0   0  0              0                                                        SET DECIMAL RADIX
          10814    10               0   0  0              1                                                        SELECT LITERAL
          10815    4       17      10   0  0              0                COUNT DIRECTIVE BLOX                    AUGMENT
          10816            17      10   0  0              0                                                        SELECT
          10817    11               0   0  0             99                                                        ADD LITERAL
          10818    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          10819    3       6        0   0  3              0                                                        COPY
          10820    94               0   0  3              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10821    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          10822    5       148     42   1  0              0        148                                             TRANSFER
          10823    91      148     42   0  1              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          10824    32               0   0  0              9                REMAINDER>A                             SHIFT (AB) BY QUARTETS
          10825    5       3       46   0  0              0                WL           PROCR                      TRANSFER
          10826    0       3       45   0  0              0                BIT IND                                 SELECT
          10827    124     3       46   0  1              0                                                        modify address of next
          10828    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          10829    4       3        5-  0  1              0                LIST IN 3/0-44                          AUGMENT
          10830            27       2   0  0              0                                                        SELECT
          10831    71      108     61   0  0              0        108     >PSEUDO-ISSUE 5                         JUMP IF A != 0
  Source image: P1000063.JPG
          10832            4        2   0  0              0                PROG ID             TEST DUMMY CLEO MOD SELECT
          10833    34      4        4   0  0              0                PROG SERIAL                             SET (N) IN B
          10834    74      108     61   0  0              0        108     >SKIP BUILDING UP SEC 53 FROM LINE SERIAJUMP IF AB == 0        // 27, 1, 0
          10835            27       1   0  0              0                                                        SELECT
          10836    70      108     39   0  0              0        108                                             JUMP IF A == 0
          10837                     4   2  8              0                                                        SELECT
          10838    76      108     40   0  0              0        108                                             JUMP unconditional
    10836>10839    0       10       6   2  0              0                LINE SERIAL                             SELECT
    10838>10840    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10841    80      142      2   0  0              0        142     >BIN(NEW PROG)                          ENTER SUBROUTINE
          10842    5       143      2   0  0              0        143     WL                                      TRANSFER
          10843            27       1   0  0              0                                                        SELECT
          10844    70      108     47   0  0              0        108                                             JUMP IF A == 0
          10845                    10   2  8              0                                                        SELECT
          10846    76      108     48   0  0              0        108                                             JUMP unconditional
    10844>10847    0       10      16   2  0              0                OLD PROG                                SELECT
    10846>10848    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10849    70      108     61   0  0              0        108     >DON'T COUNT                            JUMP IF A == 0
          10850    80      142      2   0  0              0        142     >BIN(NEW PROG)                          ENTER SUBROUTINE
          10851    33               0   0  0              1-               HALVE                                   SHIFT (AB) BY BITS
          10852    92               0   0  2              0                (CLEARS A)                              SET MODIFIER AT VARIABLE
          10853    74      108     58   0  0              0        108     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          10854    34      148     68   0  0              0        148     BITS 1-10                               SET (N) IN B
          10855            143      2   0  0              0        143                                             SELECT
          10856    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          10857    76      108     60   0  0              0        108                                             JUMP unconditional
    10853>10858    34      148     68   0  0              0        148                                             SET (N) IN B
          10859            143      2   0  0              0        143                                             SELECT
    10857>10860    37      53      50-  0  2              0                                                        REPLACE SELECTED BITS
    10849>                                                                                                         
    10834>                                                                                                         
    10831>                                                                                                         
    10783>                                                                                                         
    10782>                                                                                                         
    10776>10861            27       1   0  0              0                                                        SELECT
          10862    70      108     71   0  0              0        108     >1-RECORD BLOCKS                        JUMP IF A == 0
          10863                     0   2  8              0                CURRENT RECORD LENGTH                   SELECT
          10864    5       137      2   0  0              0        137                                             TRANSFER
          10865    97      137      2   0  8              0        137                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          10866    C       107     52   0  0              0        107     >NOT EMPTY                              
          10867    80      137      2   0  0              0        137     >READ A1                                ENTER SUBROUTINE
          10868    59      10       6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          10869    C       10       4   2  0              0                                                        
          10870    76      107     52   0  0              0        107                                             JUMP unconditional
    10862>10871    80      137      2   0  0              0        137     >READ A1                                ENTER SUBROUTINE
          10872    76      107     52   0  0              0        107                                             JUMP unconditional
                                                                                                                   
          10900    PROCR   109       109     DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5     
    10773>                                                                                                         
    10770>10902    0       10       6   2  0              0                                                        SELECT
          10903    5       3       45   0  0              0                STORE 5-DIGIT SERIAL FIRST LINE         TRANSFER
    10907>10904    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          10905    0       10      10   1  0              0                                                        SELECT
          10906    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          10907    71      109      4   0  0              0        109                                             JUMP IF A != 0
          10908    76      109     15   0  0              0        109                         END                 JUMP unconditional
    10758>10909            27       1   0  0              0                                                        SELECT
          10910    70      109     13   0  0              0        109     >SINGLE-RECORD BLOX                     JUMP IF A == 0
          10911                     4   2  8              0                LINE SERIAL                             SELECT
          10912    76      109     14   0  0              0        109                                             JUMP unconditional
  Source image: P1000064.JPG
    10910>10913    0       10       6   2  0              0                                                        SELECT
    10912>10914    5       3       45   0  0              0                STORE HIGHEST LINE SERIAL               TRANSFER
    10908>10915            3       45   0  0              0                                                        SELECT
          10916    71      109     22   0  0              0        109                                             JUMP IF A != 0
          10917    60               0   0  0              0                                                        SET DECIMAL RADIX
          10918    0       17      10   0  0              0                DIRECTIVE CTR                           SELECT
          10919    11               0   0  0            100                                                        ADD LITERAL
          10920    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          10921    3       3       45   0  0              0                                                        COPY
    10916>10922    5       17      21   0  0              0                                                        TRANSFER
          10923    60               0   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           SET DECIMAL RADIX
          10924    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          10925    36      3       45   0  0              0                LINE SERIAL OF DUMPS/FILES/END          COLLATE AND ADD
          10926    70      109     28   0  0              0        109     >A PROCR-SHAPED LINE                    JUMP IF A == 0
          10927    10               0   0  0            100                STEP PROCR                              SELECT LITERAL
    10926>10928    1       3       45   0  0              0                                                        ADD
          10929    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          10930    80      142      2   0  0              0        142     >TO BIN                                 ENTER SUBROUTINE
          10931    5       3       45   0  0              0                (HIGHEST B/FWD PROCR+1) IN BINARY       TRANSFER
          10932            17      10   0  0              0                DIRECTIVE CTR                           SELECT
          10933    11               0   0  0            100                                                        ADD LITERAL
          10934    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          10935    5       94      45   0  0              0                PROVIS(MAX C/FWD  PROCR)+1              TRANSFER
          10936            27       2   0  0              0                                                        SELECT
          10937    71      110     27   0  0              0        110     >PEUDO-ISSUE 5 O/P                      JUMP IF A != 0
          10938    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          10939    C                0   0  0            900                                                        
          10940    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          10941    C                0   0  0              2                TRICK SETTING                           
    10951>10942    80      139      2   0  0              0        139     >GET NEXT LOCN                          ENTER SUBROUTINE
          10943            4        2   0  0              0                PROG ID                                 SELECT
          10944    34      4        4   0  0              0                PROG SERIAL                             SET (N) IN B
          10945    75      109     51   0  0              0        109     >BY PASS,EXCEPT PROG'00000'             JUMP IF AB != 0
          10946    0       10       4   2  2              0                                                        SELECT
          10947    33               0   0  0             10-                                                       SHIFT (AB) BY BITS
          10948    5       6        1   0  3              0                                                        TRANSFER
          10949    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          10950    5       6        0   0  3              0                                                        TRANSFER
    10945>10951    94      109     42   0  3              2        109                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          10952            4        2   0  0              0                                                        SELECT
          10953    34      4        4   0  0              0                                                        SET (N) IN B
          10954    75      109     58   0  0              0        109     >NOT PROGM'00000'                       JUMP IF AB != 0
          10955    10               0   0  0              1                                                        SELECT LITERAL
          10956    5       27       2   0  0              0                SET PSEUDO ISSUE 5                      TRANSFER
          10957    76      110     27   0  0              0        110                                             JUMP unconditional
    10954>10958            17      10   0  0              0                COUNTER OF DIRECTIVE BLOX               SELECT
          10959    12               0   0  0            500                                                        SUBTRACT LITERAL
          10960    73      110      2   0  0              0        110     >OK                                     JUMP IF A < 0
    11013>                                                                                                         
    11026>                                                                                                         
    14410>10961    41      A1       0   0  0              1                                                        CLOSE FILE
          10962    45      A6       0   0  0              1                                                        REWIND
          10963    150              0   0  0              9                                                        OFFER OPTIONS
          10964    C       136     61   0  0              0        136     >UNLOAD                                 
          10965    C       107     11   0  0              0        107     >REENTER                                
                                                                                                                   
          11000    PROCR   110       110     STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5               
    10960>11002    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11003    C                0   0  0            460                (FOR ADJUST DETAILS)                    
          11004    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11005    C                0   0  0            160                FOR STORING                             
  Source image: P1000065.JPG
    11010>11006    80      139      2   0  0              0        139     >GET ITEM                               ENTER SUBROUTINE
          11007    0       10       4   2  2              0                                                        SELECT
          11008    5       54       0   0  1              0                                                        TRANSFER
          11009    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11010    94      110      6   0  3              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11014>11011    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11012            10       4   2  2              0                                                        SELECT
          11013    71      109     61   0  0              0        109     >ALARM 7, TOO MANY ADJUST DETAILS       JUMP IF A != 0
          11014    94      110     11   0  1              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11015    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11016    C                0   0  0             50                                                        
          11017    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11018    C                0   0  0            100                (FOR UNIQUE REFS)                       
    11023>11019    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11020    0       10       4   2  2              0                                                        SELECT
          11021    5       55       0   0  1              0                                                        TRANSFER
          11022    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11023    94      110     19   0  3              1        110                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11024    80      139      2   0  0              0        139     >GET                                    ENTER SUBROUTINE
          11025    0       10       4   2  2              0                                                        SELECT
          11026    71      109     61   0  0              0        109     >ALARM 7, TOO MANY UNIQUE REFS          JUMP IF A != 0
    10957>                                                                                                         
    10937>11027    46      A1       8   0  0              1                                                        RUN BACK
          11028    C                0   0  0                                                                       
          11029    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          11030    0       10       6   1  0              0                                                        SELECT
          11031    2       148     62   1  0              0        148     INDEX'                                  SUBTRACT
          11032    70      110     41   0  0              0        110     >READ FWD TO 'PASS 1'                   JUMP IF A == 0
          11033    0       10       4   2  0              0                                                        SELECT
          11034    2       4        2   0  0              0                PROG IDENTITY                           SUBTRACT
          11035    71      110     39   0  0              0        110     >MISALIGNED                             JUMP IF A != 0
          11036    0       10       6   2  0              0                                                        SELECT
          11037    2       4        4   0  0              0                SERIAL                                  SUBTRACT
          11038    70      111     23   0  0              0        111     >OK                                     JUMP IF A == 0
    11035>11039    45      A1       0   0  0              1                                                        REWIND
          11040    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
    11032>11041    80      136      2   0  0              0        136     >APPROACH FROM START OF TAPE            ENTER SUBROUTINE
          11042    76      111     23   0  0              0        111                                             JUMP unconditional
                                                                                                                   
          11100    PROCR   111       111     DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN                               
    10733>11102    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          11103    C                0   0  0             46                                                        
    11107>11104    80      137      2   0  0              0        137     READ MT                                 ENTER SUBROUTINE
          11105    55      10       4   2  0             46                                                        BULK COPY
          11106    C       3        0   0  1              0                INDEX 3/0-45                            
          11107    94      111      4   0  1             23        111                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11108            3       45   0  0              0                                                        SELECT
          11109    80      143      2   0  0              0        143     >DEC                                    ENTER SUBROUTINE
          11110    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          11111    5       17      21   0  0              0                HIGHEST EFFECTIVE LINE SERIAL           TRANSFER
          11112    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          11113            3       45   0  0              0                (HIGHEST B/FWD PROCR+1) IN BINARY       SELECT
          11114    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11115    101            100   1  1              0                CREATE B/FWD OLD-NEW PROCR INDEX        add literal address
          11116    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          11117    101            100   1  3              0                                                        select literal address
    11120>11118    3       6      100-  0  1              0                STORE ONE-FOR-ONE                       COPY
          11119    11               0   0  0              1                                                        ADD LITERAL
          11120    94      111     18   0  1              1        111     MAX B/FWD PROCR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
  Source image: P1000066.JPG
          11121            3       45   0  0              0                =PROVIS MAX C/FWD PROCR                 SELECT
          11122    5       94      45   0  0              0                                                        TRANSFER
    11042>                                                                                                         
    11038>11123    52      18       0   0  0              0                                                        EDIT
          11124    C       149      2   0  0              0        149                                             
          11125    154     18       0   0  0              0                TYPE 'AMEND' COMMENT                    COMMENT IN LOG
                                                                                                                   
          11200    PROCR   112       112     READ/WRITE MODS UP TO FIRST DIRECTIVE                                 
    11205>11202    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          11203    70      112      6   0  0              0        112     >YES                                    JUMP IF A == 0
    11212>11204    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11205    76      112      2   0  0              0        112                                             JUMP unconditional
    11203>11206    10               0   0  0           9999                                                        SELECT LITERAL
          11207    3       17      10   0  0              0                SET FOR SEQUENCE CHECKS                 COPY
          11208    5       17      14   0  0              0                                                        TRANSFER
          11209    0       4        3   0  0              0                LINE SERIAL                             SELECT
          11210    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          11211    12               0   0  0             5‼                *                                       SUBTRACT LITERAL
          11212    70      112      4   0  0              0        112     >MOD TO SECTIONS                        JUMP IF A == 0
          11213            17      28   1  0              0                PROG + SERIAL                           SELECT
          11214    71      113     16   0  0              0        113     >NORMAL                                 JUMP IF A != 0
    11218>11215    10               0   0  0              1                PROGM 00000                             SELECT LITERAL
          11216    5       17      16   1  0              0                SET PASS 0 DOESN'T LIKE IT              TRANSFER
          11217    80      133      2   0  0              0        133     >COPY                                   ENTER SUBROUTINE
          11218    76      112     15   0  0              0        112     >IGNORE ALL MODS                        JUMP unconditional
                                                                                                                   
          11300    PROCR   113       113     MAIN LOOP                                                             
    11651>11302    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11303    70      124      2   0  0              0        124     >PT END                                 JUMP IF A == 0
          11304    0       5        0   1  0              0                                                        SELECT
          11305    2       148     72   1  0              0        148     TRAMD'                                  SUBTRACT
          11306    71      113     13   0  0              0        113     >NO                                     JUMP IF A != 0
    11533>                                                                                                         
    12382>                                                                                                         
    12707>11307    10               0   0  0              1                                                        SELECT LITERAL
          11308    5       27      11   0  0              0                SET IND THAT TRAMDING                   TRANSFER
    11311>11309    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11310    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11311    71      113      9   0  0              0        113     >NOT PT END                             JUMP IF A != 0
          11312    76      124      2   0  0              0        124                                             JUMP unconditional
    11306>11313    80      132      2   0  0              0        132     >UNPACK                                 ENTER SUBROUTINE
          11314    80      129      2   0  0              0        129     >STORE SWITCH, TEST DIRECTIVE           ENTER SUBROUTINE
          11315    71      120      2   0  0              0        120                                             JUMP IF A != 0
    11534>                                                                                                         
    11932>                                                                                                         
    12147>                                                                                                         
    12383>                                                                                                         
    11214>11316    60               0   0  0              0                                                        SET DECIMAL RADIX
          11317            17      10   0  0              0                CHECK SEQUENCE AT NEW DIRECTIVE         SELECT
          11318    2       4        2   2  0              0                                                        SUBTRACT
          11319    73      113     24   0  0              0        113     >OK                                     JUMP IF A < 0
          11320    71      121     44   0  0              0        121     >REJECT, READ/COPY TO NEXT DIRECTIVE    JUMP IF A != 0
          11321    0       17      12   0  0              0                                                        SELECT
          11322    12               0   0  0              3                                                        SUBTRACT LITERAL
          11323    71      121     44   0  0              0        121     >PREVIOUS NOT 'T' H53, IGNORE THIS      JUMP IF A != 0
    11319>11324            17      21   0  0              0                MAX B/FWD LINE SERIAL                   SELECT
          11325    2       4        2   2  0              0                THIS LINE SERIAL                        SUBTRACT
          11326    72      113     31   0  0              0        113     >NORMAL                                 JUMP IF A >= 0
    11330>                                                                                                         
    11334>11327    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1000067.JPG
          11328    5       17      16   1  0              0                SET 'PASS 0 DOESNT LIKE IT'             TRANSFER
          11329    80      133      2   0  0              0        133     >WRITE A6                               ENTER SUBROUTINE
          11330    76      113     27   0  0              0        113                                             JUMP unconditional
    11326>11331    71      113     36   0  0              0        113     >OK                                     JUMP IF A != 0
          11332    86      129      2   0  0              0        129                                             SELECT SWITCH R
          11333    12               0   0  0              3                                                        SUBTRACT LITERAL
          11334    71      113     27   0  0              0        113     >MOD AT END IS NOT 'INSERT'             JUMP IF A != 0
          11335    76      119      7   0  0              0        119     >INSERTING AT END SIGN                  JUMP unconditional
    11331>11336            4        2   2  0              0                                                        SELECT
          11337    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11338    80      142      2   0  0              0        142     BIN           TEST IF VALUE             ENTER SUBROUTINE
          11339    5       143      2   0  0              0        143                         DIRECTIVE?          TRANSFER
          11340    124     143      2   0  1              0        143     EQUIV OF CURRENT PROCR                  modify address of next
          11341            6      100-  0  0              0                                                        SELECT
          11342    70      121     44   0  0              0        121     >REJECT.READ/COPY TO NEXT DIRECTIVE     JUMP IF A == 0
          11343    85      129      2   0  0              0        129                                             SWITCH R
          11344    C       118      2   0  0              0        118     R                                       
          11345    C       114      2   0  0              0        114     D                                       
          11346    C       119      2   0  0              0        119     T                                       
          11347    C       118     30   0  0              0        118     A                                       
                                                                                                                   
          11400    PROCR   114       114                                                                           
    11345>11402    80      130      2   0  0              0        130     >FIND 'PROCR 'LENGTH'                   ENTER SUBROUTINE
          11403    5       17       0   0  0              0                0=SHORT, 1=LONG                         TRANSFER
          11404    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          11405    36      4        2   2  0              0                                                        COLLATE AND ADD
          11406    12               0   0  0              1                                                        SUBTRACT LITERAL
          11407    70      114     12   0  0              0        114     >DELETION BEGINS AT'NOTES'              JUMP IF A == 0
          11408    10               0   0  0              0                                                        SELECT LITERAL
          11409    34      17       0   0  0              0                                                        SET (N) IN B
          11410    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          11411    71      121     44   0  0              0        121     >UNACCEPTABLE MOD                       JUMP IF A != 0
    11407>11412    0       4        2   2  0              0                                                        SELECT
          11413    3       17      14   0  0              0                                                        COPY
          11414    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11415    70      114     19   0  0              0        114     >DELETING PROCR                         JUMP IF A == 0
          11416            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          11417    101            460   1  2              0                                                        subtract literal address
          11418    70      121     44   0  0              0        121     >LIST FULL.COPY TO NEXT DIRECTIVE       JUMP IF A == 0
    11415>11419    80      131      2   0  0              0        131     >WRITE A6                               ENTER SUBROUTINE
          11420    80      141      2   0  0              0        141     >READ                                   ENTER SUBROUTINE
          11421    70      115      2   0  0              0        115     >PT AT END. SINGLE LINE DELETE          JUMP IF A == 0
          11422            5        0   1  0              0                                                        SELECT
          11423    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          11424    70      115      2   0  0              0        115                                             JUMP IF A == 0
          11425    80      132      2   0  0              0        132     >UNPACK                                 ENTER SUBROUTINE
          11426    80      129      2   0  0              0        129     >TEST DIRECTIVE                         ENTER SUBROUTINE
          11427    71      116      2   0  0              0        116     >NO, HENCE MULTIPLE DELETE              JUMP IF A != 0
                                                                                                                   
          11500    PROCR   115       115     DEAL WITH SINGLE LINE DELETION                                        
    11424>                                                                                                         
    11421>11502    0       17      14   0  0              0                                                        SELECT
          11503    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
          11504    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11505    71      115      8   0  0              0        115     >NOT DELETING 'PROCR'                   JUMP IF A != 0
          11506            17      14   0  0              0                                                        SELECT
          11507    76      116     19   0  0              0        116     >JOIN UP WITH MULTIPLE DELETION         JUMP unconditional
    11505>11508    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          11509    12               0   0  0              1                                                        SUBTRACT LITERAL
          11510    70      115     26   0  0              0        115     >DELETING 'NOTES'ONLY                   JUMP IF A == 0
  Source image: P1000068.JPG
          11511    10               0   0  0              0                                                        SELECT LITERAL
          11512    2       17       0   0  0              0                                                        SUBTRACT
          11513    12               0   0  0              1                                                        SUBTRACT LITERAL
          11514    5       17      15   0  0              0                                                        TRANSFER
          11515            17      14   0  0              0                                                        SELECT
          11516    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11517    5       17      19   0  0              0                PROCR                                   TRANSFER
          11518            17      14   0  0              0                                                        SELECT
          11519    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAILS)              SUBTRACT
          11520    5       17      14   0  0              0                                                        TRANSFER
          11521            17      14   0  0              0                LINE SERIAL+ADJUST DETAIL               SELECT
          11522    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11523    2       17      19   0  0              0                                                        SUBTRACT
          11524    71      115     26   0  0              0        115     CARRY INTO NEXT PROCR.DON'T STORE       JUMP IF A != 0
          11525    80      140      2   0  0              0        140     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    11755>                                                                                                         
    11524>                                                                                                         
    11510>11526    0       5        0   1  0              0                                                        SELECT
          11527    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          11528    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          11529    2       148     60   1  0              0        148     'END'                                   SUBTRACT
          11530    70      124      2   0  0              0        124     >PT AT END                              JUMP IF A == 0
          11531            5        0   1  0              0                                                        SELECT
          11532    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          11533    70      113      7   0  0              0        113                                             JUMP IF A == 0
          11534    76      113     16   0  0              0        113     >TEST NEW DIRECTIVE IN SEQUENCE         JUMP unconditional
                                                                                                                   
          11600    PROCR   116       116     DEAL WITH MULTIPLE DELETION                                           
    11427>11602            4        2   2  0              0                                                        SELECT
          11603    30               0   0  0              2-                                   TEST IF DIRECTIVE   SHIFT (A) BY QUARTETS
          11604    80      142      2   0  0              0        142     >BIN                IS VALUE SERIAL?    ENTER SUBROUTINE
          11605    5       143      2   0  0              0        143                                             TRANSFER
          11606    124     143      2   0  1              0        143                                             modify address of next
          11607            6      100-  0  0              0                                                        SELECT
          11608    70      121     44   0  0              0        121     >ATTEMPTING TO DELETE 'VALUE' REJECT    JUMP IF A == 0
          11609    80      130      2   0  0              0        130     >FIND PROCR 'LENGTH'                    ENTER SUBROUTINE
          11610    5       17       0   0  0              0                                                        TRANSFER
          11611    34      17       0   0  0              0                                                        SET (N) IN B
          11612    36      4        2   2  0              0                LINE SERIAL 'TO'                        COLLATE AND ADD
          11613    71      121     44   0  0              0        121     >REJECT AMENDMENT                       JUMP IF A != 0
          11614    0       17      14   0  0              0                'FROM'                                  SELECT
          11615    2       4        2   2  0              0                'TO'                                    SUBTRACT
          11616    72      121     44   0  0              0        121     >REJECT.OUT OF SEQUENCE                 JUMP IF A >= 0
          11617            4        2   2  0              0                'TO'PROCR                               SELECT
          11618    3       17      10   0  0              0                FOR SEQUENCE CHECKS                     COPY
    11507>11619    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11620    5       17      15   0  0              0                3-DIGIT'TO'                             TRANSFER
          11621            17      14   0  0              0                'FROM'PROCR                             SELECT
          11622    32               0   0  0              2-               'TO'PROCR                               SHIFT (AB) BY QUARTETS
          11623    3       17      19   0  0              0                '3-DIGIT'FROM'                          COPY
          11624    2       17      15   0  0              0                                                        SUBTRACT
          11625    70      116     30   0  0              0        116     >DELETIONS IN SAME PROCR                JUMP IF A == 0
          11626            17      14   0  0              0                'FROM'SERIAL                            SELECT
          11627    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11628    70      117      2   0  0              0        117     >OK.ALLOW DELETION                      JUMP IF A == 0
          11629    76      121     44   0  0              0        121     >REJECT                                 JUMP unconditional
    11625>11630    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          11631    70      117      2   0  0              0        117     >'FROM' PROCR DELETED ONLY              JUMP IF A == 0
          11632    0       17      14   0  0              0                                                        SELECT
          11633    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
  Source image: P1000069.JPG
          11634    30               0   0  0              8-                                                       SHIFT (A) BY QUARTETS
          11635    12               0   0  0              1                                                        SUBTRACT LITERAL
          11636    70      121     44   0  0              0        121     >MULTIPLE DELETION BEGINS AT'NOTES.REJE JUMP IF A == 0
          11637            17      14   0  0              0                'FROM'SERIAL                            SELECT
          11638    2       4        2   2  0              0                'TO'SERIAL                              SUBTRACT
          11639    2       17       0   0  0              0                LENGTH                                  SUBTRACT
          11640    12               0   0  0              1                                                        SUBTRACT LITERAL
          11641    5       17      15   0  0              0                (NEGATIVE ADJUST DETAIL)                TRANSFER
          11642            17      14   0  0              0                                                        SELECT
          11643    2       17      15   0  0              0                -(NEGATIVE ADJUST DETAIL)               SUBTRACT
          11644    5       17      14   0  0              0                                                        TRANSFER
          11645            17      14   0  0              0                LINE SERIAL+ADJUSTMENT                  SELECT
          11646    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          11647    2       17      19   0  0              0                PREVIOUS PROCR                          SUBTRACT
          11648    71      116     50   0  0              0        116     >CARRY INTO PROCR.DON'T STORE           JUMP IF A != 0
          11649    80      140      2   0  0              0        140     >STORE ADJUSTMENT                       ENTER SUBROUTINE
    11756>                                                                                                         
    12024>                                                                                                         
    12309>                                                                                                         
    11648>11650    80      131      2   0  0              0        131     >WRITE                                  ENTER SUBROUTINE
          11651    76      113      2   0  0              0        113     >READ NEXT BLOCK                        JUMP unconditional
                                                                                                                   
          11700    PROCR   117       117     DELETE MANY PROCEDURES                                                
    11631>                                                                                                         
    11628>11702            17      15   0  0              0                'TO'PROCR                               SELECT
          11703    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11704    11               0   0  0              1                                                        ADD LITERAL
          11705    2       3       45   0  0              0                (HIGHEST PROCR+1)                       SUBTRACT
          11706    73      117      8   0  0              0        117                                             JUMP IF A < 0
          11707    10               0   0  0              0                                                        SELECT LITERAL
    11706>11708    1       3       45   0  0              0                                                        ADD
          11709    5       17      15   0  0              0                EFFECTIVE'TO'PROCR                      TRANSFER
          11710            17      19   0  0              0                'FROM'PROCR                             SELECT
          11711    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11712    5       17      19   0  0              0                                                        TRANSFER
          11713            17      14   0  0              0                'FROM' SERIAL                           SELECT
          11714    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11715    70      117     18   0  0              0        117                                             JUMP IF A == 0
          11716    10               0   0  0              1                NOT DELETING ALL 'FROM' PROCR           SELECT LITERAL
          11717    4       17      19   0  0              0                                                        AUGMENT
    11715>11718            17      15   0  0              0                'TO' PROCR+1                            SELECT
          11719    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11720    1       17      19   0  0              0                'FROM' PROCR                            ADD
          11721    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          11722    10               0   0  0              0                                                        SELECT LITERAL
          11723    5       17      22   0  0              0                CTR OF VALUE BLOCKS                     TRANSFER
    11728>11724            6      100-  0  1              0                                                        SELECT
          11725    71      117     28   0  0              0        117     >                                       JUMP IF A != 0
          11726    10               0   0  0              1                                                        SELECT LITERAL
          11727    4       17      22   0  0              0                AUGMENT CTR OF VALUES                   AUGMENT
    11725>11728    94      117     24   0  1              1        117                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11729            17      15   0  0              0                                                        SELECT
          11730    2       17      19   0  0              0                                                        SUBTRACT
          11731    3       142      2   0  0              0        142     WL-DELETED QTTY                         COPY
          11732    11               0   0  0          20000                B Ю 18                                  ADD LITERAL
          11733    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          11734    124     17      19   0  1              0                'FROM'PROCR                             modify address of next
          11735    128     6      100-  0  0              0                DELETE ALL PROCEDURES                   bulk copy short numeric
          11736            3       45   0  0              0                HIGHEST PROCR+1                         SELECT
          11737    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
  Source image: P1000070.JPG
          11738    1       17      15   0  0              0                 'TO'PROCR+1                            ADD
          11739    5       148     42   1  0              0        148                                             TRANSFER
          11740    2       142      2   0  0              0        142                                             SUBTRACT
          11741    1       17      22   0  0              0                >NUMBER OF VALUES                       ADD
          11742    3       143      2   0  0              0        143     (-DELETED QTTY)                         COPY
          11743    4       94      45   0  0              0                REDUCE MAX C/FWD PROCR                  AUGMENT
          11744    91      148     42   0  1              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          11745    94      117     47   0  1              0        117     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          11746    76      117     52   0  0              0        117     >NONE TO UPDATE                         JUMP unconditional
    11751>                                                                                                         
    11745>11747            6      100-  0  1              0                                                        SELECT
          11748    70      117     51   0  0              0        117     >VALUE DON'T UPDATE                     JUMP IF A == 0
          11749            143      2   0  0              0        143     NON-ZERO LOCNS DELETED                  SELECT
          11750    4       6      100-  0  1              0                UPDATE PROCR                            AUGMENT
    11748>11751    94      117     47   0  1              1        117                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    11746>11752    60               0   0  0              0                DEC                                     SET DECIMAL RADIX
          11753            17      10   0  0              0                 'TO' SERIAL                            SELECT
          11754    2       17      14   0  0              0                 'FROM' SERIAL                          SUBTRACT
          11755    70      115     26   0  0              0        115     >SINGLE LINE DELETE                     JUMP IF A == 0
          11756    76      116     50   0  0              0        116                                             JUMP unconditional
                                                                                                                   
          11800    PROCR   118       118     'R'DIRECTIVES AND 'A' DIRECTIVES                                      
    11344>11802    35               0   0  0             11                                    DIRECTIVE LINE 'R'  PREPARE FOR DIGIT COLLATION
          11803    10               0   0  0              0                                                        SELECT LITERAL
          11804    36      4        2   2  0              0                                                        COLLATE AND ADD
          11805    71      118     30   0  0              0        118     >NOT REPLACING  ***00                   JUMP IF A != 0
          11806            4        2   2  0              0                                                        SELECT
          11807    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11808    80      142      2   0  0              0        142     BIN                                     ENTER SUBROUTINE
          11809    2       3       45   0  0              0                HIGHEST B/FWD PROCR+1                   SUBTRACT
          11810    72      118     40   0  0              0        118     >REPLACING DUMPS OR FILES               JUMP IF A >= 0
          11811            4        6   1  0              0                                                        SELECT
          11812    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          11813    70      118     24   0  0              0        118                                             JUMP IF A == 0
          11814            4        6   1  0              0                                                        SELECT
          11815    2       148     48   1  0              0        148      'TABLE'                                SUBTRACT
          11816    70      118     23   0  0              0        118                                             JUMP IF A == 0
          11817            4        6   1  0              0                                                        SELECT
          11818    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          11819    71      121     44   0  0              0        121     >NOT REPLACING BY ANREJE  DIRECTIVE     JUMP IF A != 0
          11820    34      4       16   0  0              0                                                        SET (N) IN B
          11821    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          11822    70      118     24   0  0              0        118     >SHORT CONST                            JUMP IF A == 0
    11816>11823    10               0   0  0              1                                                        SELECT LITERAL
    11822>                                                                                                         
    11813>11824    5       143      2   0  0              0        143     WL=LENGTH OF REPLADEMENT                TRANSFER
          11825    80      130      2   0  0              0        130     FIND 'LENGTH'OF REPLACED BLOCK          ENTER SUBROUTINE
          11826    3       17       0   0  0              0                                                        COPY
          11827    2       143      2   0  0              0        143                                             SUBTRACT
          11828    71      121     44   0  0              0        121     >TRYING TO CHANGE'LENGHT',REJECT        JUMP IF A != 0
          11829    76      119     30   0  0              0        119     >OK                                     JUMP unconditional
    11805>                                                                                                         
    11347>11830    80      130      2   0  0              0        130                                             ENTER SUBROUTINE
          11831    5       17       0   0  0              0                >FIND'LENGTH'                           TRANSFER
          11832    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          11833    36      4        2   2  0              0                LINE SERIAL                             COLLATE AND ADD
          11834    12               0   0  0              1                                                        SUBTRACT LITERAL
          11835    70      118     40   0  0              0        118     >NOTES                                  JUMP IF A == 0
          11836    10               0   0  0              0                                                        SELECT LITERAL
          11837    34      17       0   0  0              0                                                        SET (N) IN B
  Source image: P1000071.JPG
          11838    36      4        2   2  0              0                                                        COLLATE AND ADD
          11839    71      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A != 0
    11835>                                                                                                         
    11810>11840            4        2   2  0              0                                                        SELECT
          11841    3       17      14   0  0              0                                                        COPY
          11842    3       17      10   0  0              0                                                        COPY
          11843    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11844    5       17      19   0  0              0                                                        TRANSFER
          11845            4        6   1  0              0                                                        SELECT
          11846    2       148     46   1  0              0        148     PROCR'                                  SUBTRACT
          11847    70      121     44   0  0              0        121     >NOT ALLOWED                            JUMP IF A == 0
          11848            4        6   1  0              0                                                        SELECT
          11849    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          11850    70      121     44   0  0              0        121     >                                       JUMP IF A == 0
          11851            4        6   1  0              0                                                        SELECT
          11852    2       148     50   1  0              0        148     CONST'                                  SUBTRACT
          11853    70      121     44   0  0              0        121     >TRYING TO REPLACE BY A DIRECTIVE       JUMP IF A == 0
          11854    76      119     30   0  0              0        119     >O/P                                    JUMP unconditional
                                                                                                                   
          11900    PROCR   119       119     DEAL WITH INSERTIONS                                                  
    11346>11902    80      130      2   0  0              0        130     FIND 'LENGTH'       INSERTION FIRST LINEENTER SUBROUTINE
          11903    5       17       0   0  0              0                                                        TRANSFER
          11904    34      17       0   0  0              0                                                        SET (N) IN B
          11905    36      4        2   2  0              0                                                        COLLATE AND ADD
          11906    71      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A != 0
    11335>11907            4        2   2  0              0                LINE SERIAL                             SELECT
          11908    3       17      10   0  0              0                                                        COPY
          11909    5       17      14   0  0              0                                                        TRANSFER
          11910            17      10   0  0              0                                                        SELECT
          11911    3       17      18   0  0              0                                                        COPY
          11912    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          11913    80      142      2   0  0              0        142     >TO BIN                                 ENTER SUBROUTINE
          11914    5       17       7   0  0              0                3 DIGIT REF 'INSERT BEFORE' BIN         TRANSFER
          11915            17      21   0  0              0                HIGHEST LINR SERIAL                     SELECT
          11916    2       17      18   0  0              0                INSERT BEFORE' SERIAL                   SUBTRACT
          11917    71      119     24   0  0              0        119     >NOT INSERTING BEFORE END SIGN          JUMP IF A != 0
          11918    60               0   0  0              0                                                        SET DECIMAL RADIX
          11919            17      18   0  0              0                                                        SELECT
          11920    11               0   0  0             99                ROUND UP INSERT SERIAL                  ADD LITERAL
          11921    32               0   0  0              2-               TO DEAL WITH ISSUE 5 END                SHIFT (AB) BY QUARTETS
          11922    80      142      2   0  0              0        142     >BIN                                    ENTER SUBROUTINE
          11923    5       17       7   0  0              0                                                        TRANSFER
    11917>11924            4        2   2  0              0                                                        SELECT
          11925    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          11926    70      119     30   0  0              0        119     >INSERTING BEFORE PROCR START NO.ADJUST JUMP IF A == 0
          11927            17       3   0  0              0                CTR OF ADJUST DETAILS                   SELECT
          11928    101            460   1  2              0                                                        subtract literal address
          11929    70      121     44   0  0              0        121     >LIST FULL COPY TO NEXR DIRECTIVE       JUMP IF A == 0
    12228>                                                                                                         
    11926>                                                                                                         
    11854>                                                                                                         
    11829>11930    80      131      2   0  0              0        131     WRITE                                   ENTER SUBROUTINE
          11931    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          11932    70      113     16   0  0              0        113     >YES                                    JUMP IF A == 0
                                                                                                                   
          12000    PROCR   120       120     DEAL WITH NON-DIRECTIVE LINE                                          
    12368>                                                                                                         
    11315>12002    85      129      2   0  0              0        129                                             SWITCH R
          12003    C       120      7   0  0              0        120     R                                       
          12004    C       121     44   0  0              0        121     D-NOT ACCEPTED,  2 LINES ALREADY        
  Source image: P1000072.JPG
          12005    C       121      2   0  0              0        121     T                                       
          12006    C       120      7   0  0              0        120     A                                       
    12006>                                                                                                         
    12003>12007    60               0   0  0              0                                                        SET DECIMAL RADIX
          12008            17       0   0  0              0                CURRENT LENGTH                          SELECT
          12009    11               0   0  0              1                                                        ADD LITERAL
          12010    4       17      10   0  0              0                STEP SEQ  CTR                           AUGMENT
          12011            17      10   0  0              0                                                        SELECT
          12012    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12013    2       17      19   0  0              0                PROCR OF R OR A-DIRECTIVE               SUBTRACT
          12014    71      120     25   0  0              0        120     > NOT STILL IN SAME PROCR               JUMP IF A != 0
          12015            4        6   1  0              0                                                        SELECT
          12016    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          12017    70      121     44   0  0              0        121                                             JUMP IF A == 0
          12018            4        6   1  0              0                                                        SELECT
          12019    2       148     48   1  0              0        148     TABLE'                                  SUBTRACT
          12020    70      121     44   0  0              0        121     >UN ACCEPTABLE                          JUMP IF A == 0
          12021            4        6   1  0              0                                                        SELECT
          12022    2       148     50   1  0              0        148     CONST                                   SUBTRACT
          12023    70      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A == 0
          12024    76      116     50   0  0              0        116                                             JUMP unconditional
    12014>12025    10               0   0  0              1-                                                       SELECT LITERAL
          12026    2       17       0   0  0              0                                                        SUBTRACT
          12027    4       17      10   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       AUGMENT
          12028    76      121     44   0  0              0        121     > READ/COPY TO NEXT DIRECTIVE           JUMP unconditional
                                                                                                                   
          12100    PROCR   121       121     DEAL WITH INSERTIONS                                                  
    12005>12102            4        6   1  0              0                                    INSERTIONS          SELECT
          12103    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          12104    70      121     15   0  0              0        121                                             JUMP IF A == 0
          12105            4        6   1  0              0                                                        SELECT
          12106    2       148     48   1  0              0        148                                             SUBTRACT
          12107    70      121     14   0  0              0        121                                             JUMP IF A == 0
          12108            4        6   1  0              0                                                        SELECT
          12109    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          12110    71      123      2   0  0              0        123      'NOT A DIRECTIVE'                      JUMP IF A != 0
          12111    34      4       16   0  0              0                CONST TYPE                              SET (N) IN B
          12112    36      148      2   0  0              0        148     BIT 1                                   COLLATE AND ADD
          12113    70      121     15   0  0              0        121     > SHORT CONST                           JUMP IF A == 0
    12107>12114    10               0   0  0              1                                                        SELECT LITERAL
    12113>                                                                                                         
    12104>12115    5       17       0   0  0              0                 'LENGTH' OF INSERTED PROCR             TRANSFER
          12116    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          12117            17      18   0  0              0                                                        SELECT
          12118    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12119    10               0   0  0              0                                                        SELECT LITERAL
          12120    74      121     32   0  0              0        121     > INSERTING BEFORE PROCR START          JUMP IF AB == 0        // 27, 1, 0
          12121            17      18   0  0              0                                                        SELECT
          12122    2       17      21   0  0              0                                                        SUBTRACT
          12123    70      121     32   0  0              0        121     > INSERTING AT END OF PROGM             JUMP IF A == 0
          12124            17      10   0  0              0                                                        SELECT
          12125    2       17      14   0  0              0                                                        SUBTRACT
          12126    70      121     44   0  0              0        121     > NOT IN THE MIDDLE OF AN INSERTION     JUMP IF A == 0
          12127    5       17      15   0  0              0                ADJUST DETAIL                           TRANSFER
          12128            17      10   0  0              0                                                        SELECT
          12129    5       17      14   0  0              0                                                        TRANSFER
          12130    80      140      2   0  0              0        140     STORE ADJUST DETAIL                     ENTER SUBROUTINE
          12131    76      121     44   0  0              0        121     > REJECT 'PROCR'                        JUMP unconditional
    12123>                                                                                                         
    12120>12132            4        8   1  0              0                                                        SELECT
  Source image: P1000073.JPG
          12133    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          12134    73      121     44   0  0              0        121     > NEGATIVE, IGNORE                      JUMP IF A < 0
          12135    3       17       4   0  0              0                NEW PROCR NUMBER (BIN)                  COPY
          12136    2       3       45   0  0              0                HIGHEST B/FWD PROCR (BIN)               SUBTRACT
          12137    73      121     44   0  0              0        121     NOT UNIQUE                              JUMP IF A < 0
          12138            17       4   0  0              0                                                        SELECT
          12139    101            999   1  2              0                MAX PROCR                               subtract literal address
          12140    72      121     44   0  0              0        121     >IGNORE                                 JUMP IF A >= 0
          12141    124     17       4   0  1              0                                                        modify address of next
          12142    106     6      100-  0  0              0                                                        select (N)
          12143    70      122      2   0  0              0        122     > OK, PROCR NOT ALREADY INSETED         JUMP IF A == 0
    12305>                                                                                                         
    13566>                                                                                                         
    12140>                                                                                                         
    12137>                                                                                                         
    12134>                                                                                                         
    12131>                                                                                                         
    12126>                                                                                                         
    12028>                                                                                                         
    12023>                                                                                                         
    12020>                                                                                                         
    12017>                                                                                                         
    12004>                                                                                                         
    11929>                                                                                                         
    11906>                                                                                                         
    11853>                                                                                                         
    11850>                                                                                                         
    11847>                                                                                                         
    11839>                                                                                                         
    11828>                                                                                                         
    11819>                                                                                                         
    11636>                                                                                                         
    11629>                                                                                                         
    11616>                                                                                                         
    11613>                                                                                                         
    11608>                                                                                                         
    11418>                                                                                                         
    11411>                                                                                                         
    11342>                                                                                                         
    11323>                                                                                                         
    11320>12144    10               0   0  0              1                SET IND 'PASS 0 DOESN'T LIKE IT'        SELECT LITERAL
          12145    5       17      16   1  0              0                                                        TRANSFER
          12146    80      133      2   0  0              0        133      READ/WRITE TO NEXT DIRECTIVE           ENTER SUBROUTINE
          12147    76      113     16   0  0              0        113                                             JUMP unconditional
                                                                                                                   
          12200    PROCR   122       122     INSERT NEW PROCR INTO LIST IN SEC 6                                   
    12143>12202    62               0   0  0              0                STEP BACK SEQ CTR SO NEVER ALTERS       SET EXCESS CONSTANTS
          12203            3       45   0  0              0                > READ/COPY TO NEXT DIRECTIVE           SELECT
          12204    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12205    1       17       7   0  0              0                                                        ADD
          12206    91               0   0  1              0                 'PROCR'                                SET MODIFICATION REGISTER AT VARIABLE
          12207    94      122     10   0  1              0        122     /////> NOT INSERTING BEFORE END SIGN    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12208            94      45   0  0              0                CURRENT (HIGHEST C/FWD PROCR) +1        SELECT
          12209    76      122     12   0  0              0        122                                             JUMP unconditional
    12207>12210    124     17       7   0  1              0                                                        modify address of next
          12211            6      100-  0  0              0                UPDATED REF ''INSERT BEFORE''           SELECT
    12209>12212    5       135      2   0  0              0        135                                             TRANSFER
          12213    10               0   0  0              1                                                        SELECT LITERAL
          12214    4       94      45   0  0              0                                                        AUGMENT
          12215    0       17       0   0  0              0                LENGTH IND                              SELECT
  Source image: P1000074.JPG
          12216    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          12217    1       135      2   0  0              0        135     UPDATED REF                             ADD
          12218    124     17       4   0  1              0                CODER'S PROCR                           modify address of next
          12219    5       6      100-  0  0              0                                                        TRANSFER
          12220    94      122     22   0  1              0        122     /////                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12221    76      122     27   0  0              0        122     >INSERTING BEFORE END SIGN, SKIP        JUMP unconditional
    12226>                                                                                                         
    12220>12222            6      100-  0  1              0                                                        SELECT
          12223    70      122     26   0  0              0        122     >'VALUE' DON'T UPDATE                   JUMP IF A == 0
          12224    10               0   0  0              1                                                        SELECT LITERAL
          12225    4       6      100-  0  1              0                                                        AUGMENT
    12223>12226    94      122     22   0  1              1        122                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12221>12227    60               0   0  0              0                                                        SET DECIMAL RADIX
          12228    76      119     30   0  0              0        119     >READ PT                                JUMP unconditional
                                                                                                                   
          12300    PROCR   123       123     INSERTING INSTRUCTIONS                                                
    12110>12302    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          12303            17      18   0  0              0                                                        SELECT
          12304    12               0   0  0          10002                                                        SUBTRACT LITERAL
          12305    73      121     44   0  0              0        121     >UNACCEPTABLE                           JUMP IF A < 0
          12306            17      18   0  0              0                                                        SELECT
          12307    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          12308    10               0   0  0              0                                                        SELECT LITERAL
          12309    74      116     50   0  0              0        116     >INSERTING AT END OF PROCR              JUMP IF AB == 0        // 27, 1, 0
          12310            4        2   2  0              0                LINE SERIAL                             SELECT
          12311    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12312    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          12313    2       3       45   0  0              0                (HIGHEST B/FWD PROCR+1)                 SUBTRACT
          12314    73      123     56   0  0              0        123     >NOT A UNIQUE REF                       JUMP IF A < 0
          12315            17       2   0  0              0                                                        SELECT
          12316    12               0   0  0             64                                                        SUBTRACT LITERAL
          12317    72      123     56   0  0              0        123     >TOO MANY UNIQUE REFS, DON'T STORE THIS JUMP IF A >= 0
          12318            4        2   2  0              0                UNIQUE REF                              SELECT
          12319    124     17       2   0  1              0                                                        modify address of next
          12320    5       21       0   0  0              0                                                        TRANSFER
          12321    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          12322    36      17      14   0  0              0                                                        COLLATE AND ADD
          12323    5       136      2   0  0              0        136     ITEM DEC                                TRANSFER
          12324            17      14   0  0              0                                                        SELECT
          12325    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12326    80      142      2   0  0              0        142                                             ENTER SUBROUTINE
          12327    5       141      2   0  0              0        141     REF BIN                                 TRANSFER
          12328    124     141      2   0  1              0        141                                             modify address of next
          12329            6      100-  0  0              0                                                        SELECT
          12330    80      143      2   0  0              0        143     DEC                                     ENTER SUBROUTINE
          12331    3       17      19   0  0              0                UPDATED REF DEC                         COPY
          12332    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          12333    1       136      2   0  0              0        136     DEC ITEM NOT UPDATED                    ADD
          12334    5       17       6   0  0              0                                                        TRANSFER
          12335            17       7   0  0              0                INSERT BEFORE REF                       SELECT
          12336    2       141      2   0  0              0        141                                             SUBTRACT
          12337    70      123     40   0  0              0        123     >HASN'T GONE OVER THE TOP               JUMP IF A == 0
          12338    10               0   0  0              1-                                                       SELECT LITERAL
          12339    4       17      19   0  0              0                TO GET THE RIGHT ADJUST DETAILS         AUGMENT
    12337>12340    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12341    C                0   0  0            460                                                        
    12349>12342            19       0   0  1              0                                                        SELECT
          12343    70      123     50   0  0              0        123     >END OF ADJUST DETAILS                  JUMP IF A == 0
          12344    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          12345    2       17      19   0  0              0                3 DIGIT PROCR                           SUBTRACT
  Source image: P1000110.JPG
          12346    71      123     49   0  0              0        123                                             JUMP IF A != 0
          12347            19       1   0  1              0                                                        SELECT
          12348    4       17       6   0  0              0                ADJUST ADDRESS                          AUGMENT
    12346>12349    94      123     42   0  1              2        123                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12343>12350    62               0   0  0              0                BIN                                     SET EXCESS CONSTANTS
          12351            17       6   0  0              0                                                        SELECT
          12352    124     17       2   0  1              0                                                        modify address of next
          12353    102     21       1   0  0              0                                                        transfer (A) to N
          12354    10               0   0  0              2                                                        SELECT LITERAL
          12355    4       17       2   0  0              0                                                        AUGMENT
    12317>                                                                                                         
    12314>12356    60               0   0  0              0                                                        SET DECIMAL RADIX
          12357            17       0   0  0              0                LENGTH IND                              SELECT
          12358    11               0   0  0              1                                                        ADD LITERAL
          12359    4       17      14   0  0              0                AUGMENT'NEW'LINE SERIAL                 AUGMENT
          12360    80      131      2   0  0              0        131     O/P                                     ENTER SUBROUTINE
          12361    80      141      2   0  0              0        141     READ                                    ENTER SUBROUTINE
          12362    70      123     69   0  0              0        123     >PT AT END                              JUMP IF A == 0
          12363            5        0   1  0              0                                                        SELECT
          12364    2       148     72   1  0              0        148     'TRAMS'                                 SUBTRACT
          12365    70      123     69   0  0              0        123                                             JUMP IF A == 0
          12366    80      132      2   0  0              0        132     UNPACK                                  ENTER SUBROUTINE
          12367    80      129      2   0  0              0        129     DIRECTIVE?                              ENTER SUBROUTINE
          12368    71      120      2   0  0              0        120     >NO                                     JUMP IF A != 0
    12365>                                                                                                         
    12362>12369            17      14   0  0              0                                    END OF MULTIPLE INSESELECT
          12370    2       17      10   0  0              0                DIFFERENCE                              SUBTRACT
          12371    5       17      15   0  0              0                QUANTITY ADJUST                         TRANSFER
          12372            17      10   0  0              0                                                        SELECT
          12373    5       17      14   0  0              0                                                        TRANSFER
          12374    80      140      2   0  0              0        140     STORE ADJUST DETAIL                     ENTER SUBROUTINE
          12375    0       5        0   1  0              0                >                                       SELECT
          12376    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          12377    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          12378    2       148     60   1  0              0        148     'END  '                                 SUBTRACT
          12379    70      124      2   0  0              0        124                                             JUMP IF A == 0
          12380            5        0   1  0              0                                                        SELECT
          12381    2       148     72   1  0              0        148     'TRAMD'                                 SUBTRACT
          12382    70      113      7   0  0              0        113                                             JUMP IF A == 0
          12383    71      113     16   0  0              0        113     > PT AT DIRECTIVE                       JUMP IF A != 0
                                                                                                                   
          12400    PROCR   124       124     CONSTRUCT C/FWD PROCR LENGTH INDEX                                    
    12704>                                                                                                         
    12379>                                                                                                         
    11530>                                                                                                         
    11312>                                                                                                         
    11303>12402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12403    54      94       0   0  0             45                                                        BULK CLEAR
          12404            3       45   0  0              0                (HIGHEST B/FWD PROCR+1)                 SELECT
          12405    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12406    101            100   1  1              0                                                        add literal address
          12407    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          12408    90               0   0  2              0                SCAN SEC 3                              SET MODIFICATION REGISTER AT LITERAL
          12409    C                0   0  0             45                                                        
    12434>12410    90               0   0  3              0                SCAN WORD IN SEC 3                      SET MODIFICATION REGISTER AT LITERAL
          12411    C                0   0  0             20                                                        
          12412    34      148      2   0  0              0        148     BIT 1                                   SET (N) IN B
    12433>12413            6      100-  0  1              0                                                        SELECT
          12414    70      124     30   0  0              0        124     > PROCR DELETED                         JUMP IF A == 0
          12415    10               0   0  0              0                                                        SELECT LITERAL
  Source image: P1000111.JPG
          12416    36      3        0   0  2              0                                                        COLLATE AND ADD
          12417    70      124     30   0  0              0        124     > B/FWD PROCR WAS SHORT                 JUMP IF A == 0
          12418    100     17       0   1  0              0                COPY B                                  copy registers
          12419            6      100-  0  1              0                C/FWD EQUIVALENT                        SELECT
          12420    19               0   0  0             14                20                                      DIVIDE LITERAL
          12421    5       148     42   0  0              0        148                                             TRANSFER
          12422    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          12423    5       148     43   0  0              0        148     REMAINDER                               TRANSFER
          12424    10               0   0  0              1                                                        SELECT LITERAL
          12425    124     148     43   0  1              0        148                                             modify address of next
          12426    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          12427    124     148     42   0  1              0        148                                             modify address of next
          12428    4       94       5-  0  0              0                SET C/FWD LENGTH IND                    AUGMENT
          12429    100     17       0   1  1              0                RESTORE B                               replace registers
    12417>                                                                                                         
    12414>12430    33               0   0  0              1                SHIFT COLLATOR                          SHIFT (AB) BY BITS
          12431    94      124     33   0  1              1        124                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12432    76      124     35   0  0              0        124     > END                                   JUMP unconditional
    12431>12433    94      124     13   0  3              1        124     > THIS BIT NEXT WORD                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12434    94      124     10   0  2              1        124     > NEXT WORD (SHOULD NEVER RUN OUT)      STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    12432>12435    101           1000   1  3              0                DEAL WITH INSERTED PROCEDURES           select literal address
          12436    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12437    1       3       45   0  0              0                                                        ADD
          12438    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    12454>12439    0       6      100-  0  1              0                                                        SELECT
          12440    70      124     54   0  0              0        124     >NOT USED                               JUMP IF A == 0
          12441    32               0   0  0              4-                                                       SHIFT (AB) BY QUARTETS
          12442    70      124     54   0  0              0        124     >SHORT PROCEDURE                        JUMP IF A == 0
          12443    10               0   0  0              0                                                        SELECT LITERAL
          12444    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          12445    19               0   0  0             14                                                        DIVIDE LITERAL
          12446    5       148     42   1  0              0        148                                             TRANSFER
          12447    91      148     42   0  2              0        148                                             SET MODIFICATION REGISTER AT VARIABLE
          12448    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          12449    5       17       1   0  0              0                                                        TRANSFER
          12450    10               0   0  0              1                                                        SELECT LITERAL
          12451    124     17       1   0  1              0                                                        modify address of next
          12452    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
          12453    4       94       5-  0  2              0                                                        AUGMENT
    12442>                                                                                                         
    12440>12454    94      124     39   0  1              1        124                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12455    76      125      6   0  0              0        125                                             JUMP unconditional
                                                                                                                   
          12500    PROCR   125       125     END OF PASS 0                                                         
          12502    85      129      2   0  0              0        129     3 ORDER CONST                           SWITCH R
          12503    C       105     38   0  0              0        105                                             
          12504    C       104      3   0  0              0        104                                             
          12505    C       105     35   0  0              0        105                                             
    12455>12506    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12507    C                0   0  0            450                                                        
          12508    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          12509    C                0   0  0            900                                                        
          12510    10               0   0  0              0                                                        SELECT LITERAL
          12511    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
    12517>12512    36      6        1   0  2              0                                                        COLLATE AND ADD
          12513    31               0   0  0             10                                                        SHIFT (A) BY BITS
          12514    36      6        0   0  2              0                                                        COLLATE AND ADD
          12515    5       22       0   0  1              0                                                        TRANSFER
          12516    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          12517    94      125     12   0  2              2        125                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
  Source image: P1000112.JPG
          12518    76      125     27   0  0              0        125                                             JUMP unconditional
    10564>                                                                                                         
    10556>12519    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          12520            148     90   0  0              0        148     IND                                     SELECT
          12521    70      125     25   0  0              0        125                                             JUMP IF A == 0
          12522    150              0   0  0             11                                                        OFFER OPTIONS
          12523    C       136     61   0  0              0        136     > END                                   
          12524    C       107     11   0  0              0        107     > REENTER                               
    12521>12525    10               0   0  0              1                                                        SELECT LITERAL
          12526    4       94      45   0  0              0                                                        AUGMENT
    12518>12527    80      131      2   0  0              0        131     > WRITE END                             ENTER SUBROUTINE
          12528    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          12529            27      10   0  0              0                                                        SELECT
          12530    11               0   0  0             18                24                                      ADD LITERAL
          12531    80      126      2   0  0              0        126     > CLOSE B1                              ENTER SUBROUTINE
          12532    45      A6       0   0  0              0                                                        REWIND
          12533    55      22       0   0  0           1010                OLD/NEW PROCRS + ADJUSTS + UNIQUE       BULK COPY
          12534    C       18       0   0  0              0                                                        
          12535    55      94       0   0  0             46                                                        BULK COPY
          12536    C       18    1010   0  0              0                                                        
          12537    91               0   0  3              0                CLEAR R3                                SET MODIFICATION REGISTER AT VARIABLE
          12538    91               0   0  1              0                & R1                                    SET MODIFICATION REGISTER AT VARIABLE
          12539    80      134      2   0  0              0        134     > INTERCHANGE A1. D1 ASL'S              ENTER SUBROUTINE
    14767>                                                                                                         
    14784>12540            148     44   1  0              0        148                                             SELECT
          12541    70      101      2   0  0              0        101     > INITIAL TRANSLATION                   JUMP IF A == 0
          12542    48      A1       0   0  0              1                BACK 1  I/P > I/P                       STEP BACK
          12543    C                0   0  0              1                                                        
          12544    42      A1       0   0  0              0                                                        INPUT
          12545    C       7        0   0  0              0                                                        
          12546    76      101      2   0  0              0        101     > CANN PASS 1                           JUMP unconditional
                                                                                                                   
          12600    PROCR   126       126     OR B1                                                                 
          12602    81      126      2   0  0              0        126                                             START OF SUBROUTINE
          12603    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          12604    1       999      8   0  0              0                                                        ADD
          12605    125           4096   1  1              0                                                        clear indicators
          12606    124     999      0   0  3              0                                                        modify address of next
          12607    123            160   0  2              0                                                        enter master routine
          12608    82      126      2   0  0              0        126                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          12609    41      A1       0   0  0              0                DUMMY FOR ENTRY TO MR                   CLOSE FILE
          12610    126     126      5   0  3              0        126                                             leave master routine
                                                                                                                   
          12700    PROCR   127       127     READ, TEST NEXT P/T BLOCK                                             
          12702    81      127      2   0  0              0        127     3 ORDER CONST                           START OF SUBROUTINE
          12703    80      141      2   0  0              0        141     > READ PT                               ENTER SUBROUTINE
          12704    70      124      2   0  0              0        124     > END                                   JUMP IF A == 0
          12705            5        0   1  0              0                                                        SELECT
          12706    2       148     72   1  0              0        148      'TRAMD'                                SUBTRACT
          12707    70      113      7   0  0              0        113     > YES                                   JUMP IF A == 0
          12708    80      132      2   0  0              0        132     > UNPACK                                ENTER SUBROUTINE
          12709    80      129      2   0  0              0        129     > TEST DIRECTIVE                        ENTER SUBROUTINE
          12710    82      127      2   0  0              0        127                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          12800    PROCR   128       128     COPY INTERCODE BLOCKS                                                 
          12802    81      128      2   0  0              0        128                                             START OF SUBROUTINE
          12803    55      10       4   1  0            148                                                        BULK COPY
          12804    C       8        4   1  0              0                                                        
          12805    43      A2       0   0  0              0                                                        OUTPUT
          12806    C       8        0   0  0              0                                                        
  Source image: P1000113.JPG
          12807    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          12808    82      128      2   0  0              0        128                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          12900    PROCR   129       129     TEST DIRECTIVE                                                        
          12902    81      129      2   0  0              0        129                                             START OF SUBROUTINE
          12903    60               0   0  0              0                                                        SET DECIMAL RADIX
          12904    34      4        4   1  0              0                                                        SET (N) IN B
          12905    10               0   0  0              0                                                        SELECT LITERAL
          12906    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          12907    12               0   0  0             69                                                        SUBTRACT LITERAL
          12908    70      129     18   0  0              0        129                                             JUMP IF A == 0
          12909    11               0   0  0             15                                                        ADD LITERAL
          12910    70      129     17   0  0              0        129                                             JUMP IF A == 0
          12911    12               0   0  0             19                                                        SUBTRACT LITERAL
          12912    70      129     16   0  0              0        129                                             JUMP IF A == 0
          12913    11               0   0  0             22                                                        ADD LITERAL
          12914    71      129     24   0  0              0        129     >NO DIRECTIVE                           JUMP IF A != 0
          12915    10               0   0  0              1                                                        SELECT LITERAL
    12912>12916    11               0   0  0              1                                                        ADD LITERAL
    12910>12917    11               0   0  0              1                                                        ADD LITERAL
    12908>12918    11               0   0  0              1                                                        ADD LITERAL
          12919    5       130      2   0  0              0        130                                             TRANSFER
          12920    86      129      2   0  0              0        129                                             SELECT SWITCH R
          12921    5       17      12   0  0              0                STORE PREVIOUS SETTING                  TRANSFER
          12922    84      129      2   0  0              0        129                                             SET SWITCH(ES) AT VARIABLE VALUE
          12923    C       130      2   0  0              0        130     (A)ZERO DIRECTIVE FOUND                 
    12914>12924    82      129      2   0  0              0        129     (A) NON=-ZERO,NO DIRECTIVE FOUND        END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13000    PROCR   130       130     FIND 'LENGTH'                                                         
          13002    81      130      2   0  0              0        130                                             START OF SUBROUTINE
          13003            4        2   2  0              0                LINE SERIAL OF AMENDMENT                SELECT
          13004    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          13005    80      142      2   0  0              0        142     CONVERT TO BIN                          ENTER SUBROUTINE
          13006    101            100   1  2              0                                                        subtract literal address
          13007    19               0   0  0             14                DIVIDE BY 20                            DIVIDE LITERAL
          13008    5       148     42   0  0              0        148                                             TRANSFER
          13009    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          13010    5       148     43   0  0              0        148                                             TRANSFER
          13011    34      148      2   0  0              0        148                                             SET (N) IN B
          13012    124     148     43   0  1              0        148                                             modify address of next
          13013    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          13014    124     148     42   0  1              0        148                                             modify address of next
          13015    36      3        0   0  0              0                                                        COLLATE AND ADD
          13016    70      130     18   0  0              0        130     >SHORT                                  JUMP IF A == 0
          13017    10               0   0  0              1                                                        SELECT LITERAL
    13016>13018    60               0   0  0              0                                                        SET DECIMAL RADIX
          13019    82      130      2   0  0              0        130     (A)=ZERO OR ONE                         END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13100    PROCR   131       131     WRITE->A6 FROM SEC9                                                   
          13102    81      131      2   0  0              0        131                                             START OF SUBROUTINE
          13103    80      135      2   0  0              0        135     REPLACE 'BE' BY 'LE'                    ENTER SUBROUTINE
          13104    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          13105    5       9       52   1  0              0                                                        TRANSFER
          13106            17      16   1  0              0                IND'PASS 0 DIDN'T LIKE IT' NON-ZERO     SELECT
          13107    5       9       50   1  0              0                                                        TRANSFER
          13108    43      A6       0   0  0              0                                                        OUTPUT
          13109    C       9        0   0  0              0                                                        
          13110    54      9        4   1  0             50                                                        BULK CLEAR
          13111    5       17      16   1  0              0                CLEAR IND                               TRANSFER
          13112    82      131      2   0  0              0        131                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
  Source image: P1000114.JPG
          13200    PROCR   132       132     UNPACK POSSIBLE DIRECTIVE BLOCK                                       
          13202    81      132      2   0  0              0        132                                             START OF SUBROUTINE
          13203    10               0   0  0              0                                                        SELECT LITERAL
          13204    5       4        4   1  0              0                WL FOR AMEND DIRECTIVE                  TRANSFER
          13205    5       4       16   1  0              0                                                        TRANSFER
          13206    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          13207    C       132     12   0  0              0        132     >PT                                     
          13208    C       132      9   0  0              0        132     >CARDS                                  
    13208>13209    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          13210    C       150     18   0  0              0        150                                             
          13211    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13207>13212    124     150      2   0  2              0        150     UNPACK PT                               select literal and division
          13213    124     999     15   1  2              0                                                        modify address of next
          13214    128              0   0  3              0                                                        unpack variable field data
          13215    82      132      2   0  0              0        132                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13300    PROCR   133       133     O/P WHEN MOD NOT ACCEPTED                                             
          13302    81      133      2   0  0              0        133                                             START OF SUBROUTINE
    13305>13303    80      131      2   0  0              0        131     >O/P TO A6                              ENTER SUBROUTINE
          13304    80      127      2   0  0              0        127     >READ/TEST PT                           ENTER SUBROUTINE
          13305    71      133      3   0  0              0        133     >NOT YET                                JUMP IF A != 0
          13306    82      133      2   0  0              0        133     NEXT DIRECTIVE FOUND->                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13400    PROCR   134       134     INTERCHANGE A1,D1 ASL'S SR                                            
          13402    81      134      2   0  0              0        134                                             START OF SUBROUTINE
          13403    125           4096   1  1              0                                                        clear indicators
          13404    123     134      6   0  2              0        134                                             enter master routine
          13405    82      134      2   0  0              0        134                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          13406    100              0   0  0              0                                                        Halt
          13407    124     999      9   0  3              0                                                        modify address of next
          13408    100             64   0  2              0                                                        replace (B) by (N)
          13409    124     999      7   0  3              0                                                        modify address of next
          13410    106             64   0  0              0                                                        select (N)
          13411    124     999      9   0  3              0                D1->A1                                  modify address of next
          13412    102             64   0  0              0                                                        transfer (A) to N
          13413    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          13414    124     999      7   0  3              0                A1->D1                                  modify address of next
          13415    102             64   0  0              0                                                        transfer (A) to N
          13416    126     134      6   0  3              0        134                                             leave master routine
                                                                                                                   
          13500    PROCR   135       135     REPLACE BE CHAR BY LE CHAR IN SEC 5                                   
          13502    81      135      2   0  0              0        135                                             START OF SUBROUTINE
          13503    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          13504    C       135     51   0  0              0        135     >PT                                     
          13505    C       135      6   0  0              0        135     >CARDS                                  
    13505>13506    10               0   0  0              0                                                        SELECT LITERAL
          13507    5       132      2   0  0              0        132                                             TRANSFER
          13508    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13509    C                0   0  0             32                                                        
    13520>13510    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          13511    C                0   0  0              2-                                                       
          13512    34      5        0   1  1              0                                                        SET (N) IN B
    13517>13513    10               0   0  0              0                                                        SELECT LITERAL
          13514    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          13515    12               0   0  0             7.                                                        SUBTRACT LITERAL
          13516    70      135     22   0  0              0        135     >BE FOUND                               JUMP IF A == 0
    13550>13517    94      135     13   0  2              2-       135     >NEXT CHAR                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13518            5        0   1  1              0                                                        SELECT
          13519    5       9        4   1  1              0                                                        TRANSFER
  Source image: P1000115.JPG
          13520    94      135     10   0  1              2        135     >NEXT WORD                              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13521    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13516>13522    100     17      22   1  0              0                COPY B                                  copy registers
          13523    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13524    96               0   0  1              0                                                        SELECT MODIFIER
          13525    16               0   0  0              5                                                        MULTIPLY LITERAL
          13526    5       148     42   1  0              0        148      =10 TIMES WORD NUMBER+CLEAR WL         TRANSFER
          13527    96               0   0  2              0                                                        SELECT MODIFIER
          13528    3       136      2   0  0              0        136                                             COPY
          13529    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          13530    37      148     43   0  0              0        148                                             REPLACE SELECTED BITS
          13531    10               0   0  0              Ю                                                        SELECT LITERAL
          13532    2       148     43   0  0              0        148      =SUBTRACT R2 MODIFIER                  SUBTRACT
          13533    4       148     42   0  0              0        148     AUG COL POSN                            AUGMENT
          13534    60               0   0  0              0                                                        SET DECIMAL RADIX
          13535    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          13536    10               0   0  0             5.                                                        SELECT LITERAL
          13537    124     136      2   0  1              0        136                                             modify address of next
          13538    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          13539    37      5        0   1  1              0                REPLACE BE BY LE                        REPLACE SELECTED BITS
          13540    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13541            132      2   0  0              0        132     CT OF BE'S X 2                          SELECT
          13542    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          13543    70      135     49   0  0              0        135     >5 ALREADY STORED                       JUMP IF A == 0
          13544    92      132      2   0  4              0        132                                             SET MODIFIER AT VARIABLE
          13545            148     42   0  0              0        148                                             SELECT
          13546    5       9       36   2  4              0                2XBE POSN CTR                           TRANSFER
          13547    10               0   0  0              2                                                        SELECT LITERAL
          13548    4       132      2   0  0              0        132     STEP CTR                                AUGMENT
    13543>13549    100     17      22   1  1              0                                                        replace registers
          13550    76      135     17   0  0              0        135     > NEXT CHAR                             JUMP unconditional
    13504>13551    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13552    C                0   0  0             56                                                        
    13563>13553    90               0   0  2              8                                                        SET MODIFICATION REGISTER AT LITERAL
          13554    C                0   0  0              2-                                                       
          13555    34      5        0   1  1              0                                                        SET (N) IN B
    13560>13556    10               0   0  0              0                                                        SELECT LITERAL
          13557    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          13558    12               0   0  0             7.                                                        SUBTRACT LITERAL
          13559    70      135     67   0  0              0        135     > BE FOUND                              JUMP IF A == 0
          13560    94      135     56   0  2              2-       135     > GET NEXT CHAR                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13561            5        0   1  1              0                COPY TO O/P SECTION                     SELECT
          13562    5       9        4   1  1              0                                                        TRANSFER
          13563    94      135     53   0  1              2        135     >GET NEXT WORD                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13564    10               0   0  0             7.                                    MISREAD             SELECT LITERAL
          13565    5       9       46   1  0              0                                                        TRANSFER
          13566    76      121     44   0  0              0        121                                             JUMP unconditional
    13559>13567    96               0   0  2              0                                                        SELECT MODIFIER
          13568    5       136      2   0  0              0        136                                             TRANSFER
          13569    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          13570    10               0   0  0             5.                                                        SELECT LITERAL
          13571    124     136      2   0  1              0        136                                             modify address of next
          13572    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          13573    37      5        0   1  1              0                REPLACE BE BY LE                        REPLACE SELECTED BITS
          13574            5        0   1  1              0                COPY LAST WORD                          SELECT
          13575    5       9        4   1  1              0                                                        TRANSFER
          13576    100     17      22   1  0              0                                                        copy registers
          13577    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13578    96               0   0  1              0                                                        SELECT MODIFIER
          13579    11               0   0  0              4                                                        ADD LITERAL
  Source image: P1000116.JPG
          13580    30               0   0  0              3                >Q4,5                                   SHIFT (A) BY QUARTETS
          13581    5       9       48   2  0              0                                                        TRANSFER
          13582    35               0   0  0             11                COLUMN POSITION                         PREPARE FOR DIGIT COLLATION
          13583    36      136      2   0  0              0        136                                             COLLATE AND ADD
          13584    37      9       48   2  0              0                                                        REPLACE SELECTED BITS
          13585    100     17      26   0  3              0                                                        set radix
          13586    82      135      2   0  0              0        135                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13600    PROCR   136       136     GET TO START OF AMENDED PROGRAM                                       
          13602    81      136      2   0  0              0        136                                             START OF SUBROUTINE
    13610>                                                                                                         
    13616>                                                                                                         
    13624>                                                                                                         
    13646>                                                                                                         
    13649>                                                                                                         
    13660>13603    80      137      2   0  0              0        137     READ MT                                 ENTER SUBROUTINE
          13604    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          13605    0       10       4   1  0              0                                                        SELECT
          13606    2       148     64   1  0              0        148     FINIS'                                  SUBTRACT
          13607    70      136     51   0  0              0        136     >ALARM*02                               JUMP IF A == 0
          13608    0       10       8   2  0              0                                                        SELECT
          13609    12               0   0  0                                                                       SUBTRACT LITERAL
          13610    71      136      3   0  0              0        136                                             JUMP IF A != 0
          13611    0       10      10   1  0              0                                                        SELECT
          13612    2       148     54   1  0              0        148     PASS I'                                 SUBTRACT
          13613    70      136     43   0  0              0        136                                             JUMP IF A == 0
          13614    0       10       6   1  0              0                                                        SELECT
          13615    2       148     62   1  0              0        148     INDEX'              USE'INDEX'DATA TO   SUBTRACT
          13616    71      136      3   0  0              0        136     >NO                 SEE IF PROGM ON TAPEJUMP IF A != 0
    13642>13617    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          13618    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13619    C                0   0  0             48                                                        
    13641>13620    0       10       4   2  1              0                PROG ID                                 SELECT
          13621    2       148     20   0  0              0        148                                             SUBTRACT
          13622    71      136     26   0  0              0        136     >NOT END SIGN                           JUMP IF A != 0
          13623            148     92   0  0              0        148                                             SELECT
          13624    70      136      3   0  0              0        136     >INTERCODE FOUND.REATO 'PASS I'         JUMP IF A == 0
          13625    76      136     51   0  0              0        136     >ALARM02                                JUMP unconditional
    13622>13626    1       148     20   0  0              0        148                                             ADD
          13627    2       4        2   0  0              0                PROG ID                                 SUBTRACT
          13628    71      136     41   0  0              0        136     >NOT                                    JUMP IF A != 0
          13629    0       10       6   2  1              0                                                        SELECT
          13630    2       4        4   0  0              0                SERIAL                                  SUBTRACT
          13631    71      136     41   0  0              0        136     >NOT                                    JUMP IF A != 0
          13632            10       8   1  1              0                PASS IND                                SELECT
          13633    12               0   0  0             20                                                        SUBTRACT LITERAL
          13634    70      136     41   0  0              0        136     >CLEO               SKIP                JUMP IF A == 0
          13635            10       8   2  1              0                                                        SELECT
          13636    70      136     40   0  0              0        136     >INTERCODE                              JUMP IF A == 0
          13637            10      10   2  1              0                IDENTIFIER                              SELECT
          13638    84      786      2   0  0              0        786                                             SET SWITCH(ES) AT VARIABLE VALUE
          13639    76      136     41   0  0              0        136                                             JUMP unconditional
    13636>13640    5       148     92   0  0              0        148     SET'PROGRAM TAPE'                       TRANSFER
    13639>                                                                                                         
    13634>                                                                                                         
    13631>                                                                                                         
    13628>13641    94      136     20   0  1              8        136                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13642    76      136     17   0  0              0        136     >NEXT BLOCK                             JUMP unconditional
    13613>13643    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          13644    0       10       4   2  0              0                                                        SELECT
  Source image: P1000117.JPG
          13645    2       4        2   0  0              0                PROG IDENTITY                           SUBTRACT
          13646    71      136      3   0  0              0        136     >NO                                     JUMP IF A != 0
          13647    0       10       6   2  0              0                                                        SELECT
          13648    2       4        4   0  0              0                                                        SUBTRACT
          13649    71      136      3   0  0              0        136     >NO                                     JUMP IF A != 0
          13650    82      136      2   0  0              0        136     MATCH FOUND                             END OF SUBROUTINE / LEAVE SUBROUTINE
    13625>                                                                                                         
    13607>13651    41      A1       0   0  0              1                                                        CLOSE FILE
          13652    10               0   0  0              1                                                        SELECT LITERAL
          13653    5       148     92   0  0              0        148                                             TRANSFER
          13654    84      786      2   0  0              0        786     CLEAR                                   SET SWITCH(ES) AT VARIABLE VALUE
          13655    150              0   0  0              2                                                        OFFER OPTIONS
          13656    C       136     61   0  0              0        136     >UNLOAD                                 
          13657    C       136     59   0  0              0        136     >TRY NEW INPUT TAPE                     
          13658    C       107     11   0  0              0        107     >REENTER                                
    13657>13659    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
          13660    76      136      3   0  0              0        136     >TRY AGAIN                              JUMP unconditional
    13656>                                                                                                         
    12523>                                                                                                         
    10964>                                                                                                         
    10709>                                                                                                         
    10404>13661    151              0   0  0              0                                                        UNLOAD PROGRAMME
                                                                                                                   
          13700    PROCR   137       137     READ A1+SEC7                                                          
          13702    81      137      2   0  0              0        137                                             START OF SUBROUTINE
          13703    42      A1       0   0  0              0                                                        INPUT
          13704    C       10       0   0  0              0                                                        
          13705    82      137      2   0  0              0        137                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13800    PROCR   138       138     OPEN A1                                                               
          13802    81      138      2   0  0              0        138                                             START OF SUBROUTINE
          13803    40      A1       0   0  0              1                                                        OPEN FILE
          13804    82      138      2   0  0              0        138                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          13900    PROCR   139       139     GET NEXT ITEM                                                         
          13902    81      139      2   0  0              0        139                                             START OF SUBROUTINE
          13903    94      139      7   0  2              2        139                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          13904    80      137      2   0  0              0        137     >READ MT                                ENTER SUBROUTINE
          13905    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          13906    C                0   0  0             46                                                        
    13903>13907    82      139      2   0  0              0        139                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14000    PROCR   140       140     STORE ADJUST DETAILS SR                                               
          14002    81      140      2   0  0              0        140                                             START OF SUBROUTINE
          14003            17       3   0  0              0                                                        SELECT
          14004    101            460   1  2              0                                                        subtract literal address
          14005    72      140     28   0  0              0        140     >TOO MANY STORED                        JUMP IF A >= 0
          14006    10               0   0  0              0                                                        SELECT LITERAL
          14007    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          14008    36      17      14   0  0              0                                                        COLLATE AND ADD
          14009    5       136      2   0  0              0        136     ITEM                                    TRANSFER
          14010            17      14   0  0              0                                                        SELECT
          14011    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          14012    80      142      2   0  0              0        142                                             ENTER SUBROUTINE
          14013    5       141      2   0  0              0        141     BIN REF                                 TRANSFER
          14014    124     141      2   0  1              0        141                                             modify address of next
          14015            6      100-  0  0              0                UPDATED REF                             SELECT
          14016    80      143      2   0  0              0        143     >TO DEC                                 ENTER SUBROUTINE
          14017    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          14018    1       136      2   0  0              0        136                                             ADD
  Source image: P1000118.JPG
          14019    124     17       3   0  1              0                                                        modify address of next
          14020    5       19       0   0  0              0                LOCN OF ADJUSTMENT                      TRANSFER
          14021    0       17      15   0  0              0                                                        SELECT
          14022    124     17       3   0  1              0                                                        modify address of next
          14023    5       19       1   0  0              0                QUANTITY                                TRANSFER
          14024    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14025    10               0   0  0              2                                                        SELECT LITERAL
          14026    4       17       3   0  0              0                STEP CTR                                AUGMENT
          14027    60               0   0  0              0                                                        SET DECIMAL RADIX
    14005>14028    82      140      2   0  0              0        140                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14100    PROCR   141       141     SR TO READ PT AND TEST END                                            
          14102    81      141      2   0  0              0        141                                             START OF SUBROUTINE
    14114>14103    100     17      22   1  0              0                                                        copy registers
          14104    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14105    34      999     14   0  0              0                                                        SET (N) IN B
          14106            27      10   0  0              0                                                        SELECT
          14107    11               0   0  0              4                                                        ADD LITERAL
          14108    80      126      2   0  0              0        126     >READ B1                                ENTER SUBROUTINE
          14109    100     17      22   1  1              0                                                        replace registers
          14110            5        0   1  0              0                                                        SELECT
          14111    12               0   0  0     7258555573                SHEET'                                  SUBTRACT LITERAL
          14112    71      141     15   0  0              0        141                                             JUMP IF A != 0
          14113    80      131      2   0  0              0        131                                             ENTER SUBROUTINE
          14114    76      141      3   0  0              0        141     >READ NEXT BLOCK                        JUMP unconditional
    14112>14115    0       5        0   1  0              0                                                        SELECT
          14116    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          14117    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          14118    2       148     60   1  0              0        148     END  '                                  SUBTRACT
          14119    82      141      2   0  0              0        141     (A)=0 IF END                            END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14200    PROCR   142       142     CONVERT TO BIN                                                        
          14202    81      142      2   0  0              0        142                                             START OF SUBROUTINE
          14203    5       148     42   1  0              0        148                                             TRANSFER
          14204    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14205    124     148     22   0  2              0        148                                             select literal and division
          14206    112     148     42   1  0              0        148                                             convert
          14207    82      142      2   0  0              0        142                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14300    PROCR   143       143                                                                           
          14302    81      143      2   0  0              0        143     CONVERT TO DEC                          START OF SUBROUTINE
          14303    5       148     42   1  0              0        148                                             TRANSFER
          14304    60               0   0  0              0                                                        SET DECIMAL RADIX
          14305    124     148      2   0  2              0        148                                             select literal and division
          14306    112     148     42   1  0              0        148                                             convert
          14307    82      143      2   0  0              0        143                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14400    PROCR   144       144     DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK                             
    10707>14402    80      145      2   0  0              0        145     UNPACK AND CHECK PROG ID                ENTER SUBROUTINE
          14403    40      A6       0   0  0              0                                                        OPEN FILE
          14404    0       10      12   2  0              0                                                        SELECT
          14405    5       27       0   0  0              0                SET 'EX ISSUE 7' IND                    TRANSFER
          14406    10               0   0  0              0                                                        SELECT LITERAL
          14407    34      10      12   1  0              0                                                        SET (N) IN B
          14408    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          14409    12               0   0  0             47                                                        SUBTRACT LITERAL
          14410    73      109     61   0  0              0        109     >MADE BEFORE ISSUE 7, ALARM 7           JUMP IF A < 0
          14411            10      16   2  0              0                MULTIRECORD IND                         SELECT
          14412    5       27       1   0  0              0                                                        TRANSFER
          14413    0       148     72   1  0              0        148     'TRAMD'                                 SELECT
  Source image: P1000119.JPG
          14414    5       148     52   1  0              0        148     OVER 'AMEND'                            TRANSFER
          14415    55      149     12   1  0              4        149     ADD'->PTS'TO COMMENT                    BULK COPY
          14416    C       149     10   1  0              0        149                                             
          14417    52      18       0   0  0              0                                                        EDIT
          14418    C       149      2   0  0              0        149                                             
          14419    154     18       0   0  0              0                TYPE 'TRAMD' COMMENT                    COMMENT IN LOG
    14422>14420    80      131      2   0  0              0        131                                             ENTER SUBROUTINE
          14421    80      141      2   0  0              0        141     READ PT                                 ENTER SUBROUTINE
          14422    71      144     20   0  0              0        144     >NOT END                                JUMP IF A != 0
          14423    80      131      2   0  0              0        131     WRITE END BLOCK ***REWIND A6            ENTER SUBROUTINE
          14424    45      A6       0   0  0              0                REWIND A6                               REWIND
          14425    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14426            27      10   0  0              0                                                        SELECT
          14427    11               0   0  0             18                                                        ADD LITERAL
          14428    80      126      2   0  0              0        126     CLOSE B1                                ENTER SUBROUTINE
          14429    54      8        4   1  0             46                                                        BULK CLEAR
          14430    40      A2       0   0  0              0                                    OPEN OUTPUT         OPEN FILE
          14431    32               0   0  0             10                SPOOL NO->A                             SHIFT (AB) BY QUARTETS
          14432    84      153      2   0  0              0        153                                             SET SWITCH(ES) AT VARIABLE VALUE
          14433    80      146      2   0  0              0        146     WRITE TWO BLANK BLOCKS                  ENTER SUBROUTINE
          14434    80      146      2   0  0              0        146                                             ENTER SUBROUTINE
          14435    55      148     74   1  0             10        148                                             BULK COPY
          14436    C       8        4   1  0              0                                                        
          14437    80      146      2   0  0              0        146     WRITE 'INDEX' BLOCK                     ENTER SUBROUTINE
          14438            17      28   0  0              0                PROG IDENTITY                           SELECT
          14439    3       94       0   0  0              0                                                        COPY
          14440    3       8        4   2  0              0                                                        COPY
          14441    3       8       12   2  0              0                                                        COPY
          14442    60               0   0  0              0                                                        SET DECIMAL RADIX
          14443    10               0   0  0              1                                                        SELECT LITERAL
          14444    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          14445    36      17      29   0  0              0                                                        COLLATE AND ADD
          14446    37      17      29   0  0              0                UPDATED PROG SERIAL                     REPLACE SELECTED BITS
          14447    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          14448            17      29   0  0              0                                                        SELECT
          14449    3       8        6   2  0              0                                                        COPY
          14450    5       8       14   2  0              0                                                        TRANSFER
          14451    10               0   0  0              2                                                        SELECT LITERAL
          14452    5       8       10   2  0              0                                                        TRANSFER
          14453    10               0   0  0              3                                                        SELECT LITERAL
          14454    5       8       18   2  0              0                                                        TRANSFER
          14455    10               0   0  0              4                                                        SELECT LITERAL
          14456    5       8       16   2  0              0                                                        TRANSFER
          14457            148     78   1  0              0        148                                             SELECT
          14458    5       8       20   1  0              0                                                        TRANSFER
          14459    80      146      2   0  0              0        146                                             ENTER SUBROUTINE
          14460            17      28   0  0              0                PROG IDENTITY                           SELECT
          14461    5       8        4   2  0              0                                                        TRANSFER
          14462            17      29   0  0              0                                                        SELECT
          14463    5       8        6   2  0              0                                                        TRANSFER
          14464            148     78   1  0              0        148                                             SELECT
          14465    5       8        8   1  0              0                                                        TRANSFER
          14466            148     54   1  0              0        148      'PASS '                                SELECT
          14467    5       8       10   1  0              0                                                        TRANSFER
          14468    155              0   0  0              0                TRANSLATOR SERIAL                       SELECT PROGRAM SERIAL TO A
          14469    5       8       12   1  0              0                                                        TRANSFER
          14470    5       8       14   1  0              0                                                        TRANSFER
          14471            27       1   0  0              0                                                        SELECT
          14472    5       8       16   2  0              0                MULTI RECORD IND                        TRANSFER
          14473    80      146      2   0  0              0        146     WRITE 'PASS 1' BLOCK                    ENTER SUBROUTINE
  Source image: P1000120.JPG
          14474    80      137      2   0  0              0        137     >READA1                                 ENTER SUBROUTINE
          14475    80      128      2   0  0              0        128     >WRITE +READ        PROCR LENGTH INDEX  ENTER SUBROUTINE
          14476    80      128      2   0  0              0        128                                             ENTER SUBROUTINE
          14477            17      29   0  0              0                                                        SELECT
          14478    3       94       1   0  0              0                                                        COPY
          14479    5       10      12   2  0              0                UPDATE SERIAL IN'PROGM'BLOCK            TRANSFER
    14493>14480    80      128      2   0  0              0        128     >COPY                                   ENTER SUBROUTINE
          14481            27       1   0  0              0                                                        SELECT
          14482    70      144     85   0  0              0        144     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          14483    0       10      12   1  0              0                                                        SELECT
          14484    76      144     86   0  0              0        144                         OF INTERCODE        JUMP unconditional
    14482>14485    0       10      10   1  0              0                                                        SELECT
    14484>14486    2       148     46   1  0              0        148      'PROCR'                                SUBTRACT
          14487    70      147      2   0  0              0        147                                             JUMP IF A == 0
          14488    1       148     46   1  0              0        148                                             ADD
          14489    2       148     50   1  0              0        148      'CONST'                                SUBTRACT
          14490    70      147      2   0  0              0        147                                             JUMP IF A == 0
          14491    1       148     50   1  0              0        148                                             ADD
          14492    2       148     48   1  0              0        148      'TABLE'                                SUBTRACT
          14493    71      144     80   0  0              0        144                                             JUMP IF A != 0
          14494    76      147      2   0  0              0        147                                             JUMP unconditional
                                                                                                                   
          14500    PROCR   145       145     UNPACK AMEND HEADING, GET TO PROGM START                              
          14502    81      145      2   0  0              0        145                                             START OF SUBROUTINE
          14503    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          14504    C       145      9   0  0              0        145     >PT                                     
          14505    C       145      6   0  0              0        145     >CARDS                                  
    14505>14506    50      5        0   0  0              0                                                        UNPACK FIXED FIELD DATA
          14507    C       150     10   0  0              0        150                                             
          14508    76      145     12   0  0              0        145                                             JUMP unconditional
    14504>14509    124     150     10   0  2              0        150     UNPACK PT                               select literal and division
          14510    124     999     15   1  2              0                                                        modify address of next
          14511    128              0   0  3              0                                                        unpack variable field data
    14508>14512            4        2   0  0              0                SUITE                                   SELECT
          14513    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          14514    1       4        3   0  0              0                                                        ADD
          14515    3       4        2   0  0              0                                                        COPY
          14516    5       17      28   0  0              0                PROG ID                                 TRANSFER
          14517            4        4   0  0              0                PROG                                    SELECT
          14518    5       17      29   0  0              0                                                        TRANSFER
          14519    80      138      2   0  0              0        138     >OPEN A1                                ENTER SUBROUTINE
          14520    80      136      2   0  0              0        136     >CHECK PROG ID, GET TO 'PASSI' BLOCK    ENTER SUBROUTINE
          14521    82      145      2   0  0              0        145                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14600    PROCR   146       146     O/P->A2                                                               
          14602    81      146      2   0  0              0        146                                             START OF SUBROUTINE
          14603    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          14604    5       8       50   1  0              0                                                        TRANSFER
          14605    43      A2       0   0  0              0                                                        OUTPUT
          14606    C       8        0   0  0              0                                                        
          14607    54      8        4   1  0             46                                                        BULK CLEAR
          14608    82      146      2   0  0              0        146                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          14700    PROCR   147       147     'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX                          
    14715>                                                                                                         
    14494>                                                                                                         
    14490>                                                                                                         
    14487>14702            27       1   0  0              0                                                        SELECT
          14703    70      147     16   0  0              0        147                                             JUMP IF A == 0
          14704    0       10       4   2  0              0                                                        SELECT
  Source image: P1000121.JPG
          14705    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          14706    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    14713>14707    0       10      12   1  1              0                                                        SELECT
          14708    2       148     60   1  0              0        148      'END'                                  SUBTRACT
          14709    70      147     19   0  0              0        147     >YES                                    JUMP IF A == 0
          14710    0       10       6   2  1              0                RECORD LENGTH                           SELECT
          14711    5       146      2   0  0              0        146                                             TRANSFER
          14712    97      146      2   0  1              0        146                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          14713    C       147      7   0  0              0        147                                             
    14718>14714    80      128      2   0  0              0        128     >WRITE/READ                             ENTER SUBROUTINE
          14715    76      147      2   0  0              0        147                                             JUMP unconditional
    14703>14716    0       10      10   1  0              0                                                        SELECT
          14717    2       148     60   1  0              0        148      'END'                                  SUBTRACT
          14718    71      147     14   0  0              0        147     >NOT YET                                JUMP IF A != 0
    14722>                                                                                                         
    14709>14719    80      128      2   0  0              0        128     >WRITE/READ/(END SIGNGET TO 'INDEX'     ENTER SUBROUTINE
          14720    0       10       6   1  0              0                                                        SELECT
          14721    2       148     76   1  0              0        148      'INDEX'                                SUBTRACT
          14722    71      147     19   0  0              0        147     >NOT YET                                JUMP IF A != 0
          14723            10      10   2  0              0                                                        SELECT
          14724    12               0   0  0              3                                                        SUBTRACT LITERAL
          14725    70      147     33   0  0              0        147                                             JUMP IF A == 0
          14726    86      786      2   0  0              0        786     PASS 3 ID                               SELECT SWITCH R
          14727    5       142      2   0  0              0        142                                             TRANSFER
          14728    46      A1      10   0  0              1                                                        RUN BACK
          14729    C       142      2   0  0              0        142                                             
          14730    80      137      2   0  0              0        137                                             ENTER SUBROUTINE
          14731    10               0   0  0              3                                                        SELECT LITERAL
          14732    5       10      10   2  0              0                                                        TRANSFER
    14725>14733    80      128      2   0  0              0        128     >WRITE/READ                             ENTER SUBROUTINE
    14741>14734    90               0   0  1              0                                    DRAIN INDEX DETAILS SET MODIFICATION REGISTER AT LITERAL
          14735    C                0   0  0             48                                                        
    14739>14736    0       10       4   2  1              0                PROG IDENTITY                           SELECT
          14737    2       148     20   0  0              0        148                                             SUBTRACT
          14738    70      147     42   0  0              0        147     >END                                    JUMP IF A == 0
          14739    94      147     36   0  1              8        147                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          14740    80      137      2   0  0              0        137     >READ                                   ENTER SUBROUTINE
          14741    76      147     34   0  0              0        147                                             JUMP unconditional
    14738>14742    10               0   0  0          1.006                1/1/3 6(R1 NON-ZERO)                    SELECT LITERAL
          14743    3       92      30   0  0              0                SET'AMEND RUN'                          COPY
          14744    3       27      13   0  0              0                SET NONZERO                             COPY
          14745    3       27      11   0  0              0                                                        COPY
          14746    5       101      4   0  0              0        101     CHANGE OLAY ORDER                       TRANSFER
          14747    10               0   0  0              2                                                        SELECT LITERAL
          14748    5       27      12   0  0              0                SET'PTS NEEDED'                         TRANSFER
          14749    80      134      2   0  0              0        134     RESTORE ASLS                            ENTER SUBROUTINE
          14750            27       9   0  0              0                OFF LINE PRINT?                         SELECT
          14751    70      147     59   0  0              0        147     >PRINTER                                JUMP IF A == 0
          14752    90               0   0  6              0                                                        SET MODIFICATION REGISTER AT LITERAL
          14753    C                0   0  0            300                                                        
          14754    86      787      2   0  0              0        787     A9 OR NOT                               SELECT SWITCH R
          14755    71      147     68   0  0              0        147     >'PRINT'BLOCK                           JUMP IF A != 0
          14756    10               0   0  0        1200000                                    OPEN MT             SELECT LITERAL
          14757    34      148     98   1  0              0        148     OFF LINE PRINT?                         SET (N) IN B
          14758    76      147     62   0  0              0        147                                             JUMP unconditional
    14751>14759            27       8   0  0              0                                    OPEN PRINTER        SELECT
          14760    11               0   0  0              Ю                                                        ADD LITERAL
          14761    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
    14758>14762    1       999      7   0  0              0                                                        ADD
          14763    125           4096   1  1              0                                                        clear indicators
  Source image: P1000122.JPG
          14764    124     999      0   0  3              0                                                        modify address of next
          14765    123            160   0  2              0                                                        enter master routine
          14766            27       9   0  0              0                                                        SELECT
          14767    70      125     40   0  0              0        125     >ENTER PASS  4                          JUMP IF A == 0
    14755>14768    10               0   0  0     6769596573                PRINT'                                  SELECT LITERAL
          14769    5       10       4   1  0              0                                                        TRANSFER
          14770    10               0   0  0           8000                                                        SELECT LITERAL
          14771    5       10       6   2  0              0                                                        TRANSFER
          14772    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          14773    5       10       8   1  0              0                TRANSLATOR SERIAL                       TRANSFER
          14774            17      28   0  0              0                PROG ID                                 SELECT
          14775    5       10      10   2  0              0                                                        TRANSFER
          14776    10               0   0  0     7.0000007.                                                        SELECT LITERAL
          14777    5       10      12   1  0              0                                                        TRANSFER
          14778    10               0   0  0         800000                                    WRITE A9 HDG BLOCK  SELECT LITERAL
          14779    34      999     12   0  0              0                                                        SET (N) IN B
          14780    125           4096   1  1              0                                                        clear indicators
          14781    1       999      7   0  0              0                                                        ADD
          14782    124     999      0   0  3              0                                                        modify address of next
          14783    123            160   0  2              0                                                        enter master routine
          14784    76      125     40   0  0              0        125     >ENTER PASS  4                          JUMP unconditional
                                                                                                                   
          14800    CONST   148       148     1    CONVERT TABLES                                                   
          14802          (D)1;                                             BIN>DEC                                 
          14804          16;                                                                                       
          14806          256;                                                                                      
          14808          4096;                                                                                     
          14810          65536;                                                                                    
          14812          1048576;                                                                                  
          14814          16777216;                                                                                 
          14816          268435456;                                                                                
          14818          4294967296;                                                                               
          14820          ££££££££££;                                                                               
          14822          1;                                                DEC>BIN                                 
          14824          Ю;                                                                                        
          14826          64;                                                                                       
          14828          3.8;                                                                                      
          14830          2710;                                                                                     
          14832          186Ю0;                                                                                    
          14834          £4240;                                                                                    
          14836          989680;                                                                                   
          14838          5£5.100;                                                                                  
          14840          3‼9Ю+Ю00;                                                                                 
          14842          0;                                                WL(A)                                   
          14844          (A)PROGM;                                                                                 
          14846          (A)PROCR;                                                                                 
          14848          (A)TABLE;                                                                                 
          14850          (A)CONST;                                                                                 
          14852          AMEND;                                                                                    
          14854          (A)PASSI;                                                                                 
          14856          (A)DUMPS;                                                                                 
          14858          (A)FILES;                                                                                 
          14860          (A)END  ;                                                                                 
          14862          (A)INDEX;                                                                                 
          14864          FINIS;                                                                                    
          14866          (D)0000005.5.;                                    DOUBLE LINE END                         
          14868          (D)3££;                                           BITS 1-10                               
          14870          0524108000;                                                                               
          14872          (A)TRAMD;                                                                                 
          14874          (D)6£6£6£6£6£;                                                                            
  Source image: P1000123.JPG
          14876          (A)INDEX;                                                                                 
          14878          £££££;                                                                                    
          14880          2;                                                                                        
          14882          CHAIN;                                                                                    
          14884          FIEND;                                                                                    
          14886          08000;                                                                                    
          14888          ALLOC;                                                                                    
          14890          ATED ;                                                                                    
          14892          EXTRA;                                                                                    
          14894          ROUTE;                                                                                    
          14896          (D)£8;                                                                                    
          14898          (D)0514908000;                                    BITS 4-8                                
                                                                                                                   
          14900    TABLE   149       149     1    TYPE'AMEND'COMMENT                                               
          14902   148    86     0     0  2  0   5   0   0   0  0  0  0     08000'                                  
          14904   148    52     0     0  2  0   5   0   2   0  0  0  0     AMEND'                                  
          14906     4     2     0     0  0  0   5   0   2   0  0  0  0     PROG NO                                 
          14908     4     4     0     0  0  0   5   0   1   4  0  0  0     SERIAL NO                               
          14910   148    66     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          14912   151     2     0     0  2  0   5   0   5   0  0  0  0     & Ю                                     
          14914   148    66     0     0  2  0   2   3   3   0  0  0  1     DOUBLE LINE END                         
          14916   148    86     0     0  2  0   5   0   0   0  0  0  0     08000'                                  
          14918   148    88     0     0  2  0   5   0   1   0  0  0  0     ALLOC'                                  
          14920   148    90     0     0  2  0   5   0   0   0  0  0  0     ATED'                                   
          14922   148    92     0     0  2  0   5   0   0   0  0  0  0     EXTRA'                                  
          14924   148    94     0     0  2  0   5   0   1   0  0  0  0     ROUTE'                                  
          14926   148    42     0     0  0  0   2   3   2   1  0  0  0     CHANNEL                                 
          14928   129     2     0     0  0  0   1   4   0   0  0  0  0     ROUTE                                   
          14930   148    66     0     0  2  0   2   3   1   0  0  0  1     DOUBLE LE                               
                                                                                                                   
          15000    TABLE   150       150     3    UNPACK PT OR CARD INPUT                                          
          15002     4     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIRECTIVE                     
          15004     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          15006     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          15008     4    16     0     0  0  0   1   0   0   0  0  0  1     /////TYPE OR(ANNOTATION+TYPE)           
          15010     4     6     0     0  2  0   5   0   0   0  0  0  0     (AMEND)                                 
          15012     4     2     0     0  0  0   3   0   0   0  0  0  0     SUITE                                   
          15014     4     3     0     0  0  0   2   0   0   0  0  0  0     JOB                                     
          15016     4     4     0     0  0  0   5   0   0   0  0  0  1     SERIAL                                  
          15018     4     2     0     0  2  0   5   0   0   0  0  0  0     SERIAL                                  
          15020     4     4     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE LETER                         
          15022     4     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE WORD                          
          15024     4     8     0     0  1  0   3   0   0   0  0  0  0     PROCR NUMBER                            
          15026     4    16     0     0  0  0   1   0   0   0  0  0  1     TYPE                                    
                                                                                                                   
          15100    CONST   151       151     1                                                                     
          15102          (A)+ PTS;                                                                                 
          15104          ;                                                                                         
          15106          ;                                                                                         
          15108          ;                                                                                         
          15110          ;                                                                                         
          15112          ;                                                                                         
          15114          ;                                                                                         
          15116          ;                                                                                         
          15118          ;                                                                                         
          15120          ;                                                                                         
          15122          ;                                                                                         
          15124          ;                                                                                         
          15126          ;                                                                                         
          15128          ;                                                                                         
  Source image: P1000124.JPG
          15130          ;                                                                                         
          15132          ;                                                                                         
          15134          ;                                                                                         
          15136          ;                                                                                         
          15138          ;                                                                                         
          15140          ;                                                                                         
          15142          ;                                                                                         
          15144          ;                                                                                         
          15146          ;                                                                                         
          15148          ;                                                                                         
          15150          ;                                                                                         
          15152          ;                                                                                         
          15154          ;                                                                                         
          15156          ;                                                                                         
          15158          ;                                                                                         
          15160          ;                                                                                         
          15162          ;                                                                                         
          15164          ;                                                                                         
          15166          ;                                                                                         
          15168          ;                                                                                         
          15170          ;                                                                                         
          15172          ;                                                                                         
          15174          ;                                                                                         
          15176          ;                                                                                         
          15178          ;                                                                                         
          15180          ;                                                                                         
          15182          ;                                                                                         
          15184          ;                                                                                         
          15186          ;                                                                                         
          15188          ;                                                                                         
          15190          ;                                                                                         
          15192          ;                                                                                         
          15194          ;                                                                                         
          15196          ;                                                                                         
          15198          ;                                                                                         
                                                                                                                   
          15200    PROCR   152       152     START OF PASS 1                                                       
          15201     NOTES  152                                                                                     SELECT
    32446>                                                                                                         
    32473>                                                                                                         
    32478>                                                                                                         
    32480>15202    152     152      4   0  0              0        152     CALL/ENTER PASS 2                       OVERLAY
          15203    C       327      6   0  0              0        327     (OVERLAY THE OLAY ORDER)                
          15204    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          15205    54      25       0   1  0             42                CLEAR TRACE SECN                        BULK CLEAR
          15206            27      10   0  0              0                                                        SELECT
          15207    12               0   0  0              1                                                        SUBTRACT LITERAL
          15208    70      152     12   0  0              0        152     >B1 IS PT                               JUMP IF A == 0
          15209            326      8   0  0              0        326     28/0/2                                  SELECT
          15210    5       326      4   0  0              0        326     SET 'UNPACK FIXED'                      TRANSFER
          15211    76      152     17   0  0              0        152                                             JUMP unconditional
    15208>15212    101            512   0  1              0                Q10                                     prepare for digit collation
          15213    33               0   0  0              3                                                        SHIFT (AB) BY BITS
          15214    10               0   0  0              0                                                        SELECT LITERAL
          15215    37      312      8   1  0              0        312     CLEAR BIT 40                            REPLACE SELECTED BITS
          15216    37      312     14   1  0              0        312     DO.                                     REPLACE SELECTED BITS
    15211>15217            326      6   0  0              0        326                                             SELECT
          15218    3       23      46   0  0              0                SET 'PRINT PASS 2'                      COPY
          15219    5       326      3   0  0              0        326                                             TRANSFER
          15220    54      1        0   1  0             46                                                        BULK CLEAR
  Source image: P1000125.JPG
          15221    83      100      2   0  0              1        100     SET 'PRINT PASS 3'                      SET SWITCH(ES) AT LITERAL VALUE
          15222    5       27       6   0  0              0                CLEAR 'PT OMITTED'                      TRANSFER
          15223    84      511      2   0  0              0        511                                             SET SWITCH(ES) AT VARIABLE VALUE
          15224    84      514      2   0  0              0        514                                             SET SWITCH(ES) AT VARIABLE VALUE
          15225    5       27       4   0  0              0                                                        TRANSFER
          15226    83      252      2   0  0              5        252     AMEND DIRECTIVE SWITCH                  SET SWITCH(ES) AT LITERAL VALUE
          15227    95               0   0  1              0                                                        SELECT MODIFICATION REGISTER
          15228    70      157      2   0  0              0        157     >COMPILER DIDN'T CALL TRAMSLATOR        JUMP IF A == 0
          15229    3       1        0   1  0              0                                                        COPY
          15230    54      27       0   1  0             20                                                        BULK CLEAR
          15231    96               0   0  3              0                MOD ONLY         A9 IND                 SELECT MODIFIER
          15232    3       27       9   0  0              0                SET IND                                 COPY
          15233    10               0   0  0          70000                                                        SELECT LITERAL
          15234    3       27       0   0  0              0                SET 'MULTI RECORD'                      COPY
          15235    3       27       4   0  0              0                SET'COMPILER'                           COPY
          15236    5       27       1   0  0              0                SET 'ISSUE 7 O/P'                       TRANSFER
          15237    54      72       0   1  0            888                                                        BULK CLEAR
          15238    34      1        1   0  0              0                                                        SET (N) IN B
          15239    36      320     22   0  0              0        320     1                                       COLLATE AND ADD
          15240    70      152     42   0  0              0        152                                             JUMP IF A == 0
          15241    83      100      2   0  0              2        100     SET 'DONT PRINT'                        SET SWITCH(ES) AT LITERAL VALUE
    15240>15242    36      318      2   0  0              0        318     BIT 2                                   COLLATE AND ADD
          15243    12               0   0  0              2                                                        SUBTRACT LITERAL
          15244    5       23      46   0  0              0                INHIBIT PRINT                           TRANSFER
          15245    36      318     10   0  0              0        318     BIT 3='PTS NEEDED'                      COLLATE AND ADD
          15246    12               0   0  0              4                                                        SUBTRACT LITERAL
          15247    70      152     50   0  0              0        152     >NO                                     JUMP IF A == 0
          15248    10               0   0  0              2                                                        SELECT LITERAL
          15249    5       27      12   0  0              0                                                        TRANSFER
    15247>15250    36      318      7   0  0              0        318     BIT 4='CLEO TRAMD'IF NON-ZERO           COLLATE AND ADD
          15251    5       27       2   0  0              0                SET'PSEUDO-ISSUE 5'                     TRANSFER
          15252    101            450   1  3              0                                                        select literal address
          15253    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          15254    1       1        0   0  0              0                DATA START                              ADD
          15255    124     999      1   0  3              0                                                        modify address of next
          15256    128     18       0   1  1              0                                                        bulk copy long numeric
          15257    5       153      2   0  0              0        153                                             TRANSFER
          15258    90               0   0  3              0                CALC COMPILER'S HIGHEST PROCR           SET MODIFICATION REGISTER AT LITERAL
          15259    C                0   0  0            450                                                        
    15272>15260    34      18       0   0  3              0                                                        SET (N) IN B
          15261    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          15262    33               0   0  0              2                                                        SHIFT (AB) BY BITS
          15263    2       153      2   0  0              0        153                                             SUBTRACT
          15264    73      152     66   0  0              0        152                                             JUMP IF A < 0
          15265    4       153      2   0  0              0        153     UPDATE                                  AUGMENT
    15264>15266    10               0   0  0              0                                                        SELECT LITERAL
          15267    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          15268    2       153      2   0  0              0        153                                             SUBTRACT
          15269    73      152     71   0  0              0        152                                             JUMP IF A < 0
          15270    4       153      2   0  0              0        153     UPDATE                                  AUGMENT
    15269>15271    10               0   0  0              0                                                        SELECT LITERAL
          15272    94      152     60   0  3              1        152                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          15273            153      2   0  0              0        153                                             SELECT
          15274    11               0   0  0              1                                                        ADD LITERAL
          15275    5       18    1055   0  0              0                (HIGHEST C/FWD PROCR+1)IN BINARY        TRANSFER
          15276    54      18     450   1  0            596                                                        BULK CLEAR
          15277    95               0   0  2              0                                                        SELECT MODIFICATION REGISTER
          15278    5       1        0   1  0              0                PROG ID+SERIAL                          TRANSFER
          15279    125           4096   1  1              0                                                        clear indicators
          15280    123     153      2   0  2              0        153     >SET ASL'S+GUARD WORDS                  enter master routine
  Source image: P1000126.JPG
          15281    76      156      2   0  0              0        156                                             JUMP unconditional
                                                                                                                   
          15300    PROCR   153       153     SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3                
          15302    81      153      2   0  0              0        153     LINK                                    START OF SUBROUTINE
          15303    10               0   0  0                                                                       SELECT LITERAL
          15304    124     317     92   0  3              0        317                                             modify address of next
          15305    123             56   1  0              0                SEC 5                                   copy into tag
          15306    124     317     92   0  3              0        317                                             modify address of next
          15307    123            210   1  0              0                SEC 7                                   copy into tag
          15308    124     317     92   0  3              0        317                                             modify address of next
          15309    123            364   1  0              0                SEC 8                                   copy into tag
          15310    124     317     92   0  3              0        317                                             modify address of next
          15311    123            518   1  0              0                SEC 9                                   copy into tag
          15312    124     317     92   0  3              0        317                                             modify address of next
          15313    123            576   1  0              0                B1                                      copy into tag
          15314    124     317     92   0  3              0        317                                             modify address of next
          15315    123            730   1  0              0                A1                                      copy into tag
          15316    124     317     92   0  3              0        317                                             modify address of next
          15317    123            884   1  0              0                A2                                      copy into tag
          15318    124     317     92   0  3              0        317                                             modify address of next
          15319    123           1038   1  0              0                A6                                      copy into tag
                                                                                                                   
          15400    PROCR   154       154     SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3                        
          15402    123     317      2   0  3              0        317     PROG TAG                                select tag
          15403    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          15404    4       317     92   0  0              0        317                                             AUGMENT
          15405            317     92   0  0              0        317     ABS START                               SELECT
          15406    124     999     14   1  2              0                SEC 5                                   modify address of next
          15407    103             64   0  0              0                                                        copy (A) to N
          15408    101             58   1  1              0                                                        add literal address
          15409    124     999     16   1  2              0                SEC 7                                   modify address of next
          15410    103             64   0  0              0                                                        copy (A) to N
          15411    101            154   1  1              0                                                        add literal address
          15412    124     999     18   1  2              0                SEC 8                                   modify address of next
          15413    103             64   0  0              0                                                        copy (A) to N
          15414    101            154   1  1              0                                                        add literal address
          15415    124     999     20   1  2              0                SEC 9                                   modify address of next
          15416    103             64   0  0              0                                                        copy (A) to N
          15417    101            154   1  1              0                                                        add literal address
          15418    124     999      8   0  3              0                B1                                      modify address of next
          15419    103             64   0  0              0                                                        copy (A) to N
          15420    101             58   1  1              0                                                        add literal address
          15421    124     999      9   0  3              0                A1                                      modify address of next
          15422    103             64   0  0              0                                                        copy (A) to N
          15423    101            154   1  1              0                                                        add literal address
          15424    124     999     10   0  3              0                A2                                      modify address of next
          15425    103             64   0  0              0                                                        copy (A) to N
          15426    101            154   1  1              0                                                        add literal address
          15427    124     999     11   0  3              0                A6                                      modify address of next
          15428    102             64   0  0              0                                                        transfer (A) to N
                                                                                                                   
          15500    PROCR   155       155     SET UP ASL'S FOR FILES                                                
          15502    124     999      5   0  3              0                                                        modify address of next
          15503    106             34   0  0              0                PRINTER ROUTE ENTRY SPECIAL CHAPTER     select (N)
          15504    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          15505    5       27       8   0  0              0                                                        TRANSFER
          15506    35               0   0  0           1111                Q1-4                                    PREPARE FOR DIGIT COLLATION
          15507            999      5   0  0              0                15-BIT START SPECIAL CHAP               SELECT
          15508    101            204   1  1              0                                                        add literal address
          15509    124     999     12   1  2              0                SEC 10                                  modify address of next
  Source image: P1000127.JPG
          15510    114             64   0  0              0                                                        replace selected bits
          15511            999      5   0  0              0                                                        SELECT
          15512    101            598   1  1              0                394+204                                 add literal address
          15513    124     999      7   1  2              0                                                        modify address of next
          15514    114             64   0  0              0                                                        replace selected bits
          15515    10               0   0  0                                                                       SELECT LITERAL
          15516    124     999      5   0  3              0                SPECIAL CHAP 15-BIT START               modify address of next
          15517    123            596   1  0              0                                                        copy into tag
          15518    124     999      5   0  3              0                                                        modify address of next
          15519    123            990   1  0              0                204+392+394=D1                          copy into tag
          15520    126     153      2   0  3              0        153     >EXIT                                   leave master routine
                                                                                                                   
          15600    PROCR   156       156     TIDY UP FOR COMPILER                                                  
    15281>15602    54      12       0   1  0            120                                                        BULK CLEAR
          15603    0       1        0   1  0              0                                                        SELECT
          15604    5       12       0   1  0              0                                                        TRANSFER
          15605    40      A1       0   0  0              1                                                        OPEN FILE
    15609>15606    80      291      2   0  0              0        291     >READ                                   ENTER SUBROUTINE
          15607    0       7       10   1  0              0                                                        SELECT
          15608    2       181     20   1  0              0        181      'PASS1'                                SUBTRACT
          15609    71      156      6   0  0              0        156     >NOT YET                                JUMP IF A != 0
          15610    10               0   0  0              1                                                        SELECT LITERAL
          15611    3       92      30   0  0              0                                                        COPY
          15612    5       12       8   0  0              0                                                        TRANSFER
          15613            319     14   1  0              0        319      'END  '                                SELECT
          15614    5       9        4   1  0              0                SET END SIGN                            TRANSFER
          15615    76      158      3   0  0              0        158     >ENTER PASS 1 (SIC)                     JUMP unconditional
                                                                                                                   
          15700    PROCR   157       157     TEST INITIAL RUN                                                      
          15701     NOTES          RADIX                                                                           SELECT
    15228>15702    40      A6       0   0  0              1                                                        OPEN FILE
          15703    54      12       0   1  0            120                                                        BULK CLEAR
          15704    10               0   0  0           6700                                                        SELECT LITERAL
          15705    5       12       3   0  0              0                ERROR LETTER'P'                         TRANSFER
          15706    80      292      2   0  0              0        292     >READ FIRST BLOCK                       ENTER SUBROUTINE
          15707    124     179      2   0  2              0        179                                             select literal and division
          15708    80      326      2   0  0              0        326     >UNPACK BLOCK                           ENTER SUBROUTINE
          15709    60               0   0  0              0                                                        SET DECIMAL RADIX
          15710            1        2   1  0              0                TESTTHIS IS AN                          SELECT
          15711    2       181     16   1  0              0        181      'AMEND'                                SUBTRACT
          15712    70      157     20   0  0              0        157                                             JUMP IF A == 0
          15713    80      297      2   0  0              0        297     >ANNOTATION IF CARD                     ENTER SUBROUTINE
          15714    80      176      2   0  0              0        176     >CHECK PROGM BLOC                       ENTER SUBROUTINE
          15715    10               0   0  0              2                                                        SELECT LITERAL
          15716    3       12      33   0  0              0                SET'PT INPUT'                           COPY
          15717    5       27      12   0  0              0                SET'PTS NEEDED'                         TRANSFER
          15718    5       1        8   1  0              0                ENSURE FIRST SERIAL=0,INITIAL TRANSLATIOTRANSFER
          15719    76      160      2   0  0              0        160                                             JUMP unconditional
    15712>15720    5       1       16   1  0              0                CLEAR FOR INDS                          TRANSFER
          15721    5       1       18   1  0              0                                                        TRANSFER
          15722    124     179     38   0  2              0        179                                             select literal and division
          15723    80      326      2   0  0              0        326     >UNPACK 'AMEND' BLOCK AGAIN             ENTER SUBROUTINE
          15724    10               0   0  0              0                                                        SELECT LITERAL
          15725    34      1       16   0  0              0                PRINT INDS                              SET (N) IN B
          15726    36      318      2   0  0              0        318     BIT 2                                   COLLATE AND ADD
          15727    5       23      46   0  0              0                                                        TRANSFER
          15728    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          15729    C       157     34   0  0              0        157     >PT                                     
          15730    C       157     31   0  0              0        157     >CARDS                                  
    15730>15731            1       18   1  0              0                                                        SELECT
  Source image: P1000128.JPG
          15732    12               0   0  0             73                                                        SUBTRACT LITERAL
          15733    76      157     36   0  0              0        157                                             JUMP unconditional
    15729>15734            1       20   1  0              0                                                        SELECT
          15735    12               0   0  0     7300000000                                                        SUBTRACT LITERAL
    15733>15736    71      157     39   0  0              0        157                                             JUMP IF A != 0
          15737    10               0   0  0              2                                                        SELECT LITERAL
          15738    76      157     40   0  0              0        157                                             JUMP unconditional
    15736>15739    10               0   0  0              0                                                        SELECT LITERAL
    15738>15740    5       27      12   0  0              0                0/2=PTS NO/YES                          TRANSFER
          15741            27       0   0  0              0                                                        SELECT
          15742    71      157     46   0  0              0        157     >ISSUE 6 O/P                            JUMP IF A != 0
          15743            1       16   0  0              0                                                        SELECT
          15744    12               0   0  0              4                                                        SUBTRACT LITERAL
          15745    5       23      46   0  0              0                PRINT ISSUE5 O/P                        TRANSFER
    15742>15746    10               0   0  0              2-                                                       SELECT LITERAL
          15747    36      320      2   0  0              0        320     BIT 1                                   COLLATE AND ADD
          15748    84      100      2   0  0              0        100     SET AT 1 OR 2                           SET SWITCH(ES) AT VARIABLE VALUE
          15749    0       1       17   0  0              0                CHANGE TO ISSUE?                        SELECT
          15750    5       197      2   0  0              0        197     SR LINK                                 TRANSFER
          15751    80      297      2   0  0              0        297     >ANNOTATION IF CARD                     ENTER SUBROUTINE
          15752    71      157     57   0  0              0        157     >NOT CARD                               JUMP IF A != 0
          15753    0       1        8   1  0              0                RE-FORM ISSUE+SERIAL IN 18'             SELECT
          15754    30               0   0  0              6                                                        SHIFT (A) BY QUARTETS
          15755    1       1       20   1  0              0                CARD SERIAL                             ADD
          15756    5       1        8   1  0              0                                                        TRANSFER
    15752>15757    0       1        4   0  0              0                SUITE                                   SELECT
          15758    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          15759    1       1        6   0  0              0                                                        ADD
          15760    5       12       0   0  0              0                                                        TRANSFER
          15761    34      1        8   1  0              0                                                        SET (N) IN B
          15762    80      321      2   0  0              0        321     RIGHT ALIGN                             ENTER SUBROUTINE
          15763    0       12      88   2  0              0                                                        SELECT
          15764    5       12       1   0  0              0                                                        TRANSFER
          15765    10               0   0  0              1                SET'AMEND RUN'                          SELECT LITERAL
          15766    3       92      30   0  0              0                                                        COPY
          15767    5       12       8   0  0              0                                                        TRANSFER
                                                                                                                   
          15800    PROCR   158       158                                                                           
          15801     NOTES          RADIX                                                                           SELECT
          15802    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
    15615>15803    54      1        0   0  0             46                                                        BULK CLEAR
    15807>15804    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          15805    0       7        6   1  0              0                                                        SELECT
          15806    2       181     12   1  0              0        181     PROGM'                                  SUBTRACT
          15807    71      158      4   0  0              0        158     >GET TO IT                              JUMP IF A != 0
          15808            9        4   1  0              0                                                        SELECT
          15809    2       181     12   1  0              0        181     PROGM'                                  SUBTRACT
          15810    70      159      2   0  0              0        159     ='PROGM' BLOCK IS AMENDED               JUMP IF A == 0
          15811    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          15812    C       175     32   0  0              0        175                                             
          15813    55      7       20   1  0             30                COPY ANNOTATION                         BULK COPY
          15814    C       1       16   1  0              0                                                        
    15912>15815    60               0   0  0              0                                                        SET DECIMAL RADIX
          15816    10               0   0  0              1                AUGMENT PROG SERIAL                     SELECT LITERAL
          15817    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          15818    36      1        8   2  0              0                                                        COLLATE AND ADD
          15819    37      1        8   2  0              0                NO CARRY AFTER 99                       REPLACE SELECTED BITS
          15820    76      160      2   0  0              0        160                                             JUMP unconditional
                                                                                                                   
          15900    PROCR   159       159     INPUT AMENDMENTS TO PRGRAM                                            
  Source image: P1000129.JPG
          15901     NOTES          RADIX                                                                           SELECT
    15810>15902    124     179      2   0  2              0        179                                             select literal and division
          15903    80      326      2   0  0              0        326     >UNPACK NEW 'PROGM' BLOCK               ENTER SUBROUTINE
          15904    80      297      2   0  0              0        297     >WORDS IF CARDS                         ENTER SUBROUTINE
          15905    0       12       1   0  0              0                                                        SELECT
          15906    3       1        8   2  0              0                                                        COPY
          15907    11               0   0  0              1                                                        ADD LITERAL
          15908    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          15909    5       1        0   0  0              0                                                        TRANSFER
          15910    5       12       8   0  0              0                SET PAPER TAPE INPUT INDICATOR          TRANSFER
          15911    80      176      2   0  0              0        176     >CHECK 'PROGM' BLOCK                    ENTER SUBROUTINE
          15912    76      158     15   0  0              0        158     >UPDATE SERIAL                          JUMP unconditional
                                                                                                                   
          16000    PROCR   160       160     OPEN O/P FILE  WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK           
          16001     NOTES  160                                                                                     SELECT
    15820>                                                                                                         
    15719>16002    54      8        4   0  0             46                                                        BULK CLEAR
          16003            27       4   0  0              0                COMPILER?                               SELECT
          16004    70      160      9   0  0              0        160     >NORMAL                                 JUMP IF A == 0
          16005    48      A2       0   0  0              3                BACK 0 I/P+O/P                          STEP BACK
          16006    C       999      0   0  0              0                                                        
          16007    10               0   0  0              0                (ZERO SPOOL NUMBER)                     SELECT LITERAL
          16008    76      160     11   0  0              0        160     >                                       JUMP unconditional
    16004>16009    40      A2       0   0  0              0                OPEN FILE                               OPEN FILE
          16010    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
    16008>16011    84      153      2   0  0              0        153     SPOOL NUMBER+WL                         SET SWITCH(ES) AT VARIABLE VALUE
          16012    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16013    80      289      2   0  0              0        289     >2 BLANKS                               ENTER SUBROUTINE
          16014    55      319     30   1  0             10        319                                             BULK COPY
          16015    C       8        4   1  0              0                                                        
          16016    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16017            1        4   0  0              0                SUITE                                   SELECT
          16018    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16019    1       1        6   0  0              0                                                        ADD
          16020    3       12      32   0  0              0                WL=PROG IDENTITY                        COPY
          16021    3       8        4   2  0              0                                                        COPY
          16022    3       8       12   2  0              0                                                        COPY
          16023    0       1        8   2  0              0                PROGRAM SERIAL                          SELECT
          16024    5       12       1   0  0              0                WL                                      TRANSFER
          16025    0       197      2   0  0              0        197     NEW ISSUE WL                            SELECT
          16026    70      160     30   0  0              0        160     >NO CHANGE                              JUMP IF A == 0
          16027    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16028    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          16029    37      12       1   0  0              0                REPLACE EXISTING ISSUE                  REPLACE SELECTED BITS
    16026>16030    52      1        8   0  0              0                                                        EDIT
          16031    C       175     30   0  0              0        175     RESTORE TD 1/8 WITH SIG ZEROS           
          16032    0       1        8   1  0              0                                                        SELECT
          16033    3       8        6   1  0              0                                                        COPY
          16034    5       8       14   1  0              0                                                        TRANSFER
          16035    10               0   0  0              2                INTERCODE IDENTIFIER                    SELECT LITERAL
          16036    5       8       10   2  0              0                                                        TRANSFER
          16037    10               0   0  0              3                MACHINE CODE IDENTIFIER                 SELECT LITERAL
          16038    3       8       18   2  0              0                                                        COPY
          16039    10               0   0  0              2                                                        SELECT LITERAL
          16040    1       27      12   0  0              0                0 OR 2                                  ADD
          16041    5       8       16   2  0              0                                                        TRANSFER
          16042            319     30   2  0              0        319                                             SELECT
          16043    5       8       20   2  0              0                                                        TRANSFER
          16044    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16045            12      32   0  0              0                                                        SELECT
  Source image: P1000130.JPG
          16046    5       8        4   2  0              0                PROG IDENTITY                           TRANSFER
          16047            1        8   1  0              0                                                        SELECT
          16048    5       8        6   1  0              0                PROG SERIAL                             TRANSFER
          16049    10               0   0  0                                                                       SELECT LITERAL
          16050    5       8        8   2  0              0                                                        TRANSFER
          16051            181     20   1  0              0        181     PASSI'                                  SELECT
          16052    5       8       10   1  0              0                                                        TRANSFER
          16053    0       27       4   0  0              0                NON-ZERO IF COMPILER                    SELECT
          16054    3       8       14   2  0              0                SET 'PSEUDO ISSUE 5'                    COPY
          16055    71      160     58   0  0              0        160                                             JUMP IF A != 0
          16056    155              0   0  0              0                PROG SERIAL                             SELECT PROGRAM SERIAL TO A
          16057    3       8       12   1  0              0                ISSUE 6' ND                             COPY
    16055>16058    5       8       16   2  0              0                SET 'MULTI RECORD'                      TRANSFER
          16059    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16060            18    1055   0  0              0                                                        SELECT
          16061    5       319     23   0  0              0        319                                             TRANSFER
          16062            27       4   0  0              0                                                        SELECT
          16063    71      160     70   0  0              0        160     >COMPILER O/P                           JUMP IF A != 0
          16064    55      18    1010   0  0             23                FIRST PROCR LENGTH DETAILS BLOCK        BULK COPY
          16065    C       8        4   2  0              0                A6                                      
          16066    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16067    55      18    1033   0  0             23                SECOND PROCR LENGTH DETAILS BLOCK       BULK COPY
          16068    C       8        4   2  0              0                                                        
          16069    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
    16063>16070    52      8        4   0  0              0                                                        EDIT
          16071    C       175     32   0  0              0        175                                             
          16072    55      1       16   1  0             30                COPY ANNOTATION                         BULK COPY
          16073    C       8       20   1  0              0                                                        
          16074    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          16075    0       317     89   0  0              0        317     ABS ADDRESS 18:2496                     SELECT
          16076    5       92       9   0  0              0                                                        TRANSFER
          16077    60               0   0  0              0                                                        SET DECIMAL RADIX
                                                                                                                   
          16100    PROCR   161       161     DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS                         
          16101     NOTES  161                                                                                     SELECT
          16102            12       8   0  0              0                                                        SELECT
          16103    70      162      2   0  0              0        162     > FILES REPLACED EX PT                  JUMP IF A == 0
          16104    80      291      2   0  0              0        291     > READ 'ENTRY' EX MT                    ENTER SUBROUTINE
          16105    10               0   0  0              0                                                        SELECT LITERAL
          16106    5       7       46   1  0              0                CLEAR REPORT WORDS                      TRANSFER
          16107    5       7       48   1  0              0                                                        TRANSFER
          16108    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          16109            7        8   2  0              0                                                        SELECT
          16110    80      200      2   0  0              0        200     > REPLACE PROCR                         ENTER SUBROUTINE
          16111    C       178      2   0  0              0        178                                             
          16112    71      161     16   0  0              0        161     > OK                                    JUMP IF A != 0
          16113            319     40   1  0              0        319     ????R'                                  SELECT
          16114    5       7       48   1  0              0                                                        TRANSFER
          16115    76      161     17   0  0              0        161     > USE OLD VALUE                         JUMP unconditional
    16112>16116    5       7        8   2  0              0                                                        TRANSFER
    16132>                                                                                                         
    16115>16117    80      171      2   0  0              0        171     > WRITE                                 ENTER SUBROUTINE
          16118    80      291      2   0  0              0        291     > READ                                  ENTER SUBROUTINE
          16119            7        6   1  0              0                                                        SELECT
          16120    2       181     18   1  0              0        181     CHAPS                                   SUBTRACT
          16121    70      161     33   0  0              0        161     > YES                                   JUMP IF A == 0
          16122    0       7        8   2  0              0                ROUTE TYPE                              SELECT
          16123    80      245      2   0  0              0        245     > TO BIN                                ENTER SUBROUTINE
          16124    33               0   0  0              2-                                                       SHIFT (AB) BY BITS
          16125    1       7        7   0  0              0                FILE ID                                 ADD
  Source image: P1000131.JPG
          16126    33               0   0  0             18-                                                       SHIFT (AB) BY BITS
          16127            7       46   1  0              0                                                        SELECT
          16128    80      164      2   0  0              0        164     >STORE FILE DETAILS                     ENTER SUBROUTINE
          16129    71      161     32   0  0              0        161     >LIST NOT FULL                          JUMP IF A != 0
          16130            319     26   1  0              0        319     SET 'IGNORE'                            SELECT
          16131    5       7       46   1  0              0                                                        TRANSFER
    16129>16132    76      161     17   0  0              0        161     >WRITE                                  JUMP unconditional
    16257>                                                                                                         
    16121>16133            9        4   1  0              0                                                        SELECT
          16134    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16135    70      165      2   0  0              0        165     >PT & MT BOTH AT 'CHAPS'                JUMP IF A == 0
          16136    55      7        8   2  0             30                                                        BULK COPY
          16137    C       12      13   0  0              0                                    MT 'CHAPS' UNAMENDED
          16138    5       12      33   0  0              0                SET 'MT INPUT'                          TRANSFER
          16139            12      13   0  0              0                NUMBER OF CHAPS                         SELECT
          16140    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16141    5       12      13   0  0              0                                                        TRANSFER
          16142    91      12      12   0  2              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    16151>16143            12      14   0  2              0                START                                   SELECT
          16144    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          16145    C       178      2   0  0              0        178                                             
          16146    71      161     50   0  0              0        161     >OK                                     JUMP IF A != 0
          16147            319     40   1  0              0        319      '????R'                                SELECT
          16148    5       8       48   1  0              0                                                        TRANSFER
          16149    76      161     51   0  0              0        161     >USE OLD VALUE                          JUMP unconditional
    16146>16150    5       12      14   0  2              0                                                        TRANSFER
    16149>16151    94      161     43   0  2              1        161                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16152    55      12      14   0  0             14                                                        BULK COPY
          16153    C       7       10   2  0              0                                                        
          16154    55      7        4   1  0             34                COPY ANNEXES                            BULK COPY
          16155    C       8        4   1  0              0                                                        
          16156    76      165     51   0  0              0        165     >TO TEST 'STORE'                        JUMP unconditional
                                                                                                                   
          16200    PROCR   162       162     DEAL WITH PT INPUT FOR ENTRY FILES                                    
          16201     NOTES  162                                                                                     SELECT
    16103>16202    54      1        0   1  0             46                                                        BULK CLEAR
          16203    80      292      2   0  0              0        292     >RAD PT                                 ENTER SUBROUTINE
          16204    124     179      2   0  2              0        179                                             select literal and division
          16205    80      326      2   0  0              0        326     >UNPACK                                 ENTER SUBROUTINE
          16206    80      297      2   0  0              0        297     >COPY ANNOTATION FOR CARDS              ENTER SUBROUTINE
          16207    10               0   0  0           5500                                                        SELECT LITERAL
          16208    5       12       3   0  0              0                LETTER E FOR REPORTS                    TRANSFER
          16209            1        2   1  0              0                                    CHECK 'ENTRY'       SELECT
          16210    2       181     14   1  0              0        181      'ENTRY'                                SUBTRACT
          16211    70      162     14   0  0              0        162     >OK                                     JUMP IF A == 0
          16212    10               0   0  0              1                                                        SELECT LITERAL
          16213    80      177      2   0  0              0        177     >REPORT *E1                             ENTER SUBROUTINE
    16211>16214            1        4   0  0              0                ENTRY PROCR                             SELECT
          16215    12               0   0  0            100                                                        SUBTRACT LITERAL
          16216    73      162     19   0  0              0        162     >WRONG                                  JUMP IF A < 0
          16217    12               0   0  0            899                                                        SUBTRACT LITERAL
          16218    73      162     22   0  0              0        162     >OK                                     JUMP IF A < 0
    16216>16219    10               0   0  0              2                                                        SELECT LITERAL
          16220    80      177      2   0  0              0        177     >REPORT *E2                             ENTER SUBROUTINE
          16221    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16218>16222    10               0   0  0              1                                                        SELECT LITERAL
          16223    5       12      33   0  0              0                SET 'PT INPUT'                          TRANSFER
          16224            1        4   0  0              0                                                        SELECT
          16225    80      200      2   0  0              0        200     REPLACE PROCR                           ENTER SUBROUTINE
          16226    C       178      2   0  0              0        178                                             
  Source image: P1000132.JPG
          16227    71      162     31   0  0              0        162     >OK                                     JUMP IF A != 0
          16228            319     40   1  0              0        319      '????R'                                SELECT
          16229    5       1       44   1  0              0                                                        TRANSFER
          16230    76      162     32   0  0              0        162                                             JUMP unconditional
    16227>16231    5       1        4   0  0              0                NEW PROCR                               TRANSFER
    16230>16232            1        6   1  0              0                PRIORITY CLASS                          SELECT
          16233    12               0   0  0              1                                                        SUBTRACT LITERAL
          16234    73      162     37   0  0              0        162     >WRONG                                  JUMP IF A < 0
          16235    12               0   0  0              4                                                        SUBTRACT LITERAL
          16236    73      162     40   0  0              0        162     >OK                                     JUMP IF A < 0
    16234>16237    10               0   0  0              3                                                        SELECT LITERAL
          16238    80      177      2   0  0              0        177     >REPORT*E3                              ENTER SUBROUTINE
          16239    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16236>16240    52      8        4   0  0              0                                                        EDIT
          16241    C       175     32   0  0              0        175                                             
          16242    55      1       16   1  0             30                ANNOTATION                              BULK COPY
          16243    C       8       20   1  0              0                                                        
          16244    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
    16398>16245    80      292      2   0  0              0        292     >READ PT            TESTS FOR END OF    ENTER SUBROUTINE
          16246            92      30   0  0              0                                    PT FILE DETAILS     SELECT
          16247    70      162     58   0  0              0        162     >INITIAL TRANSLATION                    JUMP IF A == 0
          16248    80      294      2   0  0              0        294     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          16249    71      162     53   0  0              0        162     >YES                                    JUMP IF A != 0
          16250            9        4   1  0              0                                                        SELECT
          16251    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16252    71      162     73   0  0              0        162     >ASSUME ANOTHER FILE EX PT              JUMP IF A != 0
    16256>                                                                                                         
    16249>16253    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16254            7        6   1  0              0                                    IGNORE MT FILES     SELECT
          16255    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16256    71      162     53   0  0              0        162     >READ/IGNORE MT FILES->PROCESS MT CHAPS JUMP IF A != 0
          16257    76      161     33   0  0              0        161     >PROCESS MT CHAPS                       JUMP unconditional
    16247>16258            9        4   1  0              0                                                        SELECT
          16259    2       181     18   1  0              0        181      'CHAPS'                                SUBTRACT
          16260    70      165      2   0  0              0        165     >END OF FILE DETAILS EX PT              JUMP IF A == 0
          16261            9        4   1  0              0                                                        SELECT
          16262    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          16263    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          16264    2       319     14   1  0              0        319      'END  '                                SUBTRACT
          16265    71      162     73   0  0              0        162                                             JUMP IF A != 0
          16266    10               0   0  0         900000                                                        SELECT LITERAL
          16267    1       27       9   0  0              0                                                        ADD
          16268    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          16269    150              0   0  0              1                 END' BEFORE 'CHAPS'ALARM*01            OFFER OPTIONS
          16270    C       162     72   0  0              0        162     >UNLOAD                                 
          16271    C       100      2   0  0              0        100     >RE-ENTER                               
    16270>16272    151              0   0  0              0                                                        UNLOAD PROGRAMME
    16265>                                                                                                         
    16252>16273    54      1        0   1  0             46                                                        BULK CLEAR
          16274    5       12       2   0  0              0                CLEAR CTR                               TRANSFER
          16275    124     179     12   0  2              0        179                                             select literal and division
          16276    80      326      2   0  0              0        326     >UNPACK FILE DETAILS                    ENTER SUBROUTINE
          16277    80      297      2   0  0              0        297     >UNPACK CARD ANNOTATION                 ENTER SUBROUTINE
                                                                                                                   
          16300    PROCR   163       163     CHECK/STORE/OUTPUT FILR DETAILS EX PT                                 
          16301     NOTES  163                                                                                     SELECT
          16302    10               0   0  0           5600                                                        SELECT LITERAL
          16303    5       12       3   0  0              0                ERROR LETER F                           TRANSFER
          16304    34      1        2   1  0              0                FILE IDENTITY                           SET (N) IN B
          16305    80      300      2   0  0              0        300     >L-ALIGN IN A                           ENTER SUBROUTINE
  Source image: P1000133.JPG
          16306    3       1        2   1  0              0                                                        COPY
          16307    32               0   0  0              9-                                                       SHIFT (AB) BY QUARTETS
          16308    12               0   0  0              5                CONTROL OF ALPHA PART                   SUBTRACT LITERAL
          16309    73      163     24   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16310    10               0   0  0              0                                                        SELECT LITERAL
          16311    32               0   0  0              1                BASIC OF ALPHA PART                     SHIFT (AB) BY QUARTETS
          16312    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          16313    72      163     24   0  0              0        163     >REPORT                                 JUMP IF A >= 0
          16314    10               0   0  0              0                                                        SELECT LITERAL
          16315    32               0   0  0              2                NUMERIC PART                            SHIFT (AB) BY QUARTETS
          16316    12               0   0  0             30                                                        SUBTRACT LITERAL
          16317    70      163     22   0  0              0        163     >OK                                     JUMP IF A == 0
          16318    12               0   0  0             11                                                        SUBTRACT LITERAL
          16319    73      163     24   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16320    12               0   0  0              9                                                        SUBTRACT LITERAL
          16321    72      163     24   0  0              0        163     >REPORT                                 JUMP IF A >= 0
    16317>16322    10               0   0  0              0                                                        SELECT LITERAL
          16323    74      163     26   0  0              0        163     >OK                                     JUMP IF AB == 0        // 27, 1, 0
    16321>                                                                                                         
    16319>                                                                                                         
    16313>                                                                                                         
    16309>16324    10               0   0  0              1                                                        SELECT LITERAL
          16325    80      177      2   0  0              0        177     >REPORT*F1                              ENTER SUBROUTINE
    16323>16326            1        4   1  0              0                ROUTE TYPE                              SELECT
          16327    12               0   0  0              1                                                        SUBTRACT LITERAL
          16328    73      163     62   0  0              0        163     >IGNORE                                 JUMP IF A < 0
          16329    12               0   0  0              2                                                        SUBTRACT LITERAL
          16330    71      163     33   0  0              0        163     >NOT 3. DEC CARD O/P                    JUMP IF A != 0
          16331    10               0   0  0             26                                                        SELECT LITERAL
          16332    76      163     60   0  0              0        163     >SET BLOCK LENGTH                       JUMP unconditional
    16330>16333    12               0   0  0              1                                                        SUBTRACT LITERAL
          16334    70      163     51   0  0              0        163     >GP PRINTER                             JUMP IF A == 0
          16335    12               0   0  0             15                                                        SUBTRACT LITERAL
          16336    70      163     51   0  0              0        163     >RT 19                                  JUMP IF A == 0
          16337    12               0   0  0              1                                                        SUBTRACT LITERAL
          16338    70      163     70   0  0              0        163     > OUT, IF RT20                          JUMP IF A == 0
          16339    12               0   0  0              1                                                        SUBTRACT LITERAL
          16340    70      163     62   0  0              0        163     >REJECT RT 21                           JUMP IF A == 0
          16341    12               0   0  0              1                                                        SUBTRACT LITERAL
          16342    70      163     70   0  0              0        163     >22,DATA LINK                           JUMP IF A == 0
          16343    12               0   0  0              1                                                        SUBTRACT LITERAL
          16344    70      163     62   0  0              0        163     >REJECT RT 23                           JUMP IF A == 0
          16345    12               0   0  0              1                                                        SUBTRACT LITERAL
          16346    70      163     70   0  0              0        163     >RT24                                   JUMP IF A == 0
          16347    12               0   0  0              1                                                        SUBTRACT LITERAL
          16348    70      163     70   0  0              0        163     >RT25                                   JUMP IF A == 0
          16349    72      163     62   0  0              0        163     >REJECT                                 JUMP IF A >= 0
          16350    76      163     70   0  0              0        163                                             JUMP unconditional
    16336>                                                                                                         
    16334>16351            1        8   1  0              0                BLOCK LENGTH                            SELECT
          16352    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16353    33               0   0  0              6-               DIVIDE BY 64                            SHIFT (AB) BY BITS
          16354    39               0   0  0              0                ROUND UP                                ROUND UP
          16355    12               0   0  0              5                                                        SUBTRACT LITERAL
          16356    72      163     66   0  0              0        163     >TOO BIG                                JUMP IF A >= 0
          16357    11               0   0  0              5                                                        ADD LITERAL
          16358    31               0   0  0              6                                                        SHIFT (A) BY BITS
          16359    80      244      2   0  0              0        244     >TO DEC                                 ENTER SUBROUTINE
    16332>16360    5       1        8   1  0              0                                                        TRANSFER
          16361    76      163     70   0  0              0        163                                             JUMP unconditional
    16349>                                                                                                         
    16344>                                                                                                         
    16340>                                                                                                         
  Source image: P1000134.JPG
    16328>16362    10               0   0  0              2                                                        SELECT LITERAL
          16363    80      177      2   0  0              0        177     >REPORT*F2                              ENTER SUBROUTINE
          16364    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          16365    76      163     70   0  0              0        163                                             JUMP unconditional
    16371>                                                                                                         
    16372>                                                                                                         
    16356>16366    10               0   0  0              4                                                        SELECT LITERAL
          16367    80      177      2   0  0              0        177     >REPORT*F4                              ENTER SUBROUTINE
          16368    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          16369    76      163     73   0  0              0        163                                             JUMP unconditional
    16365>                                                                                                         
    16361>                                                                                                         
    16350>                                                                                                         
    16348>                                                                                                         
    16346>                                                                                                         
    16342>                                                                                                         
    16338>16370    0       1        8   1  0              0                BLOCK LENGTH                            SELECT
          16371    73      163     66   0  0              0        163                                             JUMP IF A < 0
          16372    70      163     66   0  0              0        163                                             JUMP IF A == 0
    16369>16373    76      164     15   0  0              0        164                                             JUMP unconditional
    16419>                                                                                                         
    16433>                                                                                                         
    16436>                                                                                                         
    16441>16374    10               0   0  0              5                                                        SELECT LITERAL
          16375    80      177      2   0  0              0        177     >REPORT*F5                              ENTER SUBROUTINE
          16376    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    16420>                                                                                                         
    16437>                                                                                                         
    16440>16377            1        6   1  0              0                CHAP IND                                SELECT
          16378    73      163     81   0  0              0        163     >REPORT                                 JUMP IF A < 0
          16379    12               0   0  0            100                                                        SUBTRACT LITERAL
          16380    73      163     84   0  0              0        163     >OK                                     JUMP IF A < 0
    16378>16381    10               0   0  0              3                                                        SELECT LITERAL
          16382    80      177      2   0  0              0        177     >REPORT*F3                              ENTER SUBROUTINE
          16383    80      295      2   0  0              0        295     IGNORE                                  ENTER SUBROUTINE
    16380>16384            1        4   1  0              0                ROUTE TYPE                              SELECT
          16385    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16386    33               0   0  0              2-                                                       SHIFT (AB) BY BITS
          16387    1       1        3   0  0              0                FILE ID                                 ADD
          16388    33               0   0  0             18-                                                       SHIFT (AB) BY BITS
          16389            1       42   1  0              0                                                        SELECT
          16390    80      164      2   0  0              0        164     >STORE DETAIL                           ENTER SUBROUTINE
          16391    71      163     93   0  0              0        163     >OK, LIST NOT FULL                      JUMP IF A != 0
          16392    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    16391>16393    52      8        6   0  0              0                                                        EDIT
          16394    C       175      2   0  0              0        175                                             
          16395    55      1       28   1  0             18                                                        BULK COPY
          16396    C       8       32   1  0              0                                                        
          16397    80      289      2   0  0              0        289     >WRITE                                  ENTER SUBROUTINE
          16398    76      162     45   0  0              0        162                                             JUMP unconditional
                                                                                                                   
          16400    PROCR   164       164     STORE FILE DETAILS SR                                                 
          16401     NOTES  164                                                                                     SELECT
          16402    81      164      2   0  0              0        164                                             START OF SUBROUTINE
          16403    2       319     26   1  0              0        319                                             SUBTRACT
          16404    70      164     13   0  0              0        164     >IGNORED ALREADY                        JUMP IF A == 0
          16405    10               0   0  0             10                 =16                                    SELECT LITERAL
  Source image: P1000135.JPG
          16406    2       91       1   0  0              0                                                        SUBTRACT
          16407    70      164     13   0  0              0        164     LIST FULL.  IGNORE                      JUMP IF A == 0
          16408    32               0   0  0              5                                                        SHIFT (AB) BY QUARTETS
          16409    124     91       1   0  1              0                                                        modify address of next
          16410    5       91       5   0  0              0                STORE                                   TRANSFER
          16411    10               0   0  0              2                                                        SELECT LITERAL
          16412    4       91       1   0  0              0                STEP CTR                                AUGMENT
    16407>                                                                                                         
    16404>16413    60               0   0  0              0                                                        SET DECIMAL RADIX
          16414    82      164      2   0  0              0        164     (A)=0 IF FILE TO BE IGNORED             END OF SUBROUTINE / LEAVE SUBROUTINE
    16373>16415            1       10   0  0              0                ALT ROUTE IND                           SELECT
          16416    71      164     21   0  0              0        164                                             JUMP IF A != 0
          16417            1        4   0  0              0                                                        SELECT
          16418    12               0   0  0             19                                                        SUBTRACT LITERAL
          16419    70      163     74   0  0              0        163     >REPORT                                 JUMP IF A == 0
          16420    76      163     77   0  0              0        163     >OK                                     JUMP unconditional
    16416>16421            1        4   0  0              0                ROUTE TYPE                              SELECT
          16422    12               0   0  0              5                                                        SUBTRACT LITERAL
          16423    70      164     38   0  0              0        164     >PT                                     JUMP IF A == 0
          16424    12               0   0  0              2                                                        SUBTRACT LITERAL
          16425    70      164     38   0  0              0        164     >MT 7                                   JUMP IF A == 0
          16426    12               0   0  0              1                                                        SUBTRACT LITERAL
          16427    70      164     38   0  0              0        164     >MT 8                                   JUMP IF A == 0
          16428    12               0   0  0              3                                                        SUBTRACT LITERAL
          16429    70      164     38   0  0              0        164     >MT 11                                  JUMP IF A == 0
          16430    12               0   0  0              4                                                        SUBTRACT LITERAL
          16431    70      164     38   0  0              0        164     >PT 15                                  JUMP IF A == 0
          16432    12               0   0  0              4                                                        SUBTRACT LITERAL
          16433    71      163     74   0  0              0        163     >REPORT. NOT 19                         JUMP IF A != 0
          16434            1       10   0  0              0                SPECIAL ANNEX LENGTH                    SELECT
          16435    12               0   0  0           4096                                                        SUBTRACT LITERAL
          16436    72      163     74   0  0              0        163     >REPORT                                 JUMP IF A >= 0
          16437    76      163     77   0  0              0        163     >OK                                     JUMP unconditional
    16431>                                                                                                         
    16429>                                                                                                         
    16427>                                                                                                         
    16425>                                                                                                         
    16423>16438            1       10   0  0              0                ALT ROUTE IND                           SELECT
          16439    12               0   0  0              1                >OK                                     SUBTRACT LITERAL
          16440    70      163     77   0  0              0        163     >REPORT                                 JUMP IF A == 0
          16441    76      163     74   0  0              0        163                                             JUMP unconditional
                                                                                                                   
          16500    PROCR   165       165     'CHAPS'  ON PT                                                        
          16501     NOTES  165                                                                                     SELECT
    16260>                                                                                                         
    16135>16502    10               0   0  0           5300                                                        SELECT LITERAL
          16503    3       12      33   0  0              0                SET 'PT IN'                             COPY
          16504    5       12       3   0  0              0                ERROR LETTER C                          TRANSFER
          16505    54      1        0   1  0             46                                                        BULK CLEAR
          16506            12       1   0  0              0                STORE AMEND SERIAL INDICATOR            SELECT
          16507    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          16508    5       1        0   0  0              0                                                        TRANSFER
          16509    124     180      2   0  2              0        180                                             select literal and division
          16510    80      326      2   0  0              0        326     >UNPACK 'CHAPS'                         ENTER SUBROUTINE
          16511            1        4   0  0              0                NO OF CHARS                             SELECT
          16512    12               0   0  0              1                                                        SUBTRACT LITERAL
          16513    73      165     16   0  0              0        165     >REPORT                                 JUMP IF A < 0
          16514    12               0   0  0             14                                                        SUBTRACT LITERAL
          16515    73      165     19   0  0              0        165     >OK                                     JUMP IF A < 0
    16513>16516    10               0   0  0              1                                                        SELECT LITERAL
  Source image: P1000136.JPG
          16517    3       1        4   0  0              0                (SAFE VALUE)                            COPY
          16518    80      177      2   0  0              0        177     >REPORT*C1                              ENTER SUBROUTINE
    16515>16519            1        4   0  0              0                                                        SELECT
          16520    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          16521    5       12      13   0  0              0                                                        TRANSFER
          16522    60               0   0  0              0                                                        SET DECIMAL RADIX
          16523    91      12      12   0  2              0                C:0                                     SET MODIFICATION REGISTER AT VARIABLE
    16539>16524            1        5   0  2              0                                                        SELECT
          16525    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          16526    C       178      2   0  0              0        178                                             
          16527    71      165     31   0  0              0        165     >OK                                     JUMP IF A != 0
          16528            319     40   1  0              0        319      '????R'                                SELECT
          16529    5       1       44   1  0              0                                                        TRANSFER
          16530            1        5   0  2              0                OLD VALUE                               SELECT
    16527>16531    3       12      14   0  2              0                STORE START POINTS                      COPY
          16532    3       1        5   0  2              0                                                        COPY
          16533    12               0   0  0            100                                                        SUBTRACT LITERAL
          16534    73      165     37   0  0              0        165     >REPORT                                 JUMP IF A < 0
          16535    12               0   0  0            899                                                        SUBTRACT LITERAL
          16536    73      165     39   0  0              0        165     >OK                                     JUMP IF A < 0
    16534>16537    10               0   0  0              2                                                        SELECT LITERAL
          16538    80      177      2   0  0              0        177     >REPORT*C2                              ENTER SUBROUTINE
    16536>16539    94      165     24   0  2              1        165                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16540            1        5   0  2              0                NEXT CHAP START                         SELECT
          16541    70      165     44   0  0              0        165     >OK                                     JUMP IF A == 0
          16542    10               0   0  0              3                                                        SELECT LITERAL
          16543    80      177      2   0  0              0        177     >REPORT*C3                              ENTER SUBROUTINE
    16541>16544    55      1        4   0  0             15                NO OF CHAPS*START                       BULK COPY
          16545    C       8        8   2  0              0                                                        
          16546    55      1       34   1  0             12                REPORTS                                 BULK COPY
          16547    C       8       38   1  0              0                                                        
          16548    52      8        4   0  0              0                EDIT AMEND IND+'CHARS'                  EDIT
          16549    C       175     26   0  0              0        175                                             
          16550    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
    16156>16551            9        4   1  0              0                                    DEAL WITH 'STOR     SELECT
          16552    2       181     22   1  0              0        181      'STORE'                                SUBTRACT
          16553    70      165     57   0  0              0        165     >PT AT STORE                            JUMP IF A == 0
          16554            92      30   0  0              0                                                        SELECT
          16555    71      165     74   0  0              0        165     >MT UNAMENDED                           JUMP IF A != 0
          16556    76      166      2   0  0              0        166     >INITIAL TRANS WITHOUT STORE            JUMP unconditional
    16553>16557            92      30   0  0              0                                                        SELECT
          16558    70      165     64   0  0              0        165     INITIAL TRANS                           JUMP IF A == 0
          16559    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
          16560            7        6   1  0              0                                                        SELECT
          16561    2       181     22   1  0              0        181      'STORE'                                SUBTRACT
          16562    71      165     64   0  0              0        165                                             JUMP IF A != 0
          16563    80      291      2   0  0              0        291     READ A1                                 ENTER SUBROUTINE
    16562>                                                                                                         
    16558>16564    54      1        0   1  0             20                                                        BULK CLEAR
          16565    124     180      2   0  2              0        180                                             select literal and division
          16566    80      326      2   0  0              0        326     UNPACK 'STORE'                          ENTER SUBROUTINE
          16567    80      289      2   0  0              0        289     WRITE 'CHAPS'                           ENTER SUBROUTINE
          16568    55      1        4   0  0              7                                                        BULK COPY
          16569    C       8        8   1  0              0                                                        
          16570            181     22   1  0              0        181      'STORE'                                SELECT
          16571    5       8        6   1  0              0                                                        TRANSFER
          16572    80      292      2   0  0              0        292     READ A6                                 ENTER SUBROUTINE
          16573    76      166      2   0  0              0        166                                             JUMP unconditional
    16555>16574    80      291      2   0  0              0        291     READ A1        MT UNAMENDED             ENTER SUBROUTINE
          16575            7        6   1  0              0                                                        SELECT
  Source image: P1000137.JPG
          16576    2       181     22   1  0              0        181                                             SUBTRACT
          16577    71      166      2   0  0              0        166     >NOT STORE                              JUMP IF A != 0
          16578    80      289      2   0  0              0        289     WRITE 'CHAPS'                           ENTER SUBROUTINE
          16579    55      7        4   1  0             40                                                        BULK COPY
          16580    C       8        4   1  0              0                                                        
          16581    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
                                                                                                                   
          16600    PROCR   166       166     PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION      
          16601     NOTES  166                                                                                     SELECT
    16577>                                                                                                         
    16573>                                                                                                         
    16556>16602    10               0   0  0                                                                       SELECT LITERAL
          16603    5       18    2498   1  0              0                LIST END SIGN                           TRANSFER
          16604    5       18    2496   1  0              0                CLEAR FIRST ENTRY                       TRANSFER
          16605    83      267      2   0  0              1        267     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          16606    0       12      13   0  0              0                NO OF CHAPS                             SELECT
          16607    80      244      2   0  0              0        244     >TO DEC                                 ENTER SUBROUTINE
          16608    5       181      8   0  0              0        181                                             TRANSFER
          16609    10               0   0  0           7200                                                        SELECT LITERAL
          16610    5       12       3   0  0              0                ERROR LETTERS                           TRANSFER
          16611    10               0   0  0             99                                                        SELECT LITERAL
          16612    5       92       3   0  0              0                FIRST PROCR-1                           TRANSFER
          16613    90               0   0  4              0                                                        SET MODIFICATION REGISTER AT LITERAL
          16614    C                0   0  0             14                TO STORE CHAPTER ENDS                   
          16615    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          16616    91      12      12   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    16619>16617    11               0   0  0              1                                                        ADD LITERAL
          16618    3       92      10   0  3              0                STORE UNCORRECETD CHAP NUMBERS          COPY
          16619    94      166     17   0  3              1        166                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          16620    60               0   0  0              0                                                        SET DECIMAL RADIX
          16621    10               0   0  0           1001                                                        SELECT LITERAL
          16622    5       12       9   0  0              0                SET FIRST SECTION SERIAL NUMBER         TRANSFER
          16623            92      30   0  0              0                                                        SELECT
          16624    71      167      2   0  0              0        167     >NOT INITIAL TRANSLATION                JUMP IF A != 0
    16635>16625    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          16626    C       166     28   0  0              0        166     >PT                                     
          16627    C       166     30   0  0              0        166     >CARDS                                  
    16626>16628            9        4   1  0              0                                                        SELECT
          16629    76      166     31   0  0              0        166                                             JUMP unconditional
    16627>16630            9        8   1  0              0                                                        SELECT
    16629>16631    80      287      2   0  0              0        287     >TEST PT='PROCR' ETC                    ENTER SUBROUTINE
          16632            12      38   0  0              0                                                        SELECT
          16633    73      185      2   0  0              0        185     >YES, END OF SECTION DETAILS            JUMP IF A < 0
          16634    80      170      2   0  0              0        170     >UNPACK/OUTPUT PT                       ENTER SUBROUTINE
          16635    76      166     25   0  0              0        166                                             JUMP unconditional
                                                                                                                   
          16700    PROCR   167       167     DEAL WITH UNAMENDED SECTION LINE                                      
    16624>16702    80      173      2   0  0              0        173     >TEST PT AT AMEND DIRECTIVE             ENTER SUBROUTINE
          16703    71      167      7   0  0              0        167                                             JUMP IF A != 0
          16704    34      181     10   1  0              0        181     FIVE SQUARES                            SET (N) IN B
          16705    76      169      3   0  0              0        169                                             JUMP unconditional
    16722>                                                                                                         
    16812>                                                                                                         
    16817>16706    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
    16831>                                                                                                         
    16921>                                                                                                         
    16703>16707            12      45   0  0              0                                                        SELECT
          16708    71      167     13   0  0              0        167     >NO MORE PT AMENDS TO SECTIONS          JUMP IF A != 0
          16709            7        4   2  0              0                                                        SELECT
          16710    2       9        4   2  0              0                                                        SUBTRACT
  Source image: P1000138.JPG
          16711    70      168      2   0  0              0        168     >MT AMENDED                             JUMP IF A == 0
          16712    73      169      2   0  0              0        169     >MT>PT, REPORT                          JUMP IF A < 0
    16708>16713    80      174      2   0  0              0        174     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
          16714            12      38   0  0              0                                                        SELECT
          16715    73      185      2   0  0              0        185     >YES                                    JUMP IF A < 0
          16716    50      7        6   0  0              0                                                        UNPACK FIXED FIELD DATA
          16717    C       175     16   0  0              0        175                                             
          16718    55      7       32   1  0             16                                                        BULK COPY
          16719    C       1       28   1  0              0                                                        
          16720    5       1       44   1  0              0                CLEAR REPORT WL                         TRANSFER
          16721    80      172      2   0  0              0        172     >CHECK/EDIT/WRITE SECTION DETAIL        ENTER SUBROUTINE
          16722    76      167      6   0  0              0        167                                             JUMP unconditional
                                                                                                                   
          16800    PROCR   168       168     EFFECT REPLACEMENTS, DELETIONS, INSERTIONS                            
    16711>16802    85      252      2   0  0              0        252                                             SWITCH R
          16803    C       168      7   0  0              0        168     >REPLACE                                
          16804    C       168     15   0  0              0        168     >DELETE                                 
          16805    C       168     27   0  0              0        168     >INSERT BEFORE                          
          16806    C       168      7   0  0              0        168     >ANNOTATION                             
    16814>                                                                                                         
    16806>                                                                                                         
    16803>16807    80      174      2   0  0              0        174     >TEST MT=PROCR ETC                      ENTER SUBROUTINE
          16808    0       12      38   0  0              0                                                        SELECT
          16809    73      185      2   0  0              0        185     >YES                'REPLACE'LOOP       JUMP IF A < 0
          16810    80      170      2   0  0              0        170     >APPLY PT                               ENTER SUBROUTINE
          16811    80      173      2   0  0              0        173     >TEST NEXT PT=DIRECTIVE                 ENTER SUBROUTINE
          16812    71      167      6   0  0              0        167     >YES                                    JUMP IF A != 0
          16813    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16814    76      168      7   0  0              0        168                                             JUMP unconditional
    16825>                                                                                                         
    16804>16815    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          16816    80      173      2   0  0              0        173     >TEST DIRECTIVE     DELETE              ENTER SUBROUTINE
          16817    71      167      6   0  0              0        167     >YES                                    JUMP IF A != 0
    16826>16818    80      291      2   0  0              0        291     >READ MT                                ENTER SUBROUTINE
          16819    80      174      2   0  0              0        174     > TEST MT=PROCR ETC                     ENTER SUBROUTINE
          16820            12      38   0  0              0                                                        SELECT
          16821    73      185      2   0  0              0        185     >YES                                    JUMP IF A < 0
          16822            7        4   2  0              0                                                        SELECT
          16823    2       9        4   2  0              0                                                        SUBTRACT
          16824    73      169      2   0  0              0        169     >MODS OUT OF ORDER                      JUMP IF A < 0
          16825    70      168     15   0  0              0        168     >END OF DELETION                        JUMP IF A == 0
          16826    76      168     18   0  0              0        168     >READ/IGNORE MT                         JUMP unconditional
    16805>16827    80      292      2   0  0              0        292     READ FIRST INSERTED BLOCK               ENTER SUBROUTINE
    16830>16828    80      170      2   0  0              0        170     >UNPACK/OUTPUT/READ NEXT PT BLOCK       ENTER SUBROUTINE
          16829    80      173      2   0  0              0        173     >TEST AMEND DIRECTIVE                   ENTER SUBROUTINE
          16830    70      168     28   0  0              0        168     >NO                                     JUMP IF A == 0
          16831    76      167      7   0  0              0        167     >YES                                    JUMP unconditional
                                                                                                                   
          16900    PROCR   169       169     DEAL WITH SEQUENCE ERROR IN MODS                                      
    16824>                                                                                                         
    16712>16902    34      1        2   1  0              0                                                        SET (N) IN B
    16705>16903    0       8       47   0  0              0                TEST TOP HALF TO BE'??5'                SELECT
          16904    2       318     27   0  0              0        318                                             SUBTRACT
          16905    70      169     10   0  0              0        169     >LINE IGNORED, DONT OVERWRITE WORD      JUMP IF A == 0
          16906    10               0   0  0              0                CLEAR SIGN BIT A                        SELECT LITERAL
          16907    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          16908    5       8       46   1  0              0                                                        TRANSFER
          16909    76      169     12   0  0              0        169                                             JUMP unconditional
    16905>16910    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          16911    5       8       44   1  0              0                                                        TRANSFER
  Source image: P1000139.JPG
    16909>16912    0       1        4   1  0              0                AMEND LETTER                            SELECT
          16913    5       8       48   1  0              0                                                        TRANSFER
          16914    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          16915    10               0   0  0           1:1:                                                        SELECT LITERAL
          16916    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          16917    37      8       48   1  0              0                PLANT '??'                              REPLACE SELECTED BITS
    16920>16918    80      292      2   0  0              0        292     >READPT                                 ENTER SUBROUTINE
          16919    80      173      2   0  0              0        173     >TEST AMEND DIRECTIVE                   ENTER SUBROUTINE
          16920    70      169     18   0  0              0        169     >NO                                     JUMP IF A == 0
          16921    76      167      7   0  0              0        167     >YES(DEAL WITH CURRENT MT BLOCK)        JUMP unconditional
                                                                                                                   
          17000    PROCR   170       170     AMENDS TO SECTION DESCRIPTION EX PT                                   
          17002    81      170      2   0  0              0        170                                             START OF SUBROUTINE
          17003    54      1        0   1  0             46                                                        BULK CLEAR
          17004    124     179     26   0  2              0        179                                             select literal and division
          17005    80      326      2   0  0              0        326     >UNPACK PT SECTION                      ENTER SUBROUTINE
          17006    80      297      2   0  0              0        297     UNPACK ANNOTATION(CARDS)                ENTER SUBROUTINE
          17007    86      252      2   0  0              0        252                                             SELECT SWITCH R
          17008    12               0   0  0              4                                                        SUBTRACT LITERAL
          17009    71      170     13   0  0              0        170     >NOT 'UNPACK ANNOTATION'                JUMP IF A != 0
          17010    50      7        6   0  0              0                                                        UNPACK FIXED FIELD DATA
          17011    C       175     16   0  0              0        175     UNPACK MT DETAILS                       
          17012    76      170     15   0  0              0        170                                             JUMP unconditional
    17009>17013    0       12       1   0  0              0                SET AMEND IND                           SELECT
          17014    5       1        6   0  0              0                                                        TRANSFER
    17012>17015    80      292      2   0  0              0        292     >READ NEXT PT BLOCK                     ENTER SUBROUTINE
          17016    80      172      2   0  0              0        172     >CHECK/EDIT/OUTPUT SECTION DETAIL       ENTER SUBROUTINE
          17017    82      170      2   0  0              0        170                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17100    PROCR   171       171                                                                           
          17102    81      171      2   0  0              0        171                                             START OF SUBROUTINE
          17103    43      A2       0   0  0              0                                                        OUTPUT
          17104    C       7        0   0  0              0                                                        
          17105    82      171      2   0  0              0        171                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17200    PROCR   172       172     CHECK/EDIT/WRITE SECTION DETAILS                                      
          17202    81      172      2   0  0              0        172                                             START OF SUBROUTINE
          17203    80      189      2   0  0              0        189     DELETE B/FWD REPORTS                    ENTER SUBROUTINE
          17204    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17205    C                0   0  0              4                                                        
          17206    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          17207    C                0   0  0              8                                                        
          17208    10               0   0  0              0                                                        SELECT LITERAL
          17209    5       1       44   1  0              0                CLEAR REPORT WORD                       TRANSFER
    17222>17210            1        2   0  1              0                                                        SELECT
          17211    2       181      3   0  2              0        181     LOWER LIMIT                             SUBTRACT
          17212    73      172     16   0  0              0        172     >REPORT                                 JUMP IF A < 0
          17213            181      2   0  2              0        181     UPPER LIMIT                             SELECT
          17214    2       1        2   0  1              0                                                        SUBTRACT
          17215    72      172     21   0  0              0        172     >OK                                     JUMP IF A >= 0
    17212>17216    96               0   0  1              0                                                        SELECT MODIFIER
          17217    11               0   0  0              1                                                        ADD LITERAL
    17230>17218    80      177      2   0  0              0        177     >REPORT S(NOMBER)                       ENTER SUBROUTINE
          17219    80      295      2   0  0              0        295     >IGNORE SECTION                         ENTER SUBROUTINE
          17220    76      172     44   0  0              0        172                                             JUMP unconditional
    17215>17221    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17222    94      172     10   0  2              2        172                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          17223            1        4   0  0              0                TX AREA IND                             SELECT
          17224    70      172     31   0  0              0        172     >NO                                     JUMP IF A == 0
          17225    4       92       6   0  0              0                AUG CTR                                 AUGMENT
  Source image: P1000140.JPG
          17226            92       6   0  0              0                                                        SELECT
          17227    12               0   0  0              9                                                        SUBTRACT LITERAL
          17228    73      172     31   0  0              0        172     >OK, NOT >8 TX AREAS                    JUMP IF A < 0
    17235>17229    10               0   0  0              5                                                        SELECT LITERAL
          17230    76      172     18   0  0              0        172     >REPORT, IGNORE                         JUMP unconditional
    17228>                                                                                                         
    17224>17231            1        2   0  0              0                                                        SELECT
          17232    80      183      2   0  0              0        183     >DECODE SEC NUMBER                      ENTER SUBROUTINE
          17233    34      12      40   0  0              0                                                        SET (N) IN B
          17234    36      12      72   0  3              0                                                        COLLATE AND ADD
          17235    71      172     29   0  0              0        172     >SECTION ALREADY USED                   JUMP IF A != 0
          17236    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          17237            12      40   0  0              0                                                        SELECT
          17238    4       12      72   0  3              0                SET '  AM A SECTION' IND                AUGMENT
          17239            1        4   0  0              0                                                        SELECT
          17240    70      172     44   0  0              0        172     >NOT TX AREA                            JUMP IF A == 0
          17241            12      40   0  0              0                                                        SELECT
          17242    31               0   0  0             10                                                        SHIFT (A) BY BITS
          17243    4       12      72   0  3              0                SET '  AM A TX AREA' IND                AUGMENT
    17240>                                                                                                         
    17220>17244    60               0   0  0              0                                                        SET DECIMAL RADIX
          17245    80      289      2   0  0              0        289     >WRITE PREVINS BLOCK                    ENTER SUBROUTINE
          17246    52      8        4   0  0              0                                                        EDIT
          17247    C       175     12   0  0              0        175                                             
          17248    10               0   0  0              1                                                        SELECT LITERAL
          17249    4       12       9   0  0              0                STEP SERIAL CTR                         AUGMENT
          17250    55      1       28   1  0             18                ANNOTATION                              BULK COPY
          17251    C       8       32   1  0              0                                                        
          17252    82      172      2   0  0              0        172                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17300    PROCR   173       173     TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION                   
          17302    81      173      2   0  0              0        173                                             START OF SUBROUTINE
          17303    80      294      2   0  0              0        294     >TEST AMEND DIRECTIVE/END               ENTER SUBROUTINE
          17304    70      173     12   0  0              0        173     >NO                                     JUMP IF A == 0
          17305            1        3   0  0              0                TOPCHAR OF SERIAL NUMBER                SELECT
          17306    30               0   0  0              3-                                                       SHIFT (A) BY QUARTETS
          17307    12               0   0  0             5‼                *                                       SUBTRACT LITERAL
          17308    70      173     11   0  0              0        173     >IS MOD TO SECTIONS                     JUMP IF A == 0
          17309    10               0   0  0              1                                                        SELECT LITERAL
          17310    5       12      45   0  0              0                                                        TRANSFER
    17308>17311    10               0   0  0              1                                                        SELECT LITERAL
    17304>17312    82      173      2   0  0              0        173     (A)=0 IF NOT DIRECTIVE                  END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17400    PROCR   174       174     TEST MT AT START OF CODING                                            
          17402    81      174      2   0  0              0        174                                             START OF SUBROUTINE
          17403            27       1   0  0              0                                                        SELECT
          17404    70      174      8   0  0              0        174     >SINGLE RECORD BLOCKS                   JUMP IF A == 0
          17405            7       12   1  0              0                DIRECTIVE WORD                          SELECT
    17409>17406    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          17407    82      174      2   0  0              0        174                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    17404>17408            7       10   1  0              0                                                        SELECT
          17409    76      174      6   0  0              0        174                                             JUMP unconditional
                                                                                                                   
          17500    TABLE   175       175     1                                                                     
          17501     NOTES                                                                                          
          17502     1     2     0     0  2  0   5   0   0   0  0  0  0     FILE IDENTITY==FILES LINE               
          17504     1     4     0     0  0  0   5   0   0   5  0  0  0     RTE TYPE                                
          17506     1     6     0     0  0  0   5   0   0   5  0  0  0     RETN PERIOD                             
          17508     1     8     0     0  0  0   5   0   0   5  0  0  0     MAX BLOCK                               
          17510     1    10     0     0  0  0   5   0   0   5  0  0  1     ALT ROUTE                               
  Source image: P1000141.JPG
          17512   319     8     0     0  2  0   1   0   0   0  0  0  0     *                                       
          17514    12     9     0     0  0  0   4   1   0   3  0  0  0     SECTION SERIAL NUMBER                   
          17516     1     2     0     0  0  0   5   0   0   4  0  0  0     SECTION==SECTION LINE                   
          17518     1     3     0     0  0  0   5   0   0   4  0  0  0     LENGTH                                  
          17520     1     4     0     0  0  0   5   0   0   4  0  0  0     TX AREA IND                             
          17522     1     5     0     0  0  0   5   0   0   4  0  0  0     CHAPTER                                 
          17524     1     6     0     0  0  0   5   0   0   5  0  0  1     AMEND IND                               
          17526     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          17528     1     2     0     0  2  0   5   0   0   0  0  0  1     'CHAPS'                                 
          17530    12     1     0     0  0  0   5   0   0   4  0  0  1     FOR UPDATED SERIAL                      
          17532     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          17534     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          17536     1     4     0     0  0  0   5   0   0   5  0  0  0                                             
          17538     1     6     0     0  0  0   5   0   0   4  0  0  0                                             
          17540     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL/CODER                            
          17542     1    10     0     0  1  0  10   0   0  10  0  0  0     (SPACER)                                
          17544     1    10     0     0  0  0   5   0   0   5  0  0  1     (SPACER)                                
                                                                                                                   
          17600    PROCR   176       176     CHECK PERFORATING IN PROGM BLOCK                                      
          17601     NOTES  176                                                                                     SELECT
          17602    81      176      2   0  0              0        176                                             START OF SUBROUTINE
          17603            1        4   0  0              0                SUITE                                   SELECT
          17604    12               0   0  0           1000                                                        SUBTRACT LITERAL
          17605    73      176      8   0  0              0        176     >OK                                     JUMP IF A < 0
          17606    10               0   0  0             41                                                        SELECT LITERAL
          17607    80      177      2   0  0              0        177     >REPORT*P1                              ENTER SUBROUTINE
    17605>17608            1        6   0  0              0                JOB                                     SELECT
          17609    12               0   0  0            100                                                        SUBTRACT LITERAL
          17610    73      176     13   0  0              0        176     >OK                                     JUMP IF A < 0
          17611    10               0   0  0             42                                                        SELECT LITERAL
          17612    80      177      2   0  0              0        177     >REPORT*P2                              ENTER SUBROUTINE
    17610>17613            1        4   0  0              0                                                        SELECT
          17614    1       1        6   0  0              0                                                        ADD
          17615    71      176     18   0  0              0        176     >OK                                     JUMP IF A != 0
          17616    10               0   0  0             43                                                        SELECT LITERAL
          17617    80      177      2   0  0              0        177     >REPORT*P3                              ENTER SUBROUTINE
    17615>17618            92      30   0  0              0                                                        SELECT
          17619    71      176     21   0  0              0        176     >AMEND RUN                              JUMP IF A != 0
          17620    5       1        8   1  0              0                CLEAR SERIAL NUMBER                     TRANSFER
    17619>17621    10               0   0  0              0                                                        SELECT LITERAL
          17622    5       12       2   0  0              0                CLEAR CTR                               TRANSFER
          17623    82      176      2   0  0              0        176                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17700    PROCR   177       177     ERROR REPORT SR                                                       
          17702    81      177      2   0  0              0        177                                             START OF SUBROUTINE
          17703    5       12       4   0  0              0                                                        TRANSFER
          17704    91      12       2   0  3              0                CTR                                     SET MODIFICATION REGISTER AT VARIABLE
          17705            319      8   1  0              0        319                         *                   SELECT
          17706    1       12       4   0  0              0                REPORT NUMBER                           ADD
          17707    1       12       3   0  0              0                REPORT LETTER                           ADD
          17708    5       1       38   1  3              0                                                        TRANSFER
          17709    12               0   0  0              2                                                        SUBTRACT LITERAL
          17710    4       12       2   0  0              0                REDUCE CTR                              AUGMENT
          17711    10               0   0  0              0                                                        SELECT LITERAL
          17712    82      177      2   0  0              0        177                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17800    PROCR   178       178     REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS                      
          17802    81      178      2   0  0              0        178     (12/119=DEC PROCR)                      START OF SUBROUTINE
          17803            12     119   0  0              0                                                        SELECT
          17804    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
  Source image: P1000142.JPG
          17805    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          17806    5       320     42   1  0              0        320                                             TRANSFER
          17807    91      320     42   0  1              0        320                                             SET MODIFICATION REGISTER AT VARIABLE
          17808    74      178     12   0  0              0        178     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          17809            18      50-  0  1              0                                                        SELECT
          17810    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          17811    76      178     14   0  0              0        178                                             JUMP unconditional
    17808>17812    34      319     20   0  0              0        319     BITS 1-10                               SET (N) IN B
          17813    36      18      50-  0  1              0                                                        COLLATE AND ADD
    17811>17814    80      244      2   0  0              0        244     >DEC                                    ENTER SUBROUTINE
          17815    82      178      2   0  0              0        178                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          17900    TABLE   179       179     3    UNPACK PROGM/ENTRY/SECTION                                       
          17901     NOTES                         SALE DESCRIPTION FROM P/T & CARDS                                
          17902     1     2     0     0  2  0   5   0   0   0  0  0  0     PROGM/ENTRY                             
          17904     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO/E POINT                        
          17906     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB NO/PRIORITY CLASS                   
          17908     1     8     0     0  2  0   5   0   0   0  0  0  0     SERIAL, VERSION, BLANK/CODER            
          17910     1    16     0     0  2  1   5   0   0   0  0  0  1     /////ANNOTATION/CHECKER                 
          17912    12    48     0     0  0  0   2   0   0   0  0  0  0     FILES DESCRIPTION-SERIAL NO             
          17914     1     2     0     0  2  0   2   0   0   0  0  0  0     FILE ID                                 
          17916     1     4     0     0  1  0   2   0   0   0  0  0  0     ROUTE TYPE                              
          17918     1     6     0     0  1  0   2   0   0   0  0  0  0     CHAPTER                                 
          17920     1     8     0     0  1  0   4   0   0   0  0  0  0     BLOCK LENGTH                            
          17922     1    10     0     0  1  0   4   0   0   0  0  0  0     ALT ROUTE IND                           
          17924     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
          17926    12    48     0     0  0  0   6   0   0   0  0  0  0     /////SERIAL-SEC DESCRIPTION             
          17928     1     2     0     0  0  0   2   0   0   0  0  0  0     SECTION NO                              
          17930     1     3     0     0  0  0   4   0   0   0  0  0  0     LENGTH                                  
          17932     1     4     0     0  0  0   1   0   0   0  0  0  0     TX?                                     
          17934     1     5     0     0  0  0   2   0   0   0  0  0  0     CHAP NO                                 
          17936     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
          17938     1     2     0     0  2  0   5   0   0   0  0  0  0     'AMEND'                                 
          17940     1     4     0     0  1  0   3   0   0   0  0  0  0     SUITE NO                                
          17942     1     6     0     0  1  0   2   0   0   0  0  0  0     JOB NO                                  
          17944     1     8     0     0  2  0   2   0   0   0  0  0  0     (ISSUE+SERIAL)/ISSUE                    
          17946     1    20     0     0  2  0   3   0   0   0  0  0  0     (WORDS ETC)/SERIAL                      
          17948     1    16     0     0  0  0   1   0   0   0  0  0  0     ''PRINT PASS 3'' IND                    
          17950     1    17     0     0  0  0   3   0   0   0  0  0  0     NEW ISSUE                               
          17952     1    18     0     0  2  0   1   0   0   0  0  0  1     PTS IND(CARDS)                          
                                                                                                                   
          18000    TABLE   180       180     3    UNPACK CHAPS BLOCK                                               
          18001     NOTES                         FROM CARDS                                                       
          18002     1     2     0     0  2  0   5   0   0   0  0  0  0     CHAPS'                                  
          18004     1     4     0     0  0  0   2   0   0   0  0  0  0     NO OF CHAPS                             
          18006     1     5     0     0  0  0   3   0   0   0  0  0  0     1-ST START                              
          18008     1     6     0     0  0  0   3   0   0   0  0  0  0     2-ND START                              
          18010     1     7     0     0  0  0   3   0   0   0  0  0  0                                             
          18012     1     8     0     0  0  0   3   0   0   0  0  0  0                                             
          18014     1     9     0     0  0  0   3   0   0   0  0  0  0                                             
          18016     1    10     0     0  0  0   3   0   0   0  0  0  0                                             
          18018     1    11     0     0  0  0   3   0   0   0  0  0  0                                             
          18020     1    12     0     0  0  0   3   0   0   0  0  0  0                                             
          18022     1    13     0     0  0  0   3   0   0   0  0  0  0                                             
          18024     1    14     0     0  0  0   3   0   0   0  0  0  0     10-TH START                             
          18026     1    15     0     0  0  0   3   0   0   0  0  0  0                                             
          18028     1    16     0     0  0  0   3   0   0   0  0  0  0                                             
          18030     1    17     0     0  0  0   3   0   0   0  0  0  0                                             
          18032     1    18     0     0  0  0   3   0   0   0  0  0  1     14-TH START                             
                                                                                                                   
  Source image: P1000143.JPG
          18100    CONST   181       181     1    FUNCTIONAL                                                       
          18102          (D)100099;                                        UPPER/LOWER LIM SEC NUMBER              
          18104          4096;                                             DO LENGTH                               
          18106          1;                                                DO TX AREA IND                          
          18108          0;                                                DO CHAP NUMBER                          
          18110          1£1£1£1£1£;                                                                               
          18112          (A)PROGM;                                                                                 
          18114          ENTRY;                                                                                    
          18116          AMEND;                                                                                    
          18118          CHAPS;                                                                                    
          18120          PASSI;                                                                                    
          18122          STORE;                                                                                    
                                                                                                                   
          18200    CONST   182       182     1    DUMMY                                                            
          18202          (B)0;                                                                                     
          18204          ;                                                                                         
          18206          ;                                                                                         
          18208          ;                                                                                         
          18210          ;                                                                                         
                                                                                                                   
          18300    PROCR   183       183     DECODE SECTION NUMBER                                                 
          18301     NOTES          RADIX     D    BITS 1-10 OF 10 LOCATIONS                                        SELECT
          18302    81      183      2   0  0              0        183                                             START OF SUBROUTINE
          18303    70      183     11   0  0              0        183     >ZERO SECTION                           JUMP IF A == 0
          18304    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          18305    92               0   0  3              0                SET MODIFIER=LOCN   CLEAR A             SET MODIFIER AT VARIABLE
          18306    32               0   0  0              1                REMAINDER                               SHIFT (AB) BY QUARTETS
          18307    5       12      40   0  0              0                WL                                      TRANSFER
          18308    10               0   0  0              1                                                        SELECT LITERAL
          18309    124     12      40   0  0              0                                                        modify address of next
          18310    31               0   0  0              0                /////                                   SHIFT (A) BY BITS
    18303>18311    5       12      40   0  0              0                STORE COLLATION BIT                     TRANSFER
          18312    82      183      2   0  0              0        183                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18400    CONST   184       184     1    DUMMY                                                            
                                                                                                                   
          18500    PROCR   185       185     MAIN LOOP-DEAL WITH INITIAL TRANSLATION                               
          18501     NOTES          RADIX                                                                           SELECT
    16821>                                                                                                         
    16809>                                                                                                         
    16715>                                                                                                         
    16633>18502    55      18       0   0  0           1010                COPY CURRENT AMEND DETAILS              BULK COPY
          18503    C       93       0   0  0              0                                                        
          18504    54      29       0   1  0             44                                                        BULK CLEAR
          18505    83      191      2   0  0              2        191     SAFETY SETTINGS                         SET SWITCH(ES) AT LITERAL VALUE
          18506    10               0   0  0              1                                                        SELECT LITERAL
          18507    5       27       5   0  0              0                UNPACK SWITCH                           TRANSFER
          18508    0       92      30   0  0              0                                                        SELECT
          18509    3       12       8   1  0              0                (CLEAR 12/9)                            COPY
          18510    70      185     14   0  0              0        185     >INITIAL TRANSLATION                    JUMP IF A == 0
          18511    59      7        6   0  8              0                SET I/P MR                              SET MODIFICATION REGISTER FOR MERGE
          18512    C       7        4   2  0              0                                                        
          18513    76      251      2   0  0              0        251                                             JUMP unconditional
    18510>18514    10               0   0  0              1                                                        SELECT LITERAL
          18515    5       12      33   0  0              0                SET 'PT INS INPUT'                      TRANSFER
    18534>18516            9        4   1  0              0                                                        SELECT
          18517    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          18518    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          18519    2       319     14   1  0              0        319     'END  '                                 SUBTRACT
          18520    70      322      2   0  0              0        322     >END OF INITIAL TRANSLATION             JUMP IF A == 0
  Source image: P1000144.JPG
          18521            9        4   1  0              0                                                        SELECT
          18522    2       319     46   1  0              0        319     'TRAMD'                                 SUBTRACT
          18523    70      322      2   0  0              0        322                                             JUMP IF A == 0
          18524    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          18525    C       185     27   0  0              0        185     >PT                                     
          18526    C       185     29   0  0              0        185     >CARDS                                  
    18525>18527            9        4   1  0              0                                                        SELECT
          18528    76      185     30   0  0              0        185                                             JUMP unconditional
    18526>18529            9        8   1  0              0                                                        SELECT
    18528>18530    80      287      2   0  0              0        287     >TEST STACK DIRECTIVE                   ENTER SUBROUTINE
          18531    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          18532    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          18533    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          18534    76      185     16   0  0              0        185     >LOOP TILL END                          JUMP unconditional
                                                                                                                   
          18600    PROCR   186       186     START OF CHECK/EDIT/OUTPUT SR                                         
          18601     NOTES          RADIX                                                                           SELECT
          18602    81      186      2   0  0              0        186                                             START OF SUBROUTINE
          18603            12      38   0  0              0                STACKING DIRECTIVE                      SELECT
          18604    70      190      2   0  0              0        190     NO                                      JUMP IF A == 0
          18605    72      191      2   0  0              0        191     >'NOTES' BLOCK                          JUMP IF A >= 0
          18606            12      61   0  0              0                C-LINE MUST FOLLOW                      SELECT
          18607    70      186      9   0  0              0        186     INDICATOR                               JUMP IF A == 0
          18608    80      296      2   0  0              0        296     IGNORE THIS INSTRUCTION                 ENTER SUBROUTINE
    18607>18609            12      54   0  0              0                                                        SELECT
          18610    12               0   0  0             55                                                        SUBTRACT LITERAL
          18611    70      186     14   0  0              0        186                                             JUMP IF A == 0
          18612    10               0   0  0              0                                                        SELECT LITERAL
          18613    5       12      60   1  0              0                                                        TRANSFER
    18611>18614    5       12       9   0  0              0                                                        TRANSFER
          18615    5       12      43   0  0              0                CLEAR LINE INCREMENT FOR 'SER' CHECKS   TRANSFER
          18616            92      30   0  0              0                                                        SELECT
          18617    71      186     22   0  0              0        186     >AMEND RUN                              JUMP IF A != 0
          18618            9       50   2  0              0                PASS 0 DOESN'T LIKE IT' IND             SELECT
          18619    70      186     22   0  0              0        186     >OK                                     JUMP IF A == 0
          18620            319     40   1  0              0        319     ????R'                                  SELECT
          18621    5       1       44   1  0              0                                                        TRANSFER
    18619>                                                                                                         
    18617>18622            27       5   0  0              0                                                        SELECT
          18623    12               0   0  0              4                                                        SUBTRACT LITERAL
          18624    70      187     38   0  0              0        187     >VALUE (DIRECTIVE OR DATA)              JUMP IF A == 0
          18625            92       3   0  0              0                                                        SELECT
          18626    11               0   0  0              1                FORM TRANSLATORS PROCR                  ADD LITERAL
          18627    3       92       3   0  0              0                                                        COPY
          18628    3       12       0   0  0              0                                                        COPY
          18629    5       12       4   0  0              0                                                        TRANSFER
                                                                                                                   
          18700    PROCR   187       187     TEST NEW CHAPTER                                                      
          18702            1        8   2  0              0                                                        SELECT
          18703    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          18704    3       1       14   0  0              0                B/FWD PROCR                             COPY
          18705    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          18706    C       202      2   0  0              0        202                                             
          18707    2       92       3   0  0              0                                                        SUBTRACT
          18708    70      187     11   0  0              0        187     >OK PASS 0 HASN'T BOOBED                JUMP IF A == 0
          18709            319     40   1  0              0        319     ????R'                                  SELECT
          18710    5       1       44   1  0              0                                                        TRANSFER
    18708>18711    52      1        8   0  0              0                EDIT NEW PROCR                          EDIT
          18712    C       306      2   0  0              0        306                                             
  Source image: P1000145.JPG
          18713            27       4   0  0              0                                                        SELECT
          18714    71      187     19   0  0              0        187     >COMPILER.DONT SET IND                  JUMP IF A != 0
          18715            1       14   0  0              0                OLD                                     SELECT
          18716    2       12       4   0  0              0                NEW                                     SUBTRACT
          18717    70      187     19   0  0              0        187     >PROCR DOESNT CHANGE                    JUMP IF A == 0
          18718    80      188      2   0  0              0        188     >SET 'PRINT PROCR'                      ENTER SUBROUTINE
    18717>                                                                                                         
    18714>18719            92       3   0  0              0                                                        SELECT
          18720    12               0   0  0            100                                                        SUBTRACT LITERAL
          18721    71      187     25   0  0              0        187     >NOT FIRST TIME THROUGH                 JUMP IF A != 0
          18722    0       12       0   0  0              0                FIRST CODERS PROCR                      SELECT
          18723    5       12      14   0  0              0                SET AS FIRST CHAP START                 TRANSFER
          18724    76      187     33   0  0              0        187                                             JUMP unconditional
    18721>18725            12      14   0  4              0                                                        SELECT
          18726    2       12       0   0  0              0                                                        SUBTRACT
          18727    71      187     38   0  0              0        187     >THIS PROCR IS NOT A CHAPTER START      JUMP IF A != 0
          18728            92       3   0  0              0                                                        SELECT
          18729    12               0   0  0              1                                                        SUBTRACT LITERAL
          18730    80      245      2   0  0              0        245     >CHAP END IN BIN                        ENTER SUBROUTINE
          18731    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          18732    4       92       9   0  4              0                STORE CHAP END POINT                    AUGMENT
    18724>18733    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          18734    10               0   0  0              1                                                        SELECT LITERAL
          18735    4       92       0   0  0              0                STEP UNCORR CHAP IN BIN                 AUGMENT
          18736    60               0   0  0              0                                                        SET DECIMAL RADIX
          18737    94               0   0  4              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    18727>                                                                                                         
    18624>18738    83      191      2   0  0              1        191     SET CHECK SWITCH FOR DIRECTIVES         SET SWITCH(ES) AT LITERAL VALUE
          18739    76      191      2   0  0              0        191                                             JUMP unconditional
                                                                                                                   
          18800    PROCR   188       188     SET IND IN SEC 23 IF PROCR TO BE PRINTED                              
          18802    81      188      2   0  0              0        188                                             START OF SUBROUTINE
          18803            92       3   0  0              0                CURRENT PROCR                           SELECT
          18804    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
          18805    19               0   0  0             14                                                        DIVIDE LITERAL
          18806    5       320     42   0  0              0        320                                             TRANSFER
          18807    32               0   0  0              9                                                        SHIFT (AB) BY QUARTETS
          18808    5       320     43   0  0              0        320     REMAINDER                               TRANSFER
          18809    34      320     22   0  0              0        320     1                                       SET (N) IN B
          18810    124     320     43   0  1              0        320                                             modify address of next
          18811    33               0   0  0              0                /////                                   SHIFT (AB) BY BITS
          18812            320     20   0  0              0        320     £X5                                     SELECT
          18813    124     320     42   0  1              0        320                                             modify address of next
          18814    37      23       5-  0  0              0                SET BIT                                 REPLACE SELECTED BITS
          18815    60               0   0  0              0                                                        SET DECIMAL RADIX
          18816    82      188      2   0  0              0        188                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          18900    PROCR   189       189     CHECK FOR B/FWD ERROR REPORTS                                         
          18901     NOTES                    0                                                                     SELECT
          18902    81      189      2   0  0              0        189                                             START OF SUBROUTINE
          18903            1       42   1  0              0                LAST  5 CHARS OF ANNOTATION             SELECT
          18904    2       319     26   1  0              0        319      '?????'                                SUBTRACT
          18905    70      189     12   0  0              0        189                                             JUMP IF A == 0
          18906            1       42   1  0              0                                                        SELECT
          18907    12               0   0  0     5£5£5£5£5£                FIVE SQUARES                            SUBTRACT LITERAL
          18908    70      189     12   0  0              0        189                                             JUMP IF A == 0
          18909            1       42   1  0              0                                                        SELECT
          18910    2       319     24   1  0              0        319      'SHEET'                                SUBTRACT
          18911    71      189     13   0  0              0        189                                             JUMP IF A != 0
    18908>                                                                                                         
  Source image: P1000146.JPG
    18905>18912    5       1       42   1  0              0                CLEAR OUT REPORT                        TRANSFER
    18911>18913    82      189      2   0  0              0        189                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19000    PROCR   190       190     CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION                    
          19001     NOTES          RADIX                                                                           SELECT
    18604>19002            92      30   0  0              0                                                        SELECT
          19003    71      191      2   0  0              0        191                                             JUMP IF A != 0
          19004    34      1        2   1  0              0                RIGHT ALIGN                             SET (N) IN B
          19005    80      321      2   0  0              0        321     SERIAL NO                               ENTER SUBROUTINE
          19006            12      88   2  0              0                                                        SELECT
          19007    2       12      43   0  0              0                                                        SUBTRACT
          19008    70      190     14   0  0              0        190     SERIAL NO IS IN FACT SERIAL             JUMP IF A == 0
          19009    86      191      2   0  0              0        191                                             SELECT SWITCH R
          19010    12               0   0  0              6                                                        SUBTRACT LITERAL
          19011    72      191      2   0  0              0        191     >NO CHECK ON PM+TRIAL DATA              JUMP IF A >= 0
          19012    10               0   0  0         725569                PUT'SER' IN ERROR INDICATOR             SELECT LITERAL
          19013    5       1       44   1  0              0                                                        TRANSFER
    19008>19014            12      88   2  0              0                STORE THIS SERIAL NO                    SELECT
          19015    1       12      90   0  0              0                >LONG/SHORT COUNTER                     ADD
          19016    11               0   0  0              1                1                                       ADD LITERAL
          19017    5       12      43   0  0              0                TO TEST NEXT INSTRUCTION                TRANSFER
                                                                                                                   
          19100    PROCR   191       191     SWITCH B                                                              
          19101     NOTES          RADIX                                                                           SELECT
    19011>                                                                                                         
    19003>                                                                                                         
    18739>                                                                                                         
    18605>19102    80      189      2   0  0              0        189     >DELETE B/FWD ERROR REPORTS             ENTER SUBROUTINE
    20712>19103            12      33   0  0              0                                                        SELECT
          19104    70      191      9   0  0              0        191     >EX MT                                  JUMP IF A == 0
          19105            92      30   0  0              0                                                        SELECT
          19106    70      191      9   0  0              0        191                                             JUMP IF A == 0
          19107    80      188      2   0  0              0        188     >SET'PRINT PROCR'                       ENTER SUBROUTINE
          19108    10               0   0  0              0                                                        SELECT LITERAL
    19106>                                                                                                         
    19104>19109    85      191      2   0  0              0        191                                             SWITCH R
          19110    C       205      2   0  0              0        205     STACKING DIRECTIVE                      
          19111    C       210      2   0  0              0        210     INSTRUCTIONS                            
          19112    C       276      2   0  0              0        276     TABLES                                  
          19113    C       260      2   0  0              0        260     CONSTANTS                               
          19114    C       191     15   0  0              0        191     VALUE'=5                                
    19114>19115    0       1        9   0  0              0                REF                                     SELECT
          19116    34      1       10   0  0              0                                                        SET (N) IN B
          19117    74      191     23   0  0              0        191     ZERO REF & ITEM                         JUMP IF AB == 0        // 27, 1, 0
          19118    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          19119    0       12       4   0  0              0                                                        SELECT
          19120    5       1        9   0  0              0                NEW REF                                 TRANSFER
          19121    80      277      2   0  0              0        277     CHECK ADJUSTED REF                      ENTER SUBROUTINE
          19122    76      247      2   0  0              0        247     >EDIT AND OUTPUT                        JUMP unconditional
    19117>19123    85      108      2   0  0              0        108                                             SWITCH R
          19124    C       247      2   0  0              0        247     >LAST REF/ITEM CORRECT                  
          19125    C       191     26   0  0              0        191     >LAST REF/ITEM IGNORED                  
    19125>19126    80      195      2   0  0              0        195     REPORT R                                ENTER SUBROUTINE
          19127    80      295      2   0  0              0        295     IGNORE THIS LINE                        ENTER SUBROUTINE
          19128    76      247      2   0  0              0        247     >EDIT AND OUTPUT                        JUMP unconditional
                                                                                                                   
          19200    PROCR   192       192     CHECK I IS EVEN,REPORT IF NOT                                         
          19201     NOTES          0         0                                                                     SELECT
          19202    81      192      2   0  0              0        192                                             START OF SUBROUTINE
          19203    5       245      2   0  0              0        245     ITEM TO WL=SR LINK                      TRANSFER
  Source image: P1000147.JPG
          19204    10               0   0  0              1                                                        SELECT LITERAL
          19205    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          19206    36      245      2   0  0              0        245                                             COLLATE AND ADD
          19207    70      192      9   0  0              0        192     >OK                                     JUMP IF A == 0
          19208    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
    19207>19209    82      192      2   0  0              0        192                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19300    PROCR   193       193     ERROR REPORT OF D                                                     
          19301     NOTES  193                                                                                     SELECT
          19302    81      193      2   0  0              0        193                                             START OF SUBROUTINE
          19303    10               0   0  0             54                D                                       SELECT LITERAL
          19304    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19305    82      193      2   0  0              0        193                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19400    PROCR   194       194     ERROR REPORT OF M                                                     
          19401     NOTES  194                                                                                     SELECT
          19402    81      194      2   0  0              0        194                                             START OF SUBROUTINE
          19403    10               0   0  0             64                M                                       SELECT LITERAL
          19404    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19405    82      194      2   0  0              0        194                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19500    PROCR   195       195     ERROR REPORT OF R                                                     
          19501     NOTES  195                                                                                     SELECT
          19502    81      195      2   0  0              0        195                                             START OF SUBROUTINE
          19503    10               0   0  0             69                                                        SELECT LITERAL
          19504    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19505    82      195      2   0  0              0        195                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19600    PROCR   196       196     ERROR REPORT OF I                                                     
          19601     NOTES  196                                                                                     SELECT
          19602    81      196      2   0  0              0        196                                             START OF SUBROUTINE
          19603    10               0   0  0             59                I                                       SELECT LITERAL
          19604    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19605    82      196      2   0  0              0        196                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19700    PROCR   197       197     ERROR REPORT OF L                                                     
          19701     NOTES  197                                                                                     SELECT
          19702    81      197      2   0  0              0        197                                             START OF SUBROUTINE
          19703    10               0   0  0             63                L                                       SELECT LITERAL
          19704    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19705    82      197      2   0  0              0        197                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19800    PROCR   198       198     ERROR REPORT OF T                                                     
          19801     NOTES  198                                                                                     SELECT
          19802    81      198      2   0  0              0        198                                             START OF SUBROUTINE
          19803    10               0   0  0             73                T                                       SELECT LITERAL
          19804    80      199      2   0  0              0        199                                             ENTER SUBROUTINE
          19805    82      198      2   0  0              0        198                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          19900    PROCR   199       199     MAKE ERROR REPORT                                                     
          19901     NOTES  199                                                                                     SELECT
          19902    81      199      2   0  0              0        199                                             START OF SUBROUTINE
          19903    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          19904            1       44   1  0              0                TEST REPORT ALREADY MADE                SELECT
          19905    30               0   0  0              2-               WITH '????'                             SHIFT (A) BY QUARTETS
          19906    12               0   0  0       5:5:5:5:                                                        SUBTRACT LITERAL
          19907    70      199     20   0  0              0        199     >YES,DON'T CORRUPT IT                   JUMP IF A == 0
          19908            1       44   1  0              0                                                        SELECT
          19909    12               0   0  0         725569                 'SER'                                  SUBTRACT LITERAL
          19910    71      199     12   0  0              0        199                                             JUMP IF A != 0
  Source image: P1000148.JPG
          19911    5       1       44   1  0              0                LET OTHERS TAKE PRECEDENCE              TRANSFER
    19910>19912    10               0   0  0              0                                                        SELECT LITERAL
          19913    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          19914    124     12     115   1  2              0                                                        modify address of next
          19915    30               0   0  0              0                /////                                   SHIFT (A) BY QUARTETS
          19916    4       1       44   1  0              0                                                        AUGMENT
          19917    10               0   0  0              2                                                        SELECT LITERAL
          19918    1       12     115   0  0              0                                                        ADD
          19919    5       12     115   0  0              0                                                        TRANSFER
    19907>19920    82      199      2   0  0              0        199                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20000    PROCR   200       200     REPLACE CODERS PROCR TO C/FWD VALUE                                   
          20002    81      200      2   0  0              0        200                                             START OF SUBROUTINE
          20003    3       12     119   0  0              0                                                        COPY
          20004    3       12     118   0  0              0                                                        COPY
          20005    12               0   0  0            100                                                        SUBTRACT LITERAL
          20006    73      200     27   0  0              0        200     >EX RANGE                               JUMP IF A < 0
          20007    12               0   0  0            899                                                        SUBTRACT LITERAL
          20008    72      200     27   0  0              0        200     >DON'T REPLACE                          JUMP IF A >= 0
          20009            12      33   0  0              0                                                        SELECT
          20010    71      200     21   0  0              0        200     >EX PT                                  JUMP IF A != 0
          20011            27       0   0  0              0                                                        SELECT
          20012    71      200     21   0  0              0        200     >ISSUE 6 O/P                            JUMP IF A != 0
          20013            27       4   0  0              0                                                        SELECT
          20014    71      200     21   0  0              0        200     >COMPILER CALLED TRANSLATOR             JUMP IF A != 0
          20015    80      201      2   0  0              0        201     >REPLACE EX ISSUE 5                     ENTER SUBROUTINE
          20016    71      200     19   0  0              0        200     >OK                                     JUMP IF A != 0
          20017    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          20018    76      200     21   0  0              0        200                                             JUMP unconditional
    20016>20019    3       12     119   0  0              0                                                        COPY
          20020    5       12     118   0  0              0                                                        TRANSFER
    20018>                                                                                                         
    20014>                                                                                                         
    20012>                                                                                                         
    20010>20021    80      1001     0   0  0              0                >REPLACE EX ISSUE 6                     ENTER SUBROUTINE
          20022    71      200     26   0  0              0        200     >OK                                     JUMP IF A != 0
          20023            319     40   1  0              0        319      '????R'                                SELECT
          20024    5       1       44   1  0              0                                                        TRANSFER
          20025    82      200      2   0  0              0        200                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20022>20026    3       12     119   0  0              0                                                        COPY
    20008>                                                                                                         
    20006>20027    82      200      2   0  0              0        200                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20100    PROCR   201       201     REPLACE CODERS PROCR-ISSUE 5 O/P                                      
          20102    81      201      2   0  0              0        201     (12/119)=DEC PROCR                      START OF SUBROUTINE
          20103            27       2   0  0              0                                                        SELECT
          20104    70      201      7   0  0              0        201     >NOT PSEUDO-ISSUE 5 O/P                 JUMP IF A == 0
          20105            12     119   0  0              0                REPLACEMENT=ITSELF                      SELECT
          20106    76      201     23   0  0              0        201                                             JUMP unconditional
    20104>20107            12     119   0  0              0                                                        SELECT
          20108    12               0   0  0            600                                                        SUBTRACT LITERAL
          20109    72      201     24   0  0              0        201     >OUT OF RANGE                           JUMP IF A >= 0
          20110            12     119   0  0              0                                                        SELECT
          20111    80      245      2   0  0              0        245     >TO BIN                                 ENTER SUBROUTINE
          20112    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          20113    5       245      2   0  0              0        245     SR LINK                                 TRANSFER
          20114    74      201     19   0  0              0        201     >EVEN                                   JUMP IF AB == 0        // 27, 1, 0
          20115    124     245      2   0  1              0        245                                             modify address of next
          20116            53      50-  0  0              0                                                        SELECT
          20117    31               0   0  0             10-                                                       SHIFT (A) BY BITS
  Source image: P1000149.JPG
          20118    76      201     22   0  0              0        201                                             JUMP unconditional
    20114>20119    34      319     20   0  0              0        319     BITS 1 -10                              SET (N) IN B
          20120    124     245      2   0  1              0        245                                             modify address of next
          20121    36      53      50-  0  0              0                                                        COLLATE AND ADD
    20118>20122    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
    20106>20123    82      201      2   0  0              0        201                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20109>20124    10               0   0  0              0                                                        SELECT LITERAL
          20125    82      201      2   0  0              0        201                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20200    PROCR   202       202     REPLACE CODERS PROCR-ISSUE 6 O/P                                      
          20202    81      202      2   0  0              0        202     (12/119-DEC PROCR)                      START OF SUBROUTINE
          20203            12     119   0  0              0                                                        SELECT
          20204    80      245      2   0  0              0        245     > TO BIN                                ENTER SUBROUTINE
          20205    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          20206    5       245      2   0  0              0        245                                             TRANSFER
          20207    74      202     12   0  0              0        202     > EVEN                                  JUMP IF AB == 0        // 27, 1, 0
          20208    124     245      2   0  1              0        245                                             modify address of next
          20209            93      50-  0  0              0                                                        SELECT
          20210    31               0   0  0             10-                                                       SHIFT (A) BY BITS
          20211    76      202     15   0  0              0        202                                             JUMP unconditional
    20207>20212    34      319     20   0  0              0        319     BITS 1 -10                              SET (N) IN B
          20213    124     245      2   0  1              0        245                                             modify address of next
          20214    36      93      50-  0  0              0                                                        COLLATE AND ADD
    20211>20215    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
          20216    82      202      2   0  0              0        202                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20300    PROCR   203       203     ADJUST SR-ISSUE 5 O/P                                                 
          20302    81      203      2   0  0              0        203     (A) = SERIAL TO BE ADJUSTED             START OF SUBROUTINE
          20303    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20304    C                0   0  0            160                                                        
          20305    5       12      58   0  0              0                                                        TRANSFER
          20306    5       12      46   0  0              0                                                        TRANSFER
          20307    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20308    36      12      58   0  0              0                                                        COLLATE AND ADD
          20309    5       12      30   0  0              0                STORE PROCR                             TRANSFER
    20316>20310    36      54       0   0  1              0                                                        COLLATE AND ADD
          20311    70      203     17   0  0              0        203     > END                                   JUMP IF A == 0
          20312    2       12      30   0  0              0                                                        SUBTRACT
          20313    70      203     20   0  0              0        203     > PROCR MATCHES                         JUMP IF A == 0
          20314    72      203     17   0  0              0        203     > POINT PASSED      END                 JUMP IF A >= 0
    20322>                                                                                                         
    20325>20315    10               0   0  0              0                                                        SELECT LITERAL
          20316    94      203     10   0  1              2        203                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20314>                                                                                                         
    20311>20317            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          20318    1       12      58   0  0              0                                                        ADD
          20319    82      203      2   0  0              0        203                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20313>20320            12      58   0  0              0                SEARCH WITHIN PROCR                     SELECT
          20321    2       54       0   0  1              0                                                        SUBTRACT
          20322    73      203     15   0  0              0        203     > NOT FOR THIS POINT IN PROCR           JUMP IF A < 0
          20323            54       1   0  1              0                                                        SELECT
          20324    4       12      46   0  0              0                FORM TOTAL ADJUSTMENT                   AUGMENT
          20325    76      203     15   0  0              0        203                                             JUMP unconditional
                                                                                                                   
          20400    PROCR   204       204     ADJUST SR-ISSUE 6 O/P                                                 
          20402    81      204      2   0  0              0        204                                             START OF SUBROUTINE
          20403    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20404    C                0   0  0            460                                                        
          20405    10               0   0  0              0                (12/58)= SERIAL TO BE ADJUSTED          SELECT LITERAL
          20406    5       12      46   0  0              0                CLEAR FOR TOTAL ADJUSTMENT              TRANSFER
  Source image: P1000150.JPG
          20407    35               0   0  0          11100                                                        PREPARE FOR DIGIT COLLATION
          20408    36      12      58   0  0              0                                                        COLLATE AND ADD
          20409    5       12      30   0  0              0                PROCR                                   TRANSFER
    20422>20410    36      97       0   0  1              0                                                        COLLATE AND ADD
          20411    70      204     23   0  0              0        204     > END                                   JUMP IF A == 0
          20412    2       12      30   0  0              0                                                        SUBTRACT
          20413    73      204     21   0  0              0        204     > SEARCH                                JUMP IF A < 0
          20414    71      204     23   0  0              0        204     > END                                   JUMP IF A != 0
          20415            97       0   0  1              0                                                        SELECT
          20416    2       12      58   0  0              0                                                        SUBTRACT
          20417    70      204     19   0  0              0        204                                             JUMP IF A == 0
          20418    72      204     32   0  0              0        204     > NEXT ADJUST POINT IN PROCR IS LATER   JUMP IF A >= 0
    20417>20419            97       1   0  1              0                                                        SELECT
          20420    4       12      46   0  0              0                                                        AUGMENT
    20413>20421    10               0   0  0              0                                                        SELECT LITERAL
          20422    94      204     10   0  1              2        204                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20434>                                                                                                         
    20440>                                                                                                         
    20442>                                                                                                         
    20444>                                                                                                         
    20446>                                                                                                         
    20449>                                                                                                         
    20414>                                                                                                         
    20411>20423    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          20424            12      46   0  0              0                TOTAL ADJUSTMENT                        SELECT
          20425    36      12      58   0  0              0                                                        COLLATE AND ADD
          20426    3       12      58   0  0              0                NEW ITEM                                COPY
          20427    12               0   0  0            100                                                        SUBTRACT LITERAL
          20428    73      204     31   0  0              0        204                                             JUMP IF A < 0
          20429            319     42   1  0              0        319      '???? '                                SELECT
          20430    5       1       44   1  0              0                REPORT WRITTEN ITEM >99                 TRANSFER
    20428>20431    82      204      2   0  0              0        204                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    20418>20432    1       97       1   0  1              0                QUANTITY (+ -)                          ADD
          20433    70      204     35   0  0              0        204     > ADDRESS DELETED                       JUMP IF A == 0
          20434    72      204     23   0  0              0        204     > NEXT IS INSERTION                     JUMP IF A >= 0
    20433>20435    0       1        7   0  0              0                                                        SELECT
          20436    12               0   0  0          53000                                                        SUBTRACT LITERAL
          20437    70      204     47   0  0              0        204     > C-LINE REPORT                         JUMP IF A == 0
          20438            12      54   0  0              0                BIN ACTION                              SELECT
          20439    101             83   1  2              0                                                        subtract literal address
          20440    70      204     23   0  0              0        204     > 83 DON'T REPORT                       JUMP IF A == 0
          20441    101              1   1  2              0                                                        subtract literal address
          20442    70      204     23   0  0              0        204     > 84                                    JUMP IF A == 0
          20443    101              1   1  2              0                                                        subtract literal address
          20444    70      204     23   0  0              0        204     > 85                                    JUMP IF A == 0
          20445    101              1   1  2              0                                                        subtract literal address
          20446    70      204     23   0  0              0        204     > 86                                    JUMP IF A == 0
    20437>20447            319     44   1  0              0        319      '???? DELTA'                           SELECT
          20448    5       1       44   1  0              0                                                        TRANSFER
          20449    76      204     23   0  0              0        204                                             JUMP unconditional
                                                                                                                   
          20500    PROCR   205       205     DEAL WITH PROCR/TABLE/CONST                                           
          20501     NOTES          RADIX                                                                           SELECT
    19110>20502            1        6   1  0              0                                                        SELECT
          20503    2       319      6   1  0              0        319     PROCR                                   SUBTRACT
          20504    71      205      7   0  0              0        205     NO                                      JUMP IF A != 0
          20505    5       12      90   1  0              0                                                        TRANSFER
          20506    76      247      2   0  0              0        247     FORM SERIAL                             JUMP unconditional
    20504>20507            1        6   1  0              0                                                        SELECT
          20508    2       319      2   1  0              0        319     TABLE                                   SUBTRACT
  Source image: P1000151.JPG
          20509    71      206      5   0  0              0        206     NO                                      JUMP IF A != 0
          20510    10               0   0  0         100001                SET LONG/SHORT                          SELECT LITERAL
          20511    5       12      90   1  0              0                COUNTER                                 TRANSFER
          20512    34      1       16   1  0              0                TABLE TYPE                              SET (N) IN B
          20513    80      321      2   0  0              0        321     >RIGHT ALIGN                            ENTER SUBROUTINE
          20514    0       12      88   2  0              0                                                        SELECT
          20515    73      205     20   0  0              0        205     TABLE TYPE IS                           JUMP IF A < 0
          20516    3       12      59   0  0              0                                                        COPY
          20517    70      205     20   0  0              0        205                                             JUMP IF A == 0
          20518    12               0   0  0              5                                                        SUBTRACT LITERAL
          20519    73      206      2   0  0              0        206                                             JUMP IF A < 0
    20517>                                                                                                         
    20515>20520    83      278      8   0  0              5        278     TABLE TYPE IS OUT                       SET SWITCH(ES) AT LITERAL VALUE
          20521    76      282     29   0  0              0        282                                             JUMP unconditional
                                                                                                                   
          20600    PROCR   206       206                                                                           
          20601     NOTES          RADIX                                                                           SELECT
    20519>20602    84      278      8   0  0              0        278     SET TABLE CHECKING                      SET SWITCH(ES) AT VARIABLE VALUE
          20603    C       12      59   0  0              0                SWITCH ACCORDING TO                     
          20604    76      247      2   0  0              0        247     FORM SERIAL NO.                         JUMP unconditional
    20509>20605            1        6   1  0              0                                                        SELECT
          20606    2       319      4   1  0              0        319     CONST                                   SUBTRACT
          20607    71      206     25   0  0              0        206     >NO                                     JUMP IF A != 0
          20608    54      94      60   0  0             40                                                        BULK CLEAR
          20609    34      318      3   0  0              0        318     BIT 17                                  SET (N) IN B
          20610    36      1       16   2  0              0                                                        COLLATE AND ADD
          20611    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          20612    3       12      90   0  0              0                LONG/SHORT IND                          COPY
          20613    71      206     15   0  0              0        206     >LONG                                   JUMP IF A != 0
          20614    10               0   0  0             30                ALPHA ZERO                              SELECT LITERAL
    20613>20615    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          20616    35               0   0  0          11000                                                        PREPARE FOR DIGIT COLLATION
          20617    37      1       17   0  0              0                                                        REPLACE SELECTED BITS
          20618    76      206     21   0  0              0        206     SET ALPHA 0 OR 1                        JUMP unconditional
          20619    10               0   0  0              1                                                        SELECT LITERAL
          20620    3       12      90   0  0              0                                                        COPY
    20618>20621    83      263      2   0  0              1        263     SAFETY VALUE                            SET SWITCH(ES) AT LITERAL VALUE
          20622    10               0   0  0              4                SET CHECK SWITCH                        SELECT LITERAL
          20623    84      191      2   0  0              0        191                                             SET SWITCH(ES) AT VARIABLE VALUE
          20624    76      247      2   0  0              0        247     >O/P                                    JUMP unconditional
    20607>20625    0       1        6   1  0              0                                                        SELECT
          20626    2       319     28   1  0              0        319      'VALUE'                                SUBTRACT
          20627    71      207      2   0  0              0        207     >HENCE 'NOTES'                          JUMP IF A != 0
          20628    10               0   0  0              5                                                        SELECT LITERAL
          20629    84      191      2   0  0              0        191                                             SET SWITCH(ES) AT VARIABLE VALUE
          20630    5       12      90   1  0              0                CLEAR IND=SHORT                         TRANSFER
          20631    76      247      2   0  0              0        247     O/P                                     JUMP unconditional
                                                                                                                   
          20700    PROCR   207       207     DEAL WITH NOTES                                                       
          20701     NOTES          RADIX                                                                           SELECT
    20627>20702            12      91   0  0              0                                                        SELECT
          20703    71      207      6   0  0              0        207                                             JUMP IF A != 0
          20704    10               0   0  0              2                FOR INSTRUCTIONS                        SELECT LITERAL
          20705    76      207      7   0  0              0        207                                             JUMP unconditional
    20703>20706    10               0   0  0              3                FOR TABLE ENTRIES                       SELECT LITERAL
    20705>20707    84      191      2   0  0              0        191     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          20708    2       12      38   0  0              0                DIRECTIVE IND FOR THIS LINE             SUBTRACT
          20709    73      247      2   0  0              0        247     >IS'NOTES'(IE>0)                        JUMP IF A < 0
          20710    10               0   0  0              2                                                        SELECT LITERAL
          20711    5       12       9   0  0              0                SET THIS LINE SERIAL                    TRANSFER
  Source image: P1000152.JPG
          20712    76      191      3   0  0              0        191     >TO CHECK SWITCH                        JUMP unconditional
                                                                                                                   
          20800    PROCR   208       208     REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI     
          20801     NOTES          RADIX                                                                           SELECT
          20802    81      208      2   0  0              0        208                                             START OF SUBROUTINE
          20803    34      1        8   1  0              0                REF                                     SET (N) IN B
          20804    80      321      2   0  0              0        321     >RIGHT ALIGN                            ENTER SUBROUTINE
          20805    12               0   0  0             67                                                        SUBTRACT LITERAL
          20806    3       274      2   0  0              0        274                                             COPY
          20807    71      208     10   0  0              0        208     >NOT'P'                                 JUMP IF A != 0
          20808    0       12       0   0  0              0                                                        SELECT
          20809    5       12      88   2  0              0                                                        TRANSFER
    27507>                                                                                                         
    20807>20810    0       12      88   2  0              0                                                        SELECT
          20811    3       12       4   0  0              0                                                        COPY
          20812    12               0   0  0            100                                                        SUBTRACT LITERAL
          20813    73      208     32   0  0              0        208     >SECTION                                JUMP IF A < 0
          20814    12               0   0  0            899                                                        SUBTRACT LITERAL
          20815    72      208     32   0  0              0        208     >NOT REPLACEABLE (INCLUDES 999)         JUMP IF A >= 0
          20816            1       10   1  0              0                                                        SELECT
          20817    5       294      2   0  0              0        294      'PREVIOUS' ITEM                        TRANSFER
          20818    80      209      2   0  0              0        209     >CALC C/FWD ADDRESS                     ENTER SUBROUTINE
          20819            27       4   0  0              0                                                        SELECT
          20820    71      208     28   0  0              0        208     >COMPILER, DONT SET IND                 JUMP IF A != 0
          20821            12      88   2  0              0                TEST IMPLICIT                           SELECT
          20822    2       12       4   0  0              0                                    AMENDMENT           SUBTRACT
          20823    71      208     27   0  0              0        208     >CHANGE TO REF                          JUMP IF A != 0
          20824            1       10   1  0              0                                                        SELECT
          20825    2       294      2   0  0              0        294                                             SUBTRACT
          20826    70      208     28   0  0              0        208     >NO CHANGE TO ITEM                      JUMP IF A == 0
    20823>20827    80      188      2   0  0              0        188     >SET'PRINT PROCEDURE'                   ENTER SUBROUTINE
    20826>                                                                                                         
    20820>20828            12      88   2  0              0                                                        SELECT
          20829    5       12       4   0  0              0                NEW REF                                 TRANSFER
          20830    52      1        8   0  0              0                REPLACE REF WITH ZEROS                  EDIT
          20831    C       306      2   0  0              0        306                                             
    20815>                                                                                                         
    20813>20832    82      208      2   0  0              0        208                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          20900    PROCR   209       209     REPLACE AND ADJUSR ADDRESS                                            
          20901     NOTES  209                                                                                     SELECT
          20902    81      209      2   0  0              0        209                                             START OF SUBROUTINE
          20903            92      30   0  0              0                                                        SELECT
          20904    71      209      8   0  0              0        209     >NOT INITIAL                            JUMP IF A != 0
          20905    10               0   0  0              2                                                        SELECT LITERAL
          20906    4       1       10   1  0              0                                                        AUGMENT
          20907    76      209     50   0  0              0        209                                             JUMP unconditional
    20904>20908            27       0   0  0              0                                                        SELECT
          20909    34      12      33   0  0              0                                                        SET (N) IN B
          20910    75      209     50   0  0              0        209     >ISSUE 6 I/P OR PT I/P                  JUMP IF AB != 0
          20911            274      2   0  0              0        274                                             SELECT
          20912    70      209     50   0  0              0        209     >REF WAS'P'                             JUMP IF A == 0
          20913            27       4   0  0              0                                                        SELECT
          20914    71      209     50   0  0              0        209     >COMPILER CALLED TRANSLATOR             JUMP IF A != 0
          20915            12      88   2  0              0                                                        SELECT
          20916    5       12     119   0  0              0                                                        TRANSFER
          20917    80      201      2   0  0              0        201     >REPLACE OLD PROCR                      ENTER SUBROUTINE
          20918    71      209     38   0  0              0        209     >MATCH FOUND        NOW ADJUST          JUMP IF A != 0
          20919            12      88   2  0              0                                                        SELECT
          20920    30               0   0  0              2                                    TRY UNIQUE REFS     SHIFT (A) BY QUARTETS
  Source image: P1000153.JPG
          20921    1       1       10   0  0              0                                                        ADD
          20922    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20923    C                0   0  0             50                                                        
          20924    5       245      2   0  0              0        245                                             TRANSFER
    20929>20925            55       1   0  1              0                                                        SELECT
          20926    70      209     30   0  0              0        209     >END,NO MATCH                           JUMP IF A == 0
          20927    2       245      2   0  0              0        245                                             SUBTRACT
          20928    70      209     32   0  0              0        209                                             JUMP IF A == 0
          20929    94      209     25   0  1              2        209                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20926>20930    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          20931    76      209     50   0  0              0        209     >CARRY ON                               JUMP unconditional
    20928>20932            55       0   0  1              0                EQUIVALENT OF UNIQUE REF                SELECT
          20933    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          20934    5       12      88   2  0              0                                                        TRANSFER
          20935    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20936    5       1       10   0  0              0                                                        TRANSFER
          20937    76      209     50   0  0              0        209     >NOW REPLACE/ADJUST(NEW STYLE)          JUMP unconditional
    20918>20938    3       12      88   2  0              0                                                        COPY
          20939    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          20940    1       1       10   0  0              0                                                        ADD
          20941    5       203      2   0  0              0        203     WL                                      TRANSFER
          20942            1       10   1  0              0                                                        SELECT
          20943    73      209     50   0  0              0        209     >DONT ADJUST NEG ITEM                   JUMP IF A < 0
          20944            203      2   0  0              0        203                                             SELECT
          20945    80      203      2   0  0              0        203     >ADJUST(OLD STYLE)                      ENTER SUBROUTINE
          20946    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          20947    5       12      88   2  0              0                                                        TRANSFER
          20948    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20949    5       1       10   0  0              0                                                        TRANSFER
    20943>                                                                                                         
    20937>                                                                                                         
    20931>                                                                                                         
    20914>                                                                                                         
    20912>                                                                                                         
    20910>                                                                                                         
    20907>20950            12      88   2  0              0                REPLACE PROCR(NEW STYLE)                SELECT
          20951    3       12     118   0  0              0                                                        COPY
          20952    5       12     119   0  0              0                                                        TRANSFER
          20953            274      2   0  0              0        274                                             SELECT
          20954    71      209     57   0  0              0        209     >REF WAS NOT'P'                         JUMP IF A != 0
          20955            12      88   2  0              0                                                        SELECT
          20956    76      209     79   0  0              0        209                                             JUMP unconditional
    20954>20957    80      202      2   0  0              0        202     >REPLACE                                ENTER SUBROUTINE
          20958    71      209     79   0  0              0        209     >MATCH                                  JUMP IF A != 0
          20959            12      88   2  0              0                                                        SELECT
          20960    30               0   0  0              2                TRY UNIQUE REFS                         SHIFT (A) BY QUARTETS
          20961    1       1       10   0  0              0                (NEW STYLE)                             ADD
          20962    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          20963    C                0   0  0            100                                                        
          20964    5       245      2   0  0              0        245                                             TRANSFER
    20969>20965            52       0   0  1              0                                                        SELECT
          20966    70      209     70   0  0              0        209     >END,NO MATCH                           JUMP IF A == 0
          20967    2       245      2   0  0              0        245                                             SUBTRACT
          20968    70      209     73   0  0              0        209     >MATCH                                  JUMP IF A == 0
          20969    94      209     65   0  1              2        209                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    20966>20970            319     40   1  0              0        319      '????R'                                SELECT
          20971    5       1       44   1  0              0                                                        TRANSFER
          20972    76      209     88   0  0              0        209     >END                                    JUMP unconditional
    20968>20973            52       1   0  1              0                                                        SELECT
          20974    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
  Source image: P1000154.JPG
          20975    5       12      88   2  0              0                                                        TRANSFER
          20976    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          20977    5       1       10   0  0              0                                                        TRANSFER
          20978    76      209     88   0  0              0        209     >NEW ADDRESS CALCULATED                 JUMP unconditional
    20958>                                                                                                         
    20956>20979    3       12      88   2  0              0                                                        COPY
          20980    30               0   0  0              2                NEW REF                                 SHIFT (A) BY QUARTETS
          20981    1       1       10   0  0              0                                                        ADD
          20982    5       12      58   0  0              0                                                        TRANSFER
          20983            1       10   1  0              0                                                        SELECT
          20984    73      209     88   0  0              0        209     >DONT ADJUST NEG ITEMS                  JUMP IF A < 0
          20985    80      204      2   0  0              0        204     >ADJUST SR(NEW STYLE)                   ENTER SUBROUTINE
          20986            12      58   0  0              0                NEW ITEM                                SELECT
          20987    5       1       10   0  0              0                                                        TRANSFER
    20984>                                                                                                         
    20978>                                                                                                         
    20972>20988    82      209      2   0  0              0        209                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21000    PROCR   210       210     BEGIN CHECKS ON ACTION OR C-LINE                                      
          21001     NOTES          RADIX                                                                           SELECT
    19111>21002    80      208      2   0  0              0        208     >DEAL WITH ADDRESS OF INSTRUCTION       ENTER SUBROUTINE
          21003            12       4   0  0              0                NEW REF                                 SELECT
          21004    12               0   0  0            100                                                        SUBTRACT LITERAL
          21005    73      210     10   0  0              0        210     >SECTION                                JUMP IF A < 0
          21006    12               0   0  0            899                                                        SUBTRACT LITERAL
          21007    72      210     10   0  0              0        210     >REF=999+                               JUMP IF A >= 0
          21008            12     118   0  0              0                PEVIOUS PROCR                           SELECT
          21009    5       1       22   0  0              0                                                        TRANSFER
    21007>                                                                                                         
    21005>21010            1        7   0  0              0                                                        SELECT
          21011    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          21012    71      210     28   0  0              0        210     >NOT C-LINE                             JUMP IF A != 0
          21013            12      60   1  0              0                                                        SELECT
          21014    70      211      2   0  0              0        211     >IGNORE             C-LINE NOT POSSIBLE JUMP IF A == 0
          21015    124     12      55   1  2              0                                                        modify address of next
          21016    100              1   0  2              0                C-LINE CHECK CONSTANT TO B              replace (B) by (N)
          21017    0       317     88   0  0              0        317     A 55 ACTION WILL TERMINATE              SELECT
          21018    5       317     25   0  0              0        317     AFTER 2 C-LINES                         TRANSFER
          21019    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          21020    0       12      54   0  0              0                ACION                                   SELECT
          21021    12               0   0  0             2‼                 43                                     SUBTRACT LITERAL
          21022    70      210     25   0  0              0        210     >YES                                    JUMP IF A == 0
          21023    11               0   0  0              1                                                        ADD LITERAL
          21024    71      210     62   0  0              0        210     >NOT                                    JUMP IF A != 0
    21022>21025    10               0   0  0              1                                                        SELECT LITERAL
          21026    4       12      55   0  0              0                (TO GET NEXT C-LINE CHECK CONST)        AUGMENT
          21027    76      210     62   0  0              0        210                                             JUMP unconditional
    21012>21028            12      61   0  0              0                                                        SELECT
          21029    70      210     31   0  0              0        210                                             JUMP IF A == 0
          21030    80      296      2   0  0              0        296                                             ENTER SUBROUTINE
    21029>21031    34      1        6   1  0              0                                                        SET (N) IN B
          21032    80      321      2   0  0              0        321     RIGHT ALIGN ACTION                      ENTER SUBROUTINE
          21033    0       12      88   2  0              0                                                        SELECT
          21034    73      211      2   0  0              0        211     >NEGATIVE ACTION                        JUMP IF A < 0
          21035    12               0   0  0            159                REJECT ACTION>158                       SUBTRACT LITERAL
          21036    72      211      2   0  0              0        211                                             JUMP IF A >= 0
          21037    0       12      88   2  0              0                                                        SELECT
          21038    80      245      2   0  0              0        245     >BIN                                    ENTER SUBROUTINE
          21039    3       12      54   0  0              0                BINARY ACTION                           COPY
          21040    12               0   0  0             41                 65                                     SUBTRACT LITERAL
  Source image: P1000156.JPG
          21041    72      210     54   0  0              0        210     > SECOND HALF OF TABLE                  JUMP IF A >= 0
          21042    0       12      54   0  0              0                                                        SELECT
          21043    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          21044    101     316      2   0  0              0        316     TLU                                     table look up
    21057>21045    32               0   0  0             10                ABS BIN ADDRESS > A                     SHIFT (AB) BY QUARTETS
          21046    3       12      55   0  0              0                LOCN TO SELECT C-LINE CHECK CONSTANT    COPY
          21047    0       12      54   0  0              0                BIN ACTION                              SELECT
          21048    12               0   0  0             37                 = 55                                   SUBTRACT LITERAL
          21049    71      210     60   0  0              0        210     > NOT                                   JUMP IF A != 0
          21050    0       1       16   1  0              0                LITERAL                                 SELECT
          21051    71      210     58   0  0              0        210     > SET SECOND C-LINE IMPOSSIBLE          JUMP IF A != 0
          21052    0       317     86   0  0              0        317                                             SELECT
          21053    76      210     59   0  0              0        210     > SET SECOND C-LINE ESSENTIAL           JUMP unconditional
    21041>21054    0       12      54   0  0              0                                                        SELECT
          21055    30               0   0  0              3                                                        SHIFT (A) BY QUARTETS
          21056    101     317     34   0  0              0        317     TLU FOR ACTION > 64                     table look up
          21057    76      210     45   0  0              0        210                                             JUMP unconditional
    21051>21058    0       317     88   0  0              0        317                                             SELECT
    21053>21059    5       317     25   0  0              0        317     CHECK CONST FOR ACTION 55 C-LINE        TRANSFER
    21049>21060    124     12      55   1  2              0                                                        modify address of next
          21061    100              0   0  2              0                CHECK CONST                             replace (B) by (N)
    21027>                                                                                                         
    21024>21062    10               0   0  0              0                                                        SELECT LITERAL
          21063    36      318      4   0  0              0        318     Q1-3                                    COLLATE AND ADD
          21064    71      211      6   0  0              0        211     > ACTION EXISTS                         JUMP IF A != 0
                                                                                                                   
  Source image: P1000160.JPG
          21100    PROCR   211       211                                                                           
          21101     NOTES          RADIX                                                                           SELECT
    21036>                                                                                                         
    21034>                                                                                                         
    21014>21102    10               0   0  0     5100000000                                                        SELECT LITERAL
          21103    5       1       44   1  0              0                NONEXISTENT ACTION = ERROR OF A         TRANSFER
    21319>21104    80      295      2   0  0              0        295                                             ENTER SUBROUTINE
          21105    76      247      2   0  0              0        247                                             JUMP unconditional
    21064>21106    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          21107    84      227      2   0  0              0        227     LITERAL' SWITCH BY Q3                   SET SWITCH(ES) AT VARIABLE VALUE
          21108    36      318      5   0  0              0        318     BITS 5-7                                COLLATE AND ADD
          21109    30               0   0  0              1-                                                       SHIFT (A) BY QUARTETS
          21110    84      217      2   0  0              0        217      'REF/ITEM'                             SET SWITCH(ES) AT VARIABLE VALUE
          21111    36      318      6   0  0              0        318     BITS 1-3                                COLLATE AND ADD
          21112    84      214      2   0  0              0        214      'DISC/MOD' SWITCH BY Q1                SET SWITCH(ES) AT VARIABLE VALUE
          21113    36      318      7   0  0              0        318     BIT 4                                   COLLATE AND ADD
          21114    5       12      61   0  0              0                IND THAT C-LINE ESSENTIAL               TRANSFER
          21115    36      318      8   0  0              0        318     BIT 8                                   COLLATE AND ADD
          21116    5       12      60   0  0              0                IND THAT C-LINE IS POSSIBLE             TRANSFER
          21117    5       12      59   0  0              0                CLEAR THIS                              TRANSFER
                                                                                                                   
          21200    PROCR   212       212                                                                           
          21201     NOTES          RADIX                                                                           SELECT
          21202    60               0   0  0              0                                                        SET DECIMAL RADIX
          21203            1       10   0  0              0                MODULUS OF ITEM                         SELECT
          21204    12               0   0  0           8192                                                        SUBTRACT LITERAL
          21205    72      212      8   0  0              0        212     > REPORT                                JUMP IF A >= 0
          21206            1       11   0  0              0                                                        SELECT
          21207    70      212      9   0  0              0        212     > OK                                    JUMP IF A == 0
    21205>21208    80      196      2   0  0              0        196     > REPORT 1                              ENTER SUBROUTINE
    21207>21209    0       12      54   0  0              0                BIN ACTION                              SELECT
          21210    12               0   0  0             64                100                                     SUBTRACT LITERAL
          21211    73      212     26   0  0              0        212     > NOT MACHINE CODE                      JUMP IF A < 0
          21212    0       12      54   0  0              0                                                        SELECT
  Source image: P1000161.JPG
          21213    12               0   0  0             84                132                                     SUBTRACT LITERAL
          21214    72      212     26   0  0              0        212     >NOT MACHINE CODE                       JUMP IF A >= 0
          21215    0       1       12   1  0              0                DISC                                    SELECT
          21216    70      212     20   0  0              0        212     >OK                                     JUMP IF A == 0
          21217    12               0   0  0              1                                                        SUBTRACT LITERAL
          21218    70      212     20   0  0              0        212     >OK                                     JUMP IF A == 0
          21219    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21218>                                                                                                         
    21216>21220    0       1       14   1  0              0                MOD                                     SELECT
          21221    70      217      2   0  0              0        217     >OK                                     JUMP IF A == 0
          21222    12               0   0  0              4                                                        SUBTRACT LITERAL
          21223    73      217      2   0  0              0        217     >OK                                     JUMP IF A < 0
          21224    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21225    76      217      2   0  0              0        217     >TO CHECK R,I,L                         JUMP unconditional
    21214>                                                                                                         
    21211>21226    0       1       12   1  0              0                D                                       SELECT
          21227    70      213      7   0  0              0        213     >OK                                     JUMP IF A == 0
          21228    0       1       10   0  0              0                                                        SELECT
          21229    80      192      2   0  0              0        192     >CHECK I                                ENTER SUBROUTINE
                                                                                                                   
          21300    PROCR   213       213     TEST D AND M ARE IN RANGE                                             
          21301     NOTES          RADIX          ACCEPTABLE                                                       SELECT
          21302            1       12   1  0              0                                                        SELECT
          21303    73      213      6   0  0              0        213                                             JUMP IF A < 0
          21304    12               0   0  0              3                                                        SUBTRACT LITERAL
          21305    73      213      7   0  0              0        213                                             JUMP IF A < 0
    21303>21306    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21305>                                                                                                         
    21227>21307            1       14   1  0              0                MOD DIGITS                              SELECT
          21308    70      214      2   0  0              0        214     >OK                                     JUMP IF A == 0
          21309    73      213     18   0  0              0        213                                             JUMP IF A < 0
          21310    12               0   0  0             21                                                        SUBTRACT LITERAL
          21311    72      213     18   0  0              0        213     >WRONG                                  JUMP IF A >= 0
          21312    0       1       14   0  0              0                                                        SELECT
          21313    12               0   0  0              4                                                        SUBTRACT LITERAL
          21314    72      214      2   0  0              0        214                                             JUMP IF A >= 0
          21315    10               0   0  0              1                IF MR 1-3                               SELECT LITERAL
          21316    5       92       4   0  0              0                SETTING 'REQUIRED' IND                  TRANSFER
          21317    76      214      2   0  0              0        214                                             JUMP unconditional
    21311>                                                                                                         
    21309>21318    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21319    76      211      4   0  0              0        211     >IGNORE                                 JUMP unconditional
                                                                                                                   
          21400    PROCR   214       214                                                                           
          21401     NOTES          RADIX                                                                           SELECT
    21317>                                                                                                         
    21314>                                                                                                         
    21308>21402    85      214      2   0  0              0        214                                             SWITCH R
          21403    C       217      2   0  0              0        217     >D,M ANY VALUE                          
          21404    C       215      2   0  0              0        215     >D,M MUST BOTH BE ZERO                  
          21405    C       215      7   0  0              0        215     >D ZERO, M ANY                          
          21406    C       215      3   0  0              0        215     >M ZERO, D ANY                          
          21407    C       215      9   0  0              0        215     >D ZERO, M NONZERO                      
          21408    C       215     10   0  0              0        215     >M NONZERO, D ANY                       
          21409    C       214     10   0  0              0        214     >D,M ZERO, R NON-ZERO IF L=0            
    21409>21410            1       16   0  0              0                L                                       SELECT
          21411    70      214     16   0  0              0        214     >EXPECT R                               JUMP IF A == 0
          21412    0       1        8   2  0              0                REF                                     SELECT
          21413    70      215      2   0  0              0        215     >OK                                     JUMP IF A == 0
          21414    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
  Source image: P1000166.JPG
          21415    76      215      2   0  0              0        215                                             JUMP unconditional
    21411>21416            1        8   2  0              0                                                        SELECT
          21417    71      215      2   0  0              0        215     >OK                                     JUMP IF A != 0
          21418    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
                                                                                                                   
          21500    PROCR   215       215     CHECK D AND M                                                         
          21501     NOTES          RADIX                                                                           SELECT
    21417>                                                                                                         
    21415>                                                                                                         
    21413>                                                                                                         
    21404>21502    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
    21406>21503            1       14   1  0              0                                                        SELECT
          21504    70      217      2   0  0              0        217                                             JUMP IF A == 0
    21513>21505    80      194      2   0  0              0        194     >REPORT M                               ENTER SUBROUTINE
          21506    76      217      2   0  0              0        217                                             JUMP unconditional
    21405>21507    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
          21508    76      217      2   0  0              0        217     >CHECK D=0                              JUMP unconditional
    21407>21509    80      216      2   0  0              0        216                                             ENTER SUBROUTINE
    21408>21510            1       14   1  0              0                >OK                                     SELECT
          21511    71      217      2   0  0              0        217     >IGNORE                                 JUMP IF A != 0
          21512    80      295      2   0  0              0        295     >REPORT M                               ENTER SUBROUTINE
          21513    76      215      5   0  0              0        215                                             JUMP unconditional
                                                                                                                   
          21600    PROCR   216       216     TO CHECK REFERENCE AND ITEM                                           
          21601     NOTES          RADIX                                                                           SELECT
          21602    81      216      2   0  0              0        216                                             START OF SUBROUTINE
          21603            1       12   1  0              0                                                        SELECT
          21604    70      216      6   0  0              0        216                                             JUMP IF A == 0
          21605    80      193      2   0  0              0        193     >REPORT D                               ENTER SUBROUTINE
    21604>21606    82      216      2   0  0              0        216                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          21700    PROCR   217       217                                                                           
          21701     NOTES          RADIX                                                                           SELECT
    21511>                                                                                                         
    21508>                                                                                                         
    21506>                                                                                                         
    21504>                                                                                                         
    21403>                                                                                                         
    21225>                                                                                                         
    21223>                                                                                                         
    21221>21702    85      217      2   0  0              0        217                                             SWITCH R
          21703    C       218      2   0  0              0        218     >R ZERO, PROCR, SECTION OR '1000+'      
          21704    C       219      2   0  0              0        219     >R, I BOTH ZERO                         
          21705    C       220      2   0  0              0        220     MAINLINE OF FILE CONTROL                
          21706    C       224      2   0  0              0        224     R=100-998 OR 1000+, I EVEN              
          21707    C       225      2   0  0              0        225     >R IS A TRANSIT AREA                    
          21708    C       226      2   0  0              0        226     >R IN RANGE 100-998                     
          21709    C       218     58   0  0              0        218     >R IS PROCR OR SECTION, BUT NOT TX AREA 
                                                                                                                   
          21800    PROCR   218       218     SWITCH = 1                                                            
          21801     NOTES          RADIX                                                                           SELECT
    22011>                                                                                                         
    22504>                                                                                                         
    21703>21802            12       4   0  0              0                                                        SELECT
          21803    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          21804    71      218     20   0  0              0        218     >OK                                     JUMP IF A != 0
          21805            1       14   0  0              0                MOD DIGITS                              SELECT
          21806    71      218     49   0  0              0        218     >OK EXCEPT FOR 93,97                    JUMP IF A != 0
          21807    0       1       10   1  0              0                ITEM                                    SELECT
          21808    73      218     13   0  0              0        218     >ACCEPT ONLY IF ITEM                    JUMP IF A < 0
  Source image: P1000167.JPG
          21809    71      218     55   0  0              0        218     >OK                                     JUMP IF A != 0
          21810    0       12      54   0  0              0                ACTION                                  SELECT
          21811    70      218     36   0  0              0        218     >IGNORE R                               JUMP IF A == 0
          21812    76      218     55   0  0              0        218     >OJ                                     JUMP unconditional
    21808>21813    10               0   0  0              0                                                        SELECT LITERAL
          21814    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          21815    36      1       10   0  0              0                                                        COLLATE AND ADD
          21816    12               0   0  0              +                                                        SUBTRACT LITERAL
          21817    70      218     55   0  0              0        218     >OK(ITEM*)                              JUMP IF A == 0
    22207>                                                                                                         
    22208>                                                                                                         
    22210>                                                                                                         
    22216>21818    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          21819    76      219      6   0  0              0        219     >REPORT I                               JUMP unconditional
    21804>21820    12               0   0  0            100                                                        SUBTRACT LITERAL
          21821    73      218     31   0  0              0        218     >SECTION                                JUMP IF A < 0
          21822    12               0   0  0            900                                                        SUBTRACT LITERAL
          21823    73      218     55   0  0              0        218     >OK                                     JUMP IF A < 0
          21824    70      218     36   0  0              0        218     >IGNORE IF=1000                         JUMP IF A == 0
          21825    12               0   0  0             21                                                        SUBTRACT LITERAL
          21826    72      218     36   0  0              0        218     >IGNORE IF>1020                         JUMP IF A >= 0
          21827    0       12      54   0  0              0                BIN ACTION                              SELECT
          21828    12               0   0  0             50                 80                                     SUBTRACT LITERAL
          21829    70      218     36   0  0              0        218     >IGNORE                                 JUMP IF A == 0
          21830    76      218     55   0  0              0        218     >OK                                     JUMP unconditional
    21821>21831            12       4   0  0              0                DECSECTION                              SELECT
          21832    80      183      2   0  0              0        183     >DECODE SECTION NUMBER                  ENTER SUBROUTINE
          21833    34      12      40   0  0              0                                                        SET (N) IN B
          21834    36      12      72   0  3              0                                                        COLLATE AND ADD
          21835    71      218     55   0  0              0        218     >SECTION EXISTS                         JUMP IF A != 0
    21851>                                                                                                         
    21854>                                                                                                         
    22407>                                                                                                         
    22411>                                                                                                         
    22413>                                                                                                         
    22604>                                                                                                         
    22606>                                                                                                         
    21829>                                                                                                         
    21826>                                                                                                         
    21824>                                                                                                         
    21811>                                                                                                         
    21803>21836    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    21903>21837    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          21838    86      217      2   0  0              0        217                                             SELECT SWITCH R
          21839    12               0   0  0              5                                                        SUBTRACT LITERAL
          21840    70      225     31   0  0              0        225     >42 OR 43 ACTION.IGNORE PREVIOUS LINE   JUMP IF A == 0
          21841            12      54   0  0              0                                                        SELECT
          21842    101             40   1  2              0                40                                      subtract literal address
          21843    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21844    101             93   1  2              0                133                                     subtract literal address
          21845    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21846    101              1   1  2              0                134                                     subtract literal address
          21847    70      225     31   0  0              0        225     >IGNORE PREVIOUS LINE                   JUMP IF A == 0
          21848    76      227      2   0  0              0        227                                             JUMP unconditional
    21806>21849            12      54   0  0              0                                                        SELECT
          21850    101             93   1  2              0                93?                                     subtract literal address
          21851    70      218     36   0  0              0        218     >REPORT                                 JUMP IF A == 0
          21852            12      54   0  0              0                                                        SELECT
          21853    101             97   1  2              0                97?                                     subtract literal address
          21854    70      218     36   0  0              0        218     >REPORT                                 JUMP IF A == 0
    21835>                                                                                                         
    21830>                                                                                                         
    21823>                                                                                                         
    21817>                                                                                                         
    21812>                                                                                                         
  Source image: P1000168.JPG
    21809>21855            12      59   0  0              0                                                        SELECT
          21856    70      227      2   0  0              0        227     >GO TO CHECK L                          JUMP IF A == 0
          21857    76      225      5   0  0              0        225     >CHECK SECTION IS TX AREA               JUMP unconditional
    21709>21858    80      277      2   0  0              0        277     >CHECK REF                              ENTER SUBROUTINE
          21859    76      227      2   0  0              0        227     >CHECK LITERAL                          JUMP unconditional
                                                                                                                   
          21900    PROCR   219       219     TEST R AND I ARE BOTH ZERO                                            
          21901     NOTES          RADIX                                                                           SELECT
    21704>21902            1        8   2  0              0                TEST REF IS ZERO                        SELECT
          21903    71      218     37   0  0              0        218                                             JUMP IF A != 0
          21904            1       10   1  0              0                                                        SELECT
          21905    70      227      2   0  0              0        227                                             JUMP IF A == 0
    21819>21906    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          21907    76      227      2   0  0              0        227     >NO CHECK LITERAL                       JUMP unconditional
                                                                                                                   
          22000    PROCR   220       220     CHECK FILES                                                           
          22001     NOTES          RADIX                                                                           SELECT
    21705>22002            12      54   0  0              0                ACTION                                  SELECT
          22003    101             40   1  2              0                                                        subtract literal address
          22004    71      220     12   0  0              0        220     >NOT ACTION 40                          JUMP IF A != 0
          22005            12      60   1  0              0                                                        SELECT
          22006    70      220     12   0  0              0        220     >NOT C-LINE                             JUMP IF A == 0
          22007            1        7   0  0              0                                                        SELECT
          22008    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          22009    71      220     12   0  0              0        220     >NOT THE C-LINE                         JUMP IF A != 0
          22010            1       12   1  0              0                C-LINE DISC                             SELECT
          22011    71      218      2   0  0              0        218     >CHECK REF IS SEC/PROCR                 JUMP IF A != 0
    22009>                                                                                                         
    22006>                                                                                                         
    22004>22012            91       1   0  0              0                                                        SELECT
          22013    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          22014    91               0   0  5              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          22015            317     94   0  0              0        317     SET  2ND C-LINE POSSIBLE                SELECT
          22016    5       317     14   0  0              0        317                                             TRANSFER
    22024>22017            91       5   0  5              0                                                        SELECT
          22018    33               0   0  0              6-                                                       SHIFT (AB) BY BITS
          22019    70      220     30   0  0              0        220     >NO FILES                               JUMP IF A == 0
          22020    11               0   0  0           4000                BIT 15                                  ADD LITERAL
          22021    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          22022    2       1        9   0  0              0                                                        SUBTRACT
          22023    70      220     39   0  0              0        220     >MATCH FOUND                            JUMP IF A == 0
          22024    94      220     17   0  5              2        220                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          22025            1        7   0  0              0                                                        SELECT
          22026    12               0   0  0          53000                 'C  '                                  SUBTRACT LITERAL
          22027    71      220     30   0  0              0        220     >                                       JUMP IF A != 0
          22028    80      295      2   0  0              0        295     SET C-LINE IMPOSS                       ENTER SUBROUTINE
          22029    80      296      2   0  0              0        296     IGNORE PREVIOUS LINE                    ENTER SUBROUTINE
    22532>                                                                                                         
    22027>                                                                                                         
    22019>22030    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          22031    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    22164>22032            12      54   0  0              0                                                        SELECT
          22033    101             42   1  2              0                                                        subtract literal address
          22034    70      220     37   0  0              0        220                                             JUMP IF A == 0
          22035    101              1   1  2              0                                                        subtract literal address
  Source image: P1000169.JPG
          22036    71      235      2   0  0              0        235     >                                       JUMP IF A != 0
    22034>22037    5       12      60   1  0              0                42 OR 43                                TRANSFER
          22038    76      235      2   0  0              0        235     >                                       JUMP unconditional
    22023>22039    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          22040            12      54   0  0              0                                                        SELECT
          22041    101            132   1  2              0                                                        subtract literal address
          22042    73      220     47   0  0              0        220     >HENCE GROUP 4                          JUMP IF A < 0
          22043    101              3   1  2              0                                                        subtract literal address
          22044    73      222      2   0  0              0        222     >ACTIONS 132-134                        JUMP IF A < 0
          22045    76      227      2   0  0              0        227     >ACTION 156                             JUMP unconditional
          22046    70      227      2   0  0              0        227     >ACTION 156         CHECK L             JUMP IF A == 0
    22042>22047    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          22048    33               0   0  0              6                ROUTE TYPE                              SHIFT (AB) BY BITS
          22049    12               0   0  0              5                                                        SUBTRACT LITERAL
          22050    73      221     20   0  0              0        221     >RT1-4                                  JUMP IF A < 0
          22051    70      221     13   0  0              0        221     >RT5                                    JUMP IF A == 0
          22052    12               0   0  0              1                                                        SUBTRACT LITERAL
          22053    70      221      2   0  0              0        221     >RT6                                    JUMP IF A == 0
          22054    12               0   0  0              3                                                        SUBTRACT LITERAL
          22055    73      221     24   0  0              0        221     >RT7,8                                  JUMP IF A < 0
          22056    70      221     20   0  0              0        221     >RT9                                    JUMP IF A == 0
          22057    12               0   0  0              1                                                        SUBTRACT LITERAL
          22058    70      221      2   0  0              0        221     >RT10                                   JUMP IF A == 0
          22059    12               0   0  0              1                                                        SUBTRACT LITERAL
          22060    70      221     24   0  0              0        221     >RT11                                   JUMP IF A == 0
          22061    12               0   0  0              1                                                        SUBTRACT LITERAL
          22062    70      221      2   0  0              0        221     >RT12                                   JUMP IF A == 0
          22063    12               0   0  0              1                                                        SUBTRACT LITERAL
          22064    70      221     65   0  0              0        221     >RT13                                   JUMP IF A == 0
          22065    12               0   0  0              2                                                        SUBTRACT LITERAL
          22066    70      221      2   0  0              0        221     >RT15                                   JUMP IF A == 0
          22067    12               0   0  0              1                                                        SUBTRACT LITERAL
          22068    70      221     20   0  0              0        221     >RT16                                   JUMP IF A == 0
          22069    12               0   0  0              2                                                        SUBTRACT LITERAL
          22070    70      221     65   0  0              0        221     >RT 18                                  JUMP IF A == 0
          22071    12               0   0  0              1                                                        SUBTRACT LITERAL
          22072    70      221     20   0  0              0        221     >RT19                                   JUMP IF A == 0
          22073    12               0   0  0              1                                                        SUBTRACT LITERAL
          22074    70      220     82   0  0              0        220     >RT 20                                  JUMP IF A == 0
          22075    12               0   0  0              2                                                        SUBTRACT LITERAL
          22076    70      221     55   0  0              0        221     >22                                     JUMP IF A == 0
          22077    12               0   0  0              2                                                        SUBTRACT LITERAL
          22078    70      221      9   0  0              0        221     >RT24                                   JUMP IF A == 0
          22079    12               0   0  0              1                                                        SUBTRACT LITERAL
          22080    71      221     60   0  0              0        221     >NOT 25                                 JUMP IF A != 0
          22081    76      221     20   0  0              0        221     >LIKE1                                  JUMP unconditional
    22074>22082            12      54   0  0              0                ACTION                                  SELECT
          22083    101             40   1  2              0                                                        subtract literal address
          22084    70      222      6   0  0              0        222     >ACTION 40                              JUMP IF A == 0
          22085    12               0   0  0              1                                                        SUBTRACT LITERAL
          22086    70      221     60   0  0              0        221     >REJECT                                 JUMP IF A == 0
                                                                                                                   
          22100    PROCR   221       221     CHECK FILES (CONTD)                                                   
    22115>                                                                                                         
    22066>                                                                                                         
    22062>                                                                                                         
    22058>                                                                                                         
    22053>22102            12      54   0  0              0                ACTION                                  SELECT
          22103    101             42   1  2              0                                                        subtract literal address
          22104    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
  Source image: P1000170.JPG
    22123>22105            12      54   0  0              0                RT 1-6+9-10                             SELECT
          22106    101             42   1  2              0                                                        subtract literal address
          22107    73      235      2   0  0              0        235     >OK                                     JUMP IF A < 0
          22108    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
    22078>22109            12      54   0  0              0                ACTION                                  SELECT
          22110    101             42   1  2              0                                                        subtract literal address
          22111    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22112    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
    22051>22113            12      54   0  0              0                RT 5                                    SELECT
          22114    101             44   1  2              0                                                        subtract literal address
          22115    71      221      2   0  0              0        221                                             JUMP IF A != 0
          22116            1       16   0  0              0                L                                       SELECT
          22117    12               0   0  0              3                                                        SUBTRACT LITERAL
          22118    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22119    76      228      4   0  0              0        228     >IGNORE L                               JUMP unconditional
    22159>                                                                                                         
    22081>                                                                                                         
    22072>                                                                                                         
    22068>                                                                                                         
    22056>                                                                                                         
    22050>22120            12      54   0  0              0                RT 1-4+9                                SELECT
          22121    101             43   1  2              0                                                        subtract literal address
          22122    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22123    76      221      5   0  0              0        221                                             JUMP unconditional
    22060>                                                                                                         
    22055>22124    0       12      54   0  0              0                BIN ACTION                              SELECT
          22125    12               0   0  0             30                48                                      SUBTRACT LITERAL
          22126    70      221     50   0  0              0        221     >ACTION 48                              JUMP IF A == 0
          22127            12      54   0  0              0                                                        SELECT
          22128    12               0   0  0             29                41                                      SUBTRACT LITERAL
          22129    70      221     50   0  0              0        221     >ACTION 41 FOR M/T                      JUMP IF A == 0
          22130            12      54   0  0              0                                                        SELECT
          22131    12               0   0  0             2+                                                        SUBTRACT LITERAL
          22132    70      221     45   0  0              0        221     >44                                     JUMP IF A == 0
          22133    12               0   0  0              2                                                        SUBTRACT LITERAL
          22134    70      221     37   0  0              0        221     >46                                     JUMP IF A == 0
          22135    12               0   0  0              1                                                        SUBTRACT LITERAL
          22136    71      227      2   0  0              0        227     >NOT 47, CHECK L                        JUMP IF A != 0
    22134>22137            1       10   1  0              0                                                        SELECT
          22138    73      221     43   0  0              0        221     >REPORT                                 JUMP IF A < 0
          22139    35               0   0  0              0                                                        PREPARE FOR DIGIT COLLATION
          22140    33               0   0  0              1-                                                       SHIFT (AB) BY BITS
          22141    10               0   0  0              0                                                        SELECT LITERAL
          22142    74      227      2   0  0              0        227     >EVEN, OK                               JUMP IF AB == 0        // 27, 1, 0
    22138>22143    80      196      2   0  0              0        196     REPORT I                                ENTER SUBROUTINE
          22144    76      227      2   0  0              0        227                                             JUMP unconditional
    22132>22145            1       16   1  0              0                L                                       SELECT
          22146    12               0   0  0              2                                                        SUBTRACT LITERAL
          22147    70      235      2   0  0              0        235     >OK                                     JUMP IF A == 0
          22148    12               0   0  0              1                                                        SUBTRACT LITERAL
          22149    76      228      2   0  0              0        228                                             JUMP unconditional
    22129>                                                                                                         
    22126>22150            1       16   1  0              0                LITERAL                                 SELECT
          22151    73      228      5   0  0              0        228     >REPORT L                               JUMP IF A < 0
          22152    12               0   0  0              4                                                        SUBTRACT LITERAL
          22153    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          22154    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
    22076>22155            317     87   0  0              0        317     CONST FOR 2ND C-LINE                    SELECT
          22156    5       317     14   0  0              0        317                                             TRANSFER
          22157            12      54   0  0              0                ACTION                                  SELECT
  Source image: P1000171.JPG
          22158    101             41   1  2              0                                                        subtract literal address
          22159    71      221     20   0  0              0        221     >OK, NOT 41                             JUMP IF A != 0
    22168>                                                                                                         
    22205>                                                                                                         
    22112>                                                                                                         
    22108>                                                                                                         
    22086>                                                                                                         
    22080>22160    10               0   0  0     5100000000                A                                       SELECT LITERAL
          22161    5       1       44   1  0              0                                                        TRANSFER
          22162    80      295      2   0  0              0        295     >IGNORE THIS INSTRUCTION                ENTER SUBROUTINE
          22163    5       2       60   1  0              0                SET C LINE IMPOSSIBLE                   TRANSFER
          22164    76      220     32   0  0              0        220     >CHECK FOR C-LINE                       JUMP unconditional
    22070>                                                                                                         
    22064>22165            12      54   0  0              0                                                        SELECT
          22166    101             44   1  2              0                                                        subtract literal address
          22167    73      235      2   0  0              0        235     >OK                                     JUMP IF A < 0
          22168    76      221     60   0  0              0        221     >REJECT                                 JUMP unconditional
                                                                                                                   
          22200    PROCR   222       222     ACTIONS 132-134                                                       
    22044>22202    10               0   0  0              0                CLEAR A                                 SELECT LITERAL
          22203    33               0   0  0              6                RT                                      SHIFT (AB) BY BITS
          22204    12               0   0  0             11                                                        SUBTRACT LITERAL
          22205    71      221     60   0  0              0        221     >WRONG FILE                             JUMP IF A != 0
    22084>22206            1       10   1  0              0                ITEM                                    SELECT
          22207    73      218     18   0  0              0        218     >IGNORE I                               JUMP IF A < 0
          22208    70      218     18   0  0              0        218     >IGNORE I                               JUMP IF A == 0
          22209    12               0   0  0            100                                                        SUBTRACT LITERAL
          22210    72      218     18   0  0              0        218     >IGNORE I                               JUMP IF A >= 0
          22211            1       10   1  0              0                                                        SELECT
          22212    80      183      2   0  0              0        183     >DECODE SECTION NO                      ENTER SUBROUTINE
          22213    34      12      40   0  0              0                COLLATION BIT                           SET (N) IN B
          22214    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          22215    36      12      72   0  3              0                                                        COLLATE AND ADD
          22216    70      218     18   0  0              0        218     >NOT A TX AREA, IGNORE I                JUMP IF A == 0
          22217    76      225     17   0  0              0        225     >X AREA CHECK, & CHECK L                JUMP unconditional
                                                                                                                   
          22300    PROCR   223       223     ACTIONS 132-134                                                       
                                                                                                                   
          22400    PROCR   224       224     TEST R IS A PROCEDURE NUMBER                                          
          22401     NOTES          RADIX          SWITCH=4                                                         SELECT
    21706>22402            12       4   0  0              0                                                        SELECT
          22403    71      224      6   0  0              0        224     >NOT ABSOLUTE ADDRESS                   JUMP IF A != 0
          22404    0       1       14   0  0              0                MOD DIGITS                              SELECT
          22405    71      224     14   0  0              0        224     >OK                                     JUMP IF A != 0
    22403>22406    12               0   0  0            100                                                        SUBTRACT LITERAL
          22407    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          22408    12               0   0  0            899                                                        SUBTRACT LITERAL
          22409    73      224     14   0  0              0        224     >OK                                     JUMP IF A < 0
          22410    12               0   0  0              2                                                        SUBTRACT LITERAL
          22411    73      218     36   0  0              0        218     >IGNORE R                               JUMP IF A < 0
          22412    12               0   0  0             20                                                        SUBTRACT LITERAL
          22413    72      218     36   0  0              0        218     >IGNORE R                               JUMP IF A >= 0
    22409>                                                                                                         
    22405>22414            12      54   0  0              0                                                        SELECT
          22415    101             70   1  2              0                                                        subtract literal address
          22416    73      224     19   0  0              0        224     >CHECK I                                JUMP IF A < 0
          22417    101             10   1  2              0                                                        subtract literal address
          22418    73      227      2   0  0              0        227     >ACTION 70-79, DON'T CHECK I            JUMP IF A < 0
    22416>22419            1       10   0  0              0                                                        SELECT
          22420    80      192      2   0  0              0        192     >CHECK I EVEN                           ENTER SUBROUTINE
  Source image: P1000172.JPG
          22421    76      227      2   0  0              0        227     >CHECK LITERAL                          JUMP unconditional
                                                                                                                   
          22500    PROCR   225       225                                                                           
          22501     NOTES          RADIX                                                                           SELECT
    21707>22502    10               0   0  0              1                SWITCHES                                SELECT LITERAL
          22503    5       12      59   0  0              0                                                        TRANSFER
          22504    76      218      2   0  0              0        218     >CHECK R IS A SECTION                   JUMP unconditional
    21857>22505    10               0   0  0              0                                                        SELECT LITERAL
          22506    34      12      40   0  0              0                                                        SET (N) IN B
          22507    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          22508    36      12      72   0  3              0                COLLATE TX AREA IND                     COLLATE AND ADD
          22509    70      225     31   0  0              0        225     >NOT, IGNORE PREVIOUS INSTRUCTION       JUMP IF A == 0
          22510    10               0   0  0              0                                                        SELECT LITERAL
          22511    34      320     44   0  0              0        320     BITS 1-6                                SET (N) IN B
          22512    36      91       5   0  5              0                                                        COLLATE AND ADD
          22513    12               0   0  0              3                                                        SUBTRACT LITERAL
          22514    70      227      2   0  0              0        227     >RT 3 CARD O/P                          JUMP IF A == 0
          22515    12               0   0  0              1                                                        SUBTRACT LITERAL
          22516    70      227      2   0  0              0        227     >RT 4               GP PRINT            JUMP IF A == 0
    22217>22517    96               0   0  3              0                                                        SELECT MODIFIER
          22518    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
          22519    33               0   0  0              1-               HALVE THE MODIFIER                      SHIFT (AB) BY BITS
          22520    92               0   0  3              0                SET NEW MODIFIER, CLEAR A               SET MODIFIER AT VARIABLE
          22521    74      225     26   0  0              0        225     > NO REMAINDER                          JUMP IF AB == 0        // 27, 1, 0
          22522    34      12      40   0  0              0                                                        SET (N) IN B
          22523            12      40   0  0              0                                                        SELECT
          22524    33               0   0  0             10                FORM 5-LOCN MATRIX FOR ALL TX AREAS     SHIFT (AB) BY BITS
          22525    76      225     28   0  0              0        225     NOT USED IN GPOP ORDERS                 JUMP unconditional
    22521>22526            12      40   0  0              0                                                        SELECT
          22527    34      12      40   0  0              0                                                        SET (N) IN B
    22525>22528    37      12     100   0  3              0                SET BIT                                 REPLACE SELECTED BITS
          22529    60               0   0  0              0                AREA PATTERN                            SET DECIMAL RADIX
          22530    76      227      2   0  0              0        227                                             JUMP unconditional
    22509>                                                                                                         
    21847>                                                                                                         
    21845>                                                                                                         
    21843>                                                                                                         
    21840>22531    80      296      2   0  0              0        296     IGNORE PREVIOUS     INSTRUCTION         ENTER SUBROUTINE
          22532    76      220     30   0  0              0        220                                             JUMP unconditional
                                                                                                                   
          22600    PROCR   226       226     TEST REFERENCE IS GREATER THAN 99                                     
          22601     NOTES          RADIX          SWITCH=6                                                         SELECT
    21708>22602            12       4   0  0              0                                                        SELECT
          22603    12               0   0  0            100                                                        SUBTRACT LITERAL
          22604    73      218     36   0  0              0        218                                             JUMP IF A < 0
          22605    12               0   0  0            900                                                        SUBTRACT LITERAL
          22606    72      218     36   0  0              0        218     IGNORE R                                JUMP IF A >= 0
                                                                                                                   
          22700    PROCR   227       227     SWITCH FOR LITERALS                                                   
          22701     NOTES          RADIX          CHECK L IS NOT > 10 QUARTETS                                     SELECT
    22530>                                                                                                         
    22516>                                                                                                         
    22514>                                                                                                         
    22421>                                                                                                         
    22418>                                                                                                         
    22144>                                                                                                         
    22142>                                                                                                         
    22136>                                                                                                         
    22046>                                                                                                         
    22045>                                                                                                         
    21907>                                                                                                         
    21905>                                                                                                         
    21859>                                                                                                         
    21856>                                                                                                         
  Source image: P1000173.JPG
    21848>22702    0       1       18   1  0              0                                                        SELECT
          22703    71      228      4   0  0              0        228     >IGNORE L                               JUMP IF A != 0
          22704    34      1       16   1  0              0                                                        SET (N) IN B
          22705    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          22706    5       1       18   1  0              0                STORE MODULUS L                         TRANSFER
          22707    85      227      2   0  0              0        227                                             SWITCH R
          22708    C       235      2   0  0              0        235     >NO FURTHER CHECK                       
          22709    C       233      2   0  0              0        233     >MOD L<8192                             
          22710    C       229      2   0  0              0        229     >L POSITIVE/ZERO                        
          22711    C       230      2   0  0              0        230     MOD<32                                  
          22712    C       231      2   0  0              0        231     L HAS DIGITS 0 OR 1                     
          22713    C       232      2   0  0              0        232     1-<L<16                                 
          22714    C       233     12   0  0              0        233     1-<L<8182                               
          22715    C       234      2   0  0              0        234     -1<L<5 QTTS                             
          22716    C       234      5   0  0              0        234     MOD L<4096                              
          22717    C       234     17   0  0              0        234     >L NONZERO                              
          22718    C       234     20   0  0              0        234     >L ZERO                                 
          22719    C       234     22   0  0              0        234     >L<100                                  
          22720    C       234     32   0  0              0        234     >IF L=0,MUST HAVE C-LINE                
                                                                                                                   
          22800    PROCR   228       228     MAKE REPORTS ON L                                                     
          22801     NOTES          RADIX          SWITCH=2                                                         SELECT
    23404>                                                                                                         
    23421>                                                                                                         
    22149>22802    70      235      2   0  0              0        235                                             JUMP IF A == 0
          22803    76      228      5   0  0              0        228                                             JUMP unconditional
    22904>                                                                                                         
    23203>                                                                                                         
    23313>                                                                                                         
    23319>                                                                                                         
    23409>                                                                                                         
    23425>                                                                                                         
    23430>                                                                                                         
    22703>                                                                                                         
    22119>22804    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    23003>                                                                                                         
    23005>                                                                                                         
    23109>                                                                                                         
    23205>                                                                                                         
    23306>                                                                                                         
    23310>                                                                                                         
    23418>                                                                                                         
    23423>                                                                                                         
    22803>                                                                                                         
    22153>                                                                                                         
    22151>22805    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
          22806    76      235      2   0  0              0        235     >END OF CHECKS                          JUMP unconditional
                                                                                                                   
          22900    PROCR   229       229     TEST L IS POSITIVE OR ZERO                                            
          22901     NOTES          RADIX          SWITCH=3                                                         SELECT
    22710>22902            1       16   1  0              0                (ACTIONS 11,12)                         SELECT
          22903    72      235      2   0  0              0        235     >OK                                     JUMP IF A >= 0
          22904    76      228      4   0  0              0        228     >IGNORE L                               JUMP unconditional
                                                                                                                   
          23000    PROCR   230       230     L=1-31 INCLUSIVE                                                      
          23001     NOTES          RADIX          SWITCH=4                                                         SELECT
  Source image: P1000183.JPG
    22711>23002    0       1       18   1  0              0                MOD L               (ACTIONS 30-33)     SELECT
          23003    70      228      5   0  0              0        228     >REPORT L                               JUMP IF A == 0
          23004    12               0   0  0             32                                                        SUBTRACT LITERAL
    23416>23005    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          23006    76      235      2   0  0              0        235                                             JUMP unconditional
                                                                                                                   
          23100    PROCR   231       231     TEST DIGITS OF L ARE 1 OR 0                                           
          23101     NOTES          RADIX          SWITCH=5                                                         SELECT
    22712>23102    90               0   0  3              0                ACTION 35, CERTAIN GROUP 4              SET MODIFICATION REGISTER AT LITERAL
          23103    C                0   0  0             10                                                        
          23104    10               0   0  0              0                                                        SELECT LITERAL
          23105    34      1       16   1  0              0                                                        SET (N) IN B
    23110>23106    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          23107    70      231     10   0  0              0        231                                             JUMP IF A == 0
          23108    12               0   0  0              1                                                        SUBTRACT LITERAL
          23109    71      228      5   0  0              0        228                                             JUMP IF A != 0
    23107>23110    94      231      6   0  3              1        231                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          23111    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23200    PROCR   232       232     TEST L IS IN RANGE 1-15                                               
          23201     NOTES          RADIX          SWITCH=6                                                         SELECT
    22713>23202            1       16   1  0              0                ACTION 38                               SELECT
          23203    73      228      4   0  0              0        228     >REPORT L IGNORE                        JUMP IF A < 0
          23204    12               0   0  0             16                                                        SUBTRACT LITERAL
          23205    72      228      5   0  0              0        228                                             JUMP IF A >= 0
          23206    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23300    PROCR   233       233     L IS LESS THAN 8192   BULK COPY                                       
          23301     NOTES          RADIX          SWITCH=7                                                         SELECT
    22709>23302            12      61   0  0              0                C-LINE IND          (ACTION 90)         SELECT
          23303    71      233      7   0  0              0        233     >NOT C-LINE                             JUMP IF A != 0
          23304            12      46   0  0              0                FIRST LINE LITERAL                      SELECT
          23305    34      1       18   0  0              0                C-LINE LITERAL                          SET (N) IN B
          23306    74      228      5   0  0              0        228     >REPORT L IF BOTH ZERO                  JUMP IF AB == 0        // 27, 1, 0
    23303>23307            1       18   1  0              0                                                        SELECT
          23308    3       12      46   0  0              0                                                        COPY
          23309    12               0   0  0           8192                                                        SUBTRACT LITERAL
          23310    72      228      5   0  0              0        228     >REPORT L                               JUMP IF A >= 0
          23311    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
    22714>23312            1       16   1  0              0                ACTION 55                               SELECT
          23313    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
    23413>23314            1       12   0  0              0                DISC                                    SELECT
          23315    70      233     17   0  0              0        233     >SHORT                                  JUMP IF A == 0
          23316    10               0   0  0           4095                                                        SELECT LITERAL
    23315>23317    11               0   0  0           4095                                                        ADD LITERAL
          23318    2       1       16   1  0              0                                                        SUBTRACT
          23319    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
          23320    76      235      2   0  0              0        235     >OK                                     JUMP unconditional
                                                                                                                   
          23400    PROCR   234       234                                                                           
          23401     NOTES          RADIX                                                                           SELECT
    22715>23402    0       1       16   1  0              0                LITERAL IN 5 QUARTETS                   SELECT
          23403    30               0   0  0              5-               (LEAVE SIGN IN A)                       SHIFT (A) BY QUARTETS
          23404    76      228      2   0  0              0        228                                             JUMP unconditional
    22716>23405    0       12      54   0  0              0                ACTIONS 54,94                           SELECT
          23406    12               0   0  0             36                                                        SUBTRACT LITERAL
          23407    71      234     14   0  0              0        234     >NOT ACTION 54                          JUMP IF A != 0
          23408    0       1       16   1  0              0                                                        SELECT
          23409    73      228      4   0  0              0        228     >IGNORE L                               JUMP IF A < 0
          23410    70      234     34   0  0              0        234                                             JUMP IF A == 0
  Source image: P1000185.JPG
          23411    10               0   0  0              0                                                        SELECT LITERAL
          23412    5       12      60   1  0              0                                                        TRANSFER
          23413    76      233     14   0  0              0        233     >CHECK RANGE                            JUMP unconditional
    23407>23414    0       1       18   1  0              0                MOD L                                   SELECT
          23415    12               0   0  0           4096                                                        SUBTRACT LITERAL
          23416    76      230      5   0  0              0        230                                             JUMP unconditional
    22717>23417    0       1       16   1  0              0                CHECK L NONZERO (ACTION 17:19)          SELECT
          23418    70      228      5   0  0              0        228                                             JUMP IF A == 0
          23419    76      235      2   0  0              0        235                                             JUMP unconditional
    22718>23420            1       16   1  0              0                CHECK L=0  ACTIONS 83                   SELECT
          23421    76      228      2   0  0              0        228                                             JUMP unconditional
    22719>23422            1       16   1  0              0                L<100                                   SELECT
          23423    73      228      5   0  0              0        228     > REPORT L                              JUMP IF A < 0
          23424    12               0   0  0            100                                                        SUBTRACT LITERAL
          23425    72      228      4   0  0              0        228     > IGNORE L                              JUMP IF A >= 0
          23426    0       12      54   0  0              0                ACTION                                  SELECT
          23427    101             83   1  2              0                                                        subtract literal address
          23428    71      235      2   0  0              0        235     > NOT 83                                JUMP IF A != 0
          23429    0       1       16   0  0              0                                                        SELECT
          23430    70      228      4   0  0              0        228     > IGNORE L                              JUMP IF A == 0
          23431    76      235      2   0  0              0        235                                             JUMP unconditional
    22720>23432    0       1       16   1  0              0                ACTION 77, 78                           SELECT
          23433    71      235      2   0  0              0        235     > OK                                    JUMP IF A != 0
    23410>23434    10               0   0  0              1                (ZERO L FOR 54, 77, 78 ACTIONS)         SELECT LITERAL
          23435    5       12      61   0  0              0                MUST BE C-LINE                          TRANSFER
                                                                                                                   
          23500    PROCR   235       235     TEST FP/MG USED, STORE MR>3 DETAILS                                   
          23501     NOTES          RADIX                                                                           SELECT
    23433>                                                                                                         
    23431>                                                                                                         
    23428>                                                                                                         
    23419>                                                                                                         
    23320>                                                                                                         
    23311>                                                                                                         
    23206>                                                                                                         
    23111>                                                                                                         
    23006>                                                                                                         
    22903>                                                                                                         
    22806>                                                                                                         
    22802>                                                                                                         
    22708>                                                                                                         
    22167>                                                                                                         
    22154>                                                                                                         
    22147>                                                                                                         
    22122>                                                                                                         
    22118>                                                                                                         
    22111>                                                                                                         
    22107>                                                                                                         
    22104>                                                                                                         
    22038>                                                                                                         
    22036>23502    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          23503            12      54   0  0              0                                                        SELECT
          23504    12               0   0  0             14                TEST ACTION IS 20 - 29                  SUBTRACT LITERAL
          23505    73      247      2   0  0              0        247                                             JUMP IF A < 0
          23506    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          23507    73      235     17   0  0              0        235                                             JUMP IF A < 0
          23508    12               0   0  0             15                                                        SUBTRACT LITERAL
          23509    73      247      2   0  0              0        247     >30 - 50                                JUMP IF A < 0
          23510    12               0   0  0                                                                       SUBTRACT LITERAL
          23511    70      235     14   0  0              0        235     > 66                                    JUMP IF A == 0
  Source image: P1000186.JPG
          23512    12               0   0  0              1                                                        SUBTRACT LITERAL
          23513    71      235     19   0  0              0        235     >NOT 67                                 JUMP IF A != 0
    23511>23514    10               0   0  0              1-                                                       SELECT LITERAL
          23515    5       92       5   0  0              0                                                        TRANSFER
          23516    76      235     19   0  0              0        235                                             JUMP unconditional
    23507>23517    5       92       5   0  0              0                SET F. PT. INDICATOR FOR PASS 3         TRANSFER
          23518    76      247      2   0  0              0        247                                             JUMP unconditional
    23516>                                                                                                         
    23513>23519            1       14   0  0              0                MOD DIGITS                              SELECT
          23520    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          23521    3       12      88   0  0              0                STORE                                   COPY
          23522    70      236      2   0  0              0        236                                             JUMP IF A == 0
          23523    12               0   0  0              4                                                        SUBTRACT LITERAL
          23524    73      236      2   0  0              0        236     >MR 1-3                                 JUMP IF A < 0
          23525            12      54   0  0              0                ACTION                                  SELECT
          23526    12               0   0  0             3‼                59                                      SUBTRACT LITERAL
          23527    70      235     32   0  0              0        235     >ACTION 59                              JUMP IF A == 0
          23528    12               0   0  0             1£                31                                      SUBTRACT LITERAL
          23529    73      236      2   0  0              0        236     ><90                                    JUMP IF A < 0
          23530    12               0   0  0              4                                                        SUBTRACT LITERAL
          23531    72      236      2   0  0              0        236     >>93                                    JUMP IF A >= 0
    23527>23532    91      71       0   0  3              0                CTR OF MR'S (INITIALLY 0:0)             SET MODIFICATION REGISTER AT VARIABLE
    23539>23533    10               0   0  0              0                                                        SELECT LITERAL
          23534    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          23535    36      71       2   0  3              0                                                        COLLATE AND ADD
          23536    70      235     40   0  0              0        235     >NONE STORED YET                        JUMP IF A == 0
          23537    2       12      88   0  0              0                THIS ONE                                SUBTRACT
          23538    70      236      2   0  0              0        236     >ALREADY STORED                         JUMP IF A == 0
          23539    94      235     33   0  3              1        235     >SEARCH                                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23536>23540            92       0   0  0              0                UNCORR CHAP (BIN)                       SELECT
          23541    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          23542    1       12      88   0  0              0                MR (BIN)                                ADD
          23543    5       71       2   0  3              0                STORE DETAIL                            TRANSFER
          23544    10               0   0  0              1                                                        SELECT LITERAL
          23545    4       71       1   0  0              0                AUG CTR                                 AUGMENT
                                                                                                                   
          23600    PROCR   236       236     TEST ACTION IS C                                                      
          23601     NOTES          RADIX          FOR ACTIONS 85 AND 150                                           SELECT
    23538>                                                                                                         
    23531>                                                                                                         
    23529>                                                                                                         
    23524>                                                                                                         
    23522>23602    62               0   0  0              0                                                        SET EXCESS CONSTANTS
                                                                                                                   
          23700    PROCR   237       237     TEST FOR SEQUENCE CHANGES                                             
          23701     NOTES          RADIX                                                                           SELECT
          23702    0       12      54   0  0              0                BIN ACTION                              SELECT
          23703    12               0   0  0             46                                                        SUBTRACT LITERAL
          23704    73      243      2   0  0              0        243     >ACTION <70                             JUMP IF A < 0
          23705    12               0   0  0              7                                                        SUBTRACT LITERAL
          23706    73      240      2   0  0              0        240     ACTIONS 70-76                           JUMP IF A < 0
          23707    12               0   0  0              2                                                        SUBTRACT LITERAL
          23708    70      240      2   0  0              0        240     >ACTION 79                              JUMP IF A == 0
          23709    72      237     14   0  0              0        237     >OTHERS                                 JUMP IF A >= 0
          23710    0       1        6   1  0              0                ACTION OR C                             SELECT
          23711    12               0   0  0     5300000000                                                        SUBTRACT LITERAL
          23712    71      240      2   0  0              0        240     >MAINLINE OF 77, 78                     JUMP IF A != 0
          23713    76      247      2   0  0              0        247     >HENCE C-LINE OF 77-78                  JUMP unconditional
    23709>23714    12               0   0  0              6                                                        SUBTRACT LITERAL
          23715    70      238      2   0  0              0        238     >ACTION 85                              JUMP IF A == 0
  Source image: P1000187.JPG
          23716    12               0   0  0              2                                                        SUBTRACT LITERAL
          23717    70      237     22   0  0              0        237     >87                                     JUMP IF A == 0
          23718    12               0   0  0              7                                                        SUBTRACT LITERAL
          23719    70      239     13   0  0              0        239     >ACTION 94                              JUMP IF A == 0
          23720    12               0   0  0              3                                                        SUBTRACT LITERAL
          23721    71      237     26   0  0              0        237     >ACTIONS>97                             JUMP IF A != 0
    23727>                                                                                                         
    23717>23722            1        7   0  0              0                                                        SELECT
          23723    12               0   0  0          53000                                                        SUBTRACT LITERAL
          23724    70      240      2   0  0              0        240     >IS C-LINE, COUNT AS CHANGE             JUMP IF A == 0
          23725    76      247      2   0  0              0        247     >OUTPUT                                 JUMP unconditional
    23721>23726    12               0   0  0             35                                                        SUBTRACT LITERAL
          23727    70      237     22   0  0              0        237     >ACTION 150                             JUMP IF A == 0
          23728    76      239      2   0  0              0        239     >TRY MACHINE CODE ACTIONS               JUMP unconditional
                                                                                                                   
          23800    PROCR   238       238     FORM SWITCH DETAILS                                                   
          23801     NOTES          RADIX                                                                           SELECT
    23715>23802            1        7   0  0              0                                                        SELECT
          23803    12               0   0  0          53000                                                        SUBTRACT LITERAL
          23804    70      240      2   0  0              0        240     >IS C-LINE OF 85 ACTION                 JUMP IF A == 0
          23805    91      95       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          23806            12       4   0  0              0                PROCR                                   SELECT
          23807    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          23808    5       12      32   0  0              0                                                        TRANSFER
    23815>23809    10               0   0  0              0                                                        SELECT LITERAL
          23810    34      319     20   0  0              0        319     BITS 1-10                               SET (N) IN B
          23811    36      95       2   0  3              0                                                        COLLATE AND ADD
          23812    70      238     16   0  0              0        238     >NONE STORED YET                        JUMP IF A == 0
          23813    2       12      32   0  0              0                                                        SUBTRACT
          23814    70      238     25   0  0              0        238     >ALREADY STORED                         JUMP IF A == 0
          23815    94      238      9   0  3              1        238                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    23812>23816    0       95       1   0  0              0                                                        SELECT
          23817    12               0   0  0             30                                                        SUBTRACT LITERAL
          23818    72      238     25   0  0              0        238     >DONT STORE 49-TH                       JUMP IF A >= 0
          23819    0       92       0   0  0              0                CURRENT BIN UNCORR CHAP                 SELECT
          23820    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          23821    1       12      32   0  0              0                SWITCH PROCR                            ADD
          23822    5       95       2   0  3              0                STORE DETAIL                            TRANSFER
          23823    10               0   0  0              1                                                        SELECT LITERAL
          23824    4       95       1   0  0              0                STEP CTR                                AUGMENT
    23818>                                                                                                         
    23814>23825    60               0   0  0              0                COUNTER IN BINARY                       SET DECIMAL RADIX
          23826    76      247      2   0  0              0        247     >O/P INSTRUCTION                        JUMP unconditional
                                                                                                                   
          23900    PROCR   239       239     MACHINE CODE SEQUENCE CHANGES                                         
          23901     NOTES          RADIX                                                                           SELECT
    23728>23902    0       12      54   0  0              0                BIN ACTION                              SELECT
          23903    12               0   0  0             7                                                         SUBTRACT LITERAL
          23904    70      240      2   0  0              0        240     >ACTION 127/D/M                         JUMP IF A == 0
          23905    11               0   0  0              3                                                        ADD LITERAL
          23906    71      241      2   0  0              0        241     >NOT 124/D/M                            JUMP IF A != 0
          23907            1       12   0  0              0                                                        SELECT
          23908    12               0   0  0              1                                                        SUBTRACT LITERAL
          23909    71      241      2   0  0              0        241     >NOT 124/1/M                            JUMP IF A != 0
          23910            1       14   0  0              0                                                        SELECT
          23911    71      241      2   0  0              0        241     >NOT 124/1/0                            JUMP IF A != 0
          23912    76      240      2   0  0              0        240                         ACTION 94           JUMP unconditional
    23719>23913    60               0   0  0              0                                                        SET DECIMAL RADIX
          23914    0       1       16   1  0              0                                                        SELECT
          23915    71      239     17   0  0              0        239                                             JUMP IF A != 0
  Source image: P1000188.JPG
          23916    80      197      2   0  0              0        197     >REPORT L                               ENTER SUBROUTINE
    23915>23917    0       1        8   1  0              0                                                        SELECT
          23918    71      240      2   0  0              0        240     >COUNT AS SEQ CHANGE                    JUMP IF A != 0
          23919    0       1       10   0  0              0                                                        SELECT
          23920    70      247      2   0  0              0        247                                             JUMP IF A == 0
          23921    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          23922    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          24000    PROCR   240       240     TEST IF SEQUENCE CHANGE IS FORWARD OR BACK                            
          24001     NOTES          RADIX                                                                           SELECT
    23918>                                                                                                         
    23912>                                                                                                         
    23904>                                                                                                         
    23804>                                                                                                         
    23724>                                                                                                         
    23712>                                                                                                         
    23708>                                                                                                         
    23706>24002    0       12       4   0  0              0                DEC REF                                 SELECT
          24003    12               0   0  0            999                                                        SUBTRACT LITERAL
          24004    72      247      2   0  0              0        247                                             JUMP IF A >= 0
          24005    0       92       3   0  0              0                (CURRENT LINE SERIAL)                   SELECT
          24006    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24007    1       12       9   0  0              0                SEQ CHANGE SOURCE                       ADD
          24008    3       12     118   0  0              0                SOURCE                                  COPY
          24009    2       1        8   2  0              0                L-ALIGNED REF                           SUBTRACT
          24010    2       1       10   0  0              0                ITEM                                    SUBTRACT
          24011    73      247      2   0  0              0        247     >SOURCE<DEST. SEQ CHANGE FWD            JUMP IF A < 0
          24012            1        8   2  0              0                                                        SELECT
          24013    70      247      2   0  0              0        247     >SC TO ABS ADDRESS, DON'T STORE         JUMP IF A == 0
          24014    1       1       10   0  0              0                                                        ADD
          24015    73      247      2   0  0              0        247     >SKIP                                   JUMP IF A < 0
          24016    5       12     119   0  0              0                DESTINATION                             TRANSFER
          24017    0       12     118   1  0              0                                                        SELECT
          24018    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24019    124     92       9   1  2              0                ABS START OF LIST 918+2496 INITIALLY)   modify address of next
          24020    101              0   1  0              0                TABLE LOOKUP                            table look up
          24021    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24022    91               0   0  1              0                STORE LOCN OF FIRST GREATER             SET MODIFICATION REGISTER AT VARIABLE
          24023    2       92       9   0  0              0                                                        SUBTRACT
          24024    30               0   0  0              5                SHIFT QTTY TO BE MOVED                  SHIFT (A) BY QUARTETS
          24025    1       92       9   0  0              0                START                                   ADD
          24026    5       12      88   1  0              0                WL=BULK COPY TABLE ENTRY                TRANSFER
          24027    0       92       9   0  0              0                CURRENT LIST START                      SELECT
          24028    2       317     90   0  0              0        317     ABS ADDRESS 18:0                        SUBTRACT
          24029    70      247      2   0  0              0        247     >LIST FULL, DONT STORE                  JUMP IF A == 0
          24030    10               0   0  0              2-                                                       SELECT LITERAL
          24031    4       92       9   0  0              0                ADJUST FOR NEW START                    AUGMENT
          24032            12      88   1  0              0                                                        SELECT
          24033    124     92       9   1  2              0                                                        modify address of next
          24034    128              0   1  1              0                BULK COPY UP ONE WORD                   bulk copy long numeric
          24035    94               0   0  1              2-               ADJUST                                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24036            12     118   1  0              0                NEW SEQ CH BACK                         SELECT
          24037    5                0   1  1              0                PLACE IN LIST                           TRANSFER
          24038    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          24100    PROCR   241       241     STORE OVERLAY DETAILS                                                 
          24101     NOTES          RADIX                                                                           SELECT
    23911>                                                                                                         
    23909>                                                                                                         
    23906>24102            12      54   0  0              0                BIN ACTION                              SELECT
  Source image: P1000189.JPG
          24103    12               0   0  0             98                                                        SUBTRACT LITERAL
          24104    71      243      2   0  0              0        243     >NOT ACTION 152, OVERLAY                JUMP IF A != 0
          24105    91      12      12   0  3              0                SCAN CHAPTER STARTS                     SET MODIFICATION REGISTER AT VARIABLE
    24109>24106            12       4   0  0              0                PROCR OF OLAID/OLAYER CHAP START        SELECT
          24107    2       12      14   0  3              0                NEXT CHAP START                         SUBTRACT
          24108    70      241     13   0  0              0        241     >MATCH FOUND                            JUMP IF A == 0
          24109    94      241      6   0  3              1        241     >TRY NEXT                               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24110    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
          24111    80      295      2   0  0              0        295     >IGNORE INSTRUCTION                     ENTER SUBROUTINE
          24112    76      241     14   0  0              0        241     >PRETEND IS CHAP 1                      JUMP unconditional
    24108>24113    95               0   0  3              0                                                        SELECT MODIFICATION REGISTER
    24112>24114    11               0   0  0              1                                                        ADD LITERAL
          24115    5       12      46   0  0              0                                                        TRANSFER
          24116    0       12      61   0  0              0                IS C-LINE READ YET?                     SELECT
          24117    70      242      2   0  0              0        242     >THIS IS C-LINE NOW                     JUMP IF A == 0
          24118    0       12      46   0  0              0                OLAID CHAP                              SELECT
          24119    5       12      47   0  0              0                                                        TRANSFER
          24120    76      247      2   0  0              0        247     >O/P+READ C-LINE                        JUMP unconditional
                                                                                                                   
          24200    PROCR   242       242     UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS                    
          24201     NOTES          RADIX                                                                           SELECT
    24117>24202    10               0   0  0             10                BIT 5                                   SELECT LITERAL
          24203    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          24204    10               0   0  0             10                                                        SELECT LITERAL
          24205    124     12      46   0  1              0                OLAYER              SET 'NON-UNIQUE' INDmodify address of next
          24206    37      92       9   0  0              0                                    BIT 5               REPLACE SELECTED BITS
          24207    124     12      47   0  1              0                OLAID                                   modify address of next
          24208    37      92       9   0  0              0                                                        REPLACE SELECTED BITS
          24209    10               0   0  0              0                                                        SELECT LITERAL
          24210    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          24211    124     12      46   0  1              0                                                        modify address of next
          24212    36      92       9   0  0              0                OLAYER PREVIOUS CORR CHAP               COLLATE AND ADD
          24213    5       12      46   0  0              0                                                        TRANSFER
          24214    124     12      47   0  1              0                                                        modify address of next
          24215    36      92       9   0  0              0                CORR CHAP OF OLAID                      COLLATE AND ADD
          24216    3       12      47   0  0              0                                                        COPY
          24217    2       12      46   0  0              0                                                        SUBTRACT
          24218    70      247      2   0  0              0        247     >NO ADJUSTMENTS NEEDED                  JUMP IF A == 0
          24219    73      242     24   0  0              0        242     >12/46>12/47                            JUMP IF A < 0
          24220    34      12      46   0  0              0                                                        SET (N) IN B
          24221    4       12      46   0  0              0                                                        AUGMENT
          24222    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          24223    5       12      47   0  0              0                GREATER IN 46       LESSER IN 47        TRANSFER
    24219>24224    91      12      12   0  3              0                UNCORR CHAPS:0                          SET MODIFICATION REGISTER AT VARIABLE
          24225    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
    24232>24226    10               0   0  0              0                                                        SELECT LITERAL
          24227    36      92      10   0  3              0                CORR CHAP                               COLLATE AND ADD
          24228    2       12      46   0  0              0                GREATER IN THIS OVERLAY                 SUBTRACT
          24229    71      242     32   0  0              0        242     >NOT TO BE REPLACED                     JUMP IF A != 0
          24230            12      47   0  0              0                                                        SELECT
          24231    37      92      10   0  3              0                REPLACE                                 REPLACE SELECTED BITS
    24229>24232    94      242     26   0  3              1        242     >TREAT ALL CHAPS                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24233    76      247      2   0  0              0        247     O/P INSTRUCTION                         JUMP unconditional
                                                                                                                   
          24300    PROCR   243       243     STORE OLD/NEW RADICES FOR CONVERT ACTIONS                             
          24301     NOTES          RADIX                                                                           SELECT
    24104>                                                                                                         
    23704>24302    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          24303            12      54   0  0              0                                                        SELECT
          24304    12               0   0  0             5:                                                        SUBTRACT LITERAL
  Source image: P1000190.JPG
          24305    70      243     14   0  0              0        243     >ACTION 93 DEC-BIN                      JUMP IF A == 0
          24306    11               0   0  0             1+                                                        ADD LITERAL
          24307    70      243     32   0  0              0        243     >ACTION 65 ANY-ANY                      JUMP IF A == 0
          24308    11               0   0  0              2                                                        ADD LITERAL
          24309    70      243     13   0  0              0        243     >ACTION 63 DEC-STERLING                 JUMP IF A == 0
          24310    12               0   0  0              1                                                        SUBTRACT LITERAL
          24311    71      246      2   0  0              0        246     >ACTION NOT 64, STERLING - DECIMAL      JUMP IF A != 0
          24312    10               0   0  0       7£:££802                                                        SELECT LITERAL
    24309>24313    11               0   0  0          66.64                                                        ADD LITERAL
    24305>24314    11               0   0  0     6666600000                                                        ADD LITERAL
          24315    5       12      46   1  0              0                STORE OLD - NEW RADIX                   TRANSFER
    24335>24316            92       7   0  0              0                CTR OF CONVERT TABLES TO DATE           SELECT
          24317    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          24318    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          24319    70      243     27   0  0              0        243     > NONE STORED YET                       JUMP IF A == 0
    24323>24320            99       0   1  3              0                                                        SELECT
          24321    2       12      46   1  0              0                                                        SUBTRACT
          24322    70      247      2   0  0              0        247     > ALREADY STORED                        JUMP IF A == 0
          24323    94      243     20   0  3              2        243                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24324    0       92       7   0  0              0                                                        SELECT
          24325    12               0   0  0             32                50                                      SUBTRACT LITERAL
          24326    72      247      2   0  0              0        247     > DONT STORE 26-TH                      JUMP IF A >= 0
    24319>24327    0       12      46   1  0              0                                                        SELECT
          24328    5       99       0   1  3              0                                                        TRANSFER
          24329    10               0   0  0              2                                                        SELECT LITERAL
          24330    4       92       7   0  0              0                AUG CTR                                 AUGMENT
          24331    76      247      2   0  0              0        247     > O/P INSTRUCTION                       JUMP unconditional
    24307>24332            1       16   0  0              0                L=RADIX                                 SELECT
          24333    5       12      46   0  0              0                                                        TRANSFER
          24334            12      61   0  0              0                C-LINE IND                              SELECT
          24335    70      243     16   0  0              0        243     > THIS IS C-LINE    INSERT RADIX PAIR   JUMP IF A == 0
          24336            12      46   0  0              0                                                        SELECT
          24337    5       12      47   0  0              0                SET OLD RADIX                           TRANSFER
          24338    76      247      2   0  0              0        247     > GET C-LINE                            JUMP unconditional
                                                                                                                   
          24400    PROCR   244       244     CONVERT (A) TO DEC                                                    
          24401     NOTES  244                                                                                     SELECT
          24402    81      244      2   0  0              0        244                                             START OF SUBROUTINE
          24403    5       320     42   1  0              0        320                                             TRANSFER
          24404    60               0   0  0              0                SET DEC                                 SET DECIMAL RADIX
          24405    124     320      2   0  2              0        320                                             select literal and division
          24406    112     320     42   1  0              0        320                                             convert
          24407    82      244      2   0  0              0        244                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24500    PROCR   245       245     CONVERT (A) TO BINARY                                                 
          24501     NOTES  245                                                                                     SELECT
          24502    81      245      2   0  0              0        245                                             START OF SUBROUTINE
          24503    5       320     42   1  0              0        320                                             TRANSFER
          24504    62               0   0  0              0                SET BIN                                 SET EXCESS CONSTANTS
          24505    124     320     22   0  2              0        320                                             select literal and division
          24506    112     320     42   1  0              0        320                                             convert
          24507    82      245      2   0  0              0        245                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          24600    PROCR   246       246     STORE UNPACK AND CONDENSE                                             
          24601     NOTES          RADIX                                                                           SELECT
    24311>24602    0       12      61   0  0              0                                                        SELECT
          24603    70      247      2   0  0              0        247     > THIS IS C-LINE                        JUMP IF A == 0
          24604    0       12      54   0  0              0                ACTION                                  SELECT
          24605    101             51   1  2              0                                                        subtract literal address
          24606    70      246     11   0  0              0        246     > UNPACK                                JUMP IF A == 0
  Source image: P1000191.JPG
          24607    101              2   1  2              0                                                        subtract literal address
          24608    70      246     11   0  0              0        246     >CONDENSE                               JUMP IF A == 0
          24609    101            104   1  2              0                                                        subtract literal address
          24610    71      247      2   0  0              0        247     >NOT EXPAND (157)                       JUMP IF A != 0
    24608>                                                                                                         
    24606>24611            12       4   0  0              0                SECTION                                 SELECT
          24612    80      245      2   0  0              0        245     >CONVERT                                ENTER SUBROUTINE
          24613    3       12      88   0  0              0                SEC/ PROCR                              COPY
          24614    12               0   0  0             64                100                                     SUBTRACT LITERAL
          24615    72      247      2   0  0              0        247     >DON'T STORE FOR 3-DIGT REP             JUMP IF A >= 0
          24616            98       0   1  0              0                                                        SELECT
          24617    91      98       0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          24618    70      246     28   0  0              0        246     >NONE STORED YET                        JUMP IF A == 0
    24624>24619    10               0   0  0              0                                                        SELECT LITERAL
          24620    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          24621    36      98       2   0  3              0                                                        COLLATE AND ADD
          24622    2       12      88   0  0              0                                                        SUBTRACT
          24623    70      247      2   0  0              0        247     > MATCH FWND                            JUMP IF A == 0
          24624    94      246     19   0  3              1        246                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          24625    0       98       1   0  0              0                                                        SELECT
          24626    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          24627    72      247      2   0  0              0        247     > DONT STORE 11 - TH                    JUMP IF A >= 0
    24618>24628    0       92       0   0  0              0                THIS CHAP UNCORR                        SELECT
          24629    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          24630    1       12      88   0  0              0                SECTION                                 ADD
          24631    5       98       2   0  3              0                                                        TRANSFER
          24632    10               0   0  0              1                                                        SELECT LITERAL
          24633    4       98       1   0  0              0                AUG CTR                                 AUGMENT
                                                                                                                   
          24700    PROCR   247       247     FORM SERIAL NUMBER                                                    
          24701     NOTES          RADIX                                                                           SELECT
    26621>                                                                                                         
    26624>                                                                                                         
    26714>                                                                                                         
    26725>                                                                                                         
    26727>                                                                                                         
    26729>                                                                                                         
    26733>                                                                                                         
    26808>                                                                                                         
    27103>                                                                                                         
    27107>                                                                                                         
    27304>                                                                                                         
    27813>                                                                                                         
    28026>                                                                                                         
    28037>                                                                                                         
    28143>                                                                                                         
    28231>                                                                                                         
    24627>                                                                                                         
    24623>                                                                                                         
    24615>                                                                                                         
    24610>                                                                                                         
    24603>                                                                                                         
    24338>                                                                                                         
    24331>                                                                                                         
    24326>                                                                                                         
    24322>                                                                                                         
    24233>                                                                                                         
    24218>                                                                                                         
    24120>                                                                                                         
    24038>                                                                                                         
    24029>                                                                                                         
    24015>                                                                                                         
    24013>                                                                                                         
    24011>                                                                                                         
    24004>                                                                                                         
    23922>                                                                                                         
    23920>                                                                                                         
    23826>                                                                                                         
    23725>                                                                                                         
    23713>                                                                                                         
    23518>                                                                                                         
    23509>                                                                                                         
    23505>                                                                                                         
    21105>                                                                                                         
    20709>                                                                                                         
    20631>                                                                                                         
    20624>                                                                                                         
    20604>                                                                                                         
    20506>                                                                                                         
    19128>                                                                                                         
    19124>                                                                                                         
  Source image: P1000192.JPG
    19122>24702    0       12      85   0  0              0                TEST IF TO IGNORE                       SELECT
          24703    70      247      5   0  0              0        247     THIS BLOCK                              JUMP IF A == 0
          24704    80      295      2   0  0              0        295     YES - IGNORE                            ENTER SUBROUTINE
    24703>24705    60               0   0  0              0                                                        SET DECIMAL RADIX
          24706            92       3   0  0              0                TRANSLATOR'S PROCR                      SELECT
          24707    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24708    5       12      88   0  0              0                                                        TRANSFER
          24709    86      191      2   0  0              0        191                                             SELECT SWITCH R
          24710    12               0   0  0              5                                                        SUBTRACT LITERAL
          24711    70      247     26   0  0              0        247     >VALUES                                 JUMP IF A == 0
          24712            12       9   0  0              0                LONE SERIAL IN PROCR                    SELECT
          24713    12               0   0  0            100                                                        SUBTRACT LITERAL
          24714    73      247     26   0  0              0        247     >OK                                     JUMP IF A < 0
          24715    86      191      2   0  0              0        191                                             SELECT SWITCH R
          24716    12               0   0  0              2                                                        SUBTRACT LITERAL
          24717    70      247     22   0  0              0        247     >INSTRUCTIONS, IGNORE                   JUMP IF A == 0
          24718    35               0   0  0         111111                TABLE ENTRIES, CONSTS='SER'             PREPARE FOR DIGIT COLLATION
          24719    10               0   0  0         725569                                                        SELECT LITERAL
          24720    37      1       44   1  0              0                                                        REPLACE SELECTED BITS
          24721    76      247     23   0  0              0        247                                             JUMP unconditional
    24717>24722    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
    24721>24723    10               0   0  0             99                                                        SELECT LITERAL
          24724    2       12      90   0  0              0                (0=SHORT, 1=LONG)                       SUBTRACT
          24725    76      247     27   0  0              0        247     >SET 98 OR 99                           JUMP unconditional
    24714>                                                                                                         
    24711>24726            12       9   0  0              0                                                        SELECT
    24725>24727    4       12      88   0  0              0                                                        AUGMENT
          24728    52      1        2   0  0              0                EDIT SERIAL                             EDIT
          24729    C       306      6   0  0              0        306                                             
                                                                                                                   
          24800    PROCR   248       248     AUGMENT INSTRUCTION COUNTER                                           
          24801     NOTES          RADIX                                                                           SELECT
          24802    10               0   0  0              0                                                        SELECT LITERAL
          24803    85      191      2   0  0              0        191                                             SWITCH R
          24804    C       248     11   0  0              0        248     >'PROCR/TABLE'                          
          24805    C       249     13   0  0              0        249     >INSTRUCTIONS/'NNOTES'                  
          24806    C       249      2   0  0              0        249     >TABLE ENTRY/'NOTES'                    
          24807    C       249      7   0  0              0        249     >CONSTANT/'CONST'                       
          24808    C       248      9   0  0              0        248     VALUE ENTRY/VALUE                       
  Source image: P1000193.JPG
    24808>24809    5       1        2   1  0              0                CLEAR LINE SERIAL                       TRANSFER
          24810    76      248     13   0  0              0        248                                             JUMP unconditional
    24804>24811    0       12       9   0  0              0                SERIAL THIS LINE WITHIN SECTION         SELECT
          24812    71      248     18   0  0              0        248     >NOTES BLOCK                            JUMP IF A != 0
    24911>                                                                                                         
    24810>24813            319     22   0  0              0        319     SW 27/5 LAST TIME THRU                  SELECT
          24814    12               0   0  0              3                                                        SUBTRACT LITERAL
          24815    71      248     18   0  0              0        248     >LAST TIME WASN'T FOR CONSTANTS         JUMP IF A != 0
          24816    10               0   0  0              1                                                        SELECT LITERAL
          24817    5       29       6   1  0              0                CONSTS END SIGN                         TRANSFER
    24815>                                                                                                         
    24812>24818    10               0   0  0              0                                                        SELECT LITERAL
          24819    76      249     13   0  0              0        249                                             JUMP unconditional
                                                                                                                   
          24900    PROCR   249       249     AUGMENT INSTRUCTION                                                   
          24901     NOTES          RADIX                                                                           SELECT
    24806>24902            12       9   0  0              0                                                        SELECT
          24903    12               0   0  0              1                                                        SUBTRACT LITERAL
          24904    70      249     13   0  0              0        249                                             JUMP IF A == 0
          24905    10               0   0  0              2                                                        SELECT LITERAL
          24906    76      249     14   0  0              0        249                                             JUMP unconditional
    24807>24907            12       9   0  0              0                                                        SELECT
          24908    71      249     12   0  0              0        249     >NOT 'CONST' BLOCK                      JUMP IF A != 0
          24909    10               0   0  0              1                                                        SELECT LITERAL
          24910    4       12       9   0  0              0                (SO AS TO STEP BY 2 EVENTUALLY)         AUGMENT
          24911    76      248     13   0  0              0        248     >TEST IF LAST SECTION WAS CONSTANTS     JUMP unconditional
    24908>24912    0       12      90   0  0              0                                                        SELECT
    24904>                                                                                                         
    24819>                                                                                                         
    24805>24913    11               0   0  0              1                                                        ADD LITERAL
    24906>24914    4       12       9   0  0              0                                                        AUGMENT
          24915    0       12      33   0  0              0                                                        SELECT
          24916    70      249     20   0  0              0        249     >BLOCK EX MT                            JUMP IF A == 0
          24917    0       12       1   0  0              0                                                        SELECT
          24918    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          24919    5       1        0   1  0              0                AMEND IND                               TRANSFER
    24916>24920    5       92      34   1  0              0                CLEAR                                   TRANSFER
                                                                                                                   
          25000    PROCR   250       250     EDIT                                                                  
          25002    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          25003            318     11   0  0              0        318     INDICATOR                               SELECT
          25004    70      250      7   0  0              0        250     >FIRST RECORD                           JUMP IF A == 0
          25005    80      288      2   0  0              0        288                                             ENTER SUBROUTINE
          25006    76      250      8   0  0              0        250                                             JUMP unconditional
    25004>25007    80      289      2   0  0              0        289     >WRITE LAST SECTION                     ENTER SUBROUTINE
    25006>25008            12      38   0  0              0                                                        SELECT
          25009    71      250     30   0  0              0        250     >DIRECTIVE                              JUMP IF A != 0
          25010            27       5   0  0              0                SWITCH                                  SELECT
          25011    12               0   0  0              4                                                        SUBTRACT LITERAL
          25012    70      250     25   0  0              0        250     >VALUES                                 JUMP IF A == 0
          25013    124     27       5   0  1              0                                                        modify address of next
          25014            305      6   0  0              0        305                                             SELECT
          25015    128     29       2   1  2              0                EDIT PROCR, TABLE, CONST.               edit fixed field formats
          25016            319     48   1  0              0        319                                             SELECT
          25017    124     27       5   0  1              0                                                        modify address of next
          25018    124     305      2   0  1              0        305                                             modify address of next
          25019    128     29       0   1  1              0                COPY ANNOTATION                         bulk copy long numeric
          25020            1       44   1  0              0                                                        SELECT
          25021    124     27       5   0  1              0                                                        modify address of next
          25022    124     305      2   0  1              0        305                                             modify address of next
  Source image: P1000194.JPG
          25023    5       29       2-  1  0              0                COPY REPORTS PASS 1                     TRANSFER
          25024    76      250     48   0  0              0        250                                             JUMP unconditional
    25012>25025    55      1       11   0  0             16                VALUES                                  BULK COPY
          25026    C       29      10   2  0              0                                                        
          25027    52      29       6   0  0              0                REF+ITEM                                EDIT
          25028    C       315      2   0  0              0        315                                             
          25029    76      250     48   0  0              0        250                                             JUMP unconditional
    25009>25030    52      29       2   0  0              0                DIRECTIVES                              EDIT
          25031    C       307     16   0  0              0        307                                             
          25032    10               0   0  0              0                                                        SELECT LITERAL
          25033    5       319     22   0  0              0        319                                             TRANSFER
          25034            27       5   0  0              0                                                        SELECT
          25035    12               0   0  0              1                                                        SUBTRACT LITERAL
          25036    71      250     43   0  0              0        250     >NOT PROCR                              JUMP IF A != 0
          25037            12      38   0  0              0                                                        SELECT
          25038    73      250     43   0  0              0        250     NOT NOTES OF PROCR                      JUMP IF A < 0
          25039            1        8   1  0              0                                                        SELECT
          25040    5       29      12   1  0              0                COPY 'RADIX'                            TRANSFER
          25041    5       29       8   1  0              0                CLEAR                                   TRANSFER
          25042    76      250     45   0  0              0        250                                             JUMP unconditional
    25038>                                                                                                         
    25036>25043            1       44   1  0              0                PASS 1 REPORTS                          SELECT
          25044    5       29      12   1  0              0                                                        TRANSFER
    25042>25045    55      1       16   1  0             28                BULK COPY ANNOTATION                    BULK COPY
          25046    C       29      14   1  0              0                                                        
          25047    76      250     50   0  0              0        250                                             JUMP unconditional
    25029>                                                                                                         
    25024>25048            27       5   0  0              0                                                        SELECT
          25049    5       319     22   0  0              0        319                                             TRANSFER
    25047>25050    10               0   0  0              1                                                        SELECT LITERAL
          25051    5       318     11   0  0              0        318     SET INDICATOR                           TRANSFER
          25052    60               0   0  0              0                                                        SET DECIMAL RADIX
          25053    10               0   0  0              0                                                        SELECT LITERAL
          25054    5       12     115   0  0              0                ERROR REPROT SHIFT CONTROL              TRANSFER
          25055    0       23      47   0  0              0                                                        SELECT
          25056    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25057    37      29       2   1  0              0                                                        REPLACE SELECTED BITS
          25058    10               0   0  0              0                                                        SELECT LITERAL
          25059    5       23      47   0  0              0                IMPLICITLY AMENDED'                     TRANSFER
          25060    82      186      2   0  0              0        186                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          25100    PROCR   251       251     START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END            
    25428>                                                                                                         
    25562>                                                                                                         
    25619>                                                                                                         
    18513>25102    80      294      2   0  0              0        294     >TEST PT AT DIRECTIVE/END               ENTER SUBROUTINE
          25103    70      252      2   0  0              0        252     >NO                                     JUMP IF A == 0
    25121>                                                                                                         
    25317>                                                                                                         
    25532>                                                                                                         
    25843>25104    0       12      45   0  0              0                                                        SELECT
          25105    71      251     14   0  0              0        251     >PT AT END                              JUMP IF A != 0
          25106            27       1   0  0              0                                                        SELECT
          25107    70      251     10   0  0              0        251     >SINGLE-RECORD BLOCKS                   JUMP IF A == 0
          25108                     4   2  8              0                (ABS MR)                                SELECT
          25109    76      251     11   0  0              0        251                                             JUMP unconditional
    25107>25110    0       7        6   2  0              0                MT SERIAL                               SELECT
    25109>25111    2       9        4   2  0              0                A6 SERIAL                               SUBTRACT
          25112    70      252      2   0  0              0        252     >MT AMENDED                             JUMP IF A == 0
          25113    72      253      2   0  0              0        253     >MT>PT, REPORT                          JUMP IF A >= 0
  Source image: P1000195.JPG
    25105>25114    80      299      2   0  0              0        299     >TEST MT=END                            ENTER SUBROUTINE
          25115    10               0   0  0              0                SET 'MT INPUT'                          SELECT LITERAL
          25116    5       12      33   0  0              0                                                        TRANSFER
          25117    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25118    80      284      2   0  0              0        284     >UNPACK                                 ENTER SUBROUTINE
          25119    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25120    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25121    76      251      4   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25200    PROCR   252       252     SWITCH FOR AMENDMENTS                                                 
          25201     NOTES          RADIX                                                                           SELECT
    25112>                                                                                                         
    25103>25202    85      252      2   0  0              0        252                                             SWITCH R
          25203    C       254      2   0  0              0        254     >REPLACE                                
          25204    C       255      2   0  0              0        255     >DELETE                                 
          25205    C       258      2   0  0              0        258     >INSERT BEFORE                          
          25206    C       256      2   0  0              0        256     >REPLACE ANNOTATION                     
                                                                                                                   
          25300    PROCR   253       253     DEAL WITH OUT-OF-SEQUENCE DIRECTIVE                                   
          25301     NOTES          RADIX                                                                           SELECT
    25113>25302            1        4   1  0              0                AMENDMENTS MODS ARE                     SELECT
          25303    124     319     22   0  1              0        319                                             modify address of next
          25304    124     305     10   0  1              0        305                                             modify address of next
          25305    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25306    34      1        2   1  0              0                SERIAL                                  SET (N) IN B
    25543>                                                                                                         
    25545>25307    80      259      2   0  0              0        259     PUT ERROR REPORT                        ENTER SUBROUTINE
          25308    10               0   0  0           1:5:                '??' OF 5-DIGIT                         SELECT LITERAL
          25309    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25310    35               0   0  0           1111                SERIAL AND                              PREPARE FOR DIGIT COLLATION
          25311    124     319     22   0  1              0        319                                             modify address of next
          25312    124     305     10   0  1              0        305                                             modify address of next
          25313    37      29       0   1  0              0                REPORT WORD                             REPLACE SELECTED BITS
    25316>25314    80      292      2   0  0              0        292     INPUT ON PAPER                          ENTER SUBROUTINE
          25315    80      294      2   0  0              0        294     FIND DIRECTIVE                          ENTER SUBROUTINE
          25316    70      253     14   0  0              0        253     >READ/IGNORE PT TO NEXT DIRECTIVE       JUMP IF A == 0
          25317    76      251      4   0  0              0        251     >MAKE THIS AMENDMENT                    JUMP unconditional
                                                                                                                   
          25400    PROCR   254       254     REPLACE                                                               
          25401     NOTES          RADIX                                                                           SELECT
    25203>25402            9       50   2  0              0                'PASS 0' IND                            SELECT
          25403    71      254     34   0  0              0        254     >REJECT                                 JUMP IF A != 0
          25404            27       5   0  0              0                'UNPACK SWITCH'                         SELECT
          25405    5       296      2   0  0              0        296                                             TRANSFER
          25406    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25407    0       12      38   0  0              0                                                        SELECT
          25408    5       197      2   0  0              0        197                                             TRANSFER
          25409    80      293      2   0  0              0        293     >TEST PT=STACK DIRECTIVE                ENTER SUBROUTINE
          25410    0       12      38   0  0              0                IS REPLACING BLOCK STACK DIR  OR NOT    SELECT
          25411    2       197      2   0  0              0        197     ARE BOTH BLOCKS SIMILAR                 SUBTRACT
          25412    71      254     29   0  0              0        254      ILLEGAL?                               JUMP IF A != 0
    25431>25413    10               0   0  0              1                SET AS PT INPUT                         SELECT LITERAL
          25414    5       12      33   0  0              0                                                        TRANSFER
          25415    80      283      2   0  0              0        283     >UNPACK PT                              ENTER SUBROUTINE
          25416    80      299      2   0  0              0        299     >DON'T REPLACE END SIGN                 ENTER SUBROUTINE
          25417    0       12      38   0  0              0                                                        SELECT
          25418    72      254     25   0  0              0        254     >NOT PT DIRECTIVE                       JUMP IF A >= 0
          25419            27       1   0  0              0                                                        SELECT
          25420    70      254     23   0  0              0        254     >1 RECORD PER BLOCK                     JUMP IF A == 0
          25421                     8   1  8              0                PROCR NO                                SELECT
  Source image: P1000196.JPG
          25422    76      254     24   0  0              0        254                                             JUMP unconditional
    25420>25423    0       7       16   1  0              0                                                        SELECT
    25422>25424    5       1        8   1  0              0                TRANSFER MT PROCR NUMBER                TRANSFER
    25418>25425    80      302      2   0  0              0        302     >GET NEXT A1 RECORD                     ENTER SUBROUTINE
          25426    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25427    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25428    76      251      2   0  0              0        251                                             JUMP unconditional
    25412>25429    0       12      38   0  0              0                PT DIRECTIVE                            SELECT
          25430    1       197      2   0  0              0        197     MT DIRECTIVE                            ADD
          25431    72      254     13   0  0              0        254     >NEITHER IS STACK DIRECTIVE, ALLOW REPLAJUMP IF A >= 0
          25432            296      2   0  0              0        296                                             SELECT
          25433    5       27       5   0  0              0                RESTORE SWITCH                          TRANSFER
    25403>25434    10               0   0  0             69                                                        SELECT LITERAL
          25435    76      255     36   0  0              0        255     >REPORT                                 JUMP unconditional
                                                                                                                   
          25500    PROCR   255       255     DELETION LOOP                                                         
          25501     NOTES          RADIX                                                                           SELECT
    25204>25502    80      299      2   0  0              0        299     >END SIGN ON MT?                        ENTER SUBROUTINE
          25503            9        4   1  0              0                                                        SELECT
          25504    5       1        0   1  0              0                STORE SERIAL                            TRANSFER
          25505            9       50   2  0              0                'PASS 0' IND                            SELECT
          25506    71      255     35   0  0              0        255     >REPORT                                 JUMP IF A != 0
          25507    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25508    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25509    71      255     46   0  0              0        255     >YES (SINGLE-LINE DELETE)               JUMP IF A != 0
          25510            9       50   2  0              0                PASS 0 IND                              SELECT
          25511    71      255     35   0  0              0        255     >MOD REJECTED                           JUMP IF A != 0
          25512            27       1   0  0              0                                                        SELECT
          25513    70      255     16   0  0              0        255     >1 RECORD/BLOCK                         JUMP IF A == 0
          25514                     4   2  8              0                                                        SELECT
          25515    76      255     17   0  0              0        255                                             JUMP unconditional
    25513>25516            7        6   2  0              0                MT SERIAL                               SELECT
    25515>25517    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25518    70      255     20   0  0              0        255     >DIRECTIVE DELETED                      JUMP IF A == 0
          25519    80      188      2   0  0              0        188     >SET 'PRINT PROCEDURE'                  ENTER SUBROUTINE
    25534>                                                                                                         
    25518>25520    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25521    80      299      2   0  0              0        299     >TEST END                               ENTER SUBROUTINE
          25522            27       1   0  0              0                                                        SELECT
          25523    70      255     26   0  0              0        255                                             JUMP IF A == 0
          25524                     4   2  8              0                                                        SELECT
          25525    76      255     27   0  0              0        255                                             JUMP unconditional
    25523>25526            7        6   2  0              0                MT SERIAL                               SELECT
    25525>25527    2       1        2   2  0              0                PT SERIAL                               SUBTRACT
          25528    71      255     34   0  0              0        255                                             JUMP IF A != 0
          25529    80      302      2   0  0              0        302     >GET NEXT RECORD                        ENTER SUBROUTINE
          25530    80      292      2   0  0              0        292     >READ PT(NEXT DIRECTIVE)                ENTER SUBROUTINE
          25531    80      294      2   0  0              0        294     >TEST DIRECTIVE                         ENTER SUBROUTINE
          25532    71      251      4   0  0              0        251     >YES                                    JUMP IF A != 0
          25533    76      255     35   0  0              0        255     >REJECT                                 JUMP unconditional
    25528>25534    73      255     20   0  0              0        255     >LOOP                                   JUMP IF A < 0
    25533>                                                                                                         
    25511>                                                                                                         
    25506>25535    10               0   0  0             54                REPORT                                  SELECT LITERAL
    25607>                                                                                                         
    25847>                                                                                                         
    25435>25536    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25537    124     319     22   0  1              0        319                                             modify address of next
          25538    124     305     10   0  1              0        305                                             modify address of next
          25539    5       29       0   1  0              0                REPORT WORD                             TRANSFER
  Source image: P1000197.JPG
          25540            27       1   0  0              0                                                        SELECT
          25541    70      255     44   0  0              0        255     >1 RECORD BLOCK                         JUMP IF A == 0
          25542    34               4   1  8              0                                                        SET (N) IN B
          25543    76      253      7   0  0              0        253                                             JUMP unconditional
    25541>25544    34      7        6   1  0              0                SERIAL BEING DELETED                    SET (N) IN B
          25545    76      253      7   0  0              0        253     >REPORT                                 JUMP unconditional
    25509>25546            27       1   0  0              0                                                        SELECT
          25547    70      255     50   0  0              0        255                                             JUMP IF A == 0
          25548                     4   2  8              0                                                        SELECT
          25549    76      255     51   0  0              0        255                                             JUMP unconditional
    25547>25550            7        6   2  0              0                                                        SELECT
    25549>25551    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25552    70      255     54   0  0              0        255                                             JUMP IF A == 0
          25553    80      188      2   0  0              0        188                                             ENTER SUBROUTINE
    25561>                                                                                                         
    25552>25554    80      302      2   0  0              0        302     >GET RECORD AFTER DELETED ONE           ENTER SUBROUTINE
          25555            27       1   0  0              0                                                        SELECT
          25556    70      255     59   0  0              0        255                                             JUMP IF A == 0
          25557                     4   2  8              0                                                        SELECT
          25558    76      255     60   0  0              0        255                                             JUMP unconditional
    25556>25559            7        6   2  0              0                                                        SELECT
    25558>25560    2       1        0   2  0              0                PT SERIAL FOR DELETION                  SUBTRACT
          25561    70      255     54   0  0              0        255     >DELETE ALL BLOCKS THIS SERIAL          JUMP IF A == 0
          25562    76      251      2   0  0              0        251                                             JUMP unconditional
                                                                                                                   
          25600    PROCR   256       256     REPLACE ANNOTATION                                                    
          25601     NOTES          RADIX                                                                           SELECT
    25206>25602    80      303      2   0  0              0        303     >TEST MT=PROCR                          ENTER SUBROUTINE
          25603    80      283      2   0  0              0        283     >UNPACK PT BLOCK                        ENTER SUBROUTINE
          25604            9       50   2  0              0                'PASS 0' IND                            SELECT
          25605    70      256      8   0  0              0        256                                             JUMP IF A == 0
          25606    10               0   0  0             51                                                        SELECT LITERAL
          25607    76      255     36   0  0              0        255     >REPORT, READ NEXT DIRECTIVE            JUMP unconditional
    25605>25608    10               0   0  0              1                                                        SELECT LITERAL
          25609    3       23      47   0  0              0                SET 'IMPLICITLY AMENDED'                COPY
          25610    5       12      86   0  0              0                SET IND FOR SR                          TRANSFER
          25611    80      257      2   0  0              0        257                                             ENTER SUBROUTINE
          25612    10               0   0  0              0                                                        SELECT LITERAL
          25613    5       12      86   0  0              0                                                        TRANSFER
          25614    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25615    10               0   0  0              0                                                        SELECT LITERAL
          25616    5       12      33   0  0              0                                                        TRANSFER
          25617    80      186      2   0  0              0        186     SET 'MT IN'                             ENTER SUBROUTINE
          25618    80      302      2   0  0              0        302     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25619    76      251      2   0  0              0        251     >GET NEXT A1 RECORD                     JUMP unconditional
                                                                                                                   
          25700    PROCR   257       257     ENTRY TO 'UNPACK' SR                                                  
          25702    81      257      2   0  0              0        257                                             START OF SUBROUTINE
          25703    0       257      2   0  0              0        257                                             SELECT
          25704    5       284      2   0  0              0        284     PLANT LINK                              TRANSFER
          25705    76      284      4   0  0              0        284     AVOID BULK CLEAR                        JUMP unconditional
                                                                                                                   
          25800    PROCR   258       258     INSERTION LOOP                                                        
          25801     NOTES          RADIX                                                                           SELECT
    25205>25802            9       50   2  0              0                PASS 0' IND                             SELECT
          25803    71      258     46   0  0              0        258     >REPORT                                 JUMP IF A != 0
          25804    5       12      38   0  0              0                SET NON DIRECTIVE                       TRANSFER
          25805    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          25806    C       258     17   0  0              0        258                                             
          25807    C       258     17   0  0              0        258                                             
  Source image: P1000198.JPG
          25808    C       258     10   0  0              0        258     CONST                                   
          25809    C       258     17   0  0              0        258                                             
    25808>25810    54      1        0   1  0             46                                                        BULK CLEAR
          25811    124     312      2   0  2              0        312                                             select literal and division
          25812    80      326      2   0  0              0        326     UNPACK (PRETEND ITS PROCR)              ENTER SUBROUTINE
          25813    10               0   0  0              0                                                        SELECT LITERAL
          25814    5       1       20   1  0              0                CLEAR CLEO WORD                         TRANSFER
          25815    5       1       44   1  0              0                CLEAR ERROR WORD                        TRANSFER
          25816    76      258     18   0  0              0        258                                             JUMP unconditional
    25809>                                                                                                         
    25807>                                                                                                         
    25806>25817    80      283      2   0  0              0        283     UNPACK                                  ENTER SUBROUTINE
    25816>25818    90               0   0  1              6                                                        SET MODIFICATION REGISTER AT LITERAL
          25819    C                0   0  0             44                                                        
    25822>25820            1        0   1  1              0                                                        SELECT
          25821    71      258     24   0  0              0        258     >REPORT, CODING                         JUMP IF A != 0
          25822    94      258     20   0  1              2        258                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          25823    76      258     41   0  0              0        258                                             JUMP unconditional
    25821>25824    10               0   0  0             73                                                        SELECT LITERAL
          25825    30               0   0  0              8                                                        SHIFT (A) BY QUARTETS
          25826    124     319     22   0  1              0        319                                             modify address of next
          25827    124     305     10   0  1              0        305                                             modify address of next
          25828    5       29       0   1  0              0                REPORT WORD                             TRANSFER
          25829            27       1   0  0              0                                                        SELECT
          25830    70      258     33   0  0              0        258     >1 RECORD/BLOCK                         JUMP IF A == 0
          25831    34               4   1  8              0                LINE SERIAL                             SET (N) IN B
          25832    76      258     34   0  0              0        258                                             JUMP unconditional
    25830>25833    34      7        6   1  0              0                LINE SERIAL                             SET (N) IN B
    25832>25834    80      259      2   0  0              0        259     STORE REPORT                            ENTER SUBROUTINE
          25835    10               0   0  0           1:5:                                                        SELECT LITERAL
          25836    3       27       6   0  0              0                SET 'PT OMITTED'                        COPY
          25837    35               0   0  0           1111                                                        PREPARE FOR DIGIT COLLATION
          25838    124     319     22   0  1              0        319                                             modify address of next
          25839    124     305     10   0  1              0        305                                             modify address of next
          25840    37      29       0   1  0              0                                                        REPLACE SELECTED BITS
    25853>                                                                                                         
    25823>25841    80      292      2   0  0              0        292     >READ PT                                ENTER SUBROUTINE
          25842    80      294      2   0  0              0        294     FIND AMENDMENT DIRECTIVE                ENTER SUBROUTINE
          25843    71      251      4   0  0              0        251     >NEW DIRECTIVE OR END SIGN              JUMP IF A != 0
          25844            9       50   2  0              0                PASS 0' IND                             SELECT
          25845    70      258     48   0  0              0        258     >MOD OK                                 JUMP IF A == 0
    25803>25846    10               0   0  0             73                                                        SELECT LITERAL
          25847    76      255     36   0  0              0        255     >REPORT, READ TO NEXT AMEND DIRECTIVE   JUMP unconditional
    25845>25848    80      293      2   0  0              0        293     >TEST STACK DIRECTIVE                   ENTER SUBROUTINE
          25849    10               0   0  0              1                                                        SELECT LITERAL
          25850    5       12      33   0  0              0                SET 'PT IS INPUT'                       TRANSFER
          25851    80      283      2   0  0              0        283     >UNPACK                                 ENTER SUBROUTINE
          25852    80      186      2   0  0              0        186     >CHECK/EDIT/OUTPUT                      ENTER SUBROUTINE
          25853    76      258     41   0  0              0        258                                             JUMP unconditional
                                                                                                                   
          25900    PROCR   259       259     STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS                           
          25902    81      259      2   0  0              0        259     (B)=REPORT WORD                         START OF SUBROUTINE
          25903    124     319     22   0  1              0        319                                             modify address of next
          25904    124     305      2   0  1              0        305                                             modify address of next
          25905            29      15   0  0              0                LAST 2.5 CHARS ANNOTATION               SELECT
          25906    2       319     27   0  0              0        319                                             SUBTRACT
          25907    70      259     14   0  0              0        259     >LINE IGNORED       DON'T OVERWRITE WORDJUMP IF A == 0
          25908    10               0   0  0              0                CLEAR SIGN BIT A                        SELECT LITERAL
          25909    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25910    124     319     22   0  1              0        319                                             modify address of next
  Source image: P1000199.JPG
          25911    124     305      2   0  1              0        305     LAST FIVE CHARS ANNOTATION              modify address of next
          25912    5       29      14   1  0              0                                                        TRANSFER
          25913    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    25907>25914    32               0   0  0             10                                                        SHIFT (AB) BY QUARTETS
          25915    124     319     22   0  1              0        319                                             modify address of next
          25916    124     305      2   0  1              0        305                                             modify address of next
          25917    5       29      12   1  0              0                                                        TRANSFER
          25918    82      259      2   0  0              0        259                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          26000    PROCR   260       260     CONSTANTS ROUTINE                                                     
          26001     NOTES          RADIX                                                                           SELECT
    19113>26002    5       12      69   0  0              0                                                        TRANSFER
          26003    5       12      66   1  0              0                CLEAR INDICATORS                        TRANSFER
          26004    5       12      70   0  0              0                                                        TRANSFER
          26005    84      695      2   0  0              0        695     CLEAR WL=SWITCH                         SET SWITCH(ES) AT VARIABLE VALUE
          26006    91      12      66   0  2              0                CLEAR R2                                SET MODIFICATION REGISTER AT VARIABLE
          26007    90               0   0  3              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26008    C                0   0  0              5                                                        
          26009    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          26010    C                0   0  0             18                                                        
          26011    54      94       0   0  0             60                CLEAR UNPACK AREA                       BULK CLEAR
          26012    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26013    34      1        6   1  0              0                FIRST WORD                              SET (N) IN B
          26014            12      33   0  0              0                NON ZERO IF EX PT                       SELECT
          26015    5       12      70   0  0              0                SET 'NE FOUND' IND                      TRANSFER
          26016    76      261      3   0  0              0        261                                             JUMP unconditional
    26311>                                                                                                         
    26339>26017    80      295      2   0  0              0        295     >IGNORE CONST                           ENTER SUBROUTINE
                                                                                                                   
          26100    PROCR   261       261                                                                           
          26101     NOTES          RADIX                                                                           SELECT
    26110>                                                                                                         
    26116>                                                                                                         
    26321>                                                                                                         
    26332>                                                                                                         
    26336>                                                                                                         
    26362>                                                                                                         
    26403>                                                                                                         
    26413>                                                                                                         
    26416>                                                                                                         
    26454>26102    80      274      2   0  0              0        274     >GET NEXT CHAR                          ENTER SUBROUTINE
    26016>26103    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          26104    3       12      88   1  0              0                                                        COPY
          26105    12               0   0  0             7:                                                        SUBTRACT LITERAL
          26106    70      261     12   0  0              0        261     >NE                                     JUMP IF A == 0
          26107    12               0   0  0              1                                                        SUBTRACT LITERAL
          26108    70      265      2   0  0              0        265     >BE,STORE NE AND END                    JUMP IF A == 0
          26109            12      70   0  0              0                                                        SELECT
          26110    71      261      2   0  0              0        261     >NO, DONT STORE CHAR                    JUMP IF A != 0
          26111    76      261     17   0  0              0        261     >STORE AND PROCESS                      JUMP unconditional
    26106>26112            12      70   0  0              0                 'NE FOUND' IND                         SELECT
          26113    70      265      2   0  0              0        265     >YES, STORE NE AND END                  JUMP IF A == 0
          26114    5       12      70   0  0              0                                                        TRANSFER
          26115    5       12      70   0  0              0                CLEAR                                   TRANSFER
          26116    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
    26111>26117            12      88   0  0              0                                                        SELECT
          26118    5       94       0   0  2              0                STORE THIS CHAR                         TRANSFER
                                                                                                                   
          26200    PROCR   262       262                                                                           
          26201     NOTES          RADIX                                                                           SELECT
  Source image: P1000200.JPG
          26202    96               0   0  2              0                                                        SELECT MODIFIER
          26203    94      262      4   0  2              1        262                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26203>26204    71      262     21   0  0              0        262     >NOT FIRST CHAR IN LINE                 JUMP IF A != 0
          26205            12      88   0  0              0                THIS CHAR                               SELECT
          26206    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26207    70      262     23   0  0              0        262     >'('                                    JUMP IF A == 0
          26208    83      263     10   0  0              5        263     IGNORE '('                              SET SWITCH(ES) AT LITERAL VALUE
          26209    5       94      60   0  0              0                                                        TRANSFER
          26210    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26211    70      262     19   0  0              0        262     >WRONG                                  JUMP IF A == 0
          26212    84      267      2   0  0              0        267     SET CHECK SWITCH                        SET SWITCH(ES) AT VARIABLE VALUE
          26213    C       94      62   0  0              0                                                        
          26214    0       94      62   0  0              0                SWITCH FOR FIRST SUBFIELD               SELECT
          26215    12               0   0  0              5                                                        SUBTRACT LITERAL
          26216    71      262     21   0  0              0        262     >NOT REL ADDRESS                        JUMP IF A != 0
          26217    83      695      2   0  0              1        695     SET WL=1                                SET SWITCH(ES) AT LITERAL VALUE
          26218    76      262     21   0  0              0        262                                             JUMP unconditional
    26317>                                                                                                         
    26328>                                                                                                         
    26351>                                                                                                         
    26447>                                                                                                         
    26211>26219    83      263     10   0  0              1        263     >IGNORE UNDIRECTED CONST                SET SWITCH(ES) AT LITERAL VALUE
          26220    80      263     10   0  0              0        263     >CLEAR OUT ALL DETAILS                  ENTER SUBROUTINE
    26218>                                                                                                         
    26216>                                                                                                         
    26204>26221            12      88   0  0              0                                                        SELECT
          26222    76      263     10   0  0              0        263     CHECK                                   JUMP unconditional
    26207>26223    80      263     10   0  0              0        263     >CLEAR OUT ALL DETAILS                  ENTER SUBROUTINE
          26224    76      263     20   0  0              0        263     >SET SWITCH AT 2                        JUMP unconditional
                                                                                                                   
          26300    PROCR   263       263                                                                           
          26301     NOTES          RADIX                                                                           SELECT
          26302    81      263     10   0  0              0        263                                             START OF SUBROUTINE
          26303    5       94      60   1  0              0                CLEAR DETAILS                           TRANSFER
          26304    5       94      62   1  0              0                                                        TRANSFER
          26305    5       94      64   1  0              0                                                        TRANSFER
          26306    5       94      66   1  0              0                                                        TRANSFER
          26307    5       94      68   1  0              0                                                        TRANSFER
          26308    5       94      70   1  0              0                                                        TRANSFER
          26309    82      263     10   0  0              0        263                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    26222>26310    85      263     10   0  0              0        263                                             SWITCH R
          26311    C       260     17   0  0              0        260     >IGNORE                                 
          26312    C       263     40   0  0              0        263     >PREVIOUS WAS'C' DIRECTIV E LETTER      
          26313    C       264     39   0  0              0        264     >')' EXPECTED                           
          26314    C       263     16   0  0              0        263     >',' FORBIDDEN, '(' ALLOWED             
          26315    C       263     22   0  0              0        263     >'(' FORBIDDEN, ',' ALLOWED             
    26314>26316    12               0   0  0             7+                COMMA                                   SUBTRACT LITERAL
          26317    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26318    11               0   0  0              2                                                        ADD LITERAL
          26319    71      264      2   0  0              0        264     >CHECK CHAR                             JUMP IF A != 0
    26224>26320    83      263     10   0  0              2        263     SET TO EXPECT DIRECTIVE LETTER          SET SWITCH(ES) AT LITERAL VALUE
          26321    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26315>26322    12               0   0  0             7+                                                        SUBTRACT LITERAL
          26323    71      263     37   0  0              0        263     >NOT COMMA                              JUMP IF A != 0
          26324    10               0   0  0              2                                                        SELECT LITERAL
          26325    4       94      60   0  0              0                                                        AUGMENT
          26326    124     94      60   0  0              0                SF CTR IN NON-DIRECTIVE LINE            modify address of next
          26327            94      62   0  0              0                SF DETAILS                              SELECT
          26328    70      262     19   0  0              0        262     >IGNORE                                 JUMP IF A == 0
          26329    84      267      2   0  0              0        267                                             SET SWITCH(ES) AT VARIABLE VALUE
  Source image: P1000201.JPG
          26330    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26331    12               0   0  0              5                                                        SUBTRACT LITERAL
          26332    71      261      2   0  0              0        261     >NOT REL ADDRESS                        JUMP IF A != 0
          26333    96               0   0  2              0                                                        SELECT MODIFIER
          26334    11               0   0  0              1                                                        ADD LITERAL
          26335    84      695      2   0  0              0        695     WL=LOCN OF SECOND CHAR                  SET SWITCH(ES) AT VARIABLE VALUE
          26336    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
    26323>26337    11               0   0  0              2                                                        ADD LITERAL
          26338    71      264      2   0  0              0        264     >NOT '(', CHECK CHAR                    JUMP IF A != 0
          26339    76      260     17   0  0              0        260     >IGNORE             GET NEXT CHAR       JUMP unconditional
    26312>26340    12               0   0  0             51                                                        SUBTRACT LITERAL
          26341    70      263     59   0  0              0        263     >A                                      JUMP IF A == 0
          26342    12               0   0  0              1                                                        SUBTRACT LITERAL
          26343    70      263     57   0  0              0        263     >B                                      JUMP IF A == 0
          26344    12               0   0  0              1                                                        SUBTRACT LITERAL
          26345    70      263     52   0  0              0        263     >C                                      JUMP IF A == 0
          26346    12               0   0  0              1                                                        SUBTRACT LITERAL
          26347    70      263     58   0  0              0        263     >D                                      JUMP IF A == 0
          26348    12               0   0  0             13                                                        SUBTRACT LITERAL
          26349    70      263     56   0  0              0        263     >P                                      JUMP IF A == 0
          26350    12               0   0  0              2                                                        SUBTRACT LITERAL
          26351    71      262     19   0  0              0        262     >IGNORE             NOT R               JUMP IF A != 0
    26345>26352    96               0   0  2              0                                                        SELECT MODIFIER
          26353    11               0   0  0              2                                                        ADD LITERAL
          26354    84      695      2   0  0              0        695     WL=LOCN OF SECOND CHAR                  SET SWITCH(ES) AT VARIABLE VALUE
          26355    10               0   0  0              1                RANDO                                   SELECT LITERAL
    26349>26356    11               0   0  0              1                P                                       ADD LITERAL
    26343>26357    11               0   0  0              1                B                                       ADD LITERAL
    26347>26358    11               0   0  0              1                D                                       ADD LITERAL
    26341>26359    11               0   0  0              1                A                                       ADD LITERAL
          26360    84      267      2   0  0              0        267     SET CHECKING SWITCH                     SET SWITCH(ES) AT VARIABLE VALUE
          26361    83      263     10   0  0              3        263     SET TO EXPECT ')'                       SET SWITCH(ES) AT LITERAL VALUE
          26362    76      261      2   0  0              0        261     >GET NEXT CHAR                          JUMP unconditional
                                                                                                                   
          26400    PROCR   264       264                                                                           
          26401     NOTES          RADIX                                                                           SELECT
    26338>                                                                                                         
    26319>26402    85      267      2   0  0              0        267     CHECK SWITCH                            SWITCH R
          26403    C       261      2   0  0              0        261     >A,GNC                                  
          26404    C       264      8   0  0              0        264     >D                                      
          26405    C       264     17   0  0              0        264     >B                                      
          26406    C       264     21   0  0              0        264     >P                                      
          26407    C       264     26   0  0              0        264     >R                                      
    26420>                                                                                                         
    26422>                                                                                                         
    26424>                                                                                                         
    26432>                                                                                                         
    26404>26408    0       12      88   0  0              0                                    DECIMAL             SELECT
          26409    30               0   0  0              1-               CONTROL                                 SHIFT (A) BY QUARTETS
          26410    12               0   0  0              2                                                        SUBTRACT LITERAL
          26411    70      264     14   0  0              0        264     >REPORT *                               JUMP IF A == 0
          26412    12               0   0  0              3                                                        SUBTRACT LITERAL
          26413    73      261      2   0  0              0        261     >OK                                     JUMP IF A < 0
    26419>                                                                                                         
    26425>                                                                                                         
    26411>26414    10               0   0  0             5‼                *                                       SELECT LITERAL
          26415    5       1       44   1  0              0                                                        TRANSFER
          26416    76      261      2   0  0              0        261                                             JUMP unconditional
    26438>                                                                                                         
    26443>                                                                                                         
    26446>                                                                                                         
  Source image: P1000202.JPG
    26405>26417    0       12      88   2  0              0                BASIC BINARY                            SELECT
          26418    12               0   0  0              Ю                                                        SUBTRACT LITERAL
          26419    72      264     14   0  0              0        264     >REPORT                                 JUMP IF A >= 0
          26420    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26406>26421    0       12      88   2  0              0                BASIC PATTERN                           SELECT
          26422    70      264      8   0  0              0        264                                             JUMP IF A == 0
          26423    12               0   0  0              1                                                        SUBTRACT LITERAL
          26424    70      264      8   0  0              0        264                                             JUMP IF A == 0
          26425    76      264     14   0  0              0        264     >REPORT                                 JUMP unconditional
    26407>26426            12      88   0  0              0                CHAR RELATIVE ADDRESS                   SELECT
          26427    12               0   0  0             4:                                                        SUBTRACT LITERAL
          26428    71      264     33   0  0              0        264     >NOT COLON                              JUMP IF A != 0
          26429    0       12      66   0  0              0                                                        SELECT
          26430    5       12      67   0  0              0                12/67=REF, 12/66=ITEM                   TRANSFER
          26431    5       12      66   0  0              0                                                        TRANSFER
          26432    76      264      8   0  0              0        264     >CHECK CONTROL                          JUMP unconditional
    26428>26433    0       12      66   0  0              0                                                        SELECT
          26434    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          26435    1       12      88   2  0              0                ASSEMBLE REF/ITEM                       ADD
          26436    5       12      66   0  0              0                                                        TRANSFER
          26437    83      263     10   0  0              5        263     INHIBIT ANOTHER DIRECTIVE               SET SWITCH(ES) AT LITERAL VALUE
          26438    76      264     17   0  0              0        264     >CHECK AS BINARY                        JUMP unconditional
    26313>26439    12               0   0  0             7‼                                                        SUBTRACT LITERAL
          26440    70      264     48   0  0              0        264     >IS ')'                                 JUMP IF A == 0
          26441    0       94       2-  0  2              0                                                        SELECT
          26442    12               0   0  0             52                                                        SUBTRACT LITERAL
          26443    70      264     17   0  0              0        264     LAST CHAR WAS 'B' +CHECK THIS           JUMP IF A == 0
          26444    0       94       3-  0  2              0                                                        SELECT
          26445    12               0   0  0             52                                                        SUBTRACT LITERAL
          26446    70      264     17   0  0              0        264     ONE BEFORE WAS 'B' +CHECK THIS          JUMP IF A == 0
          26447    76      262     19   0  0              0        262     NEITHER WAS 'B' +IGNORE                 JUMP unconditional
    26440>26448    86      267      2   0  0              0        267     CHECK SWITCH                            SELECT SWITCH R
          26449    124     94      61   0  0              0                CTR IN DIRECTIVE LINE                   modify address of next
          26450    5       94      62   0  0              0                                                        TRANSFER
          26451    10               0   0  0              2                                                        SELECT LITERAL
          26452    4       94      61   0  0              0                                                        AUGMENT
          26453    83      263     10   0  0              4        263     COMMA FORBIDDEN'                        SET SWITCH(ES) AT LITERAL VALUE
          26454    76      261      2   0  0              0        261     >GNC                                    JUMP unconditional
                                                                                                                   
          26500    PROCR   265       265     TIDY UP AND REASSEMBLE CONST                                          
          26501     NOTES          RADIX                                                                           SELECT
    26113>                                                                                                         
    26108>26502    10               0   0  0             7:                                                        SELECT LITERAL
          26503    5       94       0   0  2              0                STORE END SIGN                          TRANSFER
          26504    86      263     10   0  0              0        263     DIRECTIVE SWITCH                        SELECT SWITCH R
          26505    12               0   0  0              4                                                        SUBTRACT LITERAL
          26506    72      265      8   0  0              0        265     >OK SWITCH SETTINGS                     JUMP IF A >= 0
          26507    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26506>26508            94      60   0  0              0                COMMAS X2                               SELECT
          26509    70      265     14   0  0              0        265                                             JUMP IF A == 0
          26510    11               0   0  0              2                                                        ADD LITERAL
          26511    2       94      61   0  0              0                DIRECTIVE CTR                           SUBTRACT
          26512    70      265     14   0  0              0        265                                             JUMP IF A == 0
          26513    80      295      2   0  0              0        295     >IGNORE THIS CONST                      ENTER SUBROUTINE
    26512>                                                                                                         
    26509>26514            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26515    12               0   0  0              +                                                        SUBTRACT LITERAL
          26516    73      265     18   0  0              0        265     >OK, NOT MORE THAN 5                    JUMP IF A < 0
          26517    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
  Source image: P1000203.JPG
    26516>26518    96               0   0  2              0                                                        SELECT MODIFIER
          26519    5       12      70   0  0              0                TOT NO OF CHARS                         TRANSFER
          26520    91               0   0  2              0                CLEAR BOTH                              SET MODIFICATION REGISTER AT VARIABLE
          26521    91               0   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26522    86      695      2   0  0              0        695                                             SELECT SWITCH R
          26523    70      265     47   0  0              0        265     >NO REL ADDRESS IN CONST                JUMP IF A == 0
          26524    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26525    0       12      67   0  0              0                REF                                     SELECT
          26526    12               0   0  0            100                                                        SUBTRACT LITERAL
          26527    73      265     47   0  0              0        265     >SECTION                                JUMP IF A < 0
          26528    12               0   0  0            899                                                        SUBTRACT LITERAL
          26529    72      265     47   0  0              0        265     >EX RANGE                               JUMP IF A >= 0
          26530    0       12      67   0  0              0                                                        SELECT
          26531    80      200      2   0  0              0        200     >REPLACE PROCR                          ENTER SUBROUTINE
          26532    C       202      2   0  0              0        202                                             
          26533            12     119   0  0              0                                                        SELECT
          26534    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          26535    32               0   0  0              2-               REPLACE 3-DIGIT NUMBER                  SHIFT (AB) BY QUARTETS
          26536    5       94       1-  0  1              0                (FIRST DIGIT ALWAYS ZERO)               TRANSFER
          26537    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26538    71      265     40   0  0              0        265                                             JUMP IF A != 0
          26539    10               0   0  0             30                                                        SELECT LITERAL
    26538>26540    5       94       0   0  1              0                                                        TRANSFER
          26541    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          26542    71      265     44   0  0              0        265                                             JUMP IF A != 0
          26543    10               0   0  0             30                                                        SELECT LITERAL
    26542>26544    5       94       1   0  1              0                                                        TRANSFER
          26545    54      1        6   0  0             18                                                        BULK CLEAR
          26546    76      265     83   0  0              0        265     >ASSEMBLE                               JUMP unconditional
    26529>                                                                                                         
    26527>                                                                                                         
    26523>26547    0       12      33   0  0              0                                                        SELECT
          26548    70      266     17   0  0              0        266     >MT                                     JUMP IF A == 0
          26549    54      1        6   0  0             18                CLEAR 1/6'-1.22'=EDIT AREA              BULK CLEAR
          26550    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          26551    C       265     83   0  0              0        265     >PT                                     
          26552    C       265     53   0  0              0        265     >CARDS                                  
    26552>26553            94      61   0  0              0                DIRECTIVE CTR                           SELECT
          26554    12               0   0  0              4                                                        SUBTRACT LITERAL
          26555    72      265     72   0  0              0        265     >MIXED CONSTANT                         JUMP IF A >= 0
          26556    86      267      2   0  0              0        267                                             SELECT SWITCH R
          26557    12               0   0  0              1                                                        SUBTRACT LITERAL
          26558    71      265     72   0  0              0        265     >NOT ALPHA                              JUMP IF A != 0
          26559            94       0   0  0              0                FIRST CHAR                              SELECT
          26560    12               0   0  0             7Ю                                                        SUBTRACT LITERAL
          26561    70      265     63   0  0              0        265     >'('                                    JUMP IF A == 0
          26562    10               0   0  0              3-                                                       SELECT LITERAL
    26561>26563    11               0   0  0              3                                                        ADD LITERAL
          26564    17      12      90   0  0              3                LONG/SHORT CTR                          MULTIPLY LITERAL and ADD
          26565    11               0   0  0        1.00002                END VLAUE 30                            ADD LITERAL
          26566    3       12      70   0  0              0                NEW CONSTANT LENGTH                     COPY
          26567    91               0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
          26568    10               0   0  0             7:                                                        SELECT LITERAL
    26570>26569    5       94       0   0  1              0                                                        TRANSFER
          26570    94      265     69   0  1              1        265     >CLEAR REST OF CONSTANT                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26571    76      265     83   0  0              0        265                                             JUMP unconditional
    26558>                                                                                                         
    26555>26572    90               0   0  1             28                                                        SET MODIFICATION REGISTER AT LITERAL
          26573    C                0   0  0              0                                                        
    26576>26574            94       0   0  1              0                                                        SELECT
  Source image: P1000204.JPG
          26575    71      265     77   0  0              0        265     >FIRST NON ZERO CHAR FROM END           JUMP IF A != 0
          26576    94      265     74   0  1              1-       265                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    26575>26577    10               0   0  0             7:                                                        SELECT LITERAL
          26578    5       94       1   0  1              0                SET CONST END                           TRANSFER
          26579    5       94      29   0  0              0                CLEAR OLD END                           TRANSFER
          26580    96               0   0  1              0                                                        SELECT MODIFIER
          26581    11               0   0  0              1                                                        ADD LITERAL
          26582    5       12      70   0  0              0                NEW NUMBERS OF CHARS                    TRANSFER
    26616>                                                                                                         
    26571>                                                                                                         
    26551>                                                                                                         
    26546>26583            94       0   0  2              0                                                        SELECT
                                                                                                                   
          26600    PROCR   266       266                                                                           
          26601     NOTES          RADIX          STORE OLD - NEW RADIX                                            SELECT
          26602    30               0   0  0              2                CTR OF CONVERT TABLES TO DATE           SHIFT (A) BY QUARTETS
          26603    1       94       1   0  2              0                                                        ADD
          26604    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26605    1       94       2   0  2              0                                                        ADD
          26606    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26607    1       94       3   0  2              0                                                        ADD
          26608    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          26609    1       94       4   0  2              0                                                        ADD
          26610    5       1        6   1  3              0                STORE NEXT WORD OF CONST                TRANSFER
          26611    125              2   0  3              0                                                        step on and test
          26612    125              5   0  2              0                                                        step on and test
          26613    96               0   0  2              0                                                        SELECT MODIFIER
          26614    12               0   0  0              1                                                        SUBTRACT LITERAL
          26615    2       12      70   0  0              0                NO OF CHARS                             SUBTRACT
          26616    73      265     83   0  0              0        265     > CYCLE FOR MULTIPLE OF 5               JUMP IF A < 0
    26548>26617            1       42   1  0              0                                                        SELECT
          26618    2       319     26   1  0              0        319                                             SUBTRACT
          26619    71      266     22   0  0              0        266     > OK                                    JUMP IF A != 0
          26620    80      263     10   0  0              0        263     CLEAR ALL DETAILS                       ENTER SUBROUTINE
          26621    76      247      2   0  0              0        247                                             JUMP unconditional
    26619>26622    0       94      61   0  0              0                SF CTR IN DIRECTIVE LINE                SELECT
          26623    12               0   0  0              4                                                        SUBTRACT LITERAL
          26624    72      247      2   0  0              0        247     > CONST IS MIXED OR CONTAINS            JUMP IF A >= 0
          26625    90               0   0  1              0                CLEAR MODIFIER                          SET MODIFICATION REGISTER AT LITERAL
          26626    C                0   0  0              0                /////                                   
          26627            94       0   0  1              0                NEXT CHAR                               SELECT
          26628    12               0   0  0             7Ю                P ‼  ‼  ½‼   I ½  ‼ Ю        ‼    Ю‼    SUBTRACT LITERAL
          26629    71      267      2   0  0              0        267               > NOT '('                     JUMP IF A != 0
    26633>26630    0       94       1   0  1              0                CHAR AFTER '('                          SELECT
          26631    94               0   0  1              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          26632    12               0   0  0             7‼                P ‼  ‼  ½‼   I ½  ‼ Ю        ‼    Ю‼    SUBTRACT LITERAL
          26633    71      266     30   0  0              0        266                                             JUMP IF A != 0
          26634    94               0   0  1              1                TO SELECT CHAR AFTER DIRECTIVE          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          26700    PROCR   267       267     CONSTANTS SWITCH                                                      
          26701     NOTES  267                                                                                     SELECT
    26629>26702    85      267      2   0  0              0        267                                             SWITCH R
          26703    C       268      2   0  0              0        268                                             
          26704    C       269      2   0  0              0        269                                             
          26705    C       270      2   0  0              0        270                                             
          26706    C       272      2   0  0              0        272                                             
          26707    C       267      8   0  0              0        267     > RELATIVE ADDRESS                      
    26707>26708            12      67   0  0              0                REF (DEC)                               SELECT
          26709    12               0   0  0           1000                                                        SUBTRACT LITERAL
          26710    72      267     28   0  0              0        267     > REPORT R                              JUMP IF A >= 0
  Source image: P1000205.JPG
          26711    11               0   0  0            £67                1000 - 99 BIN RADIX                     ADD LITERAL
          26712    72      267     30   0  0              0        267     >REF IS A PROCR                         JUMP IF A >= 0
          26713            12      67   0  0              0                SECTION IN DEC                          SELECT
          26714    70      247      2   0  0              0        247     >ABS ADDRESS, NO CHECKS                 JUMP IF A == 0
          26715    80      183      2   0  0              0        183     >DECODE                                 ENTER SUBROUTINE
          26716    34      12      40   0  0              0                                                        SET (N) IN B
          26717    36      12      72   0  3              0                                                        COLLATE AND ADD
          26718    70      267     28   0  0              0        267     > SECTION NON-EXISTEREPORT R            JUMP IF A == 0
          26719    10               0   0  0              0                                                        SELECT LITERAL
          26720    33               0   0  0             10                SHIFT COLLATOR                          SHIFT (AB) BY BITS
          26721    36      12      72   0  3              0                                                        COLLATE AND ADD
          26722    71      267     28   0  0              0        267     > SECTION IS TX AREAREPORT R            JUMP IF A != 0
          26723            12      66   0  0              0                ITEM                                    SELECT
          26724    12               0   0  0           8191                                                        SUBTRACT LITERAL
          26725    73      247      2   0  0              0        247     > OK                                    JUMP IF A < 0
    26732>26726    80      196      2   0  0              0        196     > REPORT                                ENTER SUBROUTINE
          26727    76      247      2   0  0              0        247                                             JUMP unconditional
    26722>                                                                                                         
    26718>                                                                                                         
    26710>26728    80      195      2   0  0              0        195     > REPORT R                              ENTER SUBROUTINE
          26729    76      247      2   0  0              0        247                                             JUMP unconditional
    26712>26730            12      66   0  0              0                ITEM                                    SELECT
          26731    12               0   0  0             99                                                        SUBTRACT LITERAL
          26732    72      267     26   0  0              0        267     > REPORT 1                              JUMP IF A >= 0
          26733    76      247      2   0  0              0        247     > OK                                    JUMP unconditional
                                                                                                                   
          26800    PROCR   268       268     CHECK ALPHA CONSTANTS                                                 
          26801     NOTES  268                                                                                     SELECT
    26703>26802    0       12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26803    70      268      5   0  0              0        268                                             JUMP IF A == 0
          26804    10               0   0  0              3                                                        SELECT LITERAL
    26803>26805    11               0   0  0              2                                                        ADD LITERAL
    26912>                                                                                                         
    26915>26806    98               0   0  1              0                > MODIFIER = DIRECTIVE LENGTH           ADD MODIFICATION REGISTER TO A
          26807    2       12      70   0  0              0                TOT CHARS IN CONST+1 (INDIRECTIVE)      SUBTRACT
          26808    72      247      2   0  0              0        247     > OK                                    JUMP IF A >= 0
          26809    76      273      2   0  0              0        273     > REPORT                                JUMP unconditional
                                                                                                                   
          26900    PROCR   269       269     CHECK DECIMAL CONSTANTS                                               
          26901     NOTES          RADIX                                                                           SELECT
    26704>26902    0       12      90   0  0              0                LONG/SHORT CONST INDICATOR              SELECT
          26903    70      269      5   0  0              0        269     > SHORT                                 JUMP IF A == 0
          26904    10               0   0  0              5                                                        SELECT LITERAL
    26903>26905    11               0   0  0              5                                                        ADD LITERAL
    27206>26906    5       12      67   0  0              0                                                        TRANSFER
          26907    124     12      70   0  0              0                CHARS IN CONST                          modify address of next
          26908            94       1-  0  0              0                FINAL BEFOR NE                          SELECT
          26909    12               0   0  0             10                                                        SUBTRACT LITERAL
          26910    70      269     13   0  0              0        269     > ALLOW FOR SIGN                        JUMP IF A == 0
          26911    0       12      67   0  0              0                                                        SELECT
          26912    76      268      6   0  0              0        268     > CHECK                                 JUMP unconditional
    26910>26913    0       12      67   0  0              0                                                        SELECT
          26914    11               0   0  0              1                                                        ADD LITERAL
          26915    76      268      6   0  0              0        268     > CHECK                                 JUMP unconditional
                                                                                                                   
          27000    PROCR   270       270     BINARY NUMBERS                                                        
          27001     NOTES          RADIX                                                                           SELECT
    26705>27002    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          27003    C                0   0  0             11                                                        
    27016>27004            94       0   0  1              0                NEXT CHAR                               SELECT
  Source image: P1000206.JPG
          27005    12               0   0  0             7:                                                        SUBTRACT LITERAL
          27006    70      271      2   0  0              0        271     >NUMBER END                             JUMP IF A == 0
          27007    11               0   0  0             6:                                                        ADD LITERAL
          27008    70      271      2   0  0              0        271     >MINUS SIGN                             JUMP IF A == 0
          27009    11               0   0  0             10                                                        ADD LITERAL
          27010    5       12      10   1  0              0                STORE CHARACTER                         TRANSFER
          27011    0       12      66   1  0              0                                                        SELECT
          27012    30               0   0  0              1                                                        SHIFT (A) BY QUARTETS
          27013    1       12      10   2  0              0                BASIC QTT                               ADD
          27014    5       12      66   1  0              0                ASSEMBLE CONST QTT BY QTT               TRANSFER
          27015    94      270     16   0  1              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    27015>27016    94      270      4   0  2              1        270                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27017    76      273      2   0  0              0        273     >REPORT TOO MANY CHARS                  JUMP unconditional
                                                                                                                   
          27100    PROCR   271       271                                                                           
          27101     NOTES          RADIX                                                                           SELECT
    27008>                                                                                                         
    27006>27102    0       12      90   0  0              0                LONG/SHORT CONST IND                    SELECT
          27103    71      247      2   0  0              0        247                                             JUMP IF A != 0
          27104            12      66   1  0              0                                                        SELECT
          27105    12               0   0  0        1048576                                                        SUBTRACT LITERAL
          27106    72      273      2   0  0              0        273                                             JUMP IF A >= 0
          27107    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          27200    PROCR   272       272     BINARY PATTERN                                                        
          27201     NOTES          RADIX                                                                           SELECT
    26706>27202    0       12      90   0  0              0                LONG/SHORT CONSTANT IND                 SELECT
          27203    70      272      5   0  0              0        272                                             JUMP IF A == 0
          27204    10               0   0  0             14                                                        SELECT LITERAL
    27203>27205    11               0   0  0             14                                                        ADD LITERAL
          27206    76      269      6   0  0              0        269     >CHECK LENGTH VIA DEC                   JUMP unconditional
                                                                                                                   
          27300    PROCR   273       273     ERROR REPORT                                                          
          27301     NOTES          RADIX                                                                           SELECT
    27106>                                                                                                         
    27017>                                                                                                         
    26809>27302    10               0   0  0             5‼                                                        SELECT LITERAL
          27303    5       1       44   1  0              0                                                        TRANSFER
          27304    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          27400    PROCR   274       274     GET NEXT CHAR OF CONSTANT(IE NEXT WORD)                               
          27401     NOTES          RADIX                                                                           SELECT
          27402    81      274      2   0  0              0        274                                             START OF SUBROUTINE
          27403    10               0   0  0              0                                                        SELECT LITERAL
          27404    94      274     13   0  3              1        274     >HAVE NOT EXHAUSTED 5-CHAR WORD         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27405    94      274     10   0  1              2        274     STEP FOR NEXT WORD IF PRESENT           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27406    80      295      2   0  0              0        295     *IGNORE MORE THAN 45 CHAR               ENTER SUBROUTINE
          27407    10               0   0  0             7:                                                        SELECT LITERAL
          27408    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          27409    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    27405>27410    90               0   0  3              0                R3 COUNTS A 5-CHAR WORD                 SET MODIFICATION REGISTER AT LITERAL
          27411    C                0   0  0              5                                                        
          27412    34      1        6   1  1              0                NEXT WORD CONSTANT                      SET (N) IN B
    27404>27413    82      274      2   0  0              0        274                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27500    PROCR   275       275     ALTERNATIVE ENTRY TO UPDATE ADDRESS                                   
          27502    81      275      2   0  0              0        275                                             START OF SUBROUTINE
          27503    5       12      88   2  0              0                                                        TRANSFER
          27504    0       275      2   0  0              0        275                                             SELECT
          27505    3       274      2   0  0              0        274     SET NONZERO='NOT P'                     COPY
  Source image: P1000207.JPG
          27506    5       208      2   0  0              0        208                                             TRANSFER
          27507    76      208     10   0  0              0        208     >ENTER                                  JUMP unconditional
                                                                                                                   
          27600    PROCR   276       276                                                                           
          27601     NOTES          RADIX                                                                           SELECT
    19112>27602    5       12       3   0  0              0                CLEAR ERROR WL                          TRANSFER
          27603    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          27604    C                0   0  0              8                                                        
    27618>27605    0       1       22   0  2              0                ITEM                                    SELECT
          27606    5       1       10   0  0              0                                                        TRANSFER
          27607    0       1       20   1  2              0                REF (NUM)                               SELECT
          27608    80      275      2   0  0              0        275     >UPDATE ADDRESS                         ENTER SUBROUTINE
          27609    0       1       10   0  0              0                NEW ITEM                                SELECT
          27610    5       1       22   0  2              0                                                        TRANSFER
          27611    0       12       4   0  0              0                NEW REF                                 SELECT
          27612    5       1       20   0  2              0                                                        TRANSFER
          27613    80      277      2   0  0              0        277     CHECK REF                               ENTER SUBROUTINE
          27614            1       19   0  0              0                DISC                                    SELECT
          27615    70      276     18   0  0              0        276                                             JUMP IF A == 0
          27616            1       10   0  0              0                                                        SELECT
          27617    80      192      2   0  0              0        192     >CHECK ITEM IS EVEN                     ENTER SUBROUTINE
    27615>27618    94      276      5   0  2              4        276                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          27619    76      278      2   0  0              0        278                                             JUMP unconditional
                                                                                                                   
          27700    PROCR   277       277     SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES                       
          27701     NOTES          RADIX                                                                           SELECT
          27702    81      277      2   0  0              0        277                                             START OF SUBROUTINE
          27703    83      108      2   0  0              1        108                                             SET SWITCH(ES) AT LITERAL VALUE
          27704            12       4   0  0              0                REF TO BE CHECKED                       SELECT
          27705    12               0   0  0            100                                                        SUBTRACT LITERAL
          27706    72      277     27   0  0              0        277     >NOT SECTION                            JUMP IF A >= 0
          27707    0       12       4   0  0              0                                                        SELECT
          27708    73      277     23   0  0              0        277                                             JUMP IF A < 0
          27709    70      277     18   0  0              0        277                                             JUMP IF A == 0
          27710    80      183      2   0  0              0        183     >DECODE SR                              ENTER SUBROUTINE
          27711    34      12      40   0  0              0                                                        SET (N) IN B
          27712    36      12      72   0  3              0                                                        COLLATE AND ADD
          27713    70      277     23   0  0              0        277     >IGNORE, SECTION NONEXISTENT            JUMP IF A == 0
          27714    33               0   0  0             10                                                        SHIFT (AB) BY BITS
          27715    10               0   0  0              0                                                        SELECT LITERAL
          27716    36      12      72   0  3              0                                                        COLLATE AND ADD
          27717    71      277     23   0  0              0        277     >IGNORE, SECTION IS TX AREA             JUMP IF A != 0
    27709>27718    0       1       10   0  0              0                                                        SELECT
          27719    12               0   0  0           8192                                                        SUBTRACT LITERAL
          27720    73      277     29   0  0              0        277                                             JUMP IF A < 0
          27721    80      196      2   0  0              0        196     >REPORT I                               ENTER SUBROUTINE
          27722    76      277     24   0  0              0        277                                             JUMP unconditional
    27728>                                                                                                         
    27717>                                                                                                         
    27713>                                                                                                         
    27708>27723    80      195      2   0  0              0        195     >REPORT R                               ENTER SUBROUTINE
    27722>27724    80      295      2   0  0              0        295     >IGNORE                                 ENTER SUBROUTINE
          27725    83      108      2   0  0              2        108     IGNORE ANY MORE 'VALTHIS REF FOR        SET SWITCH(ES) AT LITERAL VALUE
          27726    76      277     29   0  0              0        277                                             JUMP unconditional
    27706>27727    12               0   0  0            900                                                        SUBTRACT LITERAL
          27728    72      277     23   0  0              0        277     >REF>999, IGNORE                        JUMP IF A >= 0
    27726>                                                                                                         
    27720>27729    82      277      2   0  0              0        277                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          27800    PROCR   278       278     TABLE SWITCH                                                          
  Source image: P1000208.JPG
          27801     NOTES          RADIX                                                                           SELECT
    27619>27802    0       1       19   0  0              0                DISC                                    SELECT
          27803    73      282     18   0  0              0        282     >REPORT T5                              JUMP IF A < 0
          27804    12               0   0  0              3                                                        SUBTRACT LITERAL
          27805    72      282     18   0  0              0        282                                             JUMP IF A >= 0
          27806    0       1       20   0  0              0                FIRST REF                               SELECT
          27807    70      282     24   0  0              0        282     >REPORT T1                              JUMP IF A == 0
          27808    85      278      8   0  0              0        278                                             SWITCH R
          27809    C       279      2   0  0              0        279                                             
          27810    C       281      2   0  0              0        281                                             
          27811    C       279     10   0  0              0        279     >TYPE 3                                 
          27812    C       281     23   0  0              0        281     >TYPE 4                                 
          27813    C       247      2   0  0              0        247                                             
                                                                                                                   
          27900    PROCR   279       279     TYPES 1 AND 3                                                         
          27901     NOTES          RADIX          EDIT AND UNPACK FIXED                                            SELECT
    27809>27902            1       12   0  0              0                NO OF CHARS                             SELECT
          27903    1       1       14   0  0              0                SPACES                                  ADD
          27904    4       12       5   0  0              0                TOTAL FOR TABLE                         AUGMENT
          27905            1       16   0  0              0                SIGN                                    SELECT
          27906    12               0   0  0              2                                                        SUBTRACT LITERAL
          27907    71      279     10   0  0              0        279     >NOT SEPARATE CHARACTER                 JUMP IF A != 0
          27908    10               0   0  0              1                                                        SELECT LITERAL
          27909    4       12       5   0  0              0                STEP TOTAL                              AUGMENT
    27907>                                                                                                         
    27811>27910            1       24   0  0              0                SECOND REF                              SELECT
          27911    34      1       26   0  0              0                SECON ITEM                              SET (N) IN B
          27912    75      282     22   0  0              0        282     >REPORT T3                              JUMP IF AB != 0
          27913            1       11   0  0              0                                                        SELECT
          27914    71      282     16   0  0              0        282     >'UNPACK TO BE' IS SET                  JUMP IF A != 0
          27915    0       1       19   0  0              0                DISC                                    SELECT
          27916    12               0   0  0              1                                                        SUBTRACT LITERAL
          27917    70      279     19   0  0              0        279                                             JUMP IF A == 0
          27918    10               0   0  0              5-                                                       SELECT LITERAL
    27917>27919    11               0   0  0             10                                                        ADD LITERAL
          27920    2       1       12   0  0              0                CHARS                                   SUBTRACT
          27921    2       1       13   0  0              0                DISCARDS                                SUBTRACT
          27922    73      282     14   0  0              0        282     >INCONSISTENT WITH SOURCE LENGTH        JUMP IF A < 0
          27923    1       1       12   0  0              0                                                        ADD
          27924    1       1       13   0  0              0                                                        ADD
          27925    2       1       15   0  0              0                ZEROS                                   SUBTRACT
          27926    73      282      8   0  0              0        282     >MORE ZEROS THAN SOURCE                 JUMP IF A < 0
          27927            1       12   0  0              0                CHARS                                   SELECT
          27928    2       1       15   0  0              0                ZEROS                                   SUBTRACT
          27929    73      282      8   0  0              0        282     >ZEROS>NO CHARS 'T10'                   JUMP IF A < 0
                                                                                                                   
          28000    PROCR   280       280                                                                           
          28001     NOTES          RADIX                                                                           SELECT
          28002            1       14   0  0              0                                                        SELECT
          28003    12               0   0  0             16                                                        SUBTRACT LITERAL
          28004    72      282     10   0  0              0        282     >TOO MANY SPCES                         JUMP IF A >= 0
          28005    0       1       12   0  0              0                CHARS                                   SELECT
          28006    70      282     14   0  0              0        282     >REPORT 'T7'                            JUMP IF A == 0
          28007    0       1       19   0  0              0                DISC                                    SELECT
          28008    12               0   0  0              2                                                        SUBTRACT LITERAL
          28009    71      280     12   0  0              0        280     >NOT ALPHA                              JUMP IF A != 0
          28010    0       1       15   0  0              0                ZEROS                                   SELECT
          28011    71      282      8   0  0              0        282     >REPORT 'T10'                           JUMP IF A != 0
    28009>28012            1       17   0  0              0                STERLING INDICATOR                      SELECT
          28013    71      280     17   0  0              0        280                                             JUMP IF A != 0
  Source image: P1000209.JPG
          28014    2       12      63   0  0              0                STERLING CTR                            SUBTRACT
          28015    70      280     24   0  0              0        280                                             JUMP IF A == 0
          28016    76      280     38   0  0              0        280     >REPORT 'T12'                           JUMP unconditional
    28013>28017    12               0   0  0              1                                                        SUBTRACT LITERAL
          28018    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28019            12      63   0  0              0                                                        SELECT
          28020    12               0   0  0              2                                                        SUBTRACT LITERAL
          28021    70      280     23   0  0              0        280                                             JUMP IF A == 0
          28022    11               0   0  0              3                                                        ADD LITERAL
    28021>28023    5       12      63   0  0              0                                                        TRANSFER
    28015>28024            1       18   0  0              0                LAST TABLE ENTRY                        SELECT
          28025    3       12       6   0  0              0                COPY TO WL                              COPY
          28026    70      247      2   0  0              0        247                                             JUMP IF A == 0
          28027    12               0   0  0              1                                                        SUBTRACT LITERAL
          28028    71      282      2   0  0              0        282     >'T13' IF LTE WRONG                     JUMP IF A != 0
          28029            12       5   0  0              0                CHARACTERS EDITED                       SELECT
          28030    1       12       5   0  0              0                                                        ADD
          28031    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          28032    70      280     35   0  0              0        280     >MULT OF 5                              JUMP IF A == 0
          28033    10               0   0  0         727464                SUM'                                    SELECT LITERAL
          28034    5       1       44   1  0              0                                                        TRANSFER
    28032>28035    5       12       5   0  0              0                CLEAR STR AT EACH LTE                   TRANSFER
          28036    2       12      63   0  0              0                STERLING INDICATORS NOT                 SUBTRACT
          28037    70      247      2   0  0              0        247     OCCURRED IN 3 CONSECUTIVE LINES         JUMP IF A == 0
    28016>28038    4       12      63   0  0              0                CLEAR COUNTER                           AUGMENT
          28039    76      282      4   0  0              0        282     ERROR REPORT T12                        JUMP unconditional
                                                                                                                   
          28100    PROCR   281       281     CHECK TABLES                                                          
          28101     NOTES          RADIX          TYPES 2 AND 4                                                    SELECT
    27810>28102            1       24   0  0              0                2ND REF                                 SELECT
          28103    70      281     23   0  0              0        281     >IS ZERO                                JUMP IF A == 0
          28104    30               0   0  0              2-                                                       SHIFT (A) BY QUARTETS
          28105    71      281     13   0  0              0        281     >3 DIG REF                              JUMP IF A != 0
          28106            1       20   0  0              0                                                        SELECT
          28107    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          28108    71      282     22   0  0              0        282     >3 DIG + 2 DIG 'T3'                     JUMP IF A != 0
          28109    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          28110    2       1       24   0  0              0                2ND REF                                 SUBTRACT
          28111    71      282     22   0  0              0        282     >2 DIG REF                              JUMP IF A != 0
          28112    76      281     20   0  0              0        281     >CHECK ITEMS                            JUMP unconditional
    28105>28113            1       20   0  0              0                1ST REF                                 SELECT
          28114    32               0   0  0              2-                                                       SHIFT (AB) BY QUARTETS
          28115    70      282     22   0  0              0        282     >2 DIG + 3 DIG RED (3 DIG) 'T3'         JUMP IF A == 0
          28116            1       24   0  0              0                2ND REF                                 SELECT
          28117    2       1       20   0  0              0                1ST REF                                 SUBTRACT
          28118    73      282     22   0  0              0        282     >2ND REF <1ST REF (3 DIG) 'T3'          JUMP IF A < 0
          28119    71      281     23   0  0              0        281                                             JUMP IF A != 0
    28112>28120            1       26   0  0              0                2ND ITEM                                SELECT
          28121    2       1       22   0  0              0                FIRST ITEM                              SUBTRACT
          28122    73      282     20   0  0              0        282     >2ND <1ST 'T4'                          JUMP IF A < 0
    28119>                                                                                                         
    28103>                                                                                                         
    27812>28123            1       11   0  0              0                'SINGLE/BE'                             SELECT
          28124    70      281     29   0  0              0        281                                             JUMP IF A == 0
          28125    12               0   0  0              1                                                        SUBTRACT LITERAL
          28126    71      282     16   0  0              0        282                                             JUMP IF A != 0
          28127            1       18   0  0              0                LAST TABLE ENTRY'                       SELECT
          28128    70      282      2   0  0              0        282                                             JUMP IF A == 0
    28124>28129            1       12   0  0              0                NO OF CHARS                             SELECT
          28130    71      282     14   0  0              0        282                                             JUMP IF A != 0
  Source image: P1000210.JPG
          28131            1       13   0  0              0                DISCARDS                                SELECT
          28132    71      282     12   0  0              0        282                                             JUMP IF A != 0
          28133            1       14   0  0              0                SPACES                                  SELECT
          28134    71      282     10   0  0              0        282                                             JUMP IF A != 0
          28135            1       15   0  0              0                ZEROS                                   SELECT
          28136    71      282      8   0  0              0        282                                             JUMP IF A != 0
          28137            1       16   0  0              0                SIGN                                    SELECT
          28138    70      281     41   0  0              0        281                                             JUMP IF A == 0
          28139    12               0   0  0              2                                                        SUBTRACT LITERAL
          28140    71      282      6   0  0              0        282                                             JUMP IF A != 0
    28138>28141            1       17   0  0              0                STERLING IND                            SELECT
          28142    71      282      4   0  0              0        282                                             JUMP IF A != 0
          28143    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          28200    PROCR   282       282     MAKE REPORT 'T*'                                                      
          28201     NOTES          RADIX                                                                           SELECT
    28128>                                                                                                         
    28028>28202    10               0   0  0              1                                                        SELECT LITERAL
          28203    5       12       3   0  0              0                                                        TRANSFER
    28142>                                                                                                         
    28039>                                                                                                         
    28018>28204    10               0   0  0              1                                                        SELECT LITERAL
          28205    4       12       3   0  0              0                                                        AUGMENT
    28140>28206    10               0   0  0              1                                                        SELECT LITERAL
          28207    4       12       3   0  0              0                                                        AUGMENT
    28136>                                                                                                         
    28011>                                                                                                         
    27929>                                                                                                         
    27926>28208    10               0   0  0              1                                                        SELECT LITERAL
          28209    4       12       3   0  0              0                                                        AUGMENT
    28134>                                                                                                         
    28004>28210    10               0   0  0              1                                                        SELECT LITERAL
          28211    4       12       3   0  0              0                                                        AUGMENT
    28132>28212    10               0   0  0              1                                                        SELECT LITERAL
          28213    4       12       3   0  0              0                                                        AUGMENT
    28130>                                                                                                         
    28006>                                                                                                         
    27922>28214    10               0   0  0              1                                                        SELECT LITERAL
          28215    4       12       3   0  0              0                                                        AUGMENT
    28126>                                                                                                         
    27914>28216    10               0   0  0              1                                                        SELECT LITERAL
          28217    4       12       3   0  0              0                                                        AUGMENT
    27805>                                                                                                         
    27803>28218    10               0   0  0              1                                                        SELECT LITERAL
          28219    4       12       3   0  0              0                                                        AUGMENT
    28122>28220    10               0   0  0              1                                                        SELECT LITERAL
          28221    4       12       3   0  0              0                                                        AUGMENT
    28118>                                                                                                         
    28115>                                                                                                         
    28111>                                                                                                         
    28108>                                                                                                         
    27912>28222    10               0   0  0              2                                                        SELECT LITERAL
          28223    4       12       3   0  0              0                                                        AUGMENT
    27807>28224    10               0   0  0              1                                                        SELECT LITERAL
          28225    1       12       3   0  0              0                                                        ADD
          28226    5       12      88   0  0              0                                                        TRANSFER
          28227    52      1       44   0  0              0                                                        EDIT
          28228    C       306      6   0  0              0        306                                             
    20521>28229    10               0   0  0         730000                                                        SELECT LITERAL
          28230    4       1       44   1  0              0                                                        AUGMENT
  Source image: P1000211.JPG
          28231    76      247      2   0  0              0        247                                             JUMP unconditional
                                                                                                                   
          28300    PROCR   283       283     UNPACK PAPER TAPE PART ONE-DIRECTIVES                                 
          28301     NOTES          RADIX                                                                           SELECT
          28302    81      283      2   0  0              0        283                                             START OF SUBROUTINE
          28303    54      1        0   1  0             46                                                        BULK CLEAR
          28304            12      38   0  0              0                                                        SELECT
          28305    70      285      2   0  0              0        285     NOT A DIRECTIVE                         JUMP IF A == 0
          28306    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28307    C       283      9   0  0              0        283                                             
          28308    C       283     31   0  0              0        283     CARDS                                   
    28307>28309    0       92      30   0  0              0                AMEND RUN?                              SELECT
          28310    70      283     13   0  0              0        283                                             JUMP IF A == 0
          28311    124     311      2   0  2              0        311                                             select literal and division
          28312    76      283     14   0  0              0        283                                             JUMP unconditional
    28310>28313    124     311      4   0  2              0        311                                             select literal and division
    28312>28314    80      326      2   0  0              0        326     UNPACK P/T S/DIR                        ENTER SUBROUTINE
          28315    0       27       5   0  0              0                                                        SELECT
          28316    12               0   0  0              2                                                        SUBTRACT LITERAL
          28317    71      283     28   0  0              0        283     >NOT TABLE                              JUMP IF A != 0
          28318    0       12      38   0  0              0                                                        SELECT
          28319    73      283     28   0  0              0        283     >NOT 'NOTES' OF TABLE                   JUMP IF A < 0
          28320    10               0   0  0              0                S/DIR WAS 'NOTES' OF TABLE              SELECT LITERAL
          28321    5       1        8   1  0              0                & MUST BE UNPACKED DIFFERENTLY          TRANSFER
          28322    0       92      30   0  0              0                                                        SELECT
          28323    70      283     26   0  0              0        283     >INITIAL TRANSLATION                    JUMP IF A == 0
          28324    124     311     10   0  2              0        311                                             select literal and division
          28325    76      283     27   0  0              0        283                                             JUMP unconditional
    28323>28326    124     311     12   0  2              0        311                                             select literal and division
    28325>28327    80      326      2   0  0              0        326     UNPACK CORRECTLY                        ENTER SUBROUTINE
    28339>                                                                                                         
    28342>                                                                                                         
    28506>                                                                                                         
    28612>                                                                                                         
    28638>                                                                                                         
    28649>                                                                                                         
    28319>                                                                                                         
    28317>28328    10               0   0  0              0                                                        SELECT LITERAL
          28329    5       1       44   1  0              0                CLEAR ERROR WL                          TRANSFER
          28330    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28308>28331    50      9        8   0  0              0                UNPACK S/DIR FROM CARD                  UNPACK FIXED FIELD DATA
          28332    C       311      4   0  0              0        311                                             
          28333    55      9       18   1  0             16                                                        BULK COPY
          28334    C       1       18   1  0              0                                                        
          28335    0       1        8   1  0              0                                                        SELECT
          28336    30               0   0  0              4                LEFT ALIGN SECTION NO                   SHIFT (A) BY QUARTETS
          28337    5       1        8   1  0              0                                                        TRANSFER
          28338    0       12      38   0  0              0                                                        SELECT
          28339    73      283     28   0  0              0        283     NOT 'NOTES'                             JUMP IF A < 0
          28340            27       5   0  0              0                                                        SELECT
          28341    12               0   0  0              1                                                        SUBTRACT LITERAL
          28342    71      283     28   0  0              0        283     >NOT 'PROCR'        LEAVE SR            JUMP IF A != 0
          28343    0       1       18   1  0              0                S/DIR WAS ''NOTES'' OF PROCR            SELECT
          28344    5       1        8   1  0              0                MOVE ''RADIX''                          TRANSFER
          28345    55      9       20   1  0             16                COPY WORDS                              BULK COPY
          28346    C       1       18   1  0              0                                                        
          28347    82      283      2   0  0              0        283                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28400    PROCR   284       284     UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK                         
          28401     NOTES          RADIX                                                                           SELECT
  Source image: P1000212.JPG
          28402    81      284      2   0  0              0        284                                             START OF SUBROUTINE
          28403    54      1        6   1  0             40                                                        BULK CLEAR
    25705>28404            27       1   0  0              0                                                        SELECT
          28405    71      304      2   0  0              0        304     >MULTI-RECORD BLOCKS                    JUMP IF A != 0
          28406            12      38   0  0              0                                                        SELECT
          28407    70      284     21   0  0              0        284     >NOT DIRECTIVE                          JUMP IF A == 0
          28408    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28409    C       307      2   0  0              0        307                                             
          28410            12      86   0  0              0                                                        SELECT
          28411    70      284     18   0  0              0        284                                             JUMP IF A == 0
          28412            27       5   0  0              0                                                        SELECT
          28413    12               0   0  0              1                                                        SUBTRACT LITERAL
          28414    70      284     46   0  0              0        284     >'PROCR'                                JUMP IF A == 0
          28415    0       7       20   1  0              0                                                        SELECT
          28416    5       1       16   1  0              0                COPY TABLE OR CONST TYPE                TRANSFER
          28417    76      284     46   0  0              0        284                                             JUMP unconditional
    28411>28418    55      7       20   1  0             30                                                        BULK COPY
          28419    C       1       16   1  0              0                                                        
          28420    76      284     45   0  0              0        284                                             JUMP unconditional
    28407>28421    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28422    C       284     31   0  0              0        284     >'PROCR'                                
          28423    C       284     34   0  0              0        284     >'TABLE'                                
          28424    C       284     37   0  0              0        284     >'CONST'                                
          28425    C       284     26   0  0              0        284     VALUE'=4                                
    28425>28426    55      7        8   2  0             36                R, I+VALUES                             BULK COPY
          28427    C       1        9   0  0              0                                                        
          28428    55      7       44   2  0              6                ANNOTATION                              BULK COPY
          28429    C       1       40   2  0              0                                                        
          28430    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28422>28431    50      7        4   0  0              0                INSTRUCTIONS                            UNPACK FIXED FIELD DATA
          28432    C       308      2   0  0              0        308                                             
          28433    76      284     41   0  0              0        284                                             JUMP unconditional
    28423>28434    50      7        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28435    C       309      2   0  0              0        309     UNPACK TABLE ENTRIES.                   
          28436    76      284     41   0  0              0        284                                             JUMP unconditional
    28424>28437    55      7       12   1  0             18                CONSTANTS                               BULK COPY
          28438    C       1        6   1  0              0                                                        
          28439            7        4   2  0              0                AMEND IND                               SELECT
          28440    5       1        0   1  0              0                                                        TRANSFER
    28436>                                                                                                         
    28433>28441            12      86   0  0              0                                                        SELECT
          28442    71      284     46   0  0              0        284                                             JUMP IF A != 0
          28443    55      7       32   1  0             18                                                        BULK COPY
          28444    C       1       28   1  0              0                                                        
    28420>28445    5       1       44   1  0              0                CLEAR ERROR INDICATOR                   TRANSFER
    28442>                                                                                                         
    28417>                                                                                                         
    28414>28446    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28500    PROCR   285       285                                                                           
          28501     NOTES          RADIX                                                                           SELECT
    28305>28502    87      27       5   0  0              0                                                        SWITCH ACCORDING TO N
          28503    C       286      2   0  0              0        286     >'PROCR'                                
          28504    C       286      9   0  0              0        286     >'TABLE'                                
          28505    C       286     14   0  0              0        286     >'CONST'                                
          28506    C       283     28   0  0              0        283     VALUE' (DUMMY)                          
                                                                                                                   
          28600    PROCR   286       286                                                                           
          28601     NOTES          RADIX                                                                           SELECT
    28503>28602    124     312      2   0  2              0        312                                             select literal and division
  Source image: P1000213.JPG
          28603    80      326      2   0  0              0        326     >INSTRUCTIONS                           ENTER SUBROUTINE
          28604    10               0   0  0              0                                                        SELECT LITERAL
          28605    5       1       20   1  0              0                CLEAR 'CLEO' WORD                       TRANSFER
          28606    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28607    C       286     38   0  0              0        286     P/T INSTRUCTIONS                        
          28608    C       286     19   0  0              0        286     CARD INSTRUCTIONS                       
    28504>28609    124     313      2   0  2              0        313                                             select literal and division
          28610    80      326      2   0  0              0        326     >TABLE ENTRIES                          ENTER SUBROUTINE
          28611    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28612    C       283     28   0  0              0        283                                             
          28613    C       286     35   0  0              0        286     TABLE ENTRY FROM CARD                   
    28505>28614    124     314      2   0  2              0        314                                             select literal and division
          28615    80      326      2   0  0              0        326     >CONSTANTS                              ENTER SUBROUTINE
          28616    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          28617    C       286     47   0  0              0        286     P/T CONST                               
          28618    C       286     39   0  0              0        286     CARD CONST                              
    28608>28619    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          28620            1        8   1  0              0                REF ALPHA E-ALIGNED                     SELECT
          28621    32               0   0  0              4-               TEST TOP CHAR                           SHIFT (AB) BY QUARTETS
          28622    12               0   0  0             10                                                        SUBTRACT LITERAL
          28623    70      286     26   0  0              0        286     >'Ю' FIRST WAY                          JUMP IF A == 0
          28624    12               0   0  0             3Ю                                                        SUBTRACT LITERAL
          28625    71      286     27   0  0              0        286     >NOT 'Ю' OTHER WAY                      JUMP IF A != 0
    28623>28626    10               0   0  0           40.6                                                        SELECT LITERAL
    28625>28627    11               0   0  0             4Ю                                                        ADD LITERAL
          28628    60               0   0  0              0                                                        SET DECIMAL RADIX
          28629    32               0   0  0              6-               R-ALIGN IN B                            SHIFT (AB) BY QUARTETS
          28630    80      300      2   0  0              0        300     LEFT ALIGN                              ENTER SUBROUTINE
          28631    5       1        8   1  0              0                REF ALPHA E-ALIGNED                     TRANSFER
          28632    34      1        6   1  0              0                                                        SET (N) IN B
          28633    80      300      2   0  0              0        300     LEFT ALIGN                              ENTER SUBROUTINE
          28634    5       1        6   1  0              0                ACTION                                  TRANSFER
    28613>28635            9        4   1  0              0                LINE SERIAL                             SELECT
          28636    5       1        2   1  0              0                                                        TRANSFER
          28637    80      298      2   0  0              0        298     >UNPACK ANNOTATION                      ENTER SUBROUTINE
    28607>28638    76      283     28   0  0              0        283                                             JUMP unconditional
    28618>28639            9        4   1  0              0                LINE SERIAL                             SELECT
          28640    5       1        2   1  0              0                                                        TRANSFER
          28641    80      298      2   0  0              0        298     >UNPACK ANNOTATION                      ENTER SUBROUTINE
          28642    10               0   0  0             7:                                                        SELECT LITERAL
          28643    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          28644    32               0   0  0              8                                                        SHIFT (AB) BY QUARTETS
          28645    37      9       18   1  0              0                IN 36-TH CHAR POSN                      REPLACE SELECTED BITS
          28646    37      9        6   1  0              0                IN 6-TH CHAR POSN                       REPLACE SELECTED BITS
    28617>28647    50      9        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          28648    C       310      8   0  0              0        310                                             
          28649    76      283     28   0  0              0        283                                             JUMP unconditional
                                                                                                                   
          28700    PROCR   287       287     TEST WORD IN ACCUMULATOR                                              
          28701     NOTES          RADIX          IS A STACKING DIRECTIVE                                          SELECT
          28702    81      287      2   0  0              0        287                                             START OF SUBROUTINE
          28703    2       319      4   1  0              0        319     'CONST'                                 SUBTRACT
          28704    73      287     35   0  0              0        287     >NOT DIRECTIVE                          JUMP IF A < 0
          28705    70      287     28   0  0              0        287                                             JUMP IF A == 0
          28706    1       319      4   1  0              0        319                                             ADD
          28707    2       319     12   1  0              0        319     'NOTES'                                 SUBTRACT
          28708    71      287     14   0  0              0        287                                             JUMP IF A != 0
          28709            27       5   0  0              0                                                        SELECT
          28710    12               0   0  0              3                                                        SUBTRACT LITERAL
          28711    70      287     35   0  0              0        287     >NOTES FOLLOWING 'CONST'-NOT DIRECTIVE  JUMP IF A == 0
  Source image: P1000214.JPG
          28712    10               0   0  0             10                SET (12/38)>0                           SELECT LITERAL
          28713    76      287     33   0  0              0        287                                             JUMP unconditional
    28708>28714    1       319     12   1  0              0        319     'NOTES'                                 ADD
          28715    2       319      6   1  0              0        319     'PROCR'                                 SUBTRACT
          28716    70      287     30   0  0              0        287     >YES                                    JUMP IF A == 0
          28717    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28718    1       319      6   1  0              0        319     'PROCR'                                 ADD
          28719    2       319      2   1  0              0        319     'TABLE'                                 SUBTRACT
          28720    70      287     29   0  0              0        287     >YES                                    JUMP IF A == 0
          28721    73      287     35   0  0              0        287     >NOT A DIRECTIVE                        JUMP IF A < 0
          28722    1       319      2   1  0              0        319     'TABLE'                                 ADD
          28723    2       319     28   1  0              0        319     'VALUE'                                 SUBTRACT
          28724    71      287     35   0  0              0        287     >HENCE NOT A DIRECTIVE                  JUMP IF A != 0
          28725            12      33   0  0              0                                                        SELECT
          28726    71      287     35   0  0              0        287     >PT IN, 'VALUE' ISNT A DIRECTIVE        JUMP IF A != 0
          28727    10               0   0  0              1                                                        SELECT LITERAL
    28705>28728    11               0   0  0              1                (CONST)                                 ADD LITERAL
    28720>28729    11               0   0  0              1                (TABLE)                                 ADD LITERAL
    28716>28730    11               0   0  0              1                (PROCR)                                 ADD LITERAL
          28731    5       27       5   0  0              0                                                        TRANSFER
          28732    12               0   0  0             10                                                        SUBTRACT LITERAL
    28713>28733    5       12      38   0  0              0                SET<0 IF PROCR/TABLE/CONST/VALUE        TRANSFER
          28734    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    28726>                                                                                                         
    28724>                                                                                                         
    28721>                                                                                                         
    28717>                                                                                                         
    28711>                                                                                                         
    28704>28735    10               0   0  0              0                                                        SELECT LITERAL
          28736    5       12      38   0  0              0                                                        TRANSFER
          28737    82      287      2   0  0              0        287                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28800    PROCR   288       288     SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL              
          28801     NOTES          RADIX                                                                           SELECT
          28802    81      288      2   0  0              0        288                                             START OF SUBROUTINE
          28803            12     110   0  0              0                                                        SELECT
          28804    70      288     11   0  0              0        288                                             JUMP IF A == 0
          28805            12     111   0  0              0                CARD SER ERROR                          SELECT
          28806    70      288     10   0  0              0        288     >NO ERROR                               JUMP IF A == 0
          28807    124     319     22   0  1              0        319                                             modify address of next
          28808    124     305     10   0  1              0        305                                             modify address of next
          28809    5       29       0   1  0              0                WRONG SERIAL TO ERROR REPORT WORD       TRANSFER
    28806>28810    5       12     110   0  0              0                                                        TRANSFER
    28804>28811    90               0   0  1             44                                                        SET MODIFICATION REGISTER AT LITERAL
          28812    C                0   0  0              2                                                        
    28817>28813            29       2-  1  1              0                LAST WORD                               SELECT
          28814    70      288     17   0  0              0        288                                             JUMP IF A == 0
          28815    2       319     10   1  0              0        319                                             SUBTRACT
          28816    71      288     18   0  0              0        288                                             JUMP IF A != 0
    28814>28817    94      288     13   0  1              2-       288                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    28816>28818    96               0   0  1              0                CONTENTS OF MODIFIER                    SELECT MODIFIER
          28819    3       29       0   2  0              0                REC LENGTH                              COPY
          28820    10               0   0  0             90                TOTAL ROOM SEC 8                        SELECT LITERAL
          28821    2       318     12   0  0              0        318                                             SUBTRACT
          28822    2       29       0   2  0              0                CURRENT RECORD LENGTH                   SUBTRACT
          28823    72      288     32   0  0              0        288     >+VE OR ZERO                            JUMP IF A >= 0
    32505>28824            318     12   0  0              0        318                                             SELECT
          28825    3       8        4   2  0              0                BLOCK LENGTH                            COPY
          28826    91      318     12   0  1              0        318                                             SET MODIFICATION REGISTER AT VARIABLE
          28827            319     10   1  0              0        319     BE WORD                                 SELECT
  Source image: P1000215.JPG
          28828    5       8        6   1  1              0                                                        TRANSFER
          28829    80      290      2   0  0              0        290     >WRITE                                  ENTER SUBROUTINE
          28830    54      8        4   1  0             46                                                        BULK CLEAR
          28831    5       318     12   0  0              0        318                                             TRANSFER
    28823>28832    10               0   0  0              6                                                        SELECT LITERAL
          28833    5       12       2   0  0              0                                                        TRANSFER
          28834    91      318     12   0  1              0        318                                             SET MODIFICATION REGISTER AT VARIABLE
          28835    55      29       0   1  0              0                COPY TO SEC 8                           BULK COPY
          28836    C       8        6   1  1              0                                                        
          28837    C       29       0   2  0              0                                                        
          28838            29       0   2  0              0                                                        SELECT
          28839    4       318     12   0  0              0        318     STEP QTTY IN BLOCK TO DATE              AUGMENT
          28840    54      29       0   1  0             44                CLEAR SEC 29                            BULK CLEAR
          28841    82      288      2   0  0              0        288                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          28900    PROCR   289       289                                                                           
          28902    81      289      2   0  0              0        289                                             START OF SUBROUTINE
          28903    0       319     10   1  0              0        319                                             SELECT
          28904    5       8       50   1  0              0                                                        TRANSFER
          28905    80      290      2   0  0              0        290                                             ENTER SUBROUTINE
          28906    54      8        4   1  0             46                                                        BULK CLEAR
          28907    82      289      2   0  0              0        289                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29000    PROCR   290       290                                                                           
          29002    81      290      2   0  0              0        290                                             START OF SUBROUTINE
          29003    43      A2       0   0  0              0                                                        OUTPUT
          29004    C       8        0   0  0              0                                                        
          29005    82      290      2   0  0              0        290                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29100    PROCR   291       291     READ B/FWD MT FILE                                                    
          29102    81      291      2   0  0              0        291                                             START OF SUBROUTINE
          29103    42      A1       0   0  0              0                                                        INPUT
          29104    C       7        0   0  0              0                                                        
          29105    82      291      2   0  0              0        291                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29200    PROCR   292       292     INPUT OFF PAPER TAPE                                                  
          29201     NOTES          RADIX                                                                           SELECT
          29202    81      292      2   0  0              0        292                                             START OF SUBROUTINE
    29224>                                                                                                         
    29233>29203    80      301      2   0  0              0        301     >READ A6                                ENTER SUBROUTINE
          29204    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29205    C       292     13   0  0              0        292                                             
          29206    C       292      7   0  0              0        292     CARDS-CHECK CARD SER                    
    29206>29207            9       34   2  0              0                                                        SELECT
          29208    2       12     111   0  0              0                PREVIOUS SER                            SUBTRACT
          29209    4       12     111   0  0              0                STORE THIS SER                          AUGMENT
          29210    12               0   0  0              1                                                        SUBTRACT LITERAL
          29211    5       12     110   0  0              0                STORE ANY ERROR                         TRANSFER
          29212    5       9       34   1  0              0                                                        TRANSFER
    29205>29213            9        4   1  0              0                                                        SELECT
          29214    2       319     24   1  0              0        319     'SHEET'                                 SUBTRACT
          29215    71      292     34   0  0              0        292                                             JUMP IF A != 0
          29216    124     306      8   0  2              0        306                                             select literal and division
          29217    80      326      2   0  0              0        326     UNPACK                                  ENTER SUBROUTINE
          29218    34      12      88   1  0              0                SHEET NO                                SET (N) IN B
          29219    80      321      2   0  0              0        321                                             ENTER SUBROUTINE
          29220    0       12      88   2  0              0                                                        SELECT
          29221    2       12      92   0  0              0                PREVIOUS SER                            SUBTRACT
          29222    4       12      92   0  0              0                REPLACE BY CURRENT                      AUGMENT
          29223    12               0   0  0              1                CHECK SEQUENCE                          SUBTRACT LITERAL
  Source image: P1000216.JPG
          29224    70      292      3   0  0              0        292     >CORRECT                                JUMP IF A == 0
          29225    0       319     24   1  0              0        319     'SHEET''                                SELECT
          29226    124     319     22   0  1              0        319                                             modify address of next
          29227    124     305      2   0  1              0        305                                             modify address of next
          29228    5       29      14   1  0              0                                                        TRANSFER
          29229    0       12      88   1  0              0                WRONG NUMBER                            SELECT
          29230    124     319     22   0  1              0        319                                             modify address of next
          29231    124     305     10   0  1              0        305                                             modify address of next
          29232    5       29       0   1  0              0                                                        TRANSFER
          29233    76      292      3   0  0              0        292                                             JUMP unconditional
    29215>29234            9        4   1  0              0                                                        SELECT
          29235    2       319     46   1  0              0        319     'TRAMD'                                 SUBTRACT
          29236    70      292     49   0  0              0        292     >DON'T INSERT BE                        JUMP IF A == 0
          29237    34      9       48   2  0              0                                                        SET (N) IN B
          29238    10               0   0  0              0                                                        SELECT LITERAL
          29239    32               0   0  0              7                                                        SHIFT (AB) BY QUARTETS
          29240    5       320     42   1  0              0        320     WORD CTR                                TRANSFER
          29241    91      320     42   0  1              0        320                                             SET MODIFICATION REGISTER AT VARIABLE
          29242    32               0   0  0              3                                                        SHIFT (AB) BY QUARTETS
          29243    5       288      2   0  0              0        288     COL POSN+WL                             TRANSFER
          29244    35               0   0  0             11                                                        PREPARE FOR DIGIT COLLATION
          29245    10               0   0  0             7.                                                        SELECT LITERAL
          29246    124     288      2   0  1              0        288                                             modify address of next
          29247    32               0   0  0              0                /////                                   SHIFT (AB) BY QUARTETS
          29248    37      9        0   1  1              0                                                        REPLACE SELECTED BITS
    29236>29249    82      292      2   0  0              0        292                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29300    PROCR   293       293     TEST AMENDMENT IS A STACKING DIRECTIVE                                
          29301     NOTES          RADIX                                                                           SELECT
          29302    81      293      2   0  0              0        293                                             START OF SUBROUTINE
          29303    54      1        0   1  0              8                                                        BULK CLEAR
          29304    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29305    C       293     13   0  0              0        293                                             
          29306    C       293      7   0  0              0        293     CARDS                                   
    29306>29307    50      9        8   0  0              0                                                        UNPACK FIXED FIELD DATA
          29308    C       311      4   0  0              0        311                                             
          29309    0       1        8   1  0              0                                                        SELECT
          29310    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          29311    5       1        8   1  0              0                L-ALIGN PROCR NUMBER                    TRANSFER
          29312    76      293     15   0  0              0        293                                             JUMP unconditional
    29305>29313    124     311      2   0  2              0        311                                             select literal and division
          29314    80      326      2   0  0              0        326                                             ENTER SUBROUTINE
    29312>29315            1        6   1  0              0                                                        SELECT
          29316    80      287      2   0  0              0        287     >TEST DIRECTIVE                         ENTER SUBROUTINE
          29317    82      293      2   0  0              0        293                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29400    PROCR   294       294     TEST FOR MOD END SIGN                                                 
          29401     NOTES          RADIX          OR DIRECTIVE                                                     SELECT
          29402    81      294      4   0  0              0        294                                             START OF SUBROUTINE
          29403            9        4   1  0              0                                                        SELECT
          29404    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          29405    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          29406    2       319     14   1  0              0        319     'END  '                                 SUBTRACT
          29407    70      294     11   0  0              0        294                                             JUMP IF A == 0
          29408            9        4   1  0              0                                                        SELECT
          29409    2       319     46   1  0              0        319     'TRAMD'                                 SUBTRACT
          29410    71      294     13   0  0              0        294                                             JUMP IF A != 0
    29407>29411    10               0   0  0         100000                                                        SELECT LITERAL
          29412    76      294     39   0  0              0        294                                             JUMP unconditional
    29410>29413    10               0   0  0              0                CLEAR LOCATION TO WHICH                 SELECT LITERAL
  Source image: P1000217.JPG
          29414    5       1        4   1  0              0                AMENDMENT DIRECTIVE IS UNPACKED         TRANSFER
          29415    124     311     10   0  2              0        311                                             select literal and division
          29416    80      326      2   0  0              0        326     >UNPACK AMEND LETTER                    ENTER SUBROUTINE
          29417    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29418    C       294     22   0  0              0        294     P/T                                     
          29419    C       294     20   0  0              0        294     CARDS                                   
    29419>29420    34      1        6   1  0              0                                                        SET (N) IN B
          29421    76      294     23   0  0              0        294                                             JUMP unconditional
    29418>29422    34      1        4   1  0              0                                                        SET (N) IN B
    29421>29423    10               0   0  0              0                                                        SELECT LITERAL
          29424    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          29425    12               0   0  0             69                                                        SUBTRACT LITERAL
          29426    70      294     36   0  0              0        294                                             JUMP IF A == 0
          29427    11               0   0  0             15                                                        ADD LITERAL
          29428    70      294     35   0  0              0        294                                             JUMP IF A == 0
          29429    12               0   0  0             19                                                        SUBTRACT LITERAL
          29430    70      294     34   0  0              0        294                                             JUMP IF A == 0
          29431    11               0   0  0             22                                                        ADD LITERAL
          29432    71      294     41   0  0              0        294                                             JUMP IF A != 0
          29433    10               0   0  0              1                                                        SELECT LITERAL
    29430>29434    11               0   0  0              1                                                        ADD LITERAL
    29428>29435    11               0   0  0              1                                                        ADD LITERAL
    29426>29436    11               0   0  0              1                                                        ADD LITERAL
          29437    84      252      2   0  0              0        252                                             SET SWITCH(ES) AT VARIABLE VALUE
          29438    10               0   0  0              1                                                        SELECT LITERAL
    29442>                                                                                                         
    29412>29439    3       12      44   1  0              0                                                        COPY
          29440    82      294      2   0  0              0        294                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    29432>29441    10               0   0  0              0                                                        SELECT LITERAL
          29442    76      294     39   0  0              0        294                                             JUMP unconditional
                                                                                                                   
          29500    PROCR   295       295     IGNORE THIS INSTRUCTION                                               
          29501     NOTES          RADIX                                                                           SELECT
          29502    81      295      2   0  0              0        295                                             START OF SUBROUTINE
          29503            319     26   1  0              0        319     IGNORE INDICATOR                        SELECT
          29504    5       1       42   1  0              0                                                        TRANSFER
          29505    82      295      2   0  0              0        295                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29600    PROCR   296       296     IGNORE PREVIOUS INSTRUCTION                                           
          29601     NOTES          RADIX                                                                           SELECT
          29602    81      296      2   0  0              0        296                                             START OF SUBROUTINE
          29603            319     26   1  0              0        319                                             SELECT
          29604    124     319     22   0  1              0        319                                             modify address of next
          29605    124     305      2   0  1              0        305                                             modify address of next
          29606    5       29      14   1  0              0                                                        TRANSFER
          29607    82      296      2   0  0              0        296                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29700    PROCR   297       297     >ANNOTATION IF CARD                                                   
          29701     NOTES          RADIX                                                                           SELECT
          29702    81      297      2   0  0              0        297                                             START OF SUBROUTINE
          29703    10               0   0  0                                                                       SELECT LITERAL
          29704    87      27      10   0  0              0                                                        SWITCH ACCORDING TO N
          29705    C       297      8   0  0              0        297     P/T                                     
          29706    C       297      7   0  0              0        297     CARDS                                   
    29706>29707    80      298      2   0  0              0        298     BULK COPY WORDS-THUS SETTING (A)=0      ENTER SUBROUTINE
    29705>29708    82      297      2   0  0              0        297                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29800    PROCR   298       298     BULK COPY ANNOTATION                                                  
          29801     NOTES          RADIX                                                                           SELECT
          29802    81      298      2   0  0              0        298                                             START OF SUBROUTINE
  Source image: P1000218.JPG
          29803    55      9       18   1  0             16                                                        BULK COPY
          29804    C       1       28   1  0              0                                                        
          29805    82      298      2   0  0              0        298                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          29900    PROCR   299       299     TEST END SIGN ON MAG TAPE                                             
          29901     NOTES          RADIX                                                                           SELECT
          29902    81      299      2   0  0              0        299                                             START OF SUBROUTINE
          29903            27       1   0  0              0                                                        SELECT
          29904    70      299      7   0  0              0        299     >1 RECORD PER BLOCK                     JUMP IF A == 0
          29905                     6   1  8              0                                                        SELECT
          29906    76      299      8   0  0              0        299                                             JUMP unconditional
    29904>29907    0       7       10   1  0              0                                                        SELECT
    29906>29908    2       319     14   1  0              0        319                                             SUBTRACT
          29909    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29910    1       319     14   1  0              0        319                                             ADD
          29911    2       319     16   1  0              0        319      'DUMPS'                                SUBTRACT
          29912    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29913    1       319     16   1  0              0        319                                             ADD
          29914    2       319     18   1  0              0        319      'FILES'                                SUBTRACT
          29915    70      322      2   0  0              0        322                                             JUMP IF A == 0
          29916    82      299      2   0  0              0        299                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30000    PROCR   300       300     LEFT ALIGN SUBROUTINE                                                 
          30001     NOTES          RADIX                                                                           SELECT
          30002    81      300      2   0  0              0        300     DATA IN B                               START OF SUBROUTINE
          30003    10               0   0  0              0                                                        SELECT LITERAL
          30004    74      300      8   0  0              0        300     ZERO NUMBER?                            JUMP IF AB == 0        // 27, 1, 0
    30006>30005    32               0   0  0              2                                                        SHIFT (AB) BY QUARTETS
          30006    70      300      5   0  0              0        300                                             JUMP IF A == 0
          30007    32               0   0  0              8                LEFT ALIGN IN A                         SHIFT (AB) BY QUARTETS
    30004>30008    82      300      2   0  0              0        300                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30100    PROCR   301       301                                                                           
          30102    81      301      2   0  0              0        301                                             START OF SUBROUTINE
          30103    42      A6       0   0  0              0                                                        INPUT
          30104    C       9        0   0  0              0                                                        
          30105    82      301      2   0  0              0        301                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30200    PROCR   302       302     STEP MR.TEST END OF BLOCK                                             
          30202    81      302      2   0  0              0        302                                             START OF SUBROUTINE
          30203            27       1   0  0              0                                                        SELECT
          30204    70      302     13   0  0              0        302     >1 RECORD PER BLOCK                     JUMP IF A == 0
          30205                     0   2  8              0                CURRENT RECORD LENGTH                   SELECT
          30206    5       291      2   0  0              0        291     WL                                      TRANSFER
          30207    97      291      2   0  8              0        291                                             STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
          30208    C       302     12   0  0              0        302     >BLOCK NOT EMPTY                        
          30209    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30210    59      7        6   0  8              0                                                        SET MODIFICATION REGISTER FOR MERGE
          30211    C       7        4   2  0              0                                                        
    30208>30212    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30204>30213    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
          30214    82      302      2   0  0              0        302                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          30300    PROCR   303       303     TEST MT=STACK DIRECTIVE                                               
          30302    81      303      2   0  0              0        303                                             START OF SUBROUTINE
          30303            27       1   0  0              0                                                        SELECT
          30304    70      303      8   0  0              0        303                                             JUMP IF A == 0
          30305                     6   1  8              0                                                        SELECT
    30309>30306    80      287      2   0  0              0        287                                             ENTER SUBROUTINE
          30307    82      303      2   0  0              0        303                                             END OF SUBROUTINE / LEAVE SUBROUTINE
  Source image: P1000219.JPG
    30304>30308            7       10   1  0              0                                                        SELECT
          30309    76      303      6   0  0              0        303                                             JUMP unconditional
                                                                                                                   
          30400    PROCR   304       304     UNPACK MT-MULTIRECORD BLOCKS                                          
    28405>30402    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          30403    54      28       0   1  0             46                                                        BULK CLEAR
          30404            12      38   0  0              0                                                        SELECT
          30405    70      304     37   0  0              0        304     >NOT DIRECTIVE                          JUMP IF A == 0
          30406                     0   2  8              0                                                        SELECT
          30407    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30408    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30409    128     28       0   1  1              0                COPY DIRECTIVE+LENGTH WORD              bulk copy long numeric
          30410    50      28       2   0  0              0                UNPACK                                  UNPACK FIXED FIELD DATA
          30411    C       307     16   0  0              0        307                                             
          30412            27       5   0  0              0                                                        SELECT
          30413    12               0   0  0              1                                                        SUBTRACT LITERAL
          30414    71      304     19   0  0              0        304     >NOT'PROCR'                             JUMP IF A != 0
          30415            12      38   0  0              0                                                        SELECT
          30416    73      304     19   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
          30417            28      12   1  0              0                                                        SELECT
          30418    5       1        8   1  0              0                COPY 'RADIX'                            TRANSFER
    30416>                                                                                                         
    30414>30419            12      86   0  0              0                                                        SELECT
          30420    70      304     34   0  0              0        304     >NOT 'REPLACE ANNOTATION'               JUMP IF A == 0
          30421            27       5   0  0              0                                                        SELECT
          30422    12               0   0  0              1                                                        SUBTRACT LITERAL
          30423    70      304     29   0  0              0        304     >PROCR,TEST NOTES                       JUMP IF A == 0
          30424    12               0   0  0              1                                                        SUBTRACT LITERAL
          30425    71      304     31   0  0              0        304     >CONST                                  JUMP IF A != 0
          30426            12      38   0  0              0                                                        SELECT
          30427    72      304     52   0  0              0        304     >NOTES OF TABLE                         JUMP IF A >= 0
          30428    76      304     31   0  0              0        304     >NOT TABLE NOTES                        JUMP unconditional
    30423>30429            12      38   0  0              0                                                        SELECT
          30430    73      304     52   0  0              0        304     >NOT NOTES OF PROCR                     JUMP IF A < 0
    30428>                                                                                                         
    30425>30431            28      14   1  0              0                                                        SELECT
          30432    5       1       16   1  0              0                CONST/TABLE TYPE OR RADIX LETTER        TRANSFER
          30433    76      304     52   0  0              0        304                                             JUMP unconditional
    30420>30434    55      28      14   1  0             26                ANNOTATION ETC EVEN IF ABSENT           BULK COPY
          30435    C       1       16   1  0              0                                                        
          30436    76      304     52   0  0              0        304                                             JUMP unconditional
    30405>30437            27       5   0  0              0                                                        SELECT
          30438    12               0   0  0              4                                                        SUBTRACT LITERAL
          30439    70      304     66   0  0              0        304     >VALUES                                 JUMP IF A == 0
          30440                     0   2  8              0                                                        SELECT
          30441    3       320     42   0  0              0        320     LENGTH                                  COPY
          30442    124     27       5   0  1              0                                                        modify address of next
          30443    2       305      2   0  0              0        305     (MAX DATA LENGTH*2)                     SUBTRACT
          30444    72      304     54   0  0              0        304     >RECORD HAS ANNOTATION                  JUMP IF A >= 0
          30445            320     42   0  0              0        320                                             SELECT
    30465>30446    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30447    98               0   0  8              0                DATA START                              ADD MODIFICATION REGISTER TO A
          30448    128     28       0   1  1              0                COPY RECORD                             bulk copy long numeric
          30449    124     27       5   0  1              0                                                        modify address of next
          30450            305      6   0  0              0        305                                             SELECT
          30451    128     28       2   0  2              0                UNPACK-SEC1                             unpack fixed field data
    30472>                                                                                                         
    30436>                                                                                                         
    30433>                                                                                                         
    30430>                                                                                                         
  Source image: P1000220.JPG
    30427>30452    60               0   0  0              0                                                        SET DECIMAL RADIX
          30453    82      284      2   0  0              0        284                                             END OF SUBROUTINE / LEAVE SUBROUTINE
    30444>30454    5       320     43   0  0              0        320     ANNOTATION LENGTH ANNOTATED DATA        TRANSFER
          30455            12      86   0  0              0                                                        SELECT
          30456    71      304     63   0  0              0        304     >JUST HERE TO UNPACK NUMBERS            JUMP IF A != 0
          30457            320     43   0  0              0        320                                             SELECT
          30458    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30459    98               0   0  8              0                                                        ADD MODIFICATION REGISTER TO A
          30460    124     27       5   0  1              0                                                        modify address of next
          30461    1       305      2   0  0              0        305     DATA LENGTH+2                           ADD
          30462    128     1       28   1  1              0                COPY ANNOTATION                         bulk copy long numeric
    30456>30463    124     27       5   0  1              0                                                        modify address of next
          30464            305      2   0  0              0        305                                             SELECT
          30465    76      304     46   0  0              0        304     >UNPACK NUMBERS                         JUMP unconditional
    30439>30466                     0   2  8              0                LENGTH VALUES                           SELECT
          30467    12               0   0  0              6                                                        SUBTRACT LITERAL
          30468    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          30469    98               0   0  8              0                START                                   ADD MODIFICATION REGISTER TO A
          30470    11               0   0  0              7                                                        ADD LITERAL
          30471    128     1        9   1  0              0                ALPHA+NUM                               bulk copy alpha to short
          30472    76      304     52   0  0              0        304     >EXIT                                   JUMP unconditional
                                                                                                                   
          30500    CONST   305       305     0    FOR UNPACKING MULTIRECORD MT                                     
          30502          (B)24;                                            DIRECTIVES-ANNOTATION                   
          30503          24;                                               ORDER LENGTH+2                          
          30504          24;                                               TABLE                                   
          30505          28;                                               CONSTANT                                
          30506          28;                                               VALUES                                  
          30507          (R)308:0;                                         UNPACK ORDERS                           
          30508          309:0;                                            UNPACK TABLES                           
          30509          310:0;                                            UNPACK CONSTANTS                        
          30510          (B)12;                                            DIRECTIVES-PASS 1 REPORTS               
          30511          22;                                               ORDERS                                  
          30512          22;                                               TABLE                                   
          30513          26;                                               CONSTANT                                
          30514          42;                                               VALUES                                  
                                                                                                                   
          30600    TABLE   306       306     1    'INDEX' LINE                                                     
          30601     NOTES                                                                                          
          30602    12     4     0     0  0  0   3   2   0   2  0  0  0     TO REPLACE CODERS REF                   
          30604    92     8     0     0  0  0   2   0   0   2  0  0  1                                             
          30606    12    88     0     0  0  0   5   0   0   5  0  0  1                                             
          30608    12    88     0     0  2  0   5   0   0   0  0  0  0     'SHEET '                                
          30610    12    88     0     0  2  0   5   0   0   0  0  0  1     SHEET NUMBER                            
                                                                                                                   
          30700    TABLE   307       307     1    EDIT STACKING DIRECTIVE                                          
          30701     NOTES                                                                                          
          30702     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30704     1     2     0     0  2  0   5   0   0   0  0  0  0     'PROCR'/TABLE/CONST' ETC                
          30706    92    35     0     0  0  0   5   0   0   5  0  0  0                                             
          30708     1     6     0     0  2  0   5   0   0   0  0  0  0     TYPE                                    
          30710    92    34     0     0  1  0  10   0   0  10  0  0  0                                             
          30712     1     8     0     0  2  0   5   0   0   0  0  0  0     NEW PROCR NUMBER                        
          30714     1    14     0     0  0  0   5   0   0   4  0  0  1     PREVIOUS PROCR NUMBER                   
          30716     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND-----MULTIREC BLOX             
          30718     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERIAL                             
          30720     1     6     0     0  2  0   5   0   0   0  0  0  0     'PROCR' ETC                             
          30722     1     8     0     0  2  0   5   0   0   0  0  0  0     CURRENT PROCR                           
          30724     1    14     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR                          
                                                                                                                   
  Source image: P1000221.JPG
          30800    TABLE   308       308     3    EDIT INSTRUCTIONS                                                
          30801     NOTES                                                                                          
          30802     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30804     1     2     0     0  2  0   5   0   0   0  0  0  0     LINE SERIAL                             
          30806     1     6     0     0  2  0   5   0   0   0  0  0  0     ACTION                                  
          30808     1     8     0     0  2  0   5   0   0   0  0  0  0     REF                                     
          30810     1    10     0     0  1  0   5   5   0   5  1  0  0     ITEM +/-                                
          30812     1    12     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30814     1    14     0     0  0  0   3   2   0   3  0  0  0     MODIFIER                                
          30816     1    16     0     0  1  0  10   0   0  10  1  0  0     LITERAL +/-                             
          30818     1    20     0     0  2  0   5   0   0   0  0  0  0     'CLEO' PARA WORD                        
          30820     1    22     0     0  0  0   5   0   0   5  0  0  1     PREVIOUS PROCR NO                       
                                                                                                                   
          30900    TABLE   309       309     1    EDIT TABLE ENTRIES                                               
          30901     NOTES                                                                                          
          30902     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          30904     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          30906     1    20     0     0  0  0   5   0   0   5  0  0  0     FIRST REF                               
          30908     1    22     0     0  0  0   5   0   0   5  0  0  0     FIRST ITEM                              
          30910     1    24     0     0  0  0   5   0   0   5  0  0  0     SECOND REF                              
          30912     1    26     0     0  0  0   5   0   0   5  0  0  0     SECOND ITEM                             
          30914     1    19     0     0  0  0   2   3   0   2  0  0  0     DISC                                    
          30916     1    11     0     0  0  0   3   2   0   3  0  0  0     SINGLE/TO BE                            
          30918     1    12     0     0  0  0   2   3   0   2  0  0  0     NO                                      
          30920     1    13     0     0  0  0   3   2   0   3  0  0  0     DISCARDED                               
          30922     1    14     0     0  0  0   2   3   0   2  0  0  0     SPACES                                  
          30924     1    15     0     0  0  0   3   2   0   3  0  0  0     ZEROS                                   
          30926     1    16     0     0  0  0   1   4   0   1  0  0  0     SIGN                                    
          30928     1    17     0     0  0  0   2   3   0   2  0  0  0     STERLING                                
          30930     1    18     0     0  0  0   2   3   0   2  0  0  1     LAST TABLE ENTRY                        
                                                                                                                   
          31000    TABLE   310       310     3    UNPACK CONSTANT AND EDIT                                         
          31001     NOTES                                                                                          
          31002     1     0     0     0  0  0   5   0   0   5  0  0  0     AMEND IND                               
          31004     1     2     0     0  2  0   5   0   0   0  0  0  0                                             
          31006    92    34     0     0  0  0   5   0   0   5  0  0  0     ZERO WORD                               
          31008     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT UNPACKED                       
          31010     1     8     0     0  2  0   5   0   0   0  0  0  0     FIXED FIELD TO                          
          31012     1    10     0     0  2  0   5   0   0   0  0  0  0     1/6' ONWARD                             
          31014     1    12     0     0  2  0   5   0   0   0  0  0  0                                             
          31016     1    14     0     0  2  0   5   0   0   0  0  0  0                                             
          31018     1    16     0     0  2  0   5   0   0   0  0  0  0                                             
          31020     1    18     0     0  2  0   5   0   0   0  0  0  0                                             
          31022     1    20     0     0  2  0   5   0   0   0  0  0  0                                             
          31024     1    22     0     0  2  0   5   0   0   0  0  0  1                                             
                                                                                                                   
          31100    TABLE   311       311     3    UNPACK STACKING DIRECTIVE                                        
          31101     NOTES                         FROM CARDS OR PAPER TAPE                                         
          31102     1     2     0     0  2  0   5   0   0   0  0  0  0     SER+AMEND DIR?                          
          31104     1     6     0     0  2  0   5   0   0   0  0  0  0     DIRECTIVE                               
          31106     1     8     0     0  2  0   3   0   0   0  0  0  0     SECTION NO                              
          31108     1    16     0     0  2  1   5   0   0   0  0  0  1     /////TYPE OR ANNOTATION                 
          31110     1     2     0     0  2  0   5   0   0   0  0  0  0     SER NO +AMEND DIR?                      
          31112     1     6     0     0  2  0   5   0   0   0  0  0  0     ''NOTES'' OF TABLE                      
          31114     1    16     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION                              
                                                                                                                   
          31200    TABLE   312       312     3    UNPACK INSTRUCTIONS                                              
          31201     NOTES                         FROM P/T OR CARDS                                                
          31202     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31204     1     6     0     0  2  0   3   0   0   0  0  0  0     ACTION                                  
  Source image: P1000222.JPG
          31206     1     8     0     0  2  0   3   0   0   0  0  0  0     REF                                     
          31208     1    10     0     0  1  0   5   0   0   0  1  0  0     ITEM                                    
          31210     1    12     0     0  0  0   1   0   0   0  0  0  0     D                                       
          31212     1    14     0     0  0  0   2   0   0   0  0  0  0     M                                       
          31214     1    16     0     0  1  0  10   0   0   0  1  0  0     LITERAL                                 
          31216     1    28     0     0  2  0   5   0   0   0  0  0  0     NOTES FROM P/T -RUBBISH FROM CARD       
          31218     1    36     0     0  2  0   5   0   0   0  0  0  1     COMMENTARY FROM P/T                     
                                                                                                                   
          31300    TABLE   313       313     3    UNPACK TABLE ENTRIES                                             
          31302     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31304     1    20     0     0  0  0   3   0   0   0  0  0  0     FIRST REF                               
          31306     1    22     0     0  0  0   5   0   0   0  0  0  0     FIRST ITEM                              
          31308     1    24     0     0  0  0   3   0   0   0  0  0  0     SECOND REF                              
          31310     1    26     0     0  0  0   5   0   0   0  0  0  0     SECOND ITEM                             
          31312     1    19     0     0  0  0   1   0   0   0  0  0  0     DISC                                    
          31314     1    11     0     0  0  0   1   0   0   0  0  0  0     SINGLE TO BE                            
          31316     1    12     0     0  0  0   2   0   0   0  0  0  0     NO OF CHARS                             
          31318     1    13     0     0  0  0   2   0   0   0  0  0  0     DISCARDS                                
          31320     1    14     0     0  0  0   2   0   0   0  0  0  0     SPACES                                  
          31322     1    15     0     0  0  0   2   0   0   0  0  0  0     ZEROS                                   
          31324     1    16     0     0  0  0   1   0   0   0  0  0  0     SIGN                                    
          31326     1    17     0     0  0  0   1   0   0   0  0  0  0                                             
          31328     1    18     0     0  0  0   1   0   0   0  0  0  0     LTE                                     
          31330     1    28     0     0  2  0   5   0   0   0  0  0  1     P/T ANNOTATION-SPACES IF CARD           
                                                                                                                   
          31400    TABLE   314       314     3    UNPACK CONSTANT (FIRST STAGE)                                    
          31402     1     2     0     0  2  0   6   0   0   0  0  0  0     /////SER+AMEND LETTER                   
          31404     1     6     0     0  2  0   5   0   0   0  0  0  0     CONSTANT (OR FIRST 5 CHS OF CONST)      
          31406     1    28     0     0  2  0   5   0   0   0  0  0  1     ANNOTATION (FROM P/T) OR NEXT 5         
                                                                                                                   
          31500    TABLE   315       315     1    EDIT ALL BUT TRIAL DATA                                          
          31502     1     9     0     0  0  0   5   0   0   4  0  0  0     REF---VALUES                            
          31504     1    10     0     0  0  0   5   0   0   4  1  0  1     LTE                                     
                                                                                                                   
          31600    CONST   316       316     0    CHECKING CONST FOR INSTRUCTIONS                                  
          31602          (D)06‼11;                                         'LITERAL' SWITCH Q3                     
          31603          08‼19;                                            'REF/ITEM' SW Q2                        
          31604          00‼11;                                            'DISC/MOD' SWITCH Q1                    
          31605          09‼11;                                                                                    
          31606          0Ю122;                                            ACTION 10                               
          31607          0+322;                                                                                    
          31608          0£000;                                                                                    
          31609          11Ю11;                                                                                    
          31610          12000;                                                                                    
          31611          13Ю91;                                                                                    
                                                                                                                   
          31700    CONST   317       317     0    CHECKING CONSTANTS FOR INSTRUCTIONS                              
          31702          (D)1Ю‼11;                                         ACTIONS 20-26                           
          31703          1+000;                                            2728                                    
          31704          1:‼11;                                            29                                      
          31705          21422;                                            30-33                                   
          31706          22‼11;                                                                                    
          31707          23522;                                                                                    
          31708          25‼11;                                                                                    
          31709          26622;                                                                                    
          31710          27‼22;                                                                                    
          31711          295‼2;                                                                                    
  Source image: P1000223.JPG
          31712          005‼2;                                            ACTIONS 42, 43                          
          31713          2‼‼39;                                            42, 43 FIRST C-LINE                     
          31714          00‼:1;                                            43 SECOND LINE                          
          31715          00‼41;                                            44                                      
          31716          2++32;                                                                                    
          31717          2:531;                                            ACTIONS 46-49                           
          31718          3153Ю;                                            46-49 C-LINES                           
          31719          00114;                                            ACTIONS 50-53                           
          31720          35‼1‼;                                                                                    
          31721          00‼43;                                            ACTION 54                               
          31722          36991;                                                                                    
          31723          00‼13;                                                                                    
          31724          37719;                                                                                    
          31725          00‼91;                                                                                    
          31726          38‼11;                                                                                    
          31727          39117;                                            57                                      
          31728          3Ю112;                                                                                    
          31729          3‼11:;                                            59                                      
          31730          00‼14;                                            C-LINE                                  
          31731          3:‼22;                                            6061                                    
          31732          3.822;                                                                                    
          31733          40‼11;                                                                                    
          31734          41819;                                                                                    
          31735          00822;                                                                                    
          31736          43‼22;                                            66.67                                   
          31737          45000;                                            6869                                    
          31738          4+‼42;                                            70-76                                   
          31739          4.:+2;                                            77-78                                   
          31740          00‼12;                                            C-LINE                                  
          31741          4£‼42;                                            79                                      
          31742          50‼+2;                                            80                                      
          31743          00‼92;                                            C-LINE                                  
          31744          52‼42;                                            81-82                                   
          31745          53+62;                                            83                                      
          31746          54‼.2;                                            84                                      
          31747          00‼11;                                            84 C-LINE                               
          31748          55‼6Ю;                                            85                                      
          31749          00‼.1;                                                                                    
          31750          56162;                                            86                                      
          31751          57‼1‼;                                                                                    
          31752          00‼.1;                                            C-LINE                                  
          31753          59000;                                                                                    
          31754          5Ю22:;                                            ACTION 90                               
          31755          00222;                                                                                    
          31756          5:‼16;                                            ACTIONS 91-93                           
          31757          5.915;                                            94                                      
          31758          60‼25;                                                                                    
          31759          61‼95;                                            ACTION 97                               
          31760          00‼62;                                                                                    
          31761          63‼26;                                            9899                                    
          31762          83‼91;                                                                                    
          31763          00‼11;                                                                                    
          31764          84‼32;                                            132                                     
          31765          8653Ю;                                            133-4                                   
          31766          00‼62;                                            C-LINE                                  
          31767          8‼000;                                                                                    
          31768          8£‼91;                                            140-143                                 
          31769          90000;                                            144                                     
          31770          94‼91;                                            ACTIONS 145-148                         
          31771          00‼11;                                            CONTINUATION LINES                      
  Source image: P1000224.JPG
          31772          95000;                                                                                    
          31773          96+1£;                                                                                    
          31774          00‼.1;                                                                                    
          31775          97‼22;                                                                                    
          31776          98‼4Ю;                                                                                    
          31777          00‼42;                                                                                    
          31778          99‼22;                                            ACTION 153                              
          31779          9Ю‼12;                                            ACTION 153-154                          
          31780          9‼‼22;                                                                                    
          31781          9+‼31;                                                                                    
          31782          9:‼1‼;                                                                                    
          31783          00‼43;                                            C-LINE                                  
          31784          9.511;                                                                                    
          31785          ££000;                                                                                    
          31786          00‼19;                                            CONST FOR ACTION 55=2 C-LINES           
          31787          00‼:9;                                            2ND C LINE RT 22 ACTION 43              
          31788          00‼11;                                            =1 C-LINE                               
          31789          (R)18:2496;                                       FOR SEQUENCE CHANGES                    
          31790          (R)18:0;                                                                                  
          31791          (R)93:0;                                                                                  
          31792          (R)14:0;                                                                                  
          31793          (D)0;                                             ZERO IF RT9 PRINTER                     
          31794          00‼:1;                                            43 ACTIONS                              
                                                                                                                   
          31800    CONST   318       318     0    MISC                                                             
          31802          (D)2;                                                                                     
          31803          10000;                                            BIT 17                                  
          31804          £££;                                              Q1-3                                    
          31805          70;                                               BITS 5-7                                
          31806          7;                                                BITS 1-3                                
          31807          8;                                                BIT 4                                   
          31808          80;                                               BIT 8                                   
          31809          £00;                                                                                      
          31810          4;                                                BIT3                                    
          31811          0;                                                FIRST RECORD INDICATOR                  
          31812          0;                                                ACC.RECORD LENGTH                       
                                                                                                                   
          31900    CONST   319       319     1    ALPHA CONSTANTS                                                  
          31902          (A)TABLE;                                                                                 
          31904          CONST;                                                                                    
          31906          PROCR;                                                                                    
          31908          *    ;                                                                                    
          31910          (D)7.0000007.;                                    BLOCK END WORD                          
          31912          (A)NOTES;                                                                                 
          31914          END  ;                                                                                    
          31916          DUMPS;                                                                                    
          31918          FILES;                                                                                    
          31920          (D)££+00003££;                                    BITS 1-10 AND 31-40                     
          31922          0;                                                EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHE
          31924          (A)SHEET;                                                                                 
          31926          (D)5:5:5:5:5:;                                    '?????'                                 
          31928          (A)VALUE;                                                                                 
          31930          (D)6£6£6£6£6£;                                                                            
          31932          (A)INDEX;                                                                                 
          31934          £££££;                                                                                    
          31936          2;                                                                                        
          31938          CHAIN;                                                                                    
          31940          ????R;                                                                                    
          31942          ????I;                                                                                    
          31944          ????*;                                                                                    
  Source image: P1000225.JPG
          31946          (A)TRAMD;                                                                                 
          31948          (B20)16(D)0(C)1:28;                               BULK COPY                               
          31950          (A)FINIS;                                                                                 
                                                                                                                   
          32000    CONST   320       320     1    CONVERT TABLES                                                   
          32002          (D)1;                                             BIN+DEC                                 
          32004          16;                                                                                       
          32006          256;                                                                                      
          32008          4096;                                                                                     
          32010          65536;                                                                                    
          32012          1048576;                                                                                  
          32014          16777216;                                                                                 
          32016          268435456;                                                                                
          32018          4294967296;                                                                               
          32020          ££££££££££;                                                                               
          32022          1;                                                DEC+BIN                                 
          32024          Ю;                                                                                        
          32026          64;                                                                                       
          32028          3.8;                                                                                      
          32030          2710;                                                                                     
          32032          186Ю0;                                                                                    
          32034          £4240;                                                                                    
          32036          989680;                                                                                   
          32038          5£5.100;                                                                                  
          32040          3‼9Ю+Ю00;                                                                                 
          32042          0;                                                (A)WL                                   
          32044          3£;                                               BITS 1-6                                
          32046          (A)CHAPT;                                                                                 
          32048          PREND;                                                                                    
                                                                                                                   
          32100    PROCR   321       321     RIGHT ALIGN A WORD                                                    
          32101     NOTES          RADIX          PLACED IN B                                                      SELECT
          32102    81      321      2   0  0              0        321                                             START OF SUBROUTINE
          32103    10               0   0  0              0                                                        SELECT LITERAL
          32104    5       12      88   1  0              0                                                        TRANSFER
    32108>32105    1       12      88   1  0              0                                                        ADD
          32106    32               0   0  0              2                LEAVE A CLEAR                           SHIFT (AB) BY QUARTETS
          32107    5       12      88   1  0              0                                                        TRANSFER
          32108    75      321      5   0  0              0        321     AND PUT WORD                            JUMP IF AB != 0
          32109            12      88   1  0              0                                                        SELECT
          32110    82      321      2   0  0              0        321     IN 12/88'                               END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          32200    PROCR   322       322     END ROUTINE                                                           
          32201     NOTES          RADIX                                                                           SELECT
    29915>                                                                                                         
    29912>                                                                                                         
    29909>                                                                                                         
    18523>                                                                                                         
    18520>32202    60               0   0  0              0                                                        SET DECIMAL RADIX
          32203    10               0   0  0              1                                                        SELECT LITERAL
          32204    4       92       3   0  0              0                STEP PROCR                              AUGMENT
          32205    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32206            319     22   0  0              0        319     DIRECTIVE FOR LAST BLOCK EDITED         SELECT
          32207    12               0   0  0              3                                                        SUBTRACT LITERAL
          32208    71      322     11   0  0              0        322     >WASN'T  A CONSTANT                     JUMP IF A != 0
          32209    10               0   0  0              1                                                        SELECT LITERAL
          32210    5       29       6   0  0              0                                                        TRANSFER
    32208>32211    80      288      2   0  0              0        288     >O/P FINAL DATA BLOCK                   ENTER SUBROUTINE
          32212    0       92       3   0  0              0                                                        SELECT
          32213    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
  Source image: P1000226.JPG
          32214    5       12      88   0  0              0                                                        TRANSFER
          32215    52      29       4   0  0              0                                                        EDIT
          32216    C       306      6   0  0              0        306                                             
    32229>32217            9        4   1  0              0                                                        SELECT
          32218    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32219    30               0   0  0              4                                                        SHIFT (A) BY QUARTETS
          32220    2       319     14   1  0              0        319                                             SUBTRACT
          32221    70      322     30   0  0              0        322     > END WITHOUT TD                        JUMP IF A == 0
          32222            9        4   1  0              0                                                        SELECT
          32223    2       319     46   1  0              0        319      'TRAMD'                                SUBTRACT
          32224    70      322     32   0  0              0        322                                             JUMP IF A == 0
          32225    10               0   0  0     5£5£5£5£5£                5 SQUARES                               SELECT LITERAL
          32226    3       27       6   0  0              0                 'PT OMMITTED'                          COPY
          32227    5       29      12   1  0              0                                                        TRANSFER
          32228    80      301      2   0  0              0        301     > READ PT                               ENTER SUBROUTINE
          32229    76      322     17   0  0              0        322     > TEST NEXT BLOCK                       JUMP unconditional
    32221>32230            319     50   1  0              0        319      'FINIS'                                SELECT
          32231    5       9        4   1  0              0                                                        TRANSFER
    32224>32232            319     14   1  0              0        319                                             SELECT
          32233    5       29       6   1  0              0                 'END'                                  TRANSFER
          32234    80      288      2   0  0              0        288     > WRITE INTERCODE END SIGN              ENTER SUBROUTINE
          32235    80      325      2   0  0              0        325                                             ENTER SUBROUTINE
          32236    90               0   0  1              1                                                        SET MODIFICATION REGISTER AT LITERAL
          32237    C                0   0  0            100                                                        
          32238    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32239    C                0   0  0            200                                                        
    32268>32240    96               0   0  1              0                                                        SELECT MODIFIER
          32241    80      244      2   0  0              0        244     > TO DEC                                ENTER SUBROUTINE
          32242    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          32243    32               0   0  0              1-               DIVIDE BY 10                            SHIFT (AB) BY QUARTETS
          32244    92               0   0  3              0                TENS DIGIT                              SET MODIFIER AT VARIABLE
          32245    32               0   0  0              1                                                        SHIFT (AB) BY QUARTETS
          32246    5       244      2   0  0              0        244     WL                                      TRANSFER
          32247    10               0   0  0              1                                                        SELECT LITERAL
          32248    124     244      2   0  1              0        244                                             modify address of next
          32249    31               0   0  0              0                /////BIT PATTERN OF UNITS DIGIT         SHIFT (A) BY BITS
          32250    3       244      2   0  0              0        244                                             COPY
          32251    33               0   0  0             30-               REL TO BIT 10 OF 8                      SHIFT (AB) BY BITS
          32252    36      12      72   0  3              0                12/72-81= SECTION BIT PATTERNS          COLLATE AND ADD
          32253    70      322     68   0  0              0        322     > NOT TX AREA                           JUMP IF A == 0
          32254    96               0   0  3              0                                                        SELECT MODIFIER
          32255    35               0   0  0              0                CLEAR B                                 PREPARE FOR DIGIT COLLATION
          32256    33               0   0  0              1-               HALVE                                   SHIFT (AB) BY BITS
          32257    92               0   0  3              0                                                        SET MODIFIER AT VARIABLE
          32258    75      322     61   0  0              0        322     > WAS ODD                               JUMP IF AB != 0
          32259    34      244      2   0  0              0        244                                             SET (N) IN B
          32260    76      322     63   0  0              0        322                                             JUMP unconditional
    32258>32261    34      244      2   0  0              0        244                                             SET (N) IN B
          32262    33               0   0  0             10                                                        SHIFT (AB) BY BITS
    32260>32263    36      12     100   0  3              0                12/100-104='TX AREA USED' INDS          COLLATE AND ADD
          32264    71      322     68   0  0              0        322     > NOT PSEUDEO-TX AREA                   JUMP IF A != 0
          32265    96               0   0  1              0                                                        SELECT MODIFIER
          32266    5       92      34   0  2              0                STORE SECTION NUMBER                    TRANSFER
          32267    94               0   0  2              1                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
    32264>                                                                                                         
    32253>32268    94      322     40   0  1              1        322     > NEXT SECTION                          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
                                                                                                                   
          32300    PROCR   323       323     CALC CHAPS INITIALLY                                                  
          32302    10               0   0  0          £££00                                                        SELECT LITERAL
          32303    3       23      47   0  0              0                 (TO PRINT HEADING)                     COPY
  Source image: P1000227.JPG
          32304    124     92       0   0  0              0                                                        modify address of next
          32305    4       92       9   0  0              0                 'LAST PROCR' IN FINAL CHAP             AUGMENT
          32306    91      12      12   0  3              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32313>32307            92      10   0  3              0                                                        SELECT
          32308    30               0   0  0              9                                                        SHIFT (A) BY QUARTETS
          32309    30               0   0  0              9-               ISOLATE Q1-CORR CHAP                    SHIFT (A) BY QUARTETS
          32310    2       92      29   0  0              0                (ZERO INITIALLY)                        SUBTRACT
          32311    73      323     13   0  0              0        323                                             JUMP IF A < 0
          32312    4       92      29   0  0              0                UPDATE                                  AUGMENT
    32311>32313    94      323      7   0  3              1        323                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32314    10               0   0  0              1                                                        SELECT LITERAL
          32315    4       92      29   0  0              0                FORM CHAPS INITIALLY                    AUGMENT
          32316            92       9   0  0              0                                                        SELECT
          32317    5       92       8   0  0              0                STORE SC CTR                            TRANSFER
          32318            92      29   0  0              0                                                        SELECT
          32319    5       92       9   0  0              0                SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT  TRANSFER
                                                                                                                   
          32400    PROCR   324       324     READ/COPY TRIAL DATA MODS                                             
          32401     NOTES          RADIX     1                                                                     SELECT
          32402    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32403    80      289      2   0  0              0        289     > WRITE 2 BLANKS                        ENTER SUBROUTINE
          32404            319     30   1  0              0        319                                             SELECT
          32405    5       8        4   1  0              0                5 ALIGN MARKS                           TRANSFER
          32406    10               0   0  0              6                                                        SELECT LITERAL
          32407    5       8       10   0  0              0                                                        TRANSFER
          32408    80      289      2   0  0              0        289     > WRITE ALIGN BLOCK FOR PASS 3          ENTER SUBROUTINE
          32409            319     32   1  0              0        319      'INDEX'                                SELECT
          32410    5       8        4   1  0              0                                                        TRANSFER
          32411    80      289      2   0  0              0        289     > WRITE                                 ENTER SUBROUTINE
          32412    90               0   0  1              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32413    C                0   0  0           1010                                                        
          32414    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32415    C                0   0  0             48                                                        
    32424>32416            93       0   0  1              0                                                        SELECT
          32417    5       8        4   2  2              0                                                        TRANSFER
          32418    94      324     24   0  2              2        324                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32419            319     10   1  0              0        319     BEW                                     SELECT
          32420    5       8       52   1  0              0                                                        TRANSFER
          32421    80      290      2   0  0              0        290     > WRITE                                 ENTER SUBROUTINE
          32422    90               0   0  2              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32423    C                0   0  0             48                                                        
    32418>32424    94      324     16   0  1              1        324                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32425    80      290      2   0  0              0        290     > LAST BLOCK                            ENTER SUBROUTINE
          32426    80      289      2   0  0              0        289                                             ENTER SUBROUTINE
          32427    80      289      2   0  0              0        289     > TWO BLANKS                            ENTER SUBROUTINE
    32435>32428    0       9        4   1  0              0                                                        SELECT
          32429    2       319     50   1  0              0        319      'FINIS'                                SUBTRACT
          32430    70      324     36   0  0              0        324                                             JUMP IF A == 0
          32431    55      9        4   1  0             50                                                        BULK COPY
          32432    C       8        4   1  0              0                                                        
          32433    80      289      2   0  0              0        289     > WRITE                                 ENTER SUBROUTINE
          32434    80      301      2   0  0              0        301     > READ                                  ENTER SUBROUTINE
          32435    76      324     28   0  0              0        324                                             JUMP unconditional
    32430>32436            27       4   0  0              0                COMPILER ?                              SELECT
          32437    70      324     41   0  0              0        324     > NORMAL                                JUMP IF A == 0
          32438    46      A2      10   0  0              0                 (TO START OF INTERCODE)                RUN BACK
          32439    C                0   0  0              2                                                        
          32440    76      324     43   0  0              0        324                                             JUMP unconditional
    32437>32441    45      A2       0   0  0              0                                                        REWIND
          32442    45      A6       0   0  0              1                                                        REWIND
  Source image: P1000228.JPG
    32440>32443    0       12      12   1  0              0                COPY DATA FOR PASS 2 PREP STAGE         SELECT
          32444    5       94       0   1  0              0                                                        TRANSFER
          32445    0       92      30   0  0              0                IND OF AMEND RUN                        SELECT
          32446    70      152      2   0  0              0        152     >NO, CALL PASS 2                        JUMP IF A == 0
          32447            27       4   0  0              0                                                        SELECT
          32448    70      324     52   0  0              0        324     >NORMAL                                 JUMP IF A == 0
          32449            27       2   0  0              0                                                        SELECT
          32450    70      324     74   0  0              0        324                                             JUMP IF A == 0
          32451    76      324     58   0  0              0        324                                             JUMP unconditional
    32448>32452    86      786      2   0  0              0        786                                             SELECT SWITCH R
          32453    70      324     74   0  0              0        324     >NO TRIAL DATA                          JUMP IF A == 0
          32454    5       289      2   0  0              0        289     WL                                      TRANSFER
          32455    47      A1      10   0  0              0                RUN TO START OF THIS PROGS MACHINE CODE RUN ON
          32456    C       289      2   0  0              0        289                                             
    32470>32457    80      291      2   0  0              0        291     >READ A1                                ENTER SUBROUTINE
    32451>32458            7        4   1  0              0                                    TESTS FOR CLOSING A1SELECT
          32459    2       320     48   1  0              0        320      'PREND'                                SUBTRACT
          32460    70      324     74   0  0              0        324     >YES                                    JUMP IF A == 0
          32461    1       320     48   1  0              0        320                                             ADD
          32462    2       319     18   1  0              0        319      'FILES'                                SUBTRACT
          32463    70      324     71   0  0              0        324                                             JUMP IF A == 0
          32464    1       319     18   1  0              0        319                                             ADD
          32465    2       320     46   1  0              0        320      'CHAPT'                                SUBTRACT
          32466    70      324     71   0  0              0        324     >YES                                    JUMP IF A == 0
          32467    1       320     46   1  0              0        320                                             ADD
          32468    2       319     50   1  0              0        319      'FINIS'                                SUBTRACT
          32469    70      324     74   0  0              0        324     >YES                                    JUMP IF A == 0
          32470    76      324     57   0  0              0        324     >READ/IGNORE                            JUMP unconditional
    32466>                                                                                                         
    32463>32471    10               0   0  0              1                                                        SELECT LITERAL
          32472    5       27       3   0  0              0                                                        TRANSFER
          32473    76      152      2   0  0              0        152     >CALL PASS 2,LEAVE A1 OPEN              JUMP unconditional
    32469>                                                                                                         
    32460>                                                                                                         
    32453>                                                                                                         
    32450>32474    5       27       3   0  0              0                                                        TRANSFER
          32475            27       4   0  0              0                COMPILER CALLED TRANSLATOR?             SELECT
          32476    70      324     79   0  0              0        324     >NO                                     JUMP IF A == 0
          32477    45      A1       0   0  0              1                                                        REWIND
          32478    76      152      2   0  0              0        152     >CALL PASS 2                            JUMP unconditional
    32476>32479    41      A1       0   0  0              1                                                        CLOSE FILE
          32480    76      152      2   0  0              0        152     >CALL PASS 2                            JUMP unconditional
                                                                                                                   
          32500    PROCR   325       325                                                                           
          32502    81      325      2   0  0              0        325                                             START OF SUBROUTINE
          32503            325      2   0  0              0        325                                             SELECT
          32504    5       288      2   0  0              0        288                                             TRANSFER
          32505    76      288     24   0  0              0        288                                             JUMP unconditional
                                                                                                                   
          32600    PROCR   326       326     UNPACK SECTION 9 SUBROUTINE                                           
          32601     NOTES          RADIX                                                                           SELECT
          32602    81      326      2   0  0              0        326                                             START OF SUBROUTINE
          32603    124     999      0   1  2              0                (FORMED)                                modify address of next
          32604    128              4   0  3              0                                                        unpack variable field data
          32605    82      326      2   0  0              0        326                                             END OF SUBROUTINE / LEAVE SUBROUTINE
          32606            9        0   0  0              0                DUMMY FOR PARAMETER                     SELECT
          32607    128              4   0  2              0                                                        unpack fixed field data
                                                                                                                   
          32700    PROCR   327       327     START OF PASS 2                                                       
          32701     NOTES          RADIX          DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT                       SELECT
    36935>                                                                                                         
  Source image: P1000229.JPG
    36937>32702    152     152      4   0  0              0        152     CALL/ENTER PASS 3                       OVERLAY
          32703    C       553      4   0  0              0        553                                             
          32704            999     16   1  0              0                COPY SEC 7 PARAS-PTS WL'S               SELECT
          32705    5       999     30   1  0              0                                                        TRANSFER
          32706    54      5        0   0  0             50                                                        BULK CLEAR
          32707    52      5        2   0  0              0                                                        EDIT
          32708    C       342     36   0  0              0        342     EDIT 'INDEX' LINE                       
                                                                                                                   
          32800    PROCR   328       328     CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER                
          32801     NOTES          RADIX          AND MOVE THE SC BACK LIST                                        SELECT
          32802    54      72       3   0  0             14                                                        BULK CLEAR
          32803    90               0   0 19              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32804    C                0   0  0             10                                                        
          32805    90               0   0 20              0                                                        SET MODIFICATION REGISTER AT LITERAL
          32806    C                0   0  0             10                                                        
          32807    10               0   0  0              1                                                        SELECT LITERAL
          32808    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32809            95       1   0  0              0                NO OF SWITCHES                          SELECT
          32810    70      328     16   0  0              0        328     >NONE                                   JUMP IF A == 0
          32811    5       61       1   0  0              0                                                        TRANSFER
          32812    10               0   0  0              Ю                                                        SELECT LITERAL
          32813    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32814    124     95       0   0  2              0                                                        select literal and division
          32815    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32810>32816    10               0   0  0              8                                                        SELECT LITERAL
          32817    5       61       3   0  0              0                BIT SHIFT CONTROL                       TRANSFER
          32818            98       1   0  0              0                NO OF ITEM+                             SELECT
          32819    70      328     23   0  0              0        328     >NONE                                   JUMP IF A == 0
          32820    5       61       1   0  0              0                                                        TRANSFER
          32821    124     98       0   0  2              0                                                        select literal and division
          32822    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32819>32823    91      94       0   0  3              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32828>32824    10               0   0  0              1                                                        SELECT LITERAL
          32825    32               0   0  0             10-                                                       SHIFT (AB) BY QUARTETS
          32826    36      72       3   0  3              0                                                        COLLATE AND ADD
          32827    4       72       3   0  3              0                ROUND UP CTRS                           AUGMENT
          32828    94      328     24   0  3              1        328                                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32829            71       1   0  0              0                CTR OF INDIRECT MR'S                    SELECT
          32830    70      328     36   0  0              0        328     >NONE                                   JUMP IF A == 0
          32831    5       61       1   0  0              0                                                        TRANSFER
          32832    10               0   0  0              2                                                        SELECT LITERAL
          32833    5       61       4   0  0              0                CTR INCREMENT                           TRANSFER
          32834    124     71       0   0  2              0                                                        select literal and division
          32835    80      329      2   0  0              0        329     >PROCESS                                ENTER SUBROUTINE
    32830>32836    10               0   0  0              2                SEQ CHANGE LIST                         SELECT LITERAL
          32837    4       92       8   0  0              0                                                        AUGMENT
          32838    1       545     74   0  0              0        545     ABS ADDRESS 18:2496                     ADD
          32839    2       92       8   0  0              0                                                        SUBTRACT
          32840    3       344      2   0  0              0        344     QTY TO COPY                             COPY
          32841    70      328     46   0  0              0        328     >NONE                                   JUMP IF A == 0
          32842    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          32843    1       92       8   0  0              0                START                                   ADD
          32844    124     544     17   1  2              0        544     ABS ADDRESS 18/0                        modify address of next
          32845    128              0   1  1              0                                                        bulk copy long numeric
    32841>32846            544     17   0  0              0        544                                             SELECT
          32847    1       344      2   0  0              0        344     QTTY                                    ADD
          32848    5       92       8   0  0              0                NEW LIST END                            TRANSFER
          32849            27       4   0  0              0                COMPILER?                               SELECT
          32850    70      330      2   0  0              0        330     >NO                                     JUMP IF A == 0
  Source image: P1000230.JPG
          32851    76      330      3   0  0              0        330                                             JUMP unconditional
                                                                                                                   
          32900    PROCR   329       329     PROCESS SW/ITEM+/INDIRECT MR LISTS                                    
          32901     NOTES  329                                                                                     SELECT
          32902    81      329      2   0  0              0        329                                             START OF SUBROUTINE
          32903    3       61       0   0  0              0                                                        COPY
          32904    4       61       1   0  0              0                                                        AUGMENT
          32905    91      61       0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32914>32906                     2   0  1              0                                                        SELECT
          32907    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32908    5       61       2   0  0              0                UNCORR CHAP                             TRANSFER
          32909    35               0   0  0              1                                                        PREPARE FOR DIGIT COLLATION
          32910    124     61       2   0  1              0                                                        modify address of next
          32911    36      92       9   0  0              0                                                        COLLATE AND ADD
          32912    32               0   0  0              4                                                        SHIFT (AB) BY QUARTETS
          32913    37               2   0  1              0                REPLACE BY CORR CHAP                    REPLACE SELECTED BITS
          32914    94      329      6   0  1              1        329     >NEXT DETAIL                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32915    10               0   0  0              0                                                        SELECT LITERAL
          32916    5       61       2   0  0              0                                                        TRANSFER
          32917    91      94       0   0  2              0                UNCORR CHAP CTR                         SET MODIFICATION REGISTER AT VARIABLE
    32934>32918    10               0   0  0              1                                                        SELECT LITERAL
          32919    4       61       2   0  0              0                                                        AUGMENT
          32920    91      61       0   0  1              0                                                        SET MODIFICATION REGISTER AT VARIABLE
    32933>32921                     2   0  1              0                                                        SELECT
          32922    30               0   0  0              4-                                                       SHIFT (A) BY QUARTETS
          32923    2       61       2   0  0              0                                                        SUBTRACT
          32924    71      329     33   0  0              0        329     >NOT IN THIS CORR CHAP                  JUMP IF A != 0
          32925    124     61       2   0  1              0                                                        modify address of next
          32926            72       2   0  0              0                CTR WITHIN SWITCH PROCR                 SELECT
          32927    124     61       3   0  1              0                                                        modify address of next
          32928    31               0   0  0              0                /////AS NEEDED                          SHIFT (A) BY BITS
          32929    4                2   0  1              0                                                        AUGMENT
          32930            61       4   0  0              0                INCREMENT                               SELECT
          32931    124     61       2   0  1              0                                                        modify address of next
          32932    4       72       2   0  0              0                STEP CTR                                AUGMENT
    32924>32933    94      329     21   0  1              1        329     >NEXT DETAIL                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32934    94      329     18   0  2              1        329     >NEXT CORR CHAP                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          32935    82      329      2   0  0              0        329                                             END OF SUBROUTINE / LEAVE SUBROUTINE
                                                                                                                   
          33000    PROCR   330       330     OPEN FILES CLEAR W/LS                                                 
          33001     NOTES          RADIX          PREP STAGE                                                       SELECT
    32850>33002    40      A2       0   0  0              1                *****DON'T MOVE*****                    OPEN FILE
    32851>33003    0       27       9   0  0              0                                                        SELECT
          33004    71      330     13   0  0              0        330     >NOT PRINT                              JUMP IF A != 0
          33005            27       8   0  0              0                PRINTER TYPE                            SELECT
          33006    11               0   0  0              Ю                                                        ADD LITERAL
          33007    30               0   0  0              5                                                        SHIFT (A) BY QUARTETS
          33008    1       999      7   0  0              0                ROUTE                                   ADD
          33009    125           4096   1  1              0                                                        clear indicators
          33010    124     999      0   0  3              0                                                        modify address of next
          33011    123            160   0  2              0                >OPEN PRINTER OR MT A9                  enter master routine
          33012    62               0   0  0              0                                                        SET EXCESS CONSTANTS
    33004>33013    54      61       0   0  0            120                                                        BULK CLEAR
          33014    54      94       0   0  0            100                                                        BULK CLEAR
          33015    54      66       0   0  0             34                66+49                                   BULK CLEAR
          33016    10               0   0  0              1                                                        SELECT LITERAL
          33017    4       92       0   0  0              0                NO OF CHAPS                             AUGMENT
          33018    101            998   1  3              0                                                        select literal address
          33019    1       92       0   0  0              0                (CHAPS CODED)+1                         ADD
          33020    3       61       5   0  0              0                LONG CONSTS PROCR                       COPY
  Source image: P1000325.JPG
          33021    11               0   0  0              1                                                        ADD LITERAL
          33022    3       61       6   0  0              0                SHORT CONSTS PROCR                      COPY
          33023    11               0   0  0              1                                                        ADD LITERAL
          33024    5       61       7   0  0              0                TSL PROCR                               TRANSFER
          33025    10               0   0  0         800000                                                        SELECT LITERAL
          33026    1       27       9   0  0              0                                                        ADD
          33027    91               0   0  3              0                SET FOR REENTRY                         SET MODIFICATION REGISTER AT VARIABLE
                                                                                                                   
          33100    PROCR   331       331     I/P 1ST BLOCK, UNPACK, PRINT                                          
          33101     NOTES          RADIX     B    PREP STAGE                                                       SELECT
    33108>33102    80      539      2   0  0              0        539     >READ                                   ENTER SUBROUTINE
          33103            8        6   1  0              0                                                        SELECT
          33104    2       343      4   1  0              0        343     'PROGM'                                 SUBTRACT
          33105    70      331     12   0  0              0        331     >OK                                     JUMP IF A == 0
          33106            8        4   1  0              0                                                        SELECT
          33107    12               0   0  0     5659650000                '  FIN'                                 SUBTRACT LITERAL
          33108    71      331      2   0  0              0        331     >KEEP READING                           JUMP IF A != 0
          33109    150              0   0  0              4                                                        OFFER OPTIONS
          33110    C       331     11   0  0              0        331     >UNLOAD                                 
    33110>33111    151              0   0  0              0                                                        UNLOAD PROGRAMME
    33105>33112    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33113    C       341      2   0  0              0        341                                             
          33114    52      8        2   0  0              0                                                        EDIT
          33115    C       341      2   0  0              0        341                                             
          33116            66       4   1  0              0                SUITE NO                                SELECT
          33117    30               0   0  0              2                                                        SHIFT (A) BY QUARTETS
          33118    1       66       6   2  0              0                JOB NO                                  ADD
          33119    5       61     112   0  0              0                PROG ID                                 TRANSFER
          33120    00      66       8   1  0              0                                                        SELECT
          33121    5       72       0   1  0              0                ALPHA SERIAL NUMBER                     TRANSFER
          33122            27       9   0  0              0                                                        SELECT
          33123    70      331     48   0  0              0        331     >PRINTING                               JUMP IF A == 0
          33124            27       4   0  0              0                                                        SELECT
          33125    71      331     46   0  0              0        331     >DON'T WRITE HDG EITHER                 JUMP IF A != 0
          33126    86      787      2   0  0              0        787                                             SELECT SWITCH R
          33127    71      331     34   0  0              0        331     >DON'T OPEN A9                          JUMP IF A != 0
          33128    10               0   0  0        1200000                                                        SELECT LITERAL
          33129    34      343     14   1  0              0        343                                             SET (N) IN B
          33130    1       999      7   0  0              0                                                        ADD
          33131    125           4096   1  1              0                                                        clear indicators
          33132    124     999      0   0  3              0                                                        modify address of next
          33133    123            160   0  2              0                >OPEN A9 O/P MT                         enter master routine
    33127>33134    62               0   0  0              0                                                        SET EXCESS CONSTANTS
          33135    10               0   0  0     6769596573                'PRINT'                                 SELECT LITERAL
          33136    5       10       4   1  0              0                                                        TRANSFER
          33137    10               0   0  0           8000                                                        SELECT LITERAL
          33138    5       10       6   2  0              0                                                        TRANSFER
          33139    155              0   0  0              0                                                        SELECT PROGRAM SERIAL TO A
          33140    5       10       8   1  0              0                                                        TRANSFER
          33141            61     112   0  0              0                OBJECT PROG ID                          SELECT
          33142    5       10      10   2  0              0                                                        TRANSFER
          33143            544      2   1  0              0        544                                             SELECT
          33144    5       10      12   1  0              0                                                        TRANSFER
          33145    80      541      2   0  0              0        541     >WRITE A9 HEADING BLOCK                 ENTER SUBROUTINE
    33125>33146    90               0   0  6              0                PREPARE FOR 6 BLKS                      SET MODIFICATION REGISTER AT LITERAL
          33147    C                0   0  0            300                                                        
    33123>33148    80      340      2   0  0              0        340     >WRITE/PRINT 'PROGM'                    ENTER SUBROUTINE
          33149            27       4   0  0              0                COMPILER?                               SELECT
          33150    71      331     53   0  0              0        331     >YES                                    JUMP IF A != 0
          33151    40      A6       0   0  0              0                                                        OPEN FILE
  Source image: P1000326.JPG
          33152    76      331     56   0  0              0        331                                             JUMP unconditional
    33150>33153    48      A6       0   0  0              3                BACK 0 I/P>O/P                          STEP BACK
          33154    C       999      0   0  0              0                                                        
          33155    76      331     64   0  0              0        331     >DON'T WRITE 'INDEX'                    JUMP unconditional
    33152>33156    52      9        4   0  0              0                EDIT FIRST HEADING                      EDIT
          33157    C       341     12   0  0              0        341     BLOCK                                   
          33158    80      514      2   0  0              0        514     OP                                      ENTER SUBROUTINE
          33159            543     20   0  0              0        543     '£££££'                                 SELECT
          33160    5       9        4   2  0              0                                                        TRANSFER
          33161            544      2   1  0              0        544     BEW                                     SELECT
          33162    5       9        6   1  0              0                                                        TRANSFER
          33163    80      514      2   0  0              0        514     >DUMMY 'INDEX' DATA                     ENTER SUBROUTINE
    33155>33164    52      9        4   0  0              0                PROG & SERIAL FOR PASS 3                EDIT
          33165    C       341     20   0  0              0        341                                             
          33166    5       9       16   1  0              0                                                        TRANSFER
          33167    80      514      2   0  0              0        514     >SHORT RUBBISH BLOCK                    ENTER SUBROUTINE
          33168    80      539      2   0  0              0        539     I/P                                     ENTER SUBROUTINE
          33169    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33170    C       341      2   0  0              0        341                                             
          33171            66       4   1  0              0                PROCR OF ENTRY                          SELECT
          33172    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
          33173    5       72       2   0  0              0                                                        TRANSFER
          33174    52      8        2   0  0              0                                                        EDIT
          33175    C       341      2   0  0              0        341                                             
          33176    80      340      2   0  0              0        340     PRINT 'ENTRY'                           ENTER SUBROUTINE
          33177    52      9        4   0  0              0                EDIT SECOND BLOCK                       EDIT
          33178    C       341     28   0  0              0        341                                             
          33179    80      514      2   0  0              0        514     >O/P                                    ENTER SUBROUTINE
                                                                                                                   
          33200    PROCR   332       332     DEAL WITH FILE IDS                                                    
          33201     NOTES          RADIX     B                                                                     SELECT
          33202    17      92       7   0  0             10                SPACE OCCUPIED BY CONVERT TABLES        MULTIPLY LITERAL and ADD
          33203    101            204   1  1              0                FOR ALLOCATOR                           add literal address
          33204    5       61     100   0  0              0                SP CHAP SPACE CTR                       TRANSFER
          33205    0       91       1   0  0              0                2R                                      SELECT
          33206    31               0   0  0              1-                                                       SHIFT (A) BY BITS
          33207    1       92      29   0  0              0                EXTRA CHAP NO                           ADD
          33208    1       92      29   0  0              0                                                        ADD
          33209    3       61      40   0  0              0                LAST ROUTE PARAMETER                    COPY
          33210    5       61      39   0  0              0                PARA CTR                                TRANSFER
          33211    0       91       1   0  0              0                2R                                      SELECT
          33212    3       91       2   0  0              0                                                        COPY
          33213    5       91       3   0  0              0                                                        TRANSFER
          33214    91      91       0   0  2              0                SCAN FILE LIST                          SET MODIFICATION REGISTER AT VARIABLE
    33445>33215    90               0   0  1              0                O/P M.R.                                SET MODIFICATION REGISTER AT LITERAL
          33216    C                0   0  0             48                                                        
    33406>                                                                                                         
    33441>33217    80      539      2   0  0              0        539     I/P                                     ENTER SUBROUTINE
          33218            8        6   1  0              0                                                        SELECT
          33219    2       343      8   1  0              0        343     'CHAPS'                                 SUBTRACT
          33220    70      335      2   0  0              0        335     >YES                                    JUMP IF A == 0
          33221    50      8        4   0  0              0                                                        UNPACK FIXED FIELD DATA
          33222    C       341     52   0  0              0        341     UNPACK FILE IDENTITIES                  
          33223            8       46   1  0              0                                                        SELECT
          33224    2       542     28   1  0              0        542     '?????'                                 SUBTRACT
          33225    3       344      2   1  0              0        344     WL                                      COPY
          33226    70      334      2   0  0              0        334     >FILE IGNORED                           JUMP IF A == 0
          33227            66       4   0  0              0                ROUTE TYPE                              SELECT
          33228    12               0   0  0             19                                                        SUBTRACT LITERAL
          33229    70      332     54   0  0              0        332     >ROUTE TYPE 19                          JUMP IF A == 0
  Source image: P1000327.JPG
          33230            66       6   0  0              0                CHAP NO                                 SELECT
          33231    80      537      2   0  0              0        537     CONVERT TO BIN                          ENTER SUBROUTINE
          33232    2       92       0   0  0              0                CHAPS +1                                SUBTRACT
          33233    73      333      2   0  0              0        333     >OK                                     JUMP IF A < 0
          33234            542     28   1  0              0        542     ?????'                                  SELECT
          33235    5       8       46   1  0              0                                                        TRANSFER
          33236    5       344      2   1  0              0        344                                             TRANSFER
          33237            91       3   0  0              0                2(R+T)=LIST LENGTH                      SELECT
          33238    99               0   0  2              0                -R2 MODIFIER                            SUBTRACT MODIFICATION REGISTER FROM A
          33239    30               0   0  0              5                FORM LENGTH OF REMAINDER OF LIST Q6-10  SHIFT (A) BY QUARTETS
          33240    1       343      2   0  0              0        343     ADDRESS 91:6                            ADD
          33241    98               0   0  2              0                FORM ADDRESS OF FIRST TO OPY            ADD MODIFICATION REGISTER TO A
          33242    124     999     24   0  0              0                (R2)                                    modify address of next
          33243    128     91       4   0  0              0                COPY UP TO DELETE A FILE                bulk copy short numeric
          33244    12               0   0  0              2                                                        SUBTRACT LITERAL
          33245    4       91       1   0  0              0                REDUCE CTRS FOR DELETED FILE            AUGMENT
          33246    4       91       2   0  0              0                                                        AUGMENT
          33247    4       91       3   0  0              0                                                        AUGMENT
          33248    124     999     22   0  3              0                                                        modify address of next
          33249    107              5   0  0              0                REDUCE R2 END VALUE                     augment (N) by (A)
          33250    11               0   0  0              1                                                        ADD LITERAL
          33251    4       61      39   0  0              0                (REDUCE BY 1)                           AUGMENT
          33252    4       61      40   0  0              0                                                        AUGMENT
          33253    76      334      2   0  0              0        334     >FILE IGNORED                           JUMP unconditional
    33229>33254            66       6   0  0              0                CHAPTER PAIR        RT19                SELECT
          33255    30               0   0  0              2                Q2->Q4                                  SHIFT (A) BY QUARTETS
          33256    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33257    124     91       3   0  1              0                                                        modify address of next
          33258    37      91       4   0  0              0                STORE TX AREA CHAP WITH GP DETAILS      REPLACE SELECTED BITS
          33259            66      10   0  0              0                SPECIAL LENGTH                          SELECT
          33260    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33261    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          33262    124     91       3   0  1              0                                                        modify address of next
          33263    37      91       4   0  0              0                STORE HALF-LENGTH AS GP LENGTH          REPLACE SELECTED BITS
          33264            66       8   0  0              0                GP HALF-LENGTH                          SELECT
          33265    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33266    76      333      9   0  0              0        333                                             JUMP unconditional
                                                                                                                   
          33300    PROCR   333       333     FILE IDS                                                              
          33301     NOTES          RADIX     B                                                                     SELECT
    33233>33302            66       4   0  0              0                ROUTE TYPE                              SELECT
          33303    12               0   0  0              3                                                        SUBTRACT LITERAL
          33304    70      333     11   0  0              0        333                                             JUMP IF A == 0
          33305    12               0   0  0              1                                                        SUBTRACT LITERAL
          33306    71      334      2   0  0              0        334     >NOT 4                                  JUMP IF A != 0
          33307    0       66       8   0  0              0                ANNEX LENGTH                            SELECT
          33308    80      537      2   0  0              0        537     >CONVERT                                ENTER SUBROUTINE
    33266>33309    33               0   0  0              6-               DIVIDE BY 64                            SHIFT (AB) BY BITS
          33310    5       61       8   0  0              0                MULTIPLES FOR Q10 FN WORD               TRANSFER
    33304>33311            61      39   0  0              0                PARA CTR                                SELECT
          33312    11               0   0  0              1                                                        ADD LITERAL
          33313    124     91       3   0  1              0                                                        modify address of next
          33314    5       91       5   0  0              0                TX AREA ENTRY                           TRANSFER
          33315    35               0   0  0           1000                                                        PREPARE FOR DIGIT COLLATION
          33316            66       8   0  0              0                HALF LENGTH                             SELECT
          33317    80      537      2   0  0              0        537     >BIN                                    ENTER SUBROUTINE
          33318    35               0   0  0            111                                                        PREPARE FOR DIGIT COLLATION
          33319    11               0   0  0              2                                                        ADD LITERAL
          33320    37      91       4   1  2              0                                                        REPLACE SELECTED BITS
          33321    35               0   0  0          10000                                                        PREPARE FOR DIGIT COLLATION
  Source image: P1000328.JPG
          33322            91       3   0  0              0                2(R+T)                                  SELECT
          33323    2       91       2   0  0              0                                                        SUBTRACT
          33324    30               0   0  0              4                CTR WITHIN GPTXAREAS                    SHIFT (A) BY QUARTETS
          33325    37      91       4   1  2              0                                                        REPLACE SELECTED BITS
          33326    10               0   0  0              0                                                        SELECT LITERAL
          33327    124     91       3   0  1              0                                                        modify address of next
          33328    2       91       4   0  0              0                                                        SUBTRACT
          33329    124     91       3   0  1              0                                                        modify address of next
          33330    5       91       4   0  0              0                SET GP TX AREA SIGN B/T                 TRANSFER
          33331    10               0   0  0              2                                                        SELECT LITERAL
          33332    4       91       3   0  0              0                STEP(ROUTES +TX AREAS) CTR              AUGMENT
          33333    4       61      39   0  0              0                STEP PARA CTR                           AUGMENT
                                                                                                                   
          33400    PROCR   334       334     FILE IDS                                                              
          33401     NOTES          RADIX                                                                           SELECT
    33306>                                                                                                         
    33253>                                                                                                         
    33226>33402    52      8        2   0  0              0                                                        EDIT
          33403    C       341     52   0  0              0        341                                             
          33404    80      340      2   0  0              0        340     PRINT FILES                             ENTER SUBROUTINE
          33405    0       344      2   1  0              0        344                                             SELECT
          33406    70      332     17   0  0              0        332     >FILE IGNORED                           JUMP IF A == 0
          33407    94               0   0  2              2                                                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
          33408    90