Source image: P1020637.JPG
                PROGM   090      1     0     MASTER ROUTINE
                ENTRY   551      1

      CHAPS    2   100   536
      INDEX    3     1     2


          10000    PROCR   100       100     FIXED ENTRY POINTS TO MASTER
          10001     NOTES          RADIX     B
          10002    124     536      2   1  0  unconditional jump           160(IPS INITIAL ENTRY)
          10003    124     264     12   1  0  unconditional jump           161 >I/P O/P CONTROL
          10004    100     559      2   0  1  Invalid                      162(IPS:ASL'S)
          10005    124     205      2   1  0  unconditional jump           163 >OPTIONS
          10006    100     233      2   0  0  Halt                         164 (IPS: APT)
          10007    124     204      6   1  0  unconditional jump           165 >PROGRAMME UNLOAD
          10008    100              0   0  0  Halt                         166
          10009    124     244      2   1  0  unconditional jump           167 >OVERLAY
          10010    100              0   0  0  Halt                         168
          10011    124     207      2   1  0  unconditional jump           169 >TYPE
          10012    124     263     18   1  0  unconditional jump           *££0*££3*13‼*60‼
          10013    124     208     19   1  0  unconditional jump           171>
          10014    100              0   0  0  Halt                         172
          10015    124     243     68   1  0  unconditional jump           *60‼
          10016    124     264      2   1  0  unconditional jump           >TEST ROUTE
          10017    100              0   0  0  Halt                         175 5-FIGURE DATE
          10018    100              0   0  0  Halt                         176
          10019    124     450      2   1  0  unconditional jump           *13‼ RELEASE ROUTE
          10020    115     537      2   0  1  collate and add              178 ON LINE STORE DUMP
          10021    100              2   0  0  Halt                         179 ABDON/UNLOAD INDICATOR
          10022    100              3   0  0  Halt                         180 MACHINE NO
          10023    100              0   0  0  Halt                         181 SERIAL NUMBER
          10024    100              0   0  0  Halt                         182 MOD NUMBER
          10025    124     182      2   1  0  unconditional jump           *££0*££2*293
          10026    124     103     17   1  0  unconditional jump           *2£‼
          10027    124     182      2   1  0  unconditional jump           *293
          10028    124     127     31   1  0  unconditional jump           *31‼
          10029    124     104      9   0  1  modify address of next       *££2*263
          10030    124     268      9   1  0  unconditional jump           183>PRIORITYQUEUE
          10031    100              0   0  0  Halt                         184 USED IN TYPE PQ
          10032    100              0   0  0  Halt                         185 LAST COMMAND
          10033    100              0   0  0  Halt                         186 CD: MIN RT
          10034    100              0   0  0  Halt                         187 CD: MAX RT
          10035    100              0   0  0  Halt                         188 CD: 8*CH
          10036    100              0   0  0  Halt                         189 CD: (8*CH)+4
          10037    100              0   0  0  Halt                         190 TW: RT NO
          10038    100              2   0  0  Halt                         191 TW: RT TYPE

          10100    CONST   101       101     1    FAST CHANNEL ASLS
          10102          (D)££££0££££;                                     *3:Ю4£Ю CHANNEL 16
          10104          ££££0££££;
          10106          ££££0££££;
          10108          ££££0££££;
          10110          ££££0££££;                                        CHANNEL 17
          10112          ££££0££££;
  Source image: P1020638.JPG
          10114          ££££0££££;
          10116          ££££0££££;
          10118          ££££0££££;                                        CHANNEL 18
          10120          ££££0££££;
          10122          ££££0££££;
          10124          ££££0££££;
          10126          ££££0££££;                                        CHANNEL 19
          10128          ££££0££££;
          10130          ££££0££££;
          10132          ££££0££££;
          10134          ££££0££££;                                        CHANNEL 20
          10136          ££££0££££;
          10138          ££££0££££;
          10140          ££££0££££;
          10142          ££££0££££;                                        CHANNEL 21
          10144          ££££0££££;
          10146          ££££0££££;
          10148          ££££0££££;

          10200    CONST   102       102     1    TYPEWRITER ANNEXE
          10202          (D)7:(A)LDB(D)5.;                                 TAB,L,D,B,L/E
          10204          (D)0;
          10206          0;
          10208          0;
          10210          0;
          10212          0;
          10214          0;
          10216          0;
          10218          0;
          10220          0;
          10222          0;
          10224          0;
          10226          0;
          10228          0;
          10230          0;
          10232          0;
          10234          0;
          10236          0;
          10238          0;
          10240          0;
          10242          0;
          10244          0;
          10246          0;
          10248          0;
          10250          0;
          10252          0;
          10254          0;
          10256          0;
          10258          0;
          10260          0;
          10262          0;
          10264          0;
          10266          0;
          10268          0;
          10270          0;
          10272          0;
          10274          0;
          10276          0;
          10278          0;
          10280          0;
          10282          5.5.;                                             SP,SP,SP,L/E,L/E
          10284          5.5.5.5.5.;                                       L/E. L/E, L/E, L/E, L/E

          10300    PROCR   103       103     LOG ROUTINE SWITCH
          10301     NOTES          RADIX     B
          10302    100              0   0  0  Halt                         INDICATOR L1 OPTIONS OFFERED
  Source image: P1020639.JPG
          10303    100              0   0  0  Halt                         INDICATOR L2 COMMAND IGNORED
    20917>10304    106              8   0  0  select (N)                   *59Ю                STORE LINK AFTER
          10305    124              2   0  3  modify address of next       *59Ю                INTERRUPTION
          10306    102             44   0  0  transfer (A) to N
    11106>
    11108>
    11306>
    11308>
    11506>
    11508>
    11706>
    11708>
    11906>
    11908>
    12106>
    12108>
    12306>
    12308>
    12506>
    12508>
    12728>
    17710>
    19921>
    19972>
    20919>
    24415>
    24623>
    54229>10307    100     212      2   0  3  set radix                    *31‼ SET BINARY     HEAD OF QUEUE
    12734>10308    124     212      2   1  1  set modification group       SET MOD GROUP 0
    18141>
    18408>
    18411>
    18612>
    18616>10309    124     103     25   1  0  unconditional jump           (INTLY SL=4)        SWITCH SL
          10310    124     186      2   1  0  unconditional jump           >ROUTE CLOSED       SWITCH L1
          10311    124     106     14   1  0  unconditional jump           >ROUTE ENGAGED
          10312    124     108      2   1  0  unconditional jump           >DOUBTFUL BLOCK
          10313    124     103     14   1  0  unconditional jump           >WARNING OF END
    10806>
    10313>10314    124     182     24   1  0  unconditional jump           *293 >AVAILABLE     SWITCH SLAS
          10315    126     273      2   0  0  enter subroutine                                 (A),(B),(C),  SET (C
          10316    106     103     18   0  0  select (N)                                       DECIMAL L  SET RETUR
    10026>10317    102     103     14   0  0  transfer (A) to N                                PROG LINK
          10318    124     182     24   1  0  unconditional jump           *293 SLAS=1
          10319    100              0   0  0  Halt                         SETTING OF L5
          10320    106     198     10   1  0  select (N)                   *263                L5=1
          10321    124     185      2   1  0  unconditional jump                               L5=2
          10322    124     186     17   1  0  unconditional jump                               L5=3
    18503>10323    106     104     10   0  0  select (N)                   SET SL=4
          10324    102     103      9   0  0  transfer (A) to N
    10410>
    10309>10325    125           1919   1  2  interrogate indicators       INTERROGATE I1-7,I9-11 TEST INDS STACKED
          10326    127     199      2   0  1  jump A != Z                  >YES: OP INT
    19903>10327    124     106     14   1  0  unconditional jump           (INTLY L6=2)        SWITCH L6
    10331>10328    106     175      2   0  3  select (N)                                       TEST REQUEST SET
          10329    127     178      2   0  1  jump A != Z                  >YES
          10330    125              2   0  3  step on and test
          10331    124     103     28   1  0  unconditional jump

          10400    PROCR   104       104     LOG ROUTINE SWITCH CONT
          10401     NOTES          RADIX     B
          10402    106     104      4   0  0  select (N)                   SET L6=2
          10403    102     103     27   0  0  transfer (A) to N
          10404    124     106     14   1  0  unconditional jump           >SM                 L6=2
          10405    126     109     12   1  3  set modification register    SET (MR3) FOR REQUESL8=1
          10406    100              0   0  0  Halt                         P
  Source image: P1020640.JPG
          10407    100              0   0  0  Halt                         Q
          10408    100              0   0  0  Halt                         (64+R)FIXED(T/W)
          10409    100              0   0  0  Halt                         (64+R)VARIABLE(T/W)
          10410    124     103     25   1  0  unconditional jump           SL=4
          10411    100              0   0  0  Halt                         SPARE
          10412    100              0   0  0  Halt                         1=256 MICROSECS INEFFECTIVE
          10413    100              0   0  0  Halt                         1=APP 1SEC TIME CNTR

          10500    CONST   105       105     1    ANNEXES FOR FIXED COMMENT
          10502          (D)7:(A)LDB(D)5.;                                 TAB,L,D,B,L/E
          10504          (D)6£7:(A)C I;                                    R/S,TAB,C,SP,I
          10506          (A)GN (D)5.5.;                                    G,N,SP,L/E,L/E

          10600    PROCR   106       106     MASTER ROUTINE SWITCH
          10601     NOTES          RADIX
          10602    100              0   0  0  Halt                         INDICATOR FOR 'ABDON' AND 'END'
          10603    100              4   0  0  Halt                         *££0*££2*1.3
          10604    100              6   0  0  Halt                         *1:3
          10605    100             12   0  0  Halt                         *393
          10606    100             14   0  0  Halt                         *4.3
          10607    100             16   0  0  Halt                         *££2*5Ю3
          10608    100              0   0  0  Halt                         SPARE
          10609    100              0   0  0  Halt                         MR3 SETTING FOR REQUEST T/W
          10610    100             18   0  0  Halt                         *1.3*1:3*1£4*384*393*5Ю3*4.3      8    1
          10611    124              3   0  1  modify address of next       OPTION 8
          10612    126            158   0  1  leave subroutine             >
    10616>
    10628>10613    124     108     11   1  0  unconditional jump           >
    10404>
    10327>
    10311>10614    124     106     16   1  0  unconditional jump                               SWITCH SM
          10615    124     106     25   1  0  unconditional jump           >CLOSED(S=3)        S=1 TEST ROUTE
    10614>10616    124     106     13   1  0  unconditional jump           >ENGAGED(S=2)
          10617    126     271      2   0  0  enter subroutine             >D/B                TEST ROUTE
          10618    126     300      2   0  0  enter subroutine             >W/E
          10619    106     107      7   0  0  select (N)
          10620    102     106     14   0  0  transfer (A) to N                                S=4
          10621    106     107      8   1  0  select (N)
          10622    102              2   1  0  transfer (A) to N                                SET UP MR1
          10623    106     107      2   1  0  select (N)                   ROUTE NO. & TYPE
          10624    124     265      3   1  0  unconditional jump           >I/P O/P CONTROL
    10615>10625    106            156   0  0  select (N)                   CURRENT TIME        S=3 TEMP, CLOSED
          10626    106     107     17   0  0  select (N)                   *££0*££1*46‼
          10627    105     107     17   0  0  subtract (N) from (A)        *46‼
          10628    127     106     13   0  3  jump A < Z                   >NO                 ACTION IS REQUIRED
          10629    126     107      8   1  1  set modification register                        SET UP MR1
          10630    126     107     14   0  1  leave subroutine             >
    10707>10631    124     106     37   1  1  set modification group                           S=4 NORMAL
          10632    106     107      8   1  0  select (N)                                       RESET MOD. GROUP
          10633    102              2   1  0  transfer (A) to N                                SET UP MR1
          10634    100     107      2   1  1  replace registers                                RESTORE (A)(B)(C)
          10635    126     107     16   0  1  leave subroutine             >
          10636    126     107     16   0  1  leave subroutine             >
          10637    100              0   0  0  Halt                         MOD.GROUP

          10700    PROCR   107       107     MASTER ROUTINE SWITCH CONT
          10701     NOTES          RADIX     B
          10702    100              0   0  0  Halt                         (A)
          10703    100              0   0  0  Halt
          10704    100              0   0  0  Halt                         (B)
          10705    100              0   0  0  Halt
          10706    100              0   0  0  Halt                         (C)
          10707    124     106     31   1  0  unconditional jump           S=4
          10708    100     106      2   0  0  Halt                         PROG LINK
          10709    100              0   0  0  Halt                         START OF SPECIAL CHAPTER
          10710    100              0   0  0  Halt                         ALARM NO FOR D/D
  Source image: P1020641.JPG
          10711    100           4097   1  0  copy registers               PROG ID NO
          10712    100              0   0  0  Halt                         RUN & RERUN NO
          10713    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          10714    100     270      2   0  0  Halt                         *464                00004
          10715    100              0   0  0  Halt                         LOCN BEFORE 1ST OPTION
          10716    100              0   0  0  Halt                         LINK FOR I/P O/P, LINK FOR SI=4
          10717    100              0   0  0  Halt                         ASSOC TIME/ORIGINAL SWITCH SETTING
          10718    100              0   0  0  Halt                         W/L'S
          10719    100              0   0  0  Halt

          10800    PROCR   108       108     PSEUDO-SWITCH
          10801     NOTES          RADIX     B
    10312>10802    100     210     10   0  2  replace (B) by (N)           SET (MR3)=8*CH      DOUBTFUL BLOCK
          10803    125              0   1  2  interrogate indicators                           ON LOG ASSEMBLER
          10804    115     100     37   0  0  collate and add
          10805    126     272      2   0  0  enter subroutine             >SET D/B INDICATOR
          10806    124     103     14   1  0  unconditional jump           >SLAS
          10807    100              0   0  3  set radix                    06000
          10808    100              0   0  0  Halt                         5/0
          10809    100              5   0  0  Halt
          10810    100              0   0  0  Halt                         STORE DUMP:WL FOR(71)
    10613>10811    124     127     11   1  0  unconditional jump
          10812    124     127     11   1  0  unconditional jump           SETTING FOR M/R SWITCH NON-INT
          10813    126             24   0  1  leave subroutine             OVERFLOW
          10814    100             62   0  0  Halt                         STORE DUMP=TAM
          10815    102             52   0  0  transfer (A) to N            STORE DUMP:CLEAR TA
          10816    100              0   0  0  Halt                         20/0, MR CONST FOR TYPE
          10817    100             20   0  0  Halt
          10818    100              0   0  0  Halt                         MR CONST FOR M/T ALTERNATE ROUTES
          10819    100            160   0  0  Halt                         *011*244*234*224    00000001200008000040
          10820    100            192   0  0  Halt                         *019*244*234*224    00000001440009600048
          10821    100     271      2   0  0  Halt                         W/L
          10822    100            120   0  0  Halt
          10823    127     127     11   0  3  jump A < Z
          10824    118              6   0  3  shift binary                 SAS=1
          10825    106     100     37   0  0  select (N)                   SLAS=2
          10826    124     186      2   1  0  unconditional jump           L1=1
          10827    100              0   0  0  Halt
          10828    100              0   0  0  Halt
          10829    104           1028   1  1  add (N) to (A)               *££0*££3*353
          10830    107           6000   0  3  augment (N) by (A)           STORE DUMP='XX'
          10831    102              0   0  0  transfer (A) to N             *:SP:2:SP:SP
          10832    105           5124   1  1  subtract (N) from (A)        *353

          10900    PROCR   109       109     PSEUDO-SWITCH CONT
          10901     NOTES          RADIX     B
          10902    100              0   0  0  Halt                         D/B W/L
          10903    100             64   0  0  Halt                         64/0 FOR D/B
          10904    103              0   0  0  copy (A) to N                 *:SP:3:SP:SP
          10905    105           5124   1  1  subtract (N) from (A)        *353
          10906    107              0   0  0  augment (N) by (A)           EDG
          10907    105           5445   0  2  subtract (N) from (A)
          10908    107             65   0  0  augment (N) by (A)           I/P:1
          10909    105           5910   1  0  subtract (N) from (A)
          10910    107             65   0  0  augment (N) by (A)           O/P:1
          10911    106           1814   0  3  select (N)
          10912    100              0   0  0  Halt                         MR3 SETTING FOR T/W
          10913    100             14   0  0  Halt                         *££0*££2*393
          10914    100              6   0  0  Halt                         *1.3
          10915    100              8   0  0  Halt                         *1:3
          10916    100             16   0  0  Halt                         *4.3
          10917    100             18   0  0  Halt                         *££2*5Ю3
          10918    100             20   0  0  Halt                         *1.3*1:3*1£4*384*393*5Ю3*4.3     10   12
          10919    100              0   0  0  Halt                         SDB SETTING
          10920    100           7999   0  1  Invalid                      COLLATION CONSTANT
          10921    100              0   0  0  Halt                         STORE DUMP=MR
  Source image: P1020642.JPG
          10922    100              0   0  0  Halt                         STORE DUMP=MR
          10923    100              0   0  0  Halt                         STORE DUMP=COUNTER
          10924    100              0   0  0  Halt                         STORE DUMP=STORE SIZE

          11000    PROCR   110       110     INITIAL PROGRAMME SWITCH
          11002    124     265      2   1  0  unconditional jump           *££0*££2*062063     >I/P O/P CONTROL
          11003    106            157   0  0  select (N)                   *063
          11004    119             56   0  1  input one block/reset timer  *063063
          11005    106     112     17   0  0  select (N)                   *46‼
          11006    106     114     17   0  0  select (N)                   *46‼46‼
          11007    106     116     17   0  0  select (N)                   *46‼*46‼*46‼
          11008    106     118     17   0  0  select (N)                   *46‼*46‼*46‼*46‼

          11100    PROCR   111       111     1ST COMMERCIAL PROGRAMME SWITCH
          11101     NOTES          RADIX     B
          11102    100     112      2   1  0  copy registers                                   INTERRUPTION,STORE
          11103    100     210      3   0  3  set radix                    6'S                 (A),(B),(C).SET(C)
          11104    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          11105    102     112     16   0  0  transfer (A) to N                                PROG. LINK
          11106    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          11107    107     112     18   1  0  augment (N) by (A)
          11108    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          11109    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP1
          11110    124     111     20   1  0  unconditional jump           >CLOSED(S=2)
          11111    124     127     11   1  0  unconditional jump           >ENGAGED (S=3)      TEST ROUTE
          11112    126     271      2   0  0  enter subroutine             >D/B
          11113    126     300      2   0  0  enter subroutine             >W/E
          11114    106     112      7   0  0  select (N)                                       SET S=4
          11115    102     111      9   0  0  transfer (A) to N
          11116    106     112      8   1  0  select (N)                                       SET UP MR1
          11117    102              2   1  0  transfer (A) to N
          11118    106     112      2   1  0  select (N)
          11119    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11110>11120    106            156   0  0  select (N)                                       S=3 TEMP CLOSED
          11121    105     112     17   0  0  subtract (N) from (A)        *46‼
          11122    127     127     11   0  3  jump A < Z                   >NO                 ACTION IS REQUIRED
          11123    126     112      8   1  1  set modification register                        ACTION IS REQUIRED
          11124    126     112     14   0  1  leave subroutine             >MASTER ROUTINE
    11207>11125    124     111     31   1  1  set modification group
          11126    106     112      8   1  0  select (N)                                       RESET MOD.GROUP
          11127    102              2   1  0  transfer (A) to N                                SET UP MR1
          11128    100     112      2   1  1  replace registers                                RESTORE (A) (B) (C)
          11129    126     112     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          11130    126     112     16   0  3  leave master routine         >PROGRAMME
          11131    100              0   0  3  set radix                    MOD GROUP

          11200    PROCR   112       112     1ST COMML SWITCH CONT
          11201     NOTES          RADIX     B
          11202    100              0   0  0  Halt                         (A)
          11203    100              0   0  0  Halt
          11204    100              0   0  0  Halt                         (B)
          11205    100              0   0  0  Halt
          11206    100              0   0  0  Halt                         (C)
          11207    124     111     25   1  0  unconditional jump           S=4
          11208    100     111      2   0  0  Halt                         PROGRAMME LINK
          11209    100              0   0  0  Halt                         START OF LAST CHAPTER
          11210    100              0   0  0  Halt                         ALARM NO FOR D/D
          11211    100              0   0  0  Halt                         PROGM ID NO         10827
          11212    100              0   0  0  Halt                         RUN & RERUN NO
          11213    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          11214    100     270      2   0  0  Halt                         *464                00004
          11215    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          11216    100              0   0  0  Halt                         I/P O/P CONTROL LINKLINK FOR SI=4
          11217    100              0   0  0  Halt                         ASSOC.TIME/ORIG.SW.SETTING
          11218    100              0   0  0  Halt                         TIME SPENT IN
          11219    100              0   0  0  Halt                         PROGRAMME

  Source image: P1020643.JPG
          11300    PROCR   113       113     2ND COMMERCIAL PROGRAMME SWITCH
          11301     NOTES          RADIX     B
          11302    100     114      2   1  0  copy registers               *1.2                INTERRUPTION,STORE
          11303    100     210      3   0  3  set radix                                        (A),(B),(C) SET(C)
          11304    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          11305    102     114     16   0  0  transfer (A) to N                                PROG LINK
          11306    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          11307    107     114     18   1  0  augment (N) by (A)
          11308    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          11309    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP2
          11310    124     113     20   1  0  unconditional jump           >CLOSED (S=3)       TEST ROUTE
          11311    124     127     11   1  0  unconditional jump           >ENGAGED (S=2)
          11312    126     271      2   0  0  enter subroutine             >D/B
          11313    126     300      2   0  0  enter subroutine             >W/E
          11314    106     114      7   0  0  select (N)                                       SET S=4
          11315    102     113      9   0  0  transfer (A) to N
          11316    106     114      8   1  0  select (N)                                       SET UP MR1
          11317    102              2   1  0  transfer (A) to N
          11318    106     114      2   1  0  select (N)
          11319    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11310>11320    106            156   0  0  select (N)                                       S=3.TEMP.CLOSED
          11321    105     114     17   0  0  subtract (N) from (A)        *46‼46‼
          11322    127     127     11   0  3  jump A < Z                   >NO                 ACTION IS REQUIRED
          11323    126     114      8   1  1  set modification register
          11324    126     114     14   0  1  leave subroutine             >M.R.               SET UP MR1
    11407>11325    124     113     31   1  1  set modification group
          11326    106     114      8   1  0  select (N)                                       RESET MOD.GROUP
          11327    102              2   1  0  transfer (A) to N                                SET UP MR1
          11328    100     114      2   1  1  replace registers                                RESTORE (A) (B) (C)
          11329    126     114     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          11330    126     114     16   0  3  leave master routine         >PROGRAMME
          11331    100              0   0  0  Halt                         MOD.GROUP

          11400    PROCR   114       114     2ND COMML SWITCH CONT
          11401     NOTES          RADIX     B
          11402    100              0   0  0  Halt                         *1.2 (A)
          11403    100              0   0  0  Halt
          11404    100              0   0  0  Halt                         (B)
          11405    100              0   0  0  Halt
          11406    100              0   0  0  Halt                         (C)
          11407    124     113     25   1  0  unconditional jump           S=4
          11408    100     113      2   0  0  Halt                         PROGRAMME LINK
          11409    100              0   0  0  Halt                         START OF LAST CHAPTER
          11410    100              0   0  0  Halt                         ALARM NO.FOR D/D
          11411    100              0   0  0  Halt                         PROG.ID.NO.
          11412    100              0   0  0  Halt                         RUN & RERUN NO
          11413    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          11414    100     270      2   0  0  Halt                         *464                00004
          11415    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          11416    100              0   0  0  Halt                         I/P O/P CONTROL LINKLINK FOR SI=4
          11417    100              0   0  0  Halt                         ASSOC. TIME/ORIG.SWITCH.SETTING
          11418    100              0   0  0  Halt                         TIME SPENT IN PROG
          11419    100              0   0  0  Halt

          11500    PROCR   115       115     3RD COMMERCIAL PROGRAMME SWITCH
          11501     NOTES          RADIX     B
          11502    100     116      2   1  0  copy registers               *1.2*1:2            INTERRUPTION, STORE
          11503    100     210      3   0  3  set radix                    6'S                 (A),(B),(C), SET (C)
          11504    106              8   0  0  select (N)                                       DECIMAL. SET RETURN
          11505    102     116     16   0  0  transfer (A) to N                                PROG. LINK
          11506    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          11507    107     116     18   1  0  augment (N) by (A)
          11508    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          11509    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP3
          11510    124     115     20   1  0  unconditional jump           >CLOSED(S=3)
  Source image: P1020644.JPG
          11511    124     127     11   1  0  unconditional jump           >ENGAGED(S=2)       TEST ROUTE
          11512    126     271      2   0  0  enter subroutine             >D/B
          11513    126     300      2   0  0  enter subroutine             >W/E
          11514    106     116      7   0  0  select (N)                                       SET S=4
          11515    102     115      9   0  0  transfer (A) to N
          11516    106     116      8   1  0  select (N)                                       SET UP MR1
          11517    102              2   1  0  transfer (A) to N
          11518    106     116      2   1  0  select (N)
          11519    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11510>11520    106     0      156   0  0  select (N)                                       S=3, TEMP, CLOSED
          11521    105     116     17   0  0  subtract (N) from (A)        *46‼46‼46‼
          11522    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
          11523    126     116      8   1  1  set modification register                        S=5
          11524    126     116     14   0  1  leave subroutine             >M.R.
    11607>11525    124     115     31   1  1  set modification group                           NORMAL
          11526    106     116      8   1  0  select (N)                                       RESET MOD.GROUP
          11527    102              2   1  0  transfer (A) to N                                SET UP MR1
          11528    100     116      2   1  1  replace registers                                RE&STORE (A)(B)(C)
          11529    126     116     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          11530    126     116     16   0  3  leave master routine         >PROGRAMME
          11531    100              0   0  0  Halt                         MOD.GROUP

          11600    PROCR   116       116     3RD COMML SWITCH CONT
          11601     NOTES          RADIX     B
          11602    100              0   0  0  Halt                         *1.2*1:2 A
          11603    100              0   0  0  Halt
          11604    100              0   0  0  Halt                         (B)
          11605    100              0   0  0  Halt
          11606    100              0   0  0  Halt                         (C)
          11607    124     115     25   1  0  unconditional jump           S=4
          11608    100     115      2   0  0  Halt                         PROGRAMME LINK
          11609    100              0   0  0  Halt                         START OF LAST CHAPTER
          11610    100              0   0  0  Halt                         ALARM NO. FOR D/D
          11611    100              0   0  0  Halt                         PROG.ID.NO
          11612    100              0   0  0  Halt                         RUN & RERUN NO
          11613    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          11614    100     270      2   0  0  Halt                         *464                00004
          11615    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          11616    100              0   0  0  Halt                         I/P O/P CONTROL LINK,LINK FOR SI=4
          11617    100              0   0  0  Halt                         ASSOC. TIME/ORIG.SWITCH.SETTING
          11618    100              0   0  0  Halt                         TIME SPENT IN PROG
          11619    100              0   0  0  Halt

          11700    PROCR   117       117     4TH COMMERCIAL PROGRAMME SWITCH
          11701     NOTES          RADIX     B
          11702    100     118      2   1  0  copy registers               *1.2*1:2*1£2        INTERRUPTION.STORE
          11703    100     210      3   0  3  set radix                    6'S                 (A),(B),(C) SET (C)
          11704    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          11705    102     118     16   0  0  transfer (A) to N                                PROG LINK
          11706    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          11707    107     118     18   1  0  augment (N) by (A)
          11708    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          11709    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP4
          11710    124     117     20   1  0  unconditional jump           >CLOSED (S=3)       TEST ROUTE
          11711    124     127     11   1  0  unconditional jump           >ENGAGED (S=2)
          11712    126     271      2   0  0  enter subroutine             >D/B
          11713    126     300      2   0  0  enter subroutine             >W/E
          11714    106     118      7   0  0  select (N)                                       SET (S=4)
          11715    102     117      9   0  0  transfer (A) to N
          11716    106     118      8   1  0  select (N)                                       SET UP MR 1
          11717    102              2   1  0  transfer (A) to N
          11718    106     118      2   1  0  select (N)
          11719    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11710>11720    106            156   0  0  select (N)                                       S=3.TEMP.CLOSED
          11721    105     118     17   0  0  subtract (N) from (A)        *46‼46‼46‼46‼
          11722    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
  Source image: P1020645.JPG
          11723    126     118      8   1  1  set modification register                        S=5
          11724    126     118     14   0  1  leave subroutine             >MR
    11807>11725    124     117     31   1  1  set modification group                           NORMAL
          11726    106     118      8   1  0  select (N)                                       RESET MOD GROUP
          11727    102              2   1  0  transfer (A) to N                                SET UP MR 1
          11728    100     118      2   1  1  replace registers                                RESTORE (A),(B),(C)
          11729    126     118     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          11730    126     118     16   0  3  leave master routine         >PROGRAMME
          11731    100              0   0  0  Halt                         MOD GROUP

          11800    PROCR   118       118     4TH COMML SWITCH CONT
          11801     NOTES          RADIX     B
          11802    100              0   0  0  Halt                         *1.2*1:2*1£2 (A)
          11803    100              0   0  0  Halt
          11804    100              0   0  0  Halt                         (B)
          11805    100              0   0  0  Halt
          11806    100              0   0  0  Halt                         (C)
          11807    124     117     25   1  0  unconditional jump           S=4
          11808    100     117      2   0  0  Halt                         PROGRAMME LINK
          11809    100              0   0  0  Halt                         START OF LAST CHAPTER
          11810    100              0   0  0  Halt                         ALARM NO FOR D/D
          11811    100              0   0  0  Halt                         PROG 1D NO
          11812    100              0   0  0  Halt                         RUN & RERUN
          11813    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          11814    100     270      2   0  0  Halt                         *464                00004
          11815    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          11816    100              0   0  0  Halt                         I/P O/P CONTROL LINK. LINK FOR SI=4
          11817    100              0   0  0  Halt                         ASSOC TIME/ORIG SWITCH SETTING
          11818    100              0   0  0  Halt                         TIME SPENT IN PROG
          11819    100              0   0  0  Halt
          11820    106            157   0  0  select (N)                   *££0*££2*063
          11821    119             56   0  1  input one block/reset timer  *063063
          11822    106     120     17   0  0  select (N)                   *46‼
          11823    106     122     17   0  0  select (N)                   *46‼46‼
          11824    106     124     17   0  0  select (N)                   *46‼46‼46‼
          11825    106     126     17   0  0  select (N)                   *46‼46‼46‼46‼
          11826    124     265      2   1  0  unconditional jump           *062063             >I/P O/P CONTROL

          11900    PROCR   119       119     5TH COMMERCIAL PROGRAMME SWITCH
          11902    100     120      2   1  0  copy registers               *1.2*1:2*1£2*382    INTERRUPTION STORE
          11903    100     210      3   0  3  set radix                                        (A),(B),(C)SET(C)
          11904    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          11905    102     120     16   0  0  transfer (A) to N                                PROG LINK
          11906    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          11907    107     120     18   1  0  augment (N) by (A)
          11908    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          11909    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP5
          11910    124     119     20   1  0  unconditional jump           >CLOSED(S=3)        TEST ROUTE
          11911    124     127     11   1  0  unconditional jump           >ENGAGED(S=2)
          11912    126     271      2   0  0  enter subroutine             >D/B
          11913    126     300      2   0  0  enter subroutine             >W/E
          11914    106     120      7   0  0  select (N)                                       SET(S=4)
          11915    102     119      9   0  0  transfer (A) to N
          11916    106     120      8   1  0  select (N)                                       SET UP MR1
          11917    102              2   1  0  transfer (A) to N
          11918    106     120      2   1  0  select (N)
          11919    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    11910>11920    106            156   0  0  select (N)                                       S=3,TEMP,CLOSED
          11921    105     120     17   0  0  subtract (N) from (A)        *46‼
          11922    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
          11923    126     120      8   1  1  set modification register                        S=5
          11924    126     120     14   0  1  leave subroutine             >M.R.
    12007>11925    124     119     31   1  1  set modification group                           NORMAL
          11926    106     120      8   1  0  select (N)                                       RESET MOD GROUP
          11927    102              2   1  0  transfer (A) to N                                SET UP MR1
          11928    100     120      2   1  1  replace registers                                RESTORE (A),(B),(C)
  Source image: P1020646.JPG
          11929    126     120     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          11930    126     120     16   0  3  leave master routine         >PROGRAMME
          11931    100              0   0  0  Halt                         MOD.GROUP

          12000    PROCR   120       120     5TH COMML SWITCH CONT
          12002    100              0   0  0  Halt                         *1.2*1:2*1£2*382    (A)
          12003    100              0   0  0  Halt
          12004    100              0   0  0  Halt                         (B)
          12005    100              0   0  0  Halt
          12006    100              0   0  0  Halt                         (C)
          12007    124     119     25   1  0  unconditional jump           S=4
          12008    100     119      2   0  0  Halt                         PROGRAMME LINK
          12009    100              0   0  0  Halt                         START OF LAST CHAPTER
          12010    100              0   0  0  Halt                         ALARM NO FOR D/D
          12011    100              0   0  0  Halt                         PROG ID NO
          12012    100              0   0  0  Halt                         RUN & RERUN NO
          12013    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          12014    100     270      2   0  0  Halt                         *464                00004
          12015    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          12016    100              0   0  0  Halt                         I/P O/P CONTROL LINK,LINK FOR SI=4
          12017    100              0   0  0  Halt                         ASSOC TIME/ORIG.SW.SETTING
          12018    100              0   0  0  Halt                         TIME SPENT IN PROG
          12019    100              0   0  0  Halt

          12100    PROCR   121       121     6TH COMMERCIAL PROGRAMME SWITCH
          12102    100     122      2   1  0  copy registers               *1.2*1:2*1£2*382*392 INTERRUPTION STORE
          12103    100     210      3   0  3  set radix                    6'6                 (A),(B),(C) SET(C)
          12104    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          12105    102     122     16   0  0  transfer (A) to N                                PROG LINK
          12106    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          12107    107     122     18   1  0  augment (N) by (A)
          12108    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          12109    124     127     11   1  0  unconditional jump           OR'26/1/0 R'        SWITCH SP6
          12110    124     121     20   1  0  unconditional jump           >CLOSED(S=3)        TEST ROUTE
          12111    124     127     11   1  0  unconditional jump           >ENGAGED(S=2)
          12112    126     271      2   0  0  enter subroutine             >D/B
          12113    126     300      2   0  0  enter subroutine             >W/E
          12114    106     122      7   0  0  select (N)                                       SET S=4
          12115    102     121      9   0  0  transfer (A) to N
          12116    106     122      8   1  0  select (N)                                       SET UP MR1
          12117    102              2   1  0  transfer (A) to N
          12118    106     122      2   1  0  select (N)
          12119    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    12110>12120    106            156   0  0  select (N)                                       S=3,TEMP,CLOSED
          12121    105     122     17   0  0  subtract (N) from (A)        *46‼46‼
          12122    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
          12123    126     122      8   1  1  set modification register                        S=5
          12124    126     122     14   0  1  leave subroutine             >M.R.
    12207>12125    124     121     31   1  1  set modification group                           NORMAL
          12126    106     122      8   1  0  select (N)                                       RESET MOD GROUP
          12127    102              2   1  0  transfer (A) to N                                SET UP MR1
          12128    100     122      2   1  1  replace registers                                RESTORE (A),(B),(C)
          12129    126     122     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          12130    126     122     16   0  3  leave master routine         >PROGRAMME
          12131    100              0   0  0  Halt                         MOD GROUP

          12200    PROCR   122       122     6TH COMML SWITCH CONT
          12202    100              0   0  0  Halt                         *1.2*1:2*1£2*382*392 (A)
          12203    100              0   0  0  Halt
          12204    100              0   0  0  Halt                         (B)
          12205    100              0   0  0  Halt
          12206    100              0   0  0  Halt                         (C)
          12207    124     121     25   1  0  unconditional jump           S=4
          12208    100     121      2   0  0  Halt                         PROGRAMME LINK
          12209    100              0   0  0  Halt                         START OF LAST CHAPTER
          12210    100              0   0  0  Halt                         ALARM NO  FOR D/D
  Source image: P1020647.JPG
          12211    100              0   0  0  Halt                         PROG ID NO
          12212    100              0   0  0  Halt                         RUN & RERUN NO
          12213    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          12214    100     270      2   0  0  Halt                         *464                00004
          12215    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          12216    100              0   0  0  Halt                         I/P O/P CONTROL LINK,LINK FOR SI=4
          12217    100              0   0  0  Halt                         ASSOC TIME/ORIG SWITCH SETTING
          12218    100              0   0  0  Halt                         TIME SPENT IN PROG
          12219    100              0   0  0  Halt

          12300    PROCR   123       123     7TH COMMERCIAL PROGRAMME SWITCH
          12302    100     124      2   1  0  copy registers               *1.2*1:2*1£2*382*392*4.2 INTERRUPTION ST
          12303    100     210      3   0  3  set radix                    6'5                 (A),(B),(C)SET(C)
          12304    106              8   0  0  select (N)                                       DECIMAL SET RETURN
          12305    102     124     16   0  0  transfer (A) to N                                PROG LINK
          12306    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          12307    107     124     18   1  0  augment (N) by (A)
          12308    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          12309    124     127     11   1  0  unconditional jump           OR'26/1/OR'         SWITCH SP5
          12310    124     123     20   1  0  unconditional jump           >CLOSED(S=3)        TEST ROUTE
          12311    124     127     11   1  0  unconditional jump           >ENGAGED(S=2)
          12312    126     271      2   0  0  enter subroutine             >D/B
          12313    126     300      2   0  0  enter subroutine             >W/E
          12314    106     124      7   0  0  select (N)                                       SET(S=4)
          12315    102     123      9   0  0  transfer (A) to N
          12316    106     124      8   1  0  select (N)                                       SET UP MR1
          12317    102              2   1  0  transfer (A) to N
          12318    106     124      2   1  0  select (N)
          12319    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    12310>12320    106            156   0  0  select (N)                                       S=3,TEMP,CLOSED
          12321    105     124     17   0  0  subtract (N) from (A)        *46‼46‼46‼
          12322    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
          12323    126     124      8   1  1  set modification register                        S=5
          12324    126     124     14   0  1  leave subroutine             >M.R.
    12407>12325    124     123     31   1  1  set modification group                           NORMAL
          12326    106     124      8   1  0  select (N)                                       RESET MOD GROUP
          12327    102              2   1  0  transfer (A) to N                                SET UP MR1
          12328    100     124      2   1  1  replace registers                                RESTORE(A),(B),(C)
          12329    126     124     16   0  3  leave master routine         *063063             (19/0/1/0/56)
          12330    126     124     16   0  3  leave master routine         >PROGRAM
          12331    100              0   0  0  Halt                         MOD GROUP

          12400    PROCR   124       124     7TH COMML SWITCH CONT
          12402    100              0   0  0  Halt                         *1.2*1:2*1£2*382*392*4.2 A
          12403    100              0   0  0  Halt
          12404    100              0   0  0  Halt                         (B)
          12405    100              0   0  0  Halt
          12406    100              0   0  0  Halt                         (C)
          12407    124     123     25   1  0  unconditional jump           S=4
          12408    100     123      2   0  0  Halt                         PROGRAMME LINK
          12409    100              0   0  0  Halt                         START OF LAST CHAPTER
          12410    100              0   0  0  Halt                         ALARM NO FOR D/D
          12411    100              0   0  0  Halt                         PROG ID NO
          12412    100              0   0  0  Halt                         RUN&RERUN NO
          12413    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          12414    100     270      2   0  0  Halt                         *464                00004
          12415    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          12416    100              0   0  0  Halt                         I/P O/P CONTROL LINK,LINK FOR SI=4
          12417    100              0   0  0  Halt                         ASSOC TIME/ORIG OWITSETTING
          12418    100              0   0  0  Halt                         TIME SPENT IN PROG
          12419    100              0   0  0  Halt

          12500    PROCR   125       125     8TH COMMERCIAL PROGRAMME SWITCH
          12502    100     126      2   1  0  copy registers               *1.2*1:2*1£2*382*392*4.2*5Ю2 INTERRUPTIO
          12503    100     210      3   0  3  set radix                    6'5                 (A),(B),(C)SET(C)
          12504    106              8   0  0  select (N)                   DECIMAL SET RETURN
  Source image: P1020648.JPG
          12505    102     126     16   0  0  transfer (A) to N                                PROGRAM LINK
          12506    124     103      7   1  0  unconditional jump           *063                (6/0/0/0/157)
          12507    107     126     18   1  0  augment (N) by (A)
          12508    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          12509    124     127     11   1  0  unconditional jump           OR'26/1/OR'         SWITCH SP5
          12510    124     125     20   1  0  unconditional jump           >CLOSED(S=3)        TEST ROUTE
          12511    124     127     11   1  0  unconditional jump           >ENGAGED(S=2)
          12512    126     271      2   0  0  enter subroutine             >D/B
          12513    126     300      2   0  0  enter subroutine             >W/E
          12514    106     126      7   0  0  select (N)                                       SET(S=4)
          12515    102     125      9   0  0  transfer (A) to N
          12516    106     126      8   1  0  select (N)                                       SET UP MR1
          12517    102              2   1  0  transfer (A) to N
          12518    106     126      2   1  0  select (N)
          12519    124     265      3   1  0  unconditional jump           *062063             >I/P O/P CONTROL
    12510>12520    106            156   0  0  select (N)                                       S=3,TEMP CLOSED
          12521    105     126     17   0  0  subtract (N) from (A)        *46‼46‼46‼46‼
          12522    127     127     11   0  3  jump A < Z                   >NO                 IS REQUIRED
          12523    126     126      8   1  1  set modification register                        S=5
          12524    126     126     14   0  1  leave subroutine             >M.R.
    12607>12525    124     125     31   1  1  set modification group                           NORMAL
          12526    106     126      8   1  0  select (N)                                       RESET MOD GROUP
          12527    102              2   1  0  transfer (A) to N                                SET UP MR1
          12528    100     126      2   1  1  replace registers                                RESTORE(A),(B),(C)
          12529    126     126     16   0  3  leave master routine         *063063             (19/0/1/0/157)
          12530    126     126     16   0  3  leave master routine         >PROGRAM
          12531    100              0   0  0  Halt                         MOD GROUP

          12600    PROCR   126       126     8TH COMML SWITCH CONT
          12602    100              0   0  0  Halt                         *1.2*1:2*1£2*382*392*4.2*5Ю2 (A)
          12603    100              0   0  0  Halt
          12604    100              0   0  0  Halt                         (B)
          12605    100              0   0  0  Halt
          12606    100              0   0  0  Halt                         (C)
          12607    124     125     25   1  0  unconditional jump           S=4
          12608    100     125      2   0  0  Halt                         PROGRAMME LINK
          12609    100              0   0  0  Halt                         START OF LAST CHAPTER
          12610    100              0   0  0  Halt                         ALARM NO FOR D/D
          12611    100              0   0  0  Halt                         PROG ID NO
          12612    100              0   0  0  Halt                         RUN&RERUN NO
          12613    100              0   0  0  Halt                         BIT PATTERN FOR OPTIONS
          12614    100     270      2   0  0  Halt                         *464                00004
          12615    100              0   0  0  Halt                         ADDRESS BEFORE FIRST OPTION
          12616    100              0   0  0  Halt                         I/P,O/P CONTROL LINK,LINK FOR SI=4
          12617    100              0   0  0  Halt                         ASSOC TIME/ORIG SWITCH SETTING
          12618    100              0   0  0  Halt                         TIME SPENT IN PROG
          12619    100              0   0  0  Halt

          12700    PROCR   127       127     COUNT INEFFECTIVE TIME
          12701     NOTES          RADIX     B
          12702    100              0   0  0  Halt                         *2£Ю
          12703    100              0   0  0  Halt
          12704    100              0   0  0  Halt
          12705    100              1   0  0  Halt                         *2£Ю
          12706    127     127     20   0  3  jump A < Z                   *££0*££2*3Ю32+3*3Ю32:3
          12707    127     127     21   0  3  jump A < Z                   *4‼3
          12708    102     182      2   0  0  transfer (A) to N            *293
          12709    124     166      2   0  2  select literal and division  *293743
          12710    127     127     22   0  3  jump A < Z                   *££2*4+3
    34718>
    38020>
    38026>
    38122>
    12522>
    12511>
    12509>
    12322>
    12311>
    12309>
    12122>
    12111>
    12109>
    11922>
    11911>
    11909>
    11722>
    11711>
    11709>
    11522>
    11511>
    11509>
    11322>
    11311>
    11309>
    11122>
    11111>
    11109>
    10823>
    10812>
  Source image: P1020649.JPG
    10811>12711    101     103      7   1  3  select literal address
          12712    102              2   0  0  transfer (A) to N                                SET UP MR1
          12713    105     221     43   0  0  subtract (N) from (A)        *16Ю TEST DELAY IN PROGRESS
          12714    127     379     58   0  3  jump A < Z                   *16Ю                >YES
          12715    125     0     4096   1  0  set indicators               *2£Ю                SET I13
          12716    106     104     12   1  0  select (N)                   HAVE I BEEN
          12717    104     127      4   1  0  add (N) to (A)               HERE LONG ENOUGH?
          12718    102     127      2   1  0  transfer (A) to N
    12726>12719    101            178   1  3  select literal address       *3Ю9*2+1*2:1
    12706>12720    101            218   1  3  select literal address       *3Ю9*2‼1*2Ю1
    12707>12721    101             24   1  3  select literal address       *4‼9
    12710>12722    101             60   1  3  select literal address       *4+9
          12723    107     104     12   1  0  augment (N) by (A)
          12724    106     104     12   1  0  select (N)
          12725    105     127      2   1  0  subtract (N) from (A)
          12726    127     127     19   0  3  jump A < Z                   *2£Ю*4‼3*4+3*3Ю32:3*3Ю32+3
          12727    125           4096   1  1  clear indicators
          12728    124     103      7   1  0  unconditional jump           *319
          12729    106     127     35   0  0  select (N)                   *312*31Ю2£Ю
          12730    124     127     33   1  0  unconditional jump           *31Ю2£Ю
    10028>12731    100     212      2   0  3  set radix                    SET BINARY
          12732    101              1   1  3  select literal address       AUGMENT COUNTER
    12730>12733    107            156   0  0  augment (N) by (A)
          12734    124     103      8   1  0  unconditional jump           *312
          12735    100            102   0  0  Halt                         *311

          12800    CONST   128       128     0    DUMMY

          12900    PROCR   129       129     MOD GROUP BLISTERS+W/LS.
          12902    128             26   1  1  bulk copy long numeric       *59Ю RESTORE
          12903    100     112      2   1  1  replace registers            MOD GROUP 3
          12904    126     112     16   0  3  leave master routine         >PROGRAM
          12905    128     129      8   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12906    100     129      8   0  0  Halt                         TABLE ENTRY
          12907    100              6   0  0  Halt
          12908    100              0   0  0  Halt                         MR 1
          12909    100              0   0  0  Halt
          12910    100              0   0  0  Halt                         MR 2
          12911    100              0   0  0  Halt
          12912    100              0   0  0  Halt                         MR 3
          12913    100              0   0  0  Halt
          12914    128             26   1  1  bulk copy long numeric       *1.2 RESTORE
          12915    100     114      2   1  1  replace registers            MOD GROUP 3
  Source image: P1020650.JPG
          12916    126     114     16   0  3  leave master routine         >PROGRAM
          12917    128     129     20   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12918    100     129     20   0  0  Halt                         TABLE ENTRY
          12919    100              6   0  0  Halt
          12920    100              0   0  0  Halt                         MR1
          12921    100              0   0  0  Halt
          12922    100              0   0  0  Halt                         MR2
          12923    100              0   0  0  Halt
          12924    100              0   0  0  Halt                         MR3
          12925    100              0   0  0  Halt
          12926    128             26   1  1  bulk copy long numeric       *1:2 RESTORE
          12927    100     116      2   1  1  replace registers            MOD GROUP 3
          12928    126     116     16   0  3  leave master routine         >PROGRAM
          12929    128     129     32   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12930    100     129     32   0  0  Halt                         TABLE ENTRY
          12931    100              6   0  0  Halt
          12932    100              0   0  0  Halt                         MR 1
          12933    100              0   0  0  Halt
          12934    100              0   0  0  Halt                         MR 2
          12935    100              0   0  0  Halt
          12936    100              0   0  0  Halt                         MR 3
          12937    100              0   0  0  Halt
          12938    128             26   1  1  bulk copy long numeric       *1£2 RESTORE
          12939    100     118      2   1  1  replace registers            MOD GROUP 3
          12940    126     118     16   0  3  leave master routine         >PROGRAM
          12941    128     129     44   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12942    100     129     44   0  0  Halt                         TABLE ENTRY
          12943    100              6   0  0  Halt
          12944    100              0   0  0  Halt                         MR1
          12945    100              0   0  0  Halt
          12946    100              0   0  0  Halt                         MR2
          12947    100              0   0  0  Halt
          12948    100              0   0  0  Halt                         MR3
          12949    100              0   0  0  Halt
          12950    128             26   1  1  bulk copy long numeric       *382 RESTORE
          12951    100     120      2   1  1  replace registers            MOD GROUP 3
          12952    126     120     16   0  3  leave master routine         >PROGRAM
          12953    128     129     56   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12954    100     129     56   0  0  Halt                         TABLE ENTRY
          12955    100              6   0  0  Halt
          12956    100              0   0  0  Halt                         MR1
          12957    100              0   0  0  Halt
          12958    100              0   0  0  Halt                         MR2
          12959    100              0   0  0  Halt
          12960    100              0   0  0  Halt                         MR3
          12961    100              0   0  0  Halt
          12962    128             26   1  1  bulk copy long numeric       *392 RESTORE
          12963    100     122      2   1  1  replace registers            MOD GROUP 3
          12964    126     122     16   0  3  leave master routine         >PROGRAM
          12965    128     129     68   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12966    100     129     68   0  0  Halt                         TABLE ENTRY
          12967    100              6   0  0  Halt
          12968    100              0   0  0  Halt                         MR1
          12969    100              0   0  0  Halt
          12970    100              0   0  0  Halt                         MR2
          12971    100              0   0  0  Halt
          12972    100              0   0  0  Halt                         MR3
          12973    100              0   0  0  Halt
          12974    128             26   1  1  bulk copy long numeric       *4.2 RESTORE
          12975    100     124      2   1  1  replace registers            MOD GROUP 3
          12976    126     124     16   0  3  leave master routine         >PROGRAM
          12977    128     129     80   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12978    100     129     80   0  0  Halt                         TABLE ENTRY
          12979    100              6   0  0  Halt
          12980    100              0   0  0  Halt                         MR 1
          12981    100              0   0  0  Halt
  Source image: P1020651.JPG
          12982    100              0   0  0  Halt                         MR 2
          12983    100              0   0  0  Halt
          12984    100              0   0  0  Halt                         MR 3
          12985    100              0   0  0  Halt
          12986    128             26   1  1  bulk copy long numeric       *5Ю2 RESTORE
          12987    100     126      2   1  1  replace registers            MOD GROUP 3
          12988    126     126     16   0  3  leave master routine         >PROGRAM
          12989    128     129     92   1  1  bulk copy long numeric       LOC 3 OF SWITCH
          12990    100     129     92   0  0  Halt                         TABLE ENTRY
          12991    100              6   0  0  Halt
          12992    100              0   0  0  Halt                         MR 1
          12993    100              0   0  0  Halt
          12994    100              0   0  0  Halt                         MR 2
          12995    100              0   0  0  Halt
          12996    100              0   0  0  Halt                         MR 3
          12997    100              0   0  0  Halt

          13000    CONST   130       130     1    MASTER ROUTINE SPECIAL CHAPTER
          13002          (D)0;                                             W/L'S FOR OPEN
          13004          0;                                                OUTPUT FILE
          13006          0;
          13008          0;
          13010          0;
          13012          0;
          13014          0;
          13016          0;
          13018          0;
          13020          0;
          13022          0;
          13024          (D)0;                                             W/L'S FOR COMMENT
          13026          0;
          13028          0;
          13030          0;
          13032          0;
          13034          0;
          13036          0;
          13038          0;
          13040          0;
          13042          0;
          13044          0;
          13046          0;
          13048          0;
          13050          0;

          13100    PROCR   131       131     DUMMY HEADINGS FOR DESCRIPTION OF USES OF WL'S IN SPECIAL CHAPS
          13101     NOTES                         ALSO IS THE REMAINDER OF THE MASTER'S SPECIAL CHAP

          13200    PROCR   132       132     (1)IND MT O/P D/B   (2)IND PRINTER W/E
          13201     NOTES          156            156 (3)S/R LINK PT O/P BLOCK S/R (4)IND OPEN M/T I/P REEL
          13202    100              0   0  0  Halt

          13300    PROCR   133       133     (1)W/E IND PT O/P   (2)RTE TYPE DURING PRINTER W/E
          13301     NOTES          157            157  (3)RTE TYPE DURING SNT COMMENT
          13302    100              0   0  0  Halt

          13400    PROCR   134       134     (1)SR LINK DEALING WITH OPT 8-PT/CARD INPUT=RETURN ADDRESS
          13401     NOTES          158            IND IN OPEN MT I/P REEL
          13402    100              0   0  0  Halt

          13500    PROCR   135       135     CH CH RT FOR MULTI-CHANNEL LOADING
          13501     NOTES          159
          13502    100              0   0  0  Halt

          13600    PROCR   136       136     MAIN'DB HAS OCCURRED'IND-SET JUST BEFORE THE DB IS TO BE DEALT WI
          13601     NOTES          160            EXTRACTED FROM LIST OF DB BY CHANNEL/ROUTE
          13602    100              0   0  0  Halt

  Source image: P1020652.JPG
          13700    PROCR   137       137     COPY OF SR LINK'STEP BACK(A)BLOCKS,FWD 1 BLOCK'
          13701     NOTES          161
          13702    100              0   0  0  Halt

          13800    PROCR   138       138     RETURN LINK SET UP BEFORE ENTERING MISALIGNMENT FAILURE S/R
          13801     NOTES          162            162
          13802    100              0   0  0  Halt

          13900    PROCR   139       139     COPY OF ASL DURING OPEN MT OUTPUT REEL
          13901     NOTES          163            163
          13902    100              0   0  0  Halt

          14000    PROCR   140       140     IND THAT'CHANGE DECK'IN PROGRESS
          14001     NOTES          164            USED ONLY DURING REOPENING MT FILE
          14002    100              0   0  0  Halt

          14100    PROCR   141       141     COPY OF SR LINK'RUN FWD,STEP FWD.READ'SR
          14101     NOTES          165            RE-OPENING MT FILE
          14102    100              0   0  0  Halt

          14200    PROCR   142       142     COPY OF LINK INK IN'READ AND TEST BLOCK'SR
          14201     NOTES          166
          14202    100              0   0  0  Halt

          14300    PROCR   143       143     CTR FOR'NUMBER OF ATTEMPTS'WHEN RE-READING/WRITING MT DB
          14301     NOTES          167
          14302    100              0   0  0  Halt

          14400    PROCR   144       144     COPY OF SR LINKS IN'OPEN MT IN','OPEN MT OUT'
          14401     NOTES          168            AND'READ,TEST SENTINEL'FOR PT/CARD INPUT
          14402    100              0   0  0  Halt

          14500    PROCR   145       145     (1)S/R LINK REQUEST T/W FOR OPTIONS AND REQUEST MR FOR OVERLAY OR
          14501     NOTES          169            169 (2)START OF COMMENT(3)BLOCK CTR FOR CHANGE REEL IN STEP
          14502    100              0   0  0  Halt

          14600    PROCR   146       146     OPTION 13-'CHANGE MT DECK':BLOCK SERIAL TO BE ALIGNED ON AFTERWAR
          14601     NOTES          170
          14602    100              0   0  0  Halt

          14700    PROCR   147       147     COPY OF 162 SET UP BEFORE*2
          14701     NOTES          171
          14702    100              0   0  0  Halt

          14800    PROCR   148       148     COPY OF 183 DURING OPTION 13
          14801     NOTES          172
          14802    100              0   0  0  Halt

          14900    PROCR   149       149     S/R LINK FOR ALIGNMENT FAILURE-BLOCK 6 TEST
          14901     NOTES          173            173  ALIGNMENT FAILURE-REREAD AND SER COMMENT
          14902    100              0   0  0  Halt

          15000    PROCR   150       150     INTERCODE ROUTE TYPE WHEN DEALING WITH DB ON MT
          15001     NOTES          174            WHEN TYPE IN SWITCH IS ALTERED TO BECOME SR LINK
          15002    100              0   0  0  Halt

          15100    PROCR   151       151     IND WITHIN'MT ALIGNMENT FAILURE'GIVING USE OF ROUTE
          15101     NOTES          175            0=INPUT,2=OUTPUT AT PRESENT MOMENT
          15102    100              0   0  0  Halt

          15200    PROCR   152       152     WL FOR'SWITCH 101'ORDERS IN TYPING COMMENTS
          15201     NOTES          176            26/0/0 ORDERS OR'CLEAR A'ORDER
          15202    100              0   0  0  Halt

          15300    PROCR   153       153     COUNTER N USED IN VARIOUS STEP BACK
  Source image: P1020654.JPG
          15301     NOTES          177            177  AND STEP FORWARD ROUTINES
          15302    100              0   0  0  Halt

          15400    PROCR   154       154     178,179=FIRST WORD OF MT BLOCK FOR REWRITING
          15401     NOTES          178            IN DB ON MT OUTPUT
          15402    100              0   0  0  Halt

          15500    PROCR   155       155     SEE 178
          15501     NOTES          179
          15502    100              0   0  0  Halt

          15600    PROCR   156       156     (1)IND PP DURING RUN FORWARD AND BACK 0=FORWARD 15=BACKWARDS
          15601     NOTES          180            180 (2) CTR M=NO BLOCKS TO BE STEPPED BACK IN STEP BACK ROUT
          15602    100              0   0  0  Halt

          15700    PROCR   157       157     (1)CTR QQ=NO TIMES DIRECTION CHANGED DURING RUN FORWARD AND BACK
          15701     NOTES          181            181 (2) IND N FOR STEP FORWARD OR BACK ZERO=O/P NON ZERO=1/P
          15702    100              0   0  0  Halt

          15800    PROCR   158       158     WORD 6 OF MT BLOCK IN OPEN FILE=PRESUMED SPOOL NUMBER
          15801     NOTES          182            FROM BLOCK AFTER'RUN FWD+STEP FWD+READ'
          15802    100              0   0  0  Halt

          15900    PROCR   159       159     COPY OF LINK IN'ALIGNMENT FAILURE'SR-MT
          15901     NOTES          183            COPY OF LINK IN P/T O/P SR
          15902    100              0   0  0  Halt

          16000    PROCR   160       160     DEC MT BLOCK NO FOUND,FOR'SER'COMMENT IN MT ALIGNMENT FAILURE
          16001     NOTES          184
          16002    100              0   0  0  Halt

          16100    PROCR   161       161     BINARY CTR OF ATTEMPTS AT REREADING
          16101     NOTES          185            BECAUSE OF MT SERIAL FAILURE
          16102    100              0   0  0  Halt

          16200    PROCR   162       162     NUMBER OF BLOCKS STEPPED BACK IN AN ATTEMPT TO REALIGN
          16201     NOTES          186            186  DURING ALIGNMENT FAILURE S/R
          16202    100              0   0  0  Halt

          16300    PROCR   163       163     INDICATOR SET BEFORE*2
          16301     NOTES          187            187  USED IN OPTION 13
          16302    100              0   0  0  Halt

          16400    PROCR   164       164     NON-ZERO IF PT O/P IS IN NON-STD MODE
          16401     NOTES          188            ONLY 1 SUCH FILE PERMITTED PER PROGRAM
          16402    100              0   0  0  Halt

          16500    PROCR   165       165     OPEN FILE INDICATOR IN OPTION 13
          16501     NOTES          189            189
          16502    100              0   0  0  Halt

          16600    PROCR   166       166     190,191,ANNEX FOR P/T O/P(P/T O/P ASSEMBLER)
          16601     NOTES                         190   USED IN INTERRUPTIBLE COUNT 500 MS
          16602    100              0   0  0  Halt

          16700    PROCR   167       167     SEE 190
          16701     NOTES          191            191
          16702    100              0   0  0  Halt

          16800    PROCR   168       168     P/T O/P W/L WORD MODIFIER
          16801     NOTES          192            192
          16802    100              0   0  0  Halt

          16900    PROCR   169       169     P/T O/P W/L CHARACTER MODIFIER(GP ASSEMBLER)
          16901     NOTES          193            193
          16902    100              0   0  0  Halt

  Source image: P1020655.JPG
          17000    PROCR   170       170     P/T O/P W/L CONTENTS OF 64+R
          17001     NOTES          194            194
          17002    100              0   0  0  Halt

          17100    PROCR   171       171     P/T O/P W/L FILE IDENTITY
          17101     NOTES          195            195
          17102    100              0   0  0  Halt

          17200    PROCR   172       172     P/T O/P W/L REEL COUNTER
          17201     NOTES          196            196
          17202    100              0   0  0  Halt

          17300    PROCR   173       173     S/R LINK WRITE FINIS BLOCK,WRITE END OF TAPE INFORMATION
          17301     NOTES          197
          17302    100              0   0  0  Halt

          17400    CONST   174       174     0    WORKING LOCATIONS-OMIT SPACES
          17402          (B)0;                                             *5:Ю OUT MODIFIER
          17403          4128;                                             OUT MODIFIER
          17404          0;                                                SPARE
          17405          8;                                                PACK IN MODIFIER
          17406          4118;                                             INDICATOR SPACES
          17407          0;                                                INDICATOR L/E'S

          17500    PROCR   175       175     LOG REQUEST QUEUE
          17502    100              0   0  0  Halt                         OPTION REQ
          17503    100              0   0  0  Halt                         OPTION OUTSTANDING INDICATOR
          17504    100              0   0  0  Halt                         MASTER REQ
          17505    100     106      2   0  0  Halt
          17506    100              0   0  0  Halt                         PROG 1 REQ
          17507    100     111      2   0  0  Halt
          17508    100              0   0  0  Halt                         *1.2                PROG 2 REQ
          17509    100     113      2   0  0  Halt
          17510    100              0   0  0  Halt                         *1:2                PROG 3 REQ
          17511    100     115      2   0  0  Halt
          17512    100              0   0  0  Halt                         *1£2                PROG 4 REQ
          17513    100     117      2   0  0  Halt
          17514    100              0   0  0  Halt                         *382                PROG 5 REQ
          17515    100     119      2   0  0  Halt
          17516    100              0   0  0  Halt                         *392                PROG 6 REQ
          17517    100     121      2   0  0  Halt
          17518    100              0   0  0  Halt                         *4.2                PROG 7 REQ
          17519    100     123      2   0  0  Halt
          17520    100              0   0  0  Halt                         *5Ю2                PROG 8 REQ
          17521    100     125      2   0  0  Halt

          17600    PROCR   176       176     REQUEST TYPEWRITER FOR OPTIONS
          17601     NOTES          RADIX     B
          17602    100              0   0  0  Halt                         LINK
          17603    106     176      2   0  0  select (N)                   STORE LINK
          17604    124              3   0  1  modify address of next
          17605    102            169   0  0  transfer (A) to N
          17606    106     175      3   0  0  select (N)                                       TEST OPTION
          17607    127     176     19   0  1  jump A != Z                  >YES                OUTSTANDING
          17608    126     359      2   0  0  enter subroutine             >RESTORE SI=3
          17609    106     210      3   0  0  select (N)
          17610    102     175      3   0  0  transfer (A) to N            SET OPTION OUTSTANDING INDICATOR
          17611    126     177      2   0  0  enter subroutine             >REQUEST T/W
          17612    124     104      6   1  3  store indicators             SET UP (P)
          17613    125           8191   1  1  clear indicators             CLEAR I1-I13
          17614    125            128   1  0  set indicators               SET I8
          17615    106     210      3   0  0  select (N)
          17616    102     103      2   0  0  transfer (A) to N            SET LL1
          17617    124              3   0  1  modify address of next
          17618    126            169   0  1  leave subroutine             >LEAVE S/R
  Source image: P1020656.JPG
    17607>17619    124     176      6   0  2  select literal and division
          17620    102             42   0  1  transfer (A) to N
          17621    126     360      2   0  0  enter subroutine             >SET SI=5
    39210>17622    124              2   0  1  modify address of next
          17623    124              9   1  0  unconditional jump           >SI+9

          17700    PROCR   177       177     REQUEST TYPEWRITER
          17701     NOTES          RADIX     B
          17702    100              0   0  0  Halt                         LINK
          17703    126     179      2   0  0  enter subroutine             >SEARCH LOG QUEUE S/R
          17704    106     177      2   0  0  select (N)                   SET REQUEST WITH LINK
          17705    102     175      4   0  3  transfer (A) to N
          17706    106              9   0  1  select (N)                   SET SPI=2
          17707    102              7   0  1  transfer (A) to N
    20115>17708    106     104      5   0  0  select (N)                   SET L6=1
          17709    102     103     27   0  0  transfer (A) to N
          17710    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE

          17800    PROCR   178       178     RESET REQUEST
    10329>17802    106     175      2   0  3  select (N)                   STORE RETURN LINK
          17803    102     103     19   0  0  transfer (A) to N
          17804    102     175      2   0  3  transfer (A) to N            RESET REQUEST
          17805    106              6   0  0  select (N)                                       TEST ANSWER
          17806    127     180      2   0  0  jump A = Z                   >YES                TO OPTION
          17807    125              0   1  2  interrogate indicators
          17808    124              6   0  1  modify address of next
          17809    124     175      3   0  1  modify address of next
          17810    126             36   1  1  set modification register    SET UP MR1
          17811    126     103     19   0  1  leave subroutine             >RETURN

          17900    PROCR   179       179     SEARCH LOG REQUEST QUEUE
          17902    100              0   0  0  Halt                         LINK
          17903    101              0   1  3  select literal address       CLEAR MODIFIER
          17904    102     106      9   0  0  transfer (A) to N
          17905    126     106      9   1  3  set modification register    MR3 START/END LOG QUEUE
    17910>17906    106              2   0  0  select (N)                   TEST NEXT ENTRY IN
          17907    105     175      5   0  3  subtract (N) from (A)        LOG QUEUE FOR THIS PROGRAM
          17908    127     179     12   0  0  jump A = Z                   >YES
          17909    125              2   0  3  step on and test             TEST END OF QUEUE
          17910    124     179      6   1  0  unconditional jump           >NO NEXT ENTRY
          17911    124     208     19   1  0  unconditional jump
    17908>17912    126     179      2   0  1  leave subroutine             >LEAVE S/R

          18000    PROCR   180       180     TYPEWRITER ANSWER TO OPTIONS
          18001     NOTES          RADIX     B    PREPARE TO OUTPUT
    17806>18002    126     234      2   0  0  enter subroutine             >S/R H
          18003    101     197      2   1  3  select literal address       SELECT TABLE-START LOCN.
          18004    128     102      6   1  2  edit fixed field formats     SET UP COMMENT IN T/W ANNEXE

          18100    PROCR   181       181     TYPEWRITER PREPARE TO OUTPUT
          18101     NOTES          RADIX     B
    20308>
    20609>
    20729>
    20818>
    24019>
    33514>
    33612>
    45221>
    45515>
    45835>
    47808>
    53503>18102    106     108     26   0  0  select (N)                   SET L1=1
          18103    102     103     10   0  0  transfer (A) to N
          18104    106     103     20   0  0  select (N)                   SET L5=1
          18105    102     182     24   0  0  transfer (A) to N            *293
  Source image: P1020657.JPG
          18106    101     102      4   1  3  select literal address
          18107    103     104      8   0  0  copy (A) to N                SET UP '(64+R)'
          18108    102     104      9   0  0  transfer (A) to N
          18109    101           4118   1  3  select literal address       *5:Ю*292 SET UP
          18110    103     174      2   0  0  copy (A) to N                MODIFIERS FOR PICK UP
          18111    102     174      6   1  0  transfer (A) to N            INDICATOR
          18112    101              8   1  3  select literal address
          18113    102     174      5   0  0  transfer (A) to N            MODIFIER FOR PACK IN
          18114    101              3   1  3  select literal address       TEST OMIT CATEGORY SET
          18115    126     332      2   0  0  enter subroutine
          18116    127     181     19   0  0  jump A = Z                   >DON'T OMIT
          18117    106     182     63   0  0  select (N)                   SET UP SWITCH
          18118    124     181     20   1  0  unconditional jump
    18116>18119    106     182     62   0  0  select (N)
    18118>18120    102     182     26   0  0  transfer (A) to N
          18121    102            154   1  0  transfer (A) to N            *5:Ю*292
          18122    106     212     14   1  0  select (N)                   *262 SET IND MOD REG 10/0
          18123    102     198      8   1  0  transfer (A) to N
          18124    101              3   1  3  select literal address       *5:Ю OMIT CATEGORY
          18125    126     332      2   0  0  enter subroutine             TEST SET
          18126    127     181     29   0  0  jump A = Z                   >DON'T OMIT
          18127    106     182     14   0  0  select (N)                   SET UP SWITCH
          18128    124     181     30   1  0  unconditional jump
    18126>18129    106     181     42   0  0  select (N)
    18128>18130    102     182      5   0  0  transfer (A) to N            *5:Ю
          18131    100     198      2   1  2  replace (B) by (N)           BITS 1-6 IN EACH OCTET
          18132    124     104      9   0  1  modify address of next       COLLATE WORD TO BE OUTPUT
          18133    115              0   1  0  collate and add
          18134    102     198     10   1  0  transfer (A) to N            *262 STORE
          18135    124            154   0  2  select literal and division  *293743 SET UP ASL
          18136    124     100     37   0  1  modify address of next
          18137    102             64   0  0  transfer (A) to N
          18138    106     209      4   0  0  select (N)
          18139    105     100     37   0  0  subtract (N) from (A)        SET SL=1
          18140    102     103      9   0  0  transfer (A) to N
          18141    124     103      9   1  0  unconditional jump           >TEST ROUTE
          18142    124     182     14   1  0  unconditional jump           *262*5:9
          18143    124     182     78   1  0  unconditional jump           *££0*££2*293
          18144    102     182      2   0  0  transfer (A) to N            *293293
          18145    124     182      2   1  0  unconditional jump           *292293
          18146    106     182      2   0  0  select (N)                   *291293
          18147    103     166      2   1  0  copy (A) to N                *743
          18148    106     166      2   1  0  select (N)                   *743743
          18149    102     166      2   1  0  transfer (A) to N            *743743743*293743

          18200    PROCR   182       182     TYPEWRITER MAIN OUTPUT LOOP
          18201     NOTES          RADIX     B
    18145>
    10027>
    10025>18202    106     198     10   1  0  select (N)                   *262 SELECT COLLATED WORD SWITCH L5
          18203    124     198      8   0  1  modify address of next
          18204    118           4120   0  0  shift logical                CHARACTER TO BE OUTPUT IN
          18205    118              8   0  0  shift logical                *5:Ю ***** ALIGN TO Q1
          18206    118           4120   0  0  shift logical                ALIGN TO Q1
          18207    103            154   1  0  copy (A) to N                *743 STORE WORD
          18208    127     182     88   0  0  jump A = Z                   >SPACE
          18209    101             61   1  2  subtract literal address     IS A N/E
          18210    127     182     88   0  0  jump A = Z                   >YES
          18211    101              1   1  3  select literal address
          18212    102     182     87   0  0  transfer (A) to N            SET INDICATOR
          18213    106            154   1  0  select (N)                   *5:Ю*743743
    18292>
    18142>18214    118              8   0  0  shift logical                833-38
          18215    102            154   1  0  transfer (A) to N            *743743743
          18216    124     100     37   0  1  modify address of next       OUTPUT
          18217    119              0   0  0  output
  Source image: P1020658.JPG
    18294>18218    102     182     95   0  0  transfer (A) to N            *5:9
          18219    123              2   0  0  step on and test             STEP AND TEST INDIRECT MOD REGISTER
          18220    100     198      8   0  0  Halt
          18221    124     184      4   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE
          18222    101             15   0  1  prepare for digit collation                      TEST END OF BLOCK
          18223    115     198     10   1  0  collate and add              *262 COLLATE WORD JUST OUTPUT
    18254>
    18624>
    10318>
    10314>18224    124     104      9   0  1  modify address of next       *292
          18225    106              0   1  0  select (N)                   TO BE OUTPUT
          18226    124     174      2   0  1  modify address of next       *5:Ю *****
          18227    118              0   1  0  shift logical                ALIGN CHARACACTER
          18228    118              2   1  3  shift binary                 TO BITS 1-6 OF
          18229    101              0   1  3  select literal address       REGISTER A
          18230    118              6   1  3  shift binary
          18231    127     183      2   0  0  jump A = Z                   >ZERO
          18232    101             30   1  2  subtract literal address
          18233    127     183      9   0  0  jump A = Z                   >L/E
          18234    101             31   1  2  subtract literal address
          18235    127     183      2   0  0  jump A = Z                   >N/E
          18236    101              1   1  2  subtract literal address
          18237    127     183      7   0  0  jump A = Z                   >B/E
          18238    101             62   1  1  add literal address
    18308>18239    103     174      6   1  0  copy (A) to N                SET INDICATOR
    18306>
    18314>
    18323>18240    101              3   0  1  prepare for digit collation  SET B
          18241    124     174      5   0  1  modify address of next       ALIGN CHARACTER
          18242    118              0   1  0  shift logical
          18243    114            154   1  0  replace selected bits        PACK IN CHARACTER
          18244    106     182     64   0  0  select (N)                   STEP PACK IN
          18245    107     174      5   0  0  augment (N) by (A)           MODIFIER
    18303>18246    123              2   0  0  step on and test             STEP PICK UP
          18247    100     174      2   0  0  Halt                         MODIFIER
          18248    124     182     53   1  0  unconditional jump           >NEXT CHARACTER
          18249    101              2   1  3  select literal address
          18250    107     104      9   0  0  augment (N) by (A)           WORD MODIFIER
          18251    101           4118   1  3  select literal address       RESET PICK UP
          18252    102     174      2   0  0  transfer (A) to N            MODIFIER
    18248>18253    106     174      5   0  0  select (N)                   TEST END OF O/P WORD
          18254    127     182     24   0  2  jump A >= Z                  >NO
          18255    124     100     37   0  1  modify address of next       OUTPUT WORD
          18256    119              0   0  0  output
          18257    101              8   1  3  select literal address       RESET MODIFIER
          18258    102     174      5   0  0  transfer (A) to N
          18259    106     174      7   0  0  select (N)                   TEST SECOND L/E
          18260    127     184      2   0  3  jump A < Z                   >YES
          18261    124     184      4   1  0  unconditional jump           UPDATE ASSEMBLER TABLE
          18262    124     182     65   1  0  unconditional jump
          18263    124     174      2   0  1  modify address of next
          18264    116              2   0  0  Invalid                      *5:Ю
    18262>18265    102            154   1  0  transfer (A) to N
          18266    126     402      2   0  0  enter subroutine             >TEST FOR B/E
          18267    124     182     84   1  0  unconditional jump           >B/E FOUND
          18268    124     100     37   0  1  modify address of next       OUTPUT
          18269    119              0   0  0  output
          18270    125              0   1  2  interrogate indicators       DRAIN
          18271    100     109     20   0  2  replace (B) by (N)
          18272    115            154   1  0  collate and add              *292
          18273    101           7710   1  2  subtract literal address     TEST FOR 2 L/E'S IN LAST WORD
          18274    127     184      2   0  0  jump A = Z                   >YES
          18275    106     212      6   0  0  select (N)                   STEP INDIRECT MOD TOO/P NEXT WORD
          18276    107     104      9   0  0  augment (N) by (A)
          18277    125              0   1  2  interrogate indicators
    18143>18278    102     198      8   0  0  transfer (A) to N            *262
  Source image: P1020659.JPG
          18279    100     198      2   1  2  replace (B) by (N)           BITS 1-6 IN EACH OCTET
          18280    124     104      9   0  1  modify address of next       COLLATE WORD TO BE OUTPUT
          18281    115              0   1  0  collate and add
          18282    102     198     10   1  0  transfer (A) to N            *262 STORE
          18283    124     184      4   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE
    18267>18284    115     198      6   1  0  collate and add              *292 COLLATE OUT?
          18285    114            154   1  0  replace selected bits
          18286    124     402     11   1  0  unconditional jump           *292
          18287    100              0   0  0  Halt                         *262*5:Ю
    18210>
    18208>18288    106     182     87   0  0  select (N)                   TEST INDICATOR SET
          18289    127     182     93   0  0  jump A = Z                   NO
          18290    101              0   1  3  select literal address       SET INDICATOR
          18291    102     182     87   0  0  transfer (A) to N            ZERO
          18292    124     182     14   1  0  unconditional jump            OUTPUT CHARACTER
    18289>18293    101              1   1  3  select literal address       INDICATOR FOR
          18294    124     182     18   1  0  unconditional jump
          18295    100              0   0  0  Halt                         *262*5:Ю

          18300    PROCR   183       183     CONT
    18235>
    18231>18302    106     174      6   0  0  select (N)                   *5:Ю*292 TEST FIRST SPACE OR N/E
          18303    127     182     46   0  0  jump A = Z                   >NO
    18319>18304    101              0   1  3  select literal address       SET INDICATOR
          18305    102     174      6   0  0  transfer (A) to N
          18306    124     182     40   1  0  unconditional jump           >OUTPUT SPACE
    18237>18307    101             29   1  3  select literal address       SELECT?
          18308    124     182     39   1  0  unconditional jump           >OUTPUT?
    18233>18309    106     174      7   0  0  select (N)                   TEST FIRST L/E
          18310    127     183     15   0  1  jump A != Z                  >NO
          18311    101              1   1  3  select literal address       SET L/E INDICATOR
          18312    102     174      7   0  0  transfer (A) to N
          18313    101             30   1  3  select literal address       L/E
          18314    124     182     40   1  0  unconditional jump           >
    18310>18315    106     174      5   0  0  select (N)
          18316    127     183     20   0  0  jump A = Z
          18317    106     182     64   0  0  select (N)
          18318    107     174      2   0  0  augment (N) by (A)
          18319    124     183      4   1  0  unconditional jump           >OUTPUT SPACE
    18316>18320    101              1   1  2  subtract literal address
          18321    103     174      7   0  0  copy (A) to N                >OUTPUT L/E
          18322    101             30   1  3  select literal address
          18323    124     182     40   1  0  unconditional jump           >OUTPUT L/E

          18400    PROCR   184       184     TYPEWRITER PROCEDURE AT END OF WORD
          18401     NOTES          RADIX     B
    18274>
    18260>18402    106     103     21   0  0  select (N)                   SET L5=2
          18403    102     182     24   0  0  transfer (A) to N            *293293
    18512>
    18283>
    18261>
    18221>18404    100     210     10   0  2  replace (B) by (N)           SET(MR3)=8*CH NO
          18405    115     100     37   0  0  collate and add
          18406    102              6   1  0  transfer (A) to N
          18407    106     182     95   0  0  select (N)                   *262*5:Ю TEST O/P THIS TIME
          18408    127     103      9   0  1  jump A != Z                  *262*5:Ю >TEST ROUTE
          18409    106     100     37   1  0  select (N)                   UPDATE ASSEMBLER TABLE
          18410    102     252      2   1  3  transfer (A) to N
          18411    124     103      9   1  0  unconditional jump           >TEST ROUTE

          18500    PROCR   185       185     TYPEWRITER END OF BLOCK ROUTINE
          18501     NOTES          RADIX     B
    10321>18502    106     103      3   0  0  select (N)                   SELECT LL2          TEST COMMAND HAS
          18503    127     103     23   0  0  jump A = Z                   >NO                 BEEN IGNORED
          18504    125              0   1  2  interrogate indicators       SET LL2=0
  Source image: P1020660.JPG
          18505    102     103      3   0  0  transfer (A) to N
          18506    101     105      4   1  3  select literal address       SELECT START LOCN OF COMMENT
          18507    103     104      8   0  0  copy (A) to N                SET UP (64+R)
          18508    102     104      9   0  0  transfer (A) to N
    18718>18509    106     103     20   0  0  select (N)                   SET L5=1
          18510    102     182     24   0  0  transfer (A) to N            *293293
          18511    102     182     95   0  0  transfer (A) to N            *5:9*262 CLEAR CHARACTER O/P INDICATOR
          18512    124     184      4   1  0  unconditional jump           *293 >UPDATE ASSEMBLER TABLE

          18600    PROCR   186       186     TYPEWRITER ROUTE CLOSED ROUTINE
          18601     NOTES          RADIX     B
    10826>
    10310>18602    124     104      7   1  3  store indicators             SET UP (Q)
          18603    106     182     24   0  0  select (N)                   *291293
          18604    102     103     19   0  0  transfer (A) to N
          18605    105     212      5   0  0  subtract (N) from (A)        SET L1=2
          18606    107     103     10   0  0  augment (N) by (A)
          18607    106     103     22   0  0  select (N)                   SET L5=3
          18608    102     182     24   0  0  transfer (A) to N            *293293
          18609    124     186     14   1  0  unconditional jump           >
          18610    125           4095   1  2  interrogate indicators       I1-I12              TEST IF OP HAS
          18611    101           3840   1  2  subtract literal address     B9-B12              STACKED INDS
          18612    127     103      9   0  0  jump A = Z                   >NO, TEST ROUTE
          18613    102     103      3   0  0  transfer (A) to N            SET LL2
    18609>18614    125           8191   1  1  clear indicators             I1-I13
          18615    125           3840   1  0  set indicators               I9-I12
          18616    124     103      9   1  0  unconditional jump           >TEST ROUTE
    10322>18617    106     108     26   0  0  select (N)                   SET L1=1
          18618    102     103     10   0  0  transfer (A) to N
          18619    106     103     19   0  0  select (N)                   RESET L5 AT PREVIOUS SETTING
          18620    102     182     24   0  0  transfer (A) to N            *293293
          18621    125           8191   1  1  clear indicators             I1-I13
          18622    124     104      7   0  1  modify address of next       RESET (I)=(Q)
          18623    125              0   1  0  set indicators
          18624    124     182     24   1  0  unconditional jump           *292293

          18700    PROCR   187       187     TYPEWRITER DOUBTFUL BLOCK ROUTINE
          18701     NOTES          RADIX     B
    27504>18702    125           2048   1  2  interrogate indicators                           TEST I12 SET
          18703    127     187      7   0  0  jump A = Z                   >NO
          18704    125           8191   1  1  clear indicators             CLEAR I1-I13
          18705    124     104      7   0  1  modify address of next       RESET (I)=(Q)
          18706    125              0   1  0  set indicators
    18703>18707    106     103     18   0  0  select (N)                   SET SLAS=1
          18708    102     103     14   0  0  transfer (A) to N
          18709    106     198      4   1  0  select (N)                   L/E FOR O/P
          18710    102            154   1  0  transfer (A) to N            *293743
          18711    124     100     37   0  1  modify address of next
          18712    119              0   0  0  output
          18713    106     104      8   0  0  select (N)                   SET UP(64+R)
          18714    105     212      6   0  0  subtract (N) from (A)
          18715    102     104      9   0  0  transfer (A) to N
          18716    106     108     26   0  0  select (N)                   SET L1=1
          18717    102     103     10   0  0  transfer (A) to N
          18718    124     185      9   1  0  unconditional jump           >
          18719    100     477      8   0  0  Halt                         *££0*££2*41‼
          18720    100     477      8   0  0  Halt                         *09‼08‼07‼5:‼69‼68‼67‼66‼6Ю‼86‼86‼
          18721    127     199     19   0  1  jump A != Z                  *163 >NO
          18722    124     477      8   1  0  unconditional jump           *14‼
          18723    126     385      2   0  0  enter subroutine             *163163
          18724    127     202      2   0  0  jump A = Z                   *463163 >YES
          18725    105     221     38   0  0  subtract (N) from (A)        *85‼

          18800    CONST   188       188     1    ROUTE NUMBER AND TYPE
          18802          (D)0;

  Source image: P1020661.JPG
          18900    PROCR   189       189     MAGNETIC FILE DETAILS

          19000    CONST   190       190     1    MAGNETIC TAPE FILE DETAILS
          19002          (D)0;                                             BLOCK COUNTER
          19004          0;
          19006          0;
          19008          0;
          19010          0;                                                *222
          19012          0;
          19014          0;
          19016          0;
          19018          0;                                                *232
          19020          0;
          19022          0;
          19024          0;
          19026          0;                                                *242
          19028          0;
          19030          0;
          19032          0;                                                *222*232*242
          19034          0;                                                REEL COUNTER
          19036          0;
          19038          0;
          19040          0;
          19042          0;                                                *222
          19044          0;
          19046          0;
          19048          0;
          19050          0;                                                *232
          19052          0;
          19054          0;
          19056          0;
          19058          0;                                                *242
          19060          0;
          19062          0;
          19064          0;                                                *222*232*242
          19066          0;                                                PROGRAMME NUMBER
          19068          0;
          19070          0;
          19072          0;
          19074          0;                                                *222
          19076          0;
          19078          0;
          19080          0;
          19082          0;                                                *232
          19084          0;
          19086          0;
          19088          0;
          19090          0;                                                *242
          19092          0;
          19094          0;
          19096          0;                                                *222*232*242
          19098          0;                                                FILE IDENTITY

          19100    CONST   191       191     1    MAG TAPE FILE DETAILS CONTD
          19102          (D)0;
          19104          0;
          19106          0;
          19108          0;                                                *222
          19110          0;
          19112          0;
          19114          0;
          19116          0;                                                *232
          19118          0;
          19120          0;
          19122          0;
          19124          0;                                                *242
  Source image: P1020662.JPG
          19126          0;
          19128          0;
          19130          0;                                                *222*232*242
          19132          0;                                                RUN+RERUN NUMBER
          19134          0;
          19136          0;
          19138          0;
          19140          0;                                                *222
          19142          0;
          19144          0;
          19146          0;
          19148          0;                                                *232
          19150          0;
          19152          0;
          19154          0;
          19156          0;                                                *242
          19158          0;
          19160          0;
          19162          0;                                                *222*232*242
          19164          0;                                                *01Ю HIGH DENSITY INDICATORS
          19166          0;
          19168          0;
          19170          0;
          19172          0;                                                *222
          19174          0;
          19176          0;
          19178          0;
          19180          0;                                                *232
          19182          0;
          19184          0;
          19186          0;
          19188          0;                                                *242
          19190          0;
          19192          0;
          19194          0;

          19200    CONST   192       192     1    MAG TAPE FILE DETAILS CONT
          19202          (D)0;                                             *51Ю
          19204          0;
          19206          0;
          19208          0;
          19210          0;                                                *222
          19212          0;
          19214          0;
          19216          0;
          19218          0;                                                *232
          19220          0;
          19222          0;
          19224          0;
          19226          0;                                                *242
          19228          0;
          19230          0;
          19232          0;

          19300    CONST   193       193     1    DB COUNTS
          19302          (D)0;                                             *8£Ю DB'S
          19304          0;
          19306          0;
          19308          0;
          19310          0;                                                *222
          19312          0;
          19314          0;
          19316          0;
          19318          0;                                                *232
          19320          0;
          19322          0;
  Source image: P1020663.JPG
          19324          0;                                                *222*232
          19326          0;                                                O/P BLOCK COUNTS
          19328          0;
          19330          0;
          19332          0;
          19334          0;                                                *222
          19336          0;
          19338          0;
          19340          0;
          19342          0;                                                *232
          19344          0;
          19346          0;
          19348          0;                                                *222*232
          19350          0;                                                SPOOL NOS
          19352          0;
          19354          0;
          19356          0;
          19358          0;                                                *222
          19360          0;
          19362          0;
          19364          0;
          19366          0;                                                *232
          19368          0;
          19370          0;
          19372          0;                                                *222*232

          19400    CONST   194       194     1    MAG TAPE DETAILS
          19402          (D)0;                                             *3:Ю
          19404          0;
          19406          0;
          19408          0;
          19410          0;
          19412          0;
          19414          0;
          19416          0;
          19418          0;
          19420          0;
          19422          0;
          19424          0;
          19426          0;
          19428          0;
          19430          0;
          19432          0;
          19434          0;
          19436          0;
          19438          0;
          19440          0;
          19442          0;
          19444          0;
          19446          0;
          19448          0;
          19450          0;
          19452          0;
          19454          0;
          19456          0;
          19458          0;
          19460          0;
          19462          0;
          19464          0;

          19500    CONST   195       195     1    MAG TAPE DETAILS
          19502          (D)0;                                             *3:Ю
          19504          0;
          19506          0;
          19508          0;
          19510          0;
  Source image: P1020664.JPG
          19512          0;
          19514          0;
          19516          0;
          19518          0;
          19520          0;
          19522          0;
          19524          0;
          19526          0;
          19528          0;
          19530          0;
          19532          0;
          19534          0;
          19536          0;
          19538          0;
          19540          0;
          19542          0;
          19544          0;
          19546          0;
          19548          0;
          19550          0;
          19552          0;
          19554          0;
          19556          0;
          19558          0;
          19560          0;
          19562          0;
          19564          0;

          19600    CONST   196       196     1    RELEASED TAPES LIST
          19602          (D)0;
          19604          0;
          19606          0;
          19608          0;
          19610          0;
          19612          0;
          19614          0;
          19616          0;
          19618          0;
          19620          0;
          19622          0;
          19624          0;
          19626          0;
          19628          0;                                                *4:24ЮЮ
          19630          0;
          19632          0;
          19634          0;
          19636          0;
          19638          0;
          19640          0;
          19642          0;
          19644          0;
          19646          0;
          19648          0;

          19700    TABLE   197       197     1
          19701     NOTES
          19702   214     8     0     0  2  0   5   0   0   0  0  0  0     O,P,T,SP,SP
          19704   211    22     0     0  2  0   2   0   3   0  0  0  1     3 SP,L/E,L/E

          19800    CONST   198       198     1    LONG CONSTANTS FOR TYPEWRITER
          19802          (D)3£3£3£3£3£;
          19804          1.;                                               L/E
          19806          5:5:5:5:5:;                                       *291 QUERIES
          19808          0;                                                *262 IND MOD REG
          19810          0;                                                COLLATED WORD

  Source image: P1020665.JPG
          19900    PROCR   199       199     OPERATOR INTERVENTION
          19901     NOTES          RADIX     B    DETERMINE GROUP
    10326>19902    101     0      127   1  2  subtract literal address                         TEST I1>I7 SET
          19903    127     103     27   0  0  jump A = Z                   >YES
          19904    101            127   1  1  add literal address
          19905    102     222      2   0  0  transfer (A) to N            STORE INDICATOR SETTING
          19906    124            185   1  3  store indicators             STORE(I)
          19907    126     107      8   1  1  set modification register    SET (MR1) FOR M/R SWITCH
          19908    106     103      2   0  0  select (N)                                       TEST OPTION
          19909    127     199     14   0  1  jump A != Z                  >YES                OUTSTANDING
          19910    106     175      2   1  0  select (N)                   TEST OPTION IN PROGRESS
          19911    127     199     22   0  0  jump A = Z                   >NO
          19912    125           6143   1  1  clear indicators             CLEAR I1-I11 I13
          19913    124     199     20   1  0  unconditional jump
    19909>19914    125           1792   1  2  interrogate indicators                           TEST OPTION
    48323>19915    125           6143   1  1  clear indicators             CLEAR I1-I11 I13
          19916    127     200      2   0  0  jump A = Z                   *163 >YES
          19917    105     221     43   0  0  subtract (N) from (A)        *16Ю                OPTIONS NOT ACCEPTED
          19918    127     200      2   0  2  jump A >= Z                  *16Ю                DURING UPTIME DELAY
    18721>19919    125            128   1  0  set indicators               SET I8
    19940>
    19990>
    19913>19920    102     103      3   0  0  transfer (A) to N            SET C ION INDICATOR
          19921    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
    19911>19922    106     487      2   0  0  select (N)                                       TEST IF ALLOCATION
          19923    127     199     41   0  0  jump A = Z                   >NO                 IS BEING PERFORMED
          19924    106     222      2   0  0  select (N)
          19925    101           1281   1  2  subtract literal address                         TEST GP 5 FN 1
          19926    127     199     38   0  1  jump A != Z                  >NO
          19927    106     108     12   0  0  select (N)                   *14Ю
          19928    102     106     13   0  0  transfer (A) to N            *14Ю
          19929    125           6143   1  1  clear indicators             CLEAR I1-I11,I13
          19930    125            127   1  0  set indicators               SET I1-I7
          19931    106     460     51   0  0  select (N)                   *142 TEST READING C/D
          19932    127     199     37   0  0  jump A = Z                   >NO
          19933    106     222     18   0  0  select (N)                   YES RESTORE ASL
          19934    124     222     20   0  1  modify address of next
          19935    102             64   0  0  transfer (A) to N
          19936    102     460     51   0  0  transfer (A) to N            *142
    19932>19937    124     295      2   1  0  unconditional jump           *14‼ >
    19926>19938    125           6143   1  1  clear indicators             CLEAR INDICATORS
          19939    125            127   1  0  set indicators               SET I1>I7
          19940    124     199     20   1  0  unconditional jump           >
    19923>19941    125           1792   1  2  interrogate indicators                           TEST GROUP 0
          19942    127     199     49   0  0  jump A = Z                                       >YES
          19943    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          19944    102     106     13   0  0  transfer (A) to N                                NON-INT
          19945    125           1792   1  2  interrogate indicators       GROUP NO.
          19946    118           4126   0  0  shift logical
          19947    103     199     78   0  0  copy (A) to N
          19948    101              8   1  2  subtract literal address     *5£+*12+            0000500005
    19942>19949    125           6143   1  1  clear indicators             CLEAR I1-I11,I13
          19950    125            127   1  0  set indicators               SET I1-I7
          19951    127     477      8   0  2  jump A >= Z                  >REJECT
          19952    106     222      2   0  0  select (N)                   STORE COMMAND
          19953    103     233      7   0  0  copy (A) to N
          19954    102     487      2   0  0  transfer (A) to N            SET ALLOCATOR LINK
          19955    101              5   0  1  prepare for digit collation  *16Ю
          19956    115     222      2   0  0  collate and add
          19957    101            514   1  2  subtract literal address
          19958    127     199     67   0  0  jump A = Z
          19959    101              2   1  2  subtract literal address
          19960    127     199     67   0  0  jump A = Z                   >2/0/4
          19961    101            512   1  2  subtract literal address
          19962    127     199     67   0  0  jump A = Z                   >4/0/4
          19963    101              2   1  1  add literal address
  Source image: P1020666.JPG
          19964    127     199     67   0  0  jump A = Z                   >4/0/2
          19965    125              0   1  2  interrogate indicators
          19966    124     199     76   1  0  unconditional jump
    19964>
    19962>
    19960>
    19958>19967    106     221     34   0  0  select (N)
          19968    127     199     76   0  0  jump A = Z                   >UPTIME NOT IN
          19969    106     108     11   0  0  select (N)                   SET M/R SWITCH
          19970    102     106     13   0  0  transfer (A) to N            INT
          19971    126     379      2   0  0  enter subroutine             >CLOSE RT
          19972    127     103      7   0  3  jump A < Z                   >PRIORITY QUEUE     DELAY
          19973    126     380      2   0  0  enter subroutine             >SET EVERYTHING BACK
          19974    106     108     12   0  0  select (N)
          19975    102     106     13   0  0  transfer (A) to N            *16Ю
    19968>
    19966>19976    124     199     78   0  1  modify address of next
          19977    126     199     78   0  1  leave subroutine
          19978    100              0   0  0  Halt
          19979    100     503      2   0  0  Halt                         *09‼08‼07‼5:‼69‼68‼67‼66‼6Ю‼86‼86‼
          19980    100     516      2   0  0  Halt                         >GROUP2
          19981    100     523      2   0  0  Halt                         *41‼ >GROUP 3
          19982    100     524      2   0  0  Halt                         >GROUP 4
          19983    100     477      8   0  0  Halt                         *5£Ю*12Ю >GROUP 5 REJECT
          19984    100     532      2   0  0  Halt                         >GROUP 6 SET ROUTE AVAILABLE
          19985    100     532      2   0  0  Halt                         *5£Ю*12Ю >GROUP 7 WITHDRAW ROUTE
    48935>19986    125           3855   1  2  interrogate indicators       *40Ю*41Ю
          19987    101            769   1  2  subtract literal address     TEST STORE DUMP
          19988    127     463      2   0  0  jump A = Z                   >YES
          19989    125           6143   1  1  clear indicators             CLEAR I1-I11,I13
          19990    124     199     20   1  0  unconditional jump           >SET C IGN INDICATOR

          20000    PROCR   200       200     GROUP D (1)
          20001     NOTES          RADIX     B    TEST SELECTED OPTIONS
    19918>
    19916>20002    106     222      4   0  0  select (N)                   SET(MR1)FOR LAST
          20003    102              2   1  0  transfer (A) to N            PROG.TO OFFER OPTIONS
          20004    101     213     12   1  3  select literal address
          20005    112     222      2   0  0  convert                      CONVERT OPT NO TO BINARY
          20006    103     222      3   0  0  copy (A) to N                                TESTIF OPTION CHOICE
          20007    101             16   1  2  subtract literal address                         IS OUT OF RANGE
          20008    127     203      2   0  2  jump A >= Z                  >REJECT
          20009    101             15   1  1  add literal address
          20010    102     222      6   0  0  transfer (A) to N
          20011    106     210      8   0  0  select (N)                   FORM BIT
          20012    124     222      6   0  1  modify address of next       CORRESPONDING TO
          20013    118              0   0  3  shift binary                 CHOSEN OPTION
          20014    118           4118   1  0  shift logical
          20015    115             41   0  1  collate and add                                  TEST CHOSEN OPTION
          20016    127     203      2   0  0  jump A = Z                   >REJECT             ALLOWED
          20017    124     104      6   0  0  modify address of next       SET INDICATORS WITH (P)
          20018    125              0   1  0  set indicators
          20019    101            512   1  2  subtract literal address     *46Ю                TEST'DEFER OPTION'
          20020    127     202      7   0  0  jump A = Z                   *46Ю*463163 >YES
          20021    106     222      3   0  0  select (N)
          20022    104             43   0  1  add (N) to (A)               FORM & STORE LOCN. CONTAINING S/C
          20023    102     222      3   0  0  transfer (A) to N            ADDRESS CORRESPONDING TO CHOSEN OPTION
          20024    101             16   0  1  prepare for digit collation
          20025    115             38   0  1  collate and add                                  TEST IF SWITCH TO BE
          20026    127     201      2   0  0  jump A = Z                   >YES                SET AT 4
          20027    124     222      3   0  1  modify address of next       SET LINK FOR SI=1
          20028    106              0   0  0  select (N)
          20029    101     267      2   1  2  subtract literal address
          20030    104     209     12   0  0  add (N) to (A)
          20031    102             31   0  1  transfer (A) to N
          20032    102             45   0  1  transfer (A) to N            CLEAR ASSOCIATED TIME
  Source image: P1020667.JPG
          20033    106     209      4   0  0  select (N)                   SET SI=1
          20034    105             30   0  1  subtract (N) from (A)
          20035    124     201      7   1  0  unconditional jump           >

          20100    PROCR   201       201     GROUP O(2)
          20101     NOTES          RADIX     B    OUTPUT COMMENT ETC.
    20026>20102    124     222      3   0  1  modify address of next                           SET LINK FOR SI=4
          20103    106              0   0  0  select (N)
          20104    115             43   0  1  collate and add
          20105    102             44   0  1  transfer (A) to N
          20106    106             35   0  1  select (N)                                       SET SI=4
    20035>20107    102              7   0  1  transfer (A) to N            *163163             CONVERT OPT NO TO
          20108    106     222      2   0  0  select (N)                                       ALPHA
          20109    103     222      3   1  0  copy (A) to N
          20110    106     222      2   1  0  select (N)
    20213>20111    101             15   0  1  prepare for digit collation  FILL Q1-4
          20112    114     214      8   1  0  replace selected bits        PACK CHOSEN OPTION (ALPHA)>
          20113    102     175      2   1  0  transfer (A) to N            SET REQ & CLEAR OPT OUTSTANDING IND
          20114    102     103      2   0  0  transfer (A) to N            CLEAR LL1
          20115    124     177      8   1  0  unconditional jump           >SET L6=1

          20200    PROCR   202       202     GROUP O (3)
          20201     NOTES          RADIX     B    DEFER OPTIONS
    18724>20202    106     221     43   0  0  select (N)                   *16Ю TEST UPTIME STOPPED
          20203    127     202      7   0  2  jump A >= Z                  >NO
          20204    106              2   0  0  select (N)                   TEST OPT FOR
          20205    126     386      2   0  0  enter subroutine             *85‼
          20206    127     203      2   0  0  jump A = Z                   *16Ю >YES REJECT
    20203>
    20020>20207    106              8   0  1  select (N)                   *46Ю                SET S=3
          20208    102              7   0  1  transfer (A) to N
          20209    126     347      2   0  0  enter subroutine             >ASSOC. TIME S/R
          20210    101     202     14   1  3  select literal address
          20211    102             42   0  1  transfer (A) to N
          20212    101             84   1  3  select literal address       'D'
          20213    124     201     11   1  0  unconditional jump
          20214    124     270      2   0  2  select literal and division  *464                00004
          20215    102             42   0  1  transfer (A) to N                                RESET LINK FOR SI=3
          20216    102             45   0  1  transfer (A) to N                                CLEAR ASSOC. TIME
          20217    101             16   0  1  prepare for digit collation  Q5B                 TEST M/R OPTION
          20218    115             38   0  1  collate and add
          20219    127     205     21   0  0  jump A = Z                   >NO
          20220    124              2   0  1  modify address of next                           SET(MR1)FOR
          20221    126             36   1  1  set modification register                        COMMERCIAL PROG.
          20222    124     290      2   1  0  unconditional jump           >I/P O/P CONTROL

          20300    PROCR   203       203     OPERATOR INTERVENTION REJECTION
          20301     NOTES          RADIX     B
    29585>
    20206>
    20016>
    20008>20302    125            128   1  0  set indicators                                   SET I8,REJECT
          20303    126     177      2   0  0  enter subroutine             > REQUEST T/W
          20304    101              4   1  3  select literal address                           OPTIONS
          20305    126     234      2   0  0  enter subroutine             >S/R H
          20306    124     216     20   0  2  select literal and division  EDIT COMMENT
          20307    128     102      6   1  2  edit fixed field formats
          20308    124     181      2   1  0  unconditional jump           >LOG ROUTINE

          20400    PROCR   204       204     ENTRY FOR PROGRAMME UNLOAD
          20401     NOTES          RADIX     B
          20402    124     212      2   1  1  set modification group       *££0*££2*49‼
          20403    100     212      2   0  3  set radix                    *09‼06‼             SET BINARY
          20404    126     385      2   0  0  enter subroutine             *163
          20405    101              1   1  2  subtract literal address     *££2*46‼
    10007>20406    106     209      6   0  0  select (N)                   *49‼                26/0/1 2 RESTORE(9)
  Source image: P1020668.JPG
          20407    102              9   0  0  transfer (A) to N            *49Ю
          20408    124     212      2   1  1  set modification group       *49Ю                SET MOD GP 0
          20409    126     250      2   0  0  enter subroutine             *599 >STORE MG3 S/R
          20410    126     238      2   0  0  enter subroutine             *09‼06‼             >AUGMENT TIME SPENT
          20411    124              3   0  1  modify address of next       *60Ю                TEST TRIAL
          20412    106             11   0  0  select (N)
          20413    124     233     45   0  1  modify address of next
          20414    127              0   0  1  jump A != Z                  *60Ю                >YES
          20415    126     462      2   0  0  enter subroutine             >REQUEST M/R
          20416    106            179   0  0  select (N)                   UNLOAD/ABDON INDICATOR
          20417    124     295     17   1  0  unconditional jump           >UNLOAD

          20500    PROCR   205       205     PROGRAMMED OFFER OF OPTIONS
          20501     NOTES          RADIX     B
    10005>20502    124     212      2   1  1  set modification group                           SET MOD. GP. 0
          20503    102             38   0  1  transfer (A) to N                                STORE ALARM NO
          20504    118             10   1  0  shift logical
          20505    102             41   0  1  transfer (A) to N                                STORE NO OF OPTIONS
          20506    124              2   0  1  modify address of next                           STORE RETURN VALUES
          20507    100             30   1  0  copy registers                                   OF (A)(B) & (C)IN SI
          20508    100     212      2   0  3  set radix                    0                   SET(C)BINARY
          20509    126     250      2   0  0  enter subroutine             *599 >STORE MG3 S/R
          20510    106     209      6   0  0  select (N)                   *49Ю                26/0/1 2 RESTORE (9)
          20511    102              9   0  0  transfer (A) to N            *49Ю
          20512    106     210      8   0  0  select (N)
          20513    124              2   0  1  modify address of next
          20514    124             41   0  1  modify address of next
          20515    118              0   0  3  shift binary
          20516    101            511   1  1  add literal address          *46‼
          20517    102             41   0  1  transfer (A) to N                                OF ALLOWABLE OPTIONS
          20518    106     100      4   0  0  select (N)
          20519    102             43   0  1  transfer (A) to N                                1ST OPTION
          20520    126     238      2   0  0  enter subroutine             *099 >AUGMENT TIME SPENT
    20219>20521    126     176      2   0  0  enter subroutine             >REQUEST D/D        IN PROG

          20600    PROCR   206       206     PROGRAMMED OFFER OF OPTIONS (2)
          20601     NOTES          RADIX     B
          20602    106              2   0  0  select (N)                   START OF SWITCH     STORE START OF SW
          20603    102     222      4   0  0  transfer (A) to N            W/L                 OF LAST PROGRAMME TO
          20604    106             38   1  1  select (N)                                       OFFER OPTIONS
          20605    102     222      8   1  0  transfer (A) to N            ALARM NO/PROG IDENT.NO
          20606    126     234      2   0  0  enter subroutine             >S/R H
          20607    124     216     28   0  2  select literal and division                      FORM COMMENT
          20608    128     102      6   1  2  edit fixed field formats
          20609    124     181      2   1  0  unconditional jump           >OUTPUT COMMENT

          20700    PROCR   207       207     TYPE
          20701     NOTES          RADIX     B
    10011>20702    124     212      2   1  1  set modification group       SET MOD. GROUP 0
          20703    124              3   0  1  modify address of next       STORE ANNEXE START IN SP. CHAPTER
          20704    102            169   0  0  transfer (A) to N
          20705    126     250      2   0  0  enter subroutine             *599 SET MOD GP 3
          20706    106     100     10   0  0  select (N)                   STORE LINK
          20707    102             44   0  1  transfer (A) to N
          20708    106     209      6   0  0  select (N)                   *49Ю                26/0/1 2 RESTORE (9)
          20709    102              9   0  0  transfer (A) to N            *49Ю
          20710    126     238      2   0  0  enter subroutine             *099 >AUGMENT TIME SPENT
          20711    126     177      2   0  0  enter subroutine             >REQUEST T/W
          20712    126     234      2   0  0  enter subroutine             >EDIT TIME
          20713    126     212      2   1  3  set modification register    SET MRR3 =24/0
          20714    100     198      2   1  2  replace (B) by (N)           BITS 1-6 IN EACH QUARTET
          20715    118           4122   1  0  shift logical
    20724>20716    124              3   0  1  modify address of next       COPY COMMENT TO ANNEXE
          20717    124            169   0  1  modify address of next
          20718    106              0   1  3  select (N)
          20719    102     102      6   1  3  transfer (A) to N
  Source image: P1020669.JPG
          20720    115     102      6   1  3  collate and add                                  TEST END OF COMMENT
          20721    101           7710   1  2  subtract literal address
          20722    127     207     27   0  0  jump A = Z                   >YES
          20723    125              2   0  3  step on and test
          20724    124     207     16   1  0  unconditional jump           >
          20725    106     211     22   1  0  select (N)                   SET L/E'S IN LAST WORD
          20726    102     102     28   1  0  transfer (A) to N
    20722>20727    106             35   0  1  select (N)                   SET SI=4
          20728    102              7   0  1  transfer (A) to N            *163
          20729    124     181      2   1  0  unconditional jump           >OUTPUT COMMENT

          20800    PROCR   208       208     MASTER ROUTINE
          20801     NOTES          RADIX     B    INTERNAL IMPOSSIBILITY
    29580>
    29613>20802    101            121   1  3  select literal address       CODE LETTER Z
    29643>
    32711>
    32823>
    45233>
    45517>
    45720>
    45837>
    47622>20803    102     221      4   0  0  transfer (A) to N
          20804    126     107      8   1  1  set modification register    SET(MR1)FOR M/R SWITCH
          20805    100     212      2   0  3  set radix                    SET BINARY
          20806    126     177      2   0  0  enter subroutine             >REQUEST T/W
          20807    106     177      3   0  0  select (N)
          20808    102     103     23   0  0  transfer (A) to N            AMEND END OF LOG    ROUTINE
          20809    101              4   1  3  select literal address
          20810    126     234      2   0  0  enter subroutine             >S/R H
          20811    106     214     30   1  0  select (N)                   X,X,X,N/E,N/E
          20812    102     102      6   1  0  transfer (A) to N
          20813    106     221      4   0  0  select (N)
          20814    118              8   0  0  shift logical                                    SET UP COMMENT
          20815    101             15   0  1  prepare for digit collation  FILL Q1>48
          20816    115     211     22   1  0  collate and add
          20817    102     102      8   1  0  transfer (A) to N
          20818    124     181      2   1  0  unconditional jump           >LOG ROUTINE
    17911>
    10013>20819    100           4095   0  0  Halt                         HALT
          20820    124            141   1  0  unconditional jump           >INDEPENDENT STORE  PRINT
          20821    100     226      0   0  0  Halt                         *££0*££2*106
          20822    124     452      2   1  0  unconditional jump           *££2*343 (25)IN 150,OVERFLOW

          20900    PROCR   209       209     INSTRUCTION CONSTANTS
          20901     NOTES          RADIX     B
          20902    106            157   0  0  select (N)                   *09Ю*3+Ю            START TIMINGS
          20903    124     265      2   1  0  unconditional jump           *09Ю*3+Ю
          20904    126              0   1  0  test route N1                LOG, I/P O/P, REPORT S/R
          20905    126              8   0  3  leave master routine         SET TAG 15 S/R
          20906    126              2   0  1  leave subroutine             SET TAG 15 S/R
          20907    124     456      2   1  0  unconditional jump           *343 (25)IN 150,OVERFLOW
          20908    124     240     20   1  0  unconditional jump           REPORT S/R
          20909    124     265      3   1  0  unconditional jump           REPORT S/R,STOP TIMINGS
          20910    113     227      2   0  0  divide uniform radix         *106 USED IN ISU ALLOCATOR & S/R G
          20911    113     226      2   0  0  divide uniform radix         (124) IN ISU, ALLOCAS/RG
          20912    101              0   0  0  table look up                OP INT, P/T O/P
          20913    126              8   0  1  leave subroutine             *499                MICR
          20914    106              8   0  0  select (N)                   *59Ю RETURN FROM PL5MOD GROUP BLISTERS
          20915    106     212     20   1  0  select (N)                   /ABANDON PROGRAMME
          20916    104              6   0  1  add (N) to (A)               DO
          20917    124     103      4   1  0  unconditional jump           DO
          20918    102             44   0  0  transfer (A) to N            ABANDON PROGRAMME
          20919    124     103      7   1  0  unconditional jump           DO DO
          20920    126             44   0  3  leave master routine
          20921    106     129      6   1  0  select (N)                   *59Ю

  Source image: P1020670.JPG
          21000    CONST   210       210     0    SHORT CONSTANTS
          21002          (D)01£££;                                         UNLOAD STORAGE
          21003          66666;                                            DECIMAL RADIX
          21004          08000;                                            *££0*££1*3:‼4£‼ ALT RTE INDIC
          21005          04000;                                            *3:‼4£‼ ALT RTE INDIC
          21006          £0000;                                            LOADER
          21007          .1000;                                            158 IN Q5)-(15 IN Q4)
          21008          00001;                                            1
          21009          66Ю66;                                            CLOCK RADIX
          21010          000£8;                                            COLLATE CH.NO
          21011          65536;                                            CONVERSION TABLE CONSTANT
          21012          66668;                                            RADIX FOR ROUTES
          21013          50000;                                            CONST FOR XERONIC SKIP WORD AND FOR PTS
          21014          .0080;                                            A.S.L. FOR PRINTER W/E
          21015          (D)0;                                             *66Ю
          21016          0;
          21017          07008;

          21100    CONST   211       211     1    LONG CONSTANTS
          21102          (D)££££££££££;
          21104          1000000000;                                       STACK MINUS ZERO
          21106          4£4£4£4£41;                                       SENTINELTYPE 1
          21108          6£6£6£6£6£;                                       R/M'S
          21110          6‼6‼6‼6‼6‼;                                       %%%%%
          21112          7171717171;                                       /////
          21114          1212121212;                                       BBBBB
          21116          5£5£5£5£5£;                                       FAULTY BLOCK MARKER
          21118          1£1£1£1£1£;                                       FAULTY BLOCK MARKER
          21120          1.00000000;                                       L/E IN TOP SEXTET FOR OPEN FILE
          21122          5.5.5.5.5.;                                       L/E'S
          21124          0009000000;                                       *££0*££2*1£3
          21126          0006000000;                                       *1:3
          21128          0003000000;                                       *1.3
          21130          000+000000;                                       *383
          21132          0012000000;                                       *4.3
          21134          0015000000;                                       *5Ю3
          21136          000£000000;                                       *££2*393

          21200    CONST   212       212     1    MOD REGISTER CONSTANTS
          21202          (D)0001800000;                                    24:0 LOG ROUTINE LOAD S/R
          21204          0000800000;                                       8:0 STORE DUMP
          21206          0001400002;                                       20:2 2 USED VARIOUS PLACES
          21208          0018000000;                                       *1.3*1:3*1£3*383*393*4.3*5Ю3
          21210          0003000000;                                       48:0 RTI PTS ASSOCIATED TIME
          21212              +     ;                                       12=0T/W&P/T I/P
          21214              Ю     ;                                       10=0 T/W&P/T O/P
          21216          000‼000080;                                       *3:9
          21218          0000000000;                                       *109 S.A.W W/L
          21220          000060001Ю;                                       *599 MOD GROUP TABLE ENTRY

          21300    CONST   213       213     1    CONVERSION TABLES
          21302          (D)0000000001;                                    BINARY>DECIMAL
          21304          0000000016;
          21306          0000000256;
          21308          0000004096;
          21310          0000065536;
          21312          0000000001;                                       DECIMAL>BINARY
          21314          000000000Ю;
          21316          0000000064;
          21318          000000 3.8;
          21320          0000000001;                                       SECONDS>MINUTES
          21322          0000000016;
          21324          0000000416;
          21326          0000006816;
          21328          0000000001;                                       BINARY>OCTARY
  Source image: P1020671.JPG
          21330          0000000020;
          21332          0000000320;

          21400    CONST   214       214     1    ALPHA CONSTANTS
          21402          (A)    Ю;                                         *££0*££1*353
          21404          (A)    *;                                         *353
          21406          (A)INEFF;                                         *2£9
          21408          OPT  ;
          21410          (D)7.(A)   (D)7.;                                 B/E,SP,SP,SP,B/E
          21412          (A)P Q(D)7:7:;                                    P,SP,Q,N/E,N/E
          21414          (D)0514808000;                                    A8/08000
          21416          (A)C REJ;
          21418          O REJ;
          21420          GP FN;
          21422          (D)5.7:7:5.7:;                                    L/E,N/E,N/E,L/E,N/E.
          21424          5.7:7:6£;                                         L/E N/E N/E R/S
          21426          (A)LOST ;
          21428          RC   ;
          21430          (A)XXX (D)7:;                                     X,X,X,SP,N/E
          21432          (A)NO CD;
          21434          OFLOW;
          21436          L%OUT;                                            *££0*££1*353
          21438          L'OUT;                                            *353
          21440          RTI  ;
          21442          DB   ;
          21444          WE   ;
          21446          CHECK;                                            *2.9669
          21448          ZZZ  ;
          21450          LOP  ;
          21452          LIP  ;
          21454          ABDON;
          21456          END;
          21458          R T I;
          21460          DUMP ;                                            *41Ю
          21462          (A)END(D)5.5.;                                    *41Ю
          21464          (A)HIGH;                                          *011
          21466          (A)INDEX;
          21468          CHAPT;
          21470          O%LAY;                                            *££0*££1*353
          21472          O'LAY;                                            *353
          21474          DUMP ;                                            *41Ю*14Ю
          21476          ABAND;
          21478          ONED ;                                            *41Ю*14Ю
          21480          (D)5.5.;
          21482          (A)SER  ;                                         *509
          21484          (A)U A  ;                                         *3Ю1
          21486          (A)LET  ;                                         *139
          21488          (A)REJEC;
          21490          CHD  ;                                            *5+9
          21492          (A)* 4  ;                                         *779

          21500    CONST   215       215     1    MORE ALPHA CONSTANTS
          21502          (A)PAUSE;                                         *0:9
          21504          (A)PR CH;                                         *0‼9
          21506          (A)WDRAW;                                         *129
          21508          AVAIL;                                            *129
          21510          (A)REOPE;                                         *0:9
          21512          (A)RUNCH;                                         *0+9
          21514          (A)ROUCH;                                         *119
          21516          (A)NEW  ;
          21518          DOUBT;
          21520          (A)CARD ;                                         *669
          21522          STORE;                                            *679
          21524          (A)CH (D)007:;                                    *68Ю
          21526          (D)6940674000;                                    *68Ю
          21528          (A)TAPE ;                                         *69Ю
  Source image: P1020672.JPG
          21530          UNLOA;
          21532          (A)DED(D)5.5.;
          21534          (A)REWOU;
          21536          (A)ND (D)5.5.;                                    *69Ю
          21538          (A)PREFE;                                         *86Ю
          21540          R GP ;
          21542          R SP ;                                            *86Ю
          21544          (A)SHORT;                                         *4ЮЮ
          21546          (A)LONG;                                          *4ЮЮ
          21548          (A)TMS  ;                                         *8£9

          21600    TABLE   216       216     1    OFLOW, OREJ, ENTER, END, PROG ALARM EDIT TABLES
          21601     NOTES
          21602   214    34     0     0  2  0   5   0   0   0  0  0  0     *342 O,F,L,O,W
          21604   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          21606   221     2     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21608   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          21610   222    12     0     0  1  0   Ю   0   0   0  2  0  0     (A)
          21612   222    14     0     0  1  0   Ю   0   2   0  2  0  0     (B)
          21614   221     3     0     0  0  0   1   0   2   0  0  0  0     DIVISION NO OF LINK
          21616   221     3     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21618   211    22     0     0  2  0   2   0   4   0  0  0  1     *342 L/E'S
          21620   214    18     0     0  2  0   5   0   0   0  0  0  0     O.SP.R.E.J
          21622   214    12     0     0  2  0   2   3   0   0  0  0  0     N/E, N/E
          21624   222     2     0     0  0  0   2   3   0   1  0  0  0     OPT NO
          21626   211    22     0     0  2  0   2   0   4   0  0  0  1     4 SP,L/E,L/E
          21628   214     4     0     0  2  0   1   4   0   0  0  0  0     ASTERISK
          21630   222     8     0     0  0  0   3   2   1   1  0  0  0     ALARM NO
          21632   214    12     0     0  2  0   1   4   0   0  0  0  0     N/E
          21634   222     9     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21636   211    22     0     0  2  0   2   0   2   0  0  0  1     2 SP,L/E,L/E

          21700    TABLE   217       217     1    L'OUT
          21701     NOTES
          21702     0     0     0     0  2  0   0   0   2   0  0  0  0     *££0*££2*31‼                              T 1
          21704     0   180     0     0  2  0   2   3   0   0  0  0  0     *££2*583                                  T 1
          21706   214    38     0     0  2  0   5   0   0   0  0  0  0     *342 L',O.U,T
          21708   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          21710   221     2     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21712   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          21714   222    12     0     0  0  0   1   0   2   0  0  0  0     DIVISION NO(COMPT 16)
          21716   222    12     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21718   222    13     0     0  0  0   1   0   2   0  0  0  0     DIV NO OF LEP
          21720   222    13     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21722   222    14     0     0  0  0   1   0   2   0  0  0  0     DIV NO(COMPT 1)
          21724   222    14     0     0  0  0   4   1   1   3  0  0  0     LOCATION WITHIN DIV
          21726   211    22     0     0  2  0   2   0   2   0  0  0  1     *342 L/E'S
          21728   214    26     0     0  2  0   5   0   0   0  0  0  0     L,O,S,T, SP (OR O'LAY)
          21730   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          21732   221     8     0     0  0  0   5   0   0   0  0  0  0     PROG NO
          21734   211    22     0     0  2  0   2   0   2   0  0  0  1     2 SP,L/E,L/E
          21736     0   156     0     0  0  0   2   2   0   0  0  0  0     *31‼234                                   T 1
          21738   214    12     0     0  2  0   1   4   2   0  0  0  1     ///// SP,SP N/E
          21740   105     4     0     0  2  0   1   0   0   0  0  0  0     R/S
          21742     0   156     0     0  0  0   2   2   0   0  0  0  0     *31‼*583 2 DIGS                           T 1
          21744   214    12     0     0  2  0   1   4   1   0  0  0  1     ///// SP N/E
          21746     0   156     0     0  0  0   4   0   0   0  0  0  0     *31‼*6‼9                                  T 1
          21748   214    12     0     0  2  0   1   4   0   0  0  0  1     *6‼9   N/E                                SUM

          21800    TABLE   218       218     1    DATA HANDLING TABLES
          21801     NOTES
          21802     0    26     0     0  0  0   6   0   0   0  0  0  0     ///// STORE GP 3 REG
          21804   211     5     0     0  0  0   2   0   0   0  0  0  0     STACK MINUS ZERO
          21806   222    12     0     0  0  0   6   0   0   0  0  0  0     ///// RESTORE GP 3 REG
          21808   211    22     0     0  2  0   2   0   1   0  0  0  1     /////SP,L/E,L/E
          21810   226     2     0     0  0  0   0   0   1   0  0  0  0     *019                                      T 7

  Source image: P1020673.JPG
          21900    TABLE   219       219     4
          21902   225     6     0     0  2  1   0   0   0   0  0  0  1     CONTROL DATA

          22000    CONST   220       220     1    INPUT/OUTPUT CONSTANTS
          22002          (D)0000700000;                                    (A)
          22004          000000003+;                                       (B)READ CD
          22006          666Ю600000;                                       MINS & SECS RADIX,(C)
          22008          0002600000;                                       (A)
          22010          00004£££££;                                       (B),RUN ON M/T
          22012          0080000000;                                       BIT 12,(C)

          22100    CONST   221       221     1    GENERAL W/L'S
          22102          (D)0;                                             TO BE USED ONLY NON-INTERRUPTIBLY
          22104          0;                                                (ALLOC LINK SET) C REJ. XXX, O'LAY, ETC.
          22106          0;                                                PROG SWITCH DURING OVERLAY
          22108          0;                                                (ALLOC LINK SET) PROG ID IN ALLOC&OLAY
          22110          0;                                                ROUCH
          22112          0;                                                O'LAY: ITEM 13 USED BY INTERX PRIORITIES
          22114          0;                                                USED IN ALIGNMENT FAILURE
          22116          0;                                                IND MOD REG FOR LOAD S/R
          22118          0;                                                IND MOD REG FOR LOAD S/R
          22120          (D)7654321;                                       *££0*££2*5Ю3
          22122          (D)654321;                                        *4.3
          22124          (D)54321;                                         *393
          22126          (D)4321;                                          *383
          22128          (D)321;                                           *1£3
          22130          (D)21;                                            *1:3
          22132          (D)1;                                             *££2*063*1.3
          22134          ;                                                 *16Ю
          22136          ;                                                 2.3
          22138          ;                                                 1ST PROGM
          22140          ;                                                 *859
          22142          ;
          22144          ;                                                 1ST/2ND
          22146          ;                                                 3RD/4TH
          22148          ;                                                 5TH/6TH
          22150          ;                                                 7TH/8TH

          22200    CONST   222       222     1    W/L'S FOR OP INT
          22202          (D)0;                                             IND SETTING/BIN OPT NO
          22204          0;                                                W/L/USED IN CHD
          22206          0;                                                W/L/TRIALS IND IN ALLOC
          22208          0;                                                W/L
          22210          0;                                                PROG NO/PROG SL NO AFTER C.D. GP2
          22212          0;                                                STORAGE GP3 REGISTERS
          22214          0;                                                (A) (B) (C) IN O'FLOW
          22216          0;                                                W/L'S IN L''OUT
          22218          0;                                                ORIG 64+R DURING C.D. / W/L
          22220          0;                                                (A) FOR C.D.
          22222          0;                                                (B) FOR C.D.
          22224          0;                                                (C) FOR C.D./ S/R G

          22300    CONST   223       223     0    COUNTERS & INDICATORS
          22302          (D)00000;                                         *063 TIMING IND
          22303          00000;                                            ALLOC & O'LAY

          22400    CONST   224       224     0    MULTI-CHANNEL LOADING LIST
          22402          (D)0;                                             CH/RT
          22403          ;                                                 RT TYPE
          22404          ;                                                 PROGM
          22405          ;                                                 SERIAL
          22406          ;                                                 LT.CHAPT
          22407          ;                                                 IDENTIFIER
          22408          ;                                                 *57Ю
          22409          ;
  Source image: P1020674.JPG
          22410          ;
          22411          ;
          22412          ;
          22413          ;
          22414          ;
          22415          ;
          22416          ;
          22417          ;
          22418          ;
          22419          ;
          22420          ;
          22421          ;
          22422          ;
          22423          ;
          22424          ;
          22425          ;
          22426          ;
          22427          ;
          22428          ;
          22429          ;
          22430          ;
          22431          ;
          22432          ;
          22433          ;
          22434          ;
          22435          ;
          22436          ;
          22437          ;                                                 *57Ю

          22500    CONST   225       225     1    MULTI-CHANNEL WL'S
          22502          (D)0;                                             NORMAL ALLOC CH/RT
          22504          ;
          22506          ;                                                 TRIAL
          22508          ;                                                 (A)
          22510          ;                                                 (B)
          22512          ;                                                 CH CH RT
          22514          ;                                                 RT TYPE IN ASL
          22516          ;                                                 MOD REG

          22600    TABLE   226       226     1
          22601     NOTES
          22602     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22604     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22606     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22608     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22610     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22612     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22614     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22616     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22618     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22620     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22622     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22624     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22626     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22628     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22630     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22632     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22634     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22636     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22638     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22640     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22642     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22644     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22646     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22648     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22650     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
  Source image: P1020675.JPG
          22652     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22654     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22656     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22658   226     7     0     0  0  0   0   0   3   0  0  0  0     /////

          22700    TABLE   227       227     1
          22701     NOTES
          22702     0     0     0     0  0  0   0   0   0   0  0  0  0     *102                                      T 1
          22704     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22706     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22708     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22710     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22712     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22714     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22716     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22718     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22720     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22722     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22724     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22726     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22728     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22730     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22732     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22734     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22736     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22738     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22740     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22742     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22744     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22746     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22748     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22750     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22752     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22754     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22756     0     0     0     0  0  0   0   0   0   0  0  0  0     /////
          22758   227     7     0     0  0  0   0   0   3   0  0  0  0     /////

          22800    CONST   228       228     1    UNPACKED INPUT
          22802          (D)0;
          22804          0;
          22806          0;
          22808          0;
          22810          0;
          22812          0;
          22814          0;
          22816          0;
          22818          0;
          22820          0;
          22822          0;
          22824          0;

          22900    CONST   229       229     1    M/R TABLES TAG,MOD GP AND FP
          22902          (D)87654321;                                      *1.3*1:3*1£3*383*393*4.3*5Ю3
          22904          0;                                                *3Ю1*3‼9

          23000    PROCR   230       230     M/R STORE TABLE
          23002    100           4097   1  0  copy registers
          23003    101     108      2   0  0  table look up
          23004    115           8191   1  3  collate and add
          23005    115           8191   1  3  collate and add
          23006    115           8191   1  3  collate and add              *1.2
          23007    115           8191   1  3  collate and add
          23008    115           8191   1  3  collate and add              *1:2
          23009    115           8191   1  3  collate and add
          23010    115           8191   1  3  collate and add              *1£2
          23011    115           8191   1  3  collate and add
  Source image: P1020676.JPG
          23012    115           8191   1  3  collate and add              *382
          23013    115           8191   1  3  collate and add
          23014    115           8191   1  3  collate and add              *392
          23015    115           8191   1  3  collate and add
          23016    115           8191   1  3  collate and add              *4.2
          23017    115           8191   1  3  collate and add
          23018    115           8191   1  3  collate and add              *5Ю2
          23019    115           8191   1  3  collate and add              *1.2*1:2*1£2*382*392*4.2*5Ю2
          23020    115           8191   1  3  collate and add
          23021    115           8191   1  3  collate and add
          23022    100              0   0  0  Halt                         *££0*££2*3‼‼*01‼*3.3*04‼*14‼*42‼*46‼*31‼
          23023    100              0   0  0  Halt                         *41‼*3Ю3*14‼*3:‼*60‼
          23024    100     217     28   0  0  Halt                         *343 OFLOW EDIT TABLE
          23025    100     455     14   0  0  Halt                         *34‼ RETURN ADD FOR TROFL
          23026    100              1   0  0  Halt                         *443
          23027    100              9   0  0  Halt                         *62‼
          23028    100              4   0  0  Halt                         *2.+62‼

          23100    CONST   231       231     1    M/R STORE TABLE
          23102          (D)0;                                             SET UP BY I.S.U.
          23104          0200002000;
          23106          0200004000;
          23108          0200006000;
          23110          0200008000;
          23112          020000Ю000;
          23114          020000+000;
          23116          020000.000;
          23118          0000010000;
          23120          ££££££££££;

          23200    CONST   232       232     1    M/R 2ND STORE TABLE
          23202          (D)0200008000;                                    *3Ю2*3‼Ю
          23204          020000Ю000;
          23206          020000+000;
          23208          020000.000;
          23210          0000010000;
          23212          ££££££££££;
          23214          ££££££££££;
          23216          ££££££££££;
          23218          ££££££££££;
          23220          ££££££££££;                                       *3Ю2*3‼Ю
          23222          (D)0000000000;                                    (A)ON ENTRY TO PROG
          23224          0000000000;                                       (B)ON ENTRY TO PROG

          23300    PROCR   233       233     ALLOCATOR PARAMETER TABLE
          23301     NOTES          RADIX
          23302    100              0   0  0  Halt                         ZERO
          23303    100              0   0  0  Halt                         13-BIT START OF LOADING SYSTEM
          23304    100              0   0  0  Halt                         15-BIT START OF LOADING SYSTEM
          23305    100     233      2   0  0  Halt                         START OF THIS LIST
          23306    100     229      2   0  0  Halt                         START OF M/R TABLES
          23307    100              0   0  0  Halt                         ALLOCATE COMMAND/ZERO
          23308    100     247      2   0  0  Halt                         LOAD NEXT CHAPTER S/R
          23309    100     236      2   0  0  Halt                         READ NEXT BLOCK S/R
          23310    100     235      2   0  0  Halt                         UPDATE SWITCH S/R
          23311    100     243      2   0  0  Halt                         RETURN ADDRESS AFTER LOADING
          23312    100     222     12   0  0  Halt                         LOCATION WHERE (MOD GP 3) IS STORED
          23313    100             60   0  0  Halt                         PSEUDOROUTE FOR ROUTE 0
          23314    100     252      2   0  0  Halt                         START OF USE OF ASSEMBER TABLE
          23315    100     208      3   0  0  Halt                         XXX COMMENT
          23316    100     484      3   0  0  Halt                         REJECT ALLOCATION COMMENT
          23317    100     270      2   0  0  Halt                         *464 R/C LINK       00004
          23318    100     190     34   0  0  Halt                         START OF REEL COUNTERS
          23319    100     177      2   0  0  Halt                         REQUEST T/W S/R
          23320    100     102      6   0  0  Halt                         START OF T/W ANNEXE
          23321    100     234      2   0  0  Halt                         EDIT TIME S/R
  Source image: P1020677.JPG
          23322    100     181      2   0  0  Halt                         ENTRY TO LOG ROUTINE
          23323    100     499      2   0  0  Halt                         *01‼ NOT HIGH DENSITY IF ZERO
          23324    100     191     64   0  0  Halt                         *01‼ 45/90K INDICATORS
          23325    117     496     66   0  0  special select               64-(CONTROL DATA LIST START)FOR 45K
          23326    100              0   0  0  Halt                         PROG TAPE ROUTE
          23327    100              1   0  0  Halt                         *31‼ CLOCK=1,ZERO=NO CLOCK
          23328    100              0   0  0  Halt                         *544*443 DUMPS PRINT     2
          23329    108              9   0  0  merge constant length        *2.+62‼*2.+*62‼     0000000004
          23330    100              1   0  0  Halt                         0=ISSUE 4 MASTER,1=ISSUE 6 OR LATER
          23331    100     230      2   0  0  Halt                         START OF PRIORITY TABLE
          23332    100     231      2   0  0  Halt                         START OF STORE TABLE
          23333    100     232      2   0  0  Halt                         *3Ю3*3‼‼ START OF SECOND STORE TABLE
          23334    116             64   0  0  Invalid                      *3:‼ MORE THAN 8 CHANNELS
          23335    100              1   0  0  Halt                         *3.3*04‼ CARDS OR P/T INDICATOR
          23336    100     295     17   0  0  Halt                         RETURN ADDRESS FOR PTS ABDON/END
          23337    100     190      2   0  0  Halt                         PTS=PROG CHANNEL BLOCK CTRS
          23338    100     190     98   0  0  Halt                         PTS=FILE IDENTITIES+REWIND INDS
          23339    100     464     20   0  0  Halt                         *41‼ RETURN ADD FROM START OF STORE DUMP
          23340    100     246     16   0  0  Halt                         RETURN TO RELEASE MR SWITCH
          23341    100     216      2   0  0  Halt                         *343 OFLOW EDIT TABLE
          23342    100     246     10   0  0  Halt                         RETURN ADD FOR O'LAY (END)
          23343    100     452     20   0  0  Halt                         *34‼ RETURN ADD FOR TROFL
          23344    100     474      2   0  0  Halt                         'SET TAG 15' SUBROUTINE
          23345    100              0   0  0  Halt                         Q1-4=ABS PTS START,Q5=2XCHAP
          23346    100              0   0  0  Halt                         TRIAL IN PROGRESS IND-START OF SWITCH
          23347    100     246     24   0  0  Halt                         *60‼ RETURN ADD FOR O'LAY(START)
          23348    100              0   0  0  Halt                         START OF SECOND STORE AREA
          23349    100              1   0  0  Halt                         *80+
          23350    100              0   0  0  Halt                         SPECIAL CHAP INCREMENT IN CMR
          23351    100     130      2   0  0  Halt                         END OF PRIORITY QUEUE
          23352    100     462      2   0  0  Halt                         'REQUEST MASTER SWITCH'SUBROUTINE
          23353    100     296      6   0  0  Halt                         *14‼ LOCN OF 'OPTA' SWITCH-PTS OVERLAY
          23354    100     468     12   0  0  Halt                         *41‼
          23355    100     175      3   0  0  Halt                         'OPT OUTSTANDING'WL'S FOR PTS
          23356    100     176     12   0  0  Halt
          23357    100              0   0  0  Halt                         WL=INDEX IDENTIFIER M/CODE START

          23400    PROCR   234       234     SUB ROUTINE H
          23401     NOTES          RADIX     B    TO EDIT TIME AND RIBBON SHIFT
          23402    100              0   0  0  Halt                         LINK
          23403    127     234      7   0  0  jump A = Z                   *6‼9                >ZERO
    23412>23404    101     217     36   1  1  add literal address          TABLE START
          23405    128     102      4   1  2  edit fixed field formats
          23406    126     234      2   0  1  leave subroutine             >LEAVE S/R
    23403>23407    106     234     18   0  0  select (N)                   *6‼Ю                COUNTER
          23408    101              1   1  2  subtract literal address                         SUBTRACT 1
          23409    103     234     18   0  0  copy (A) to N                                    COPY
          23410    127     234     13   0  0  jump A = Z                                       >ZERO
          23411    125              0   1  2  interrogate indicators                           CLEAR(A)
          23412    124     234      4   1  0  unconditional jump                               >
    23410>23413    101     217     46   1  3  select literal address       TABLE START
          23414    128     102      4   1  2  edit fixed field formats
          23415    101             15   1  3  select literal address
          23416    102     234     18   0  0  transfer (A) to N                                TRANSFER
          23417    126     234      2   0  1  leave subroutine                                 LEAVE S/R
          23418    100             15   0  0  Halt                         *6‼Ю

          23500    PROCR   235       235     SUB-ROUTINE X
          23501     NOTES          RADIX     B    TO UPDATE SWITCH
          23502    100              0   0  0  Halt
          23503    101              0   0  1  prepare for digit collation  CLEAR B
          23504    106              7   0  3  select (N)                                       TEST IF DESTINATION
          23505    105              9   0  3  subtract (N) from (A)                            SWITCH SET AT 2
          23506    127     235      9   0  1  jump A != Z                  >NO
          23507    106              9   0  2  select (N)                   AMEND SEQUENCE
          23508    102              7   0  3  transfer (A) to N            CHANGES IN SWITCH
  Source image: P1020678.JPG
    23506>23509    106              9   0  2  select (N)
          23510    102              9   0  3  transfer (A) to N
          23511    106             20   0  2  select (N)
          23512    102             20   0  3  transfer (A) to N
          23513    126     235      2   0  1  leave subroutine             >LEAVE S/R

          23600    PROCR   236       236     SUB-ROUTINE BB
          23601     NOTES          RADIX     B    TO READ A BLOCK FROM M/T
          23602    100              0   0  0  Halt                         LINK
          23603    106     212     10   1  0  select (N)                   *10Ю                SET UP
          23604    102     212     18   1  0  transfer (A) to N            *10Ю                MODIFIER
    23616>
    23620>23605    100     220      2   1  1  replace registers
          23606    104     233     26   0  0  add (N) to (A)               RTE NO
          23607    126     100      2   0  0  enter subroutine             >READ
          23608    126     350      2   0  0  enter subroutine             *10Ю                TEST RTE
          23609    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK CTR
          23610    127     236     21   0  0  jump A = Z
          23611    101              0   1  3  select literal address       CLEAR A
          23612    126     331      2   0  0  enter subroutine             >STEP COUNTER BY-1
          23613    123              1   0  0  step on and test             TEST 48 ATTEMPTS
          23614    100     212     18   0  0  Halt
          23615    124     236     17   1  0  unconditional jump           >TRY AND FIND THIS BLOCK
          23616    124     236      5   1  0  unconditional jump           >REALIGN ON PREVIOUS BLOCK
    23615>23617    124     188      2   0  1  modify address of next       SET UP LAST
          23618    106     190      2   0  0  select (N)                   BLOCK NUMBER TO
          23619    102              1   1  3  transfer (A) to N            AVOID SERIAL FAILURE
          23620    124     236      5   1  0  unconditional jump           *10Ю >TRY AGAIN
    23610>23621    124            124   0  1  modify address of next       UNPACK
          23622    106             56   1  0  select (N)
          23623    128     228      2   1  0  bulk copy alpha to short
          23624    124     210      3   1  1  set modification group       SET MOD GROUP 3
          23625    126     236      2   0  1  leave subroutine             >LEAVE S/R

          23700    PROCR   237       237     INPUT/OUTPUT S/R
          23701     NOTES          RADIX     B    ALLOC AND OVERLAY
          23702    100              0   0  0  Halt                         LINK
          23703    118              5   0  0  shift logical
          23704    104     233     26   0  0  add (N) to (A)               RTE NO
          23705    125           4096   1  1  clear indicators             SET NON-INT
          23706    126     100      2   0  0  enter subroutine             >
          23707    126     237      2   0  1  leave subroutine             >LEAVE S/R

          23800    PROCR   238       238     AUGMENT TIME SPENT IN PROGRAMME S/R
          23802    100              0   0  0  Halt                         *09Ю06Ю
          23803    100     210      3   0  3  set radix                    *3+Ю
          23804    106            157   0  0  select (N)
          23805    107             46   1  1  augment (N) by (A)           *3+Ю
          23806    100     212      2   0  3  set radix                    SET BINARY
          23807    126     238      2   0  1  leave subroutine             *09Ю06Ю
          23808    115     228      3   0  0  collate and add              *££0*££2*3Ю3*3‼‼
          23809    124     242     83   1  0  unconditional jump           *363 >NO,REJECT
          23810    124     477      8   1  0  unconditional jump           *363363

          23900    PROCR   239       239     TEST SENTINEL TYPE 5 S/R
          23902    100              0   0  0  Halt
          23903    124     212      2   1  1  set modification group       MGO
          23904    106     228      2   0  0  select (N)                   TEST SENTINEL BLOCK
          23905    105     211      2   0  0  subtract (N) from (A)
          23906    127     239     12   0  1  jump A != Z                  >NO
          23907    101              1   0  1  prepare for digit collation
          23908    106     228      3   0  0  select (N)                   *3Ю3*3‼‼
          23909    101              5   1  2  subtract literal address
          23910    127     242     15   0  0  jump A = Z                   *3Ю2*3‼Ю NOT ALLOWED ON 326
          23911    101             80   1  2  subtract literal address     *3Ю2*3‼Ю
    23906>23912    126     239      2   0  1  leave subroutine

  Source image: P1020679.JPG
          24000    PROCR   240       240     REPORT REQUIRED PROG NOT ON FILE
          24001     NOTES          RADIX     B
    24155>
    24422>
    24524>24002    101             27   1  3  select literal address                           IN W/L
          24003    126     237      2   0  0  enter subroutine             >CLOSE FILE
          24004    126     177      2   0  0  enter subroutine             >REQUEST T/W
          24005    101              4   1  3  select literal address
          24006    126     234      2   0  0  enter subroutine             >S/R H
          24007    124     214     26   0  2  select literal and division  SET EDIT TABLE FOR LOST
          24008    102     217     28   0  0  transfer (A) to N
          24009    124     217     28   0  2  select literal and division                      FORM COMMENT
          24010    128     102      6   1  2  edit fixed field formats
          24011    106     209      4   0  0  select (N)                   26/1/0/0/0
          24012    105     233     26   0  0  subtract (N) from (A)        RTE NO
          24013    102     106     14   0  0  transfer (A) to N                                SET M/R SWITCH=1
          24014    106     209      8   0  0  select (N)
          24015    102     106     24   0  0  transfer (A) to N                                AMEND S/C AT END OF
          24016    126     347      2   0  0  enter subroutine             *469 >ASSOC TIME SR SI=1 CODING
          24017    106     233     26   0  0  select (N)                   *59Ю
          24018    102             30   0  1  transfer (A) to N            *59Ю
          24019    124     181      2   1  0  unconditional jump           >LOG ROUTINE
    20908>24020    106     209      9   0  0  select (N)
          24021    102     106     24   0  0  transfer (A) to N                                RESET S/C
          24022    124     225     16   0  1  modify address of next       *579
          24023    102     224      4   1  0  transfer (A) to N            CLEAR IDENTITY OF LAST PROGRAM USED
          24024    124     245      2   1  0  unconditional jump           >

          24100    PROCR   241       241     ALLOCATION AND OVERLAY
          24101     NOTES          RADIX     B    SUB-ROUTINE A: OPEN FILE IF NECESSARY
          24102    100              0   0  0  Halt                         LINK
          24103    101              0   1  3  select literal address       *5+Ю CLEAR CHANGE DECK
          24104    124              3   0  3  modify address of next       INDICATOR
          24105    102            164   0  0  transfer (A) to N            *5+Ю
          24106    124     241     10   0  2  select literal and division  SET UP PSEUDO
          24107    101     267      2   1  2  subtract literal address     ROUTE TYPE
          24108    104     209     12   0  0  add (N) to (A)
          24109    126     237      2   0  0  enter subroutine             >TEST RTE DEALING   WITH D/B
          24110    100     210      3   0  3  set radix                    AUGMENT BLOCK
          24111    124     233     26   0  1  modify address of next       TEST FIRST TIME ANY
          24112    106     190      2   0  0  select (N)                   PROG TAPE LOADED
          24113    127     241     17   0  0  jump A = Z                   >YES
          24114    101              1   1  3  select literal address       COUNTER
          24115    124     233     26   0  1  modify address of next
          24116    107     190      2   0  0  augment (N) by (A)
    24113>24117    100     212      2   0  3  set radix
    24124>24118    124     233     26   0  1  modify address of next       STEP FORWARD
          24119    119              0   1  3  step on/set manual
          24120    126     351      2   0  0  enter subroutine             >TEST ROUTE NOTING D/B
          24121    124     233     26   0  1  modify address of next                           TEST CORRECT BLOCK
          24122    124             64   0  1  modify address of next                           NUMBER
          24123    106              1   1  0  select (N)
          24124    127     241     18   0  3  jump A < Z                   >NO, PROBABLY FBM
          24125    124     233     26   0  1  modify address of next
          24126    105     190      2   0  0  subtract (N) from (A)
          24127    127     241     30   0  1  jump A != Z                  >NO, NOT FBM
          24128    124     241      2   0  1  modify address of next
          24129    124              1   1  0  unconditional jump           >LEAVE S/R+1
    24127>24130    124     233     26   0  1  modify address of next
          24131    104     190      2   0  0  add (N) to (A)                                   TEST<BLOCK 7
          24132    101              7   1  2  subtract literal address
          24133    127     241     38   0  3  jump A < Z                   >YES
          24134    101           3841   1  3  select literal address       SET REEL COUNTER=£:1
          24135    124     233     26   0  1  modify address of next
          24136    102     190     34   0  0  transfer (A) to N
  Source image: P1020680.JPG
          24137    126     241      2   0  1  leave subroutine             >LEAVE S/R
    24133>24138    125              0   1  2  interrogate indicators       CLEAR REEL COUNTER
          24139    124     233     26   0  1  modify address of next
          24140    102     190     34   0  0  transfer (A) to N
          24141    100     214     14   1  2  replace (B) by (N)
          24142    101             17   1  3  select literal address
          24143    126     237      2   0  0  enter subroutine             >OPEN FILE
          24144    118           4119   0  0  shift logical
          24145    101              1   1  2  subtract literal address                         TEST A1
          24146    127     241     57   0  0  jump A = Z                   >YES
          24147    101              1   1  2  subtract literal address                         TEST A2
          24148    127     241     57   0  0  jump A = Z                   >YES
          24149    101              1   1  2  subtract literal address                         TEST A3
          24150    127     241     57   0  0  jump A = Z                   >YES
          24151    101              3   1  2  subtract literal address                         TEST A6
          24152    127     241     57   0  0  jump A = Z                   >YES
          24153    124     245     18   0  2  select literal and division
          24154    105     241      2   0  0  subtract (N) from (A)
          24155    127     240      2   0  0  jump A = Z                   >YES:'LOST'
          24156    124     491     12   1  0  unconditional jump           *363363
    24152>
    24150>
    24148>
    24146>24157    126     241      2   0  1  leave subroutine             >LEAVE S/R

          24200    PROCR   242       242     ALLOCATION AND OVERLAY
          24201     NOTES          RADIX     B    SUB-ROUTINE B:LOCATE PROGRAMME
          24202    100              0   0  0  Halt                         LINK
    24214>24203    100     220      8   1  1  replace registers            RUN FORWARD
          24204    104     233     26   0  0  add (N) to (A)
          24205    126     100      2   0  0  enter subroutine             >
          24206    126     236      2   0  0  enter subroutine             *101                >READ
          24207    124     212      2   1  1  set modification group       MOD GP 0
          24208    124            124   0  1  modify address of next                           TEST INDEX BLOCK
          24209    106              6   1  0  select (N)
          24210    105     214     66   1  0  subtract (N) from (A)
          24211    127     242     16   0  0  jump A = Z                   >YES
          24212    104     214     66   1  0  add (N) to (A)                                   TEST'DOUBT'
          24213    105     215     18   1  0  subtract (N) from (A)
          24214    127     242      3   0  0  jump A = Z                   >YES
    24226>
    24256>
    23910>24215    124     242     82   1  0  unconditional jump           *363 >NO,REJECT
    24211>24216    124            124   0  1  modify address of next       STORE IDENTIFIER
          24217    106             11   1  0  select (N)
          24218    124     225     16   0  1  modify address of next       *579
          24219    102     224      7   0  0  transfer (A) to N
    24240>24220    126     236      2   0  0  enter subroutine             >S/R B8
          24221    124     212      2   1  1  set modification group       MG 0
          24222    126     212      2   1  3  set modification register    SET (MR3)=24/0
    24239>24223    101              0   0  1  prepare for digit collation  CLEAR B
          24224    106     228      2   0  3  select (N)                                       TEST PROG 10=£5
          24225    105     211      2   0  0  subtract (N) from (A)
          24226    127     242     15   0  0  jump A = Z
          24227    106     228      2   1  3  select (N)                                       TEST REQUIRED PROG
          24228    124     225     16   0  1  modify address of next       *579
          24229    103     224      4   1  0  copy (A) to N                                    1D AND SERIAL
          24230    105     221      8   1  0  subtract (N) from (A)
          24231    127     242     41   0  0  jump A = Z                   >YES
          24232    118           4123   1  0  shift logical                *70Ю
          24233    105     228      3   0  3  subtract (N) from (A)
          24234    127     242     41   1  0  jump AB = Z
          24235    106     221      8   0  0  select (N)
          24236    105     213      2   0  0  subtract (N) from (A)        FIRST PROGM WANTED
          24237    127     242     41   0  0  jump A = Z                   *70Ю
    24252>24238    125              4   0  3  step on and test
  Source image: P1020681.JPG
          24239    124     242     23   1  0  unconditional jump
          24240    124     242     20   1  0  unconditional jump
    24237>
    24234>
    24231>24241    106     228      4   0  3  select (N)                   TEST PASS IND=4
          24242    105     220     11   0  0  subtract (N) from (A)
          24243    127     242     51   0  1  jump A != Z                  >NOT,REJECT IF TRIALS ALLOC
          24244    100     220      3   0  2  replace (B) by (N)           *60Ю
          24245    115     233     26   0  0  collate and add              PTS ROUTE
          24246    101              7   1  2  subtract literal address
          24247    127     242     57   0  1  jump A != Z
          24248    106     228      5   0  3  select (N)                   STORE INDEX IDENTIFIER
          24249    102     233     57   0  0  transfer (A) to N            *60Ю =PARA 55
          24250    124     242     57   1  0  unconditional jump
    24243>24251    104     212      6   0  0  add (N) to (A)                                   TEST INDICATOR=2
          24252    127     242     38   0  1  jump A != Z                  >NO,CONTINUE SEARCH
          24253    100     220      3   0  2  replace (B) by (N)           *60Ю
          24254    115     233     26   0  0  collate and add
          24255    101              7   1  2  subtract literal address
          24256    127     242     15   0  0  jump A = Z                   *60Ю
    24250>
    24247>24257    124             10   0  2  select literal and division  FORM UP IDENTIFIER FOR RUNNING
          24258    118              5   0  0  shift logical
          24259    104     228      5   0  3  add (N) to (A)
          24260    102     221      4   1  0  transfer (A) to N
          24261    106     228      5   0  3  select (N)                                       TEST CORRECT PLACE
          24262    124     225     16   0  1  modify address of next       *579                ON TAPE
          24263    105     224      7   0  0  subtract (N) from (A)
          24264    124     225     16   0  1  modify address of next       *579
          24265    107     224      7   0  0  augment (N) by (A)
          24266    127     242     74   0  0  jump A = Z                   >YES
          24267    127     242     70   0  3  jump A < Z                   >RUN BACK
          24268    124             38   0  2  select literal and division
          24269    124     242     71   1  0  unconditional jump
    24540>
    24267>24270    124             36   0  2  select literal and division
    24269>24271    100     221      4   1  2  replace (B) by (N)
          24272    126     237      2   0  0  enter subroutine             >RUN FWD/BACK
          24273    124     242     75   1  0  unconditional jump           *109
    24276>
    24279>
    24266>24274    126     236      2   0  0  enter subroutine             >S/R BB
    24273>24275    126     239      2   0  0  enter subroutine             >                   TEST SENTINEL TYPE 5
          24276    127     242     74   0  1  jump A != Z                  >NO
          24277    106     228      2   0  0  select (N)
          24278    105     220     10   0  0  subtract (N) from (A)
          24279    127     242     74   0  1  jump A != Z                  >NO
          24280    124     242      2   0  1  modify address of next
          24281    124              1   1  0  unconditional jump           >LEAVE S/R+1
    24215>24282    101             81   1  3  select literal address       *361                CODE LETTER A
    23809>24283    126     242      2   0  1  leave subroutine             >LEAVE S/R

          24300    PROCR   243       243     RETURN FROM P.L.S. AFTER LOADING
          24301     NOTES          RADIX     B
          24302    124             27   0  1  modify address of next       STORE NO OF CHAPS LOADED
          24303    106              4   0  0  select (N)
          24304    124     225     16   0  1  modify address of next       *579
          24305    102     224      6   0  0  transfer (A) to N
          24306    124     225     16   0  1  modify address of next       *57Ю
          24307    106     224      2   0  0  select (N)
          24308    124             27   0  1  modify address of next       STORE ROUTE IN SPECIAL CHAPT
          24309    102            159   0  0  transfer (A) to N            *57Ю
          24310    126             26   1  2  set modification register    SET(MR2)AT START OF SWITCH
          24311    123             28   0  3  select tag                   *59Ю TEST MOD
          24312    101             14   1  2  subtract literal address     GROUP 3 ALLOCATED
          24313    127     243     43   0  0  jump A = Z                   >NO
  Source image: P1020682.JPG
          24314    106     209     15   0  0  select (N)                   SET UP 6/0/0 8
          24315    102              2   0  2  transfer (A) to N            ACTION IN 2 OF SWITCH
          24316    106              4   0  0  select (N)                   FORM MODIFIER TO
          24317    101     111      2   1  2  subtract literal address     GIVE THIS SWITCHES
          24318    118           4127   1  0  shift logical                W/L'S
          24319    118              2   1  3  shift binary
          24320    102              6   0  0  transfer (A) to N
          24321    106     209     21   0  0  select (N)                   SET UP 6/1/0 IN
          24322    104              6   0  0  add (N) to (A)               SWITCH
          24323    102             26   0  2  transfer (A) to N
          24324    106     129      5   0  3  select (N)                   SET UP 28/1/1 W/L'S
          24325    103              3   0  2  copy (A) to N                IN 3 OF SWITCH
          24326    104     209     16   0  0  add (N) to (A)               24/1/0 TO BLISTER SPACE IN
          24327    102             28   0  2  transfer (A) to N            28 OF SWITCH
          24328    106              4   0  2  select (N)                   *09Ю06Ю*09Ю062      TEST TIMINGS ON
          24329    127     243     34   0  2  jump A >= Z                  *09Ю06Ю             >YES
          24330    106             28   0  2  select (N)                   SET UP 26/0/3
          24331    102             27   0  2  transfer (A) to N            IN 27 OF SWITCH
          24332    106     209     17   0  0  select (N)                   SET UP 24/1/0 TO TOP OF PQ
          24333    102              4   0  2  transfer (A) to N            *09Ю062
    24329>24334    106     209     17   0  0  select (N)                   SET UP 24/1/0 TO TOP OF PQ
          24335    102              6   0  2  transfer (A) to N            IN 4 OF SWITCH
          24336    106              3   0  2  select (N)
          24337    127     243     42   0  2  jump A >= Z
          24338    102     243     41   0  0  transfer (A) to N
          24339    106     243     76   0  0  select (N)
          24340    118              5   0  0  shift logical
          24341    100              0   0  0  Halt
    24337>24342    101              0   1  3  select literal address
    24313>24343    123             26   1  0  copy into tag                SET TAG 0 IN MOD
          24344    123             30   1  0  copy into tag                GROUP 3
          24345    123             28   1  0  copy into tag                *59Ю
          24346    106     176     23   0  0  select (N)
          24347    124             26   0  1  modify address of next       FORM SI=4 LINK
          24348    101             14   1  2  subtract literal address
          24349    103             35   0  2  copy (A) to N
          24350    102              7   0  2  transfer (A) to N            SET SI=4
          24351    124             27   0  1  modify address of next       *60Ю                TEST TRIAL
          24352    106             11   0  0  select (N)                   *60Ю
          24353    127     246     14   0  0  jump A = Z                   >NO
          24354    106             26   0  0  select (N)                   *60Ю SET TRIALS     IND
          24355    102     233     46   0  0  transfer (A) to N
          24356    126     480      2   0  0  enter subroutine
          24357    106     218      6   1  0  select (N)                   RESTORE MOD GROUP 3
          24358    128             26   0  0  bulk copy short numeric
          24359    106     106     16   0  0  select (N)                   SET M/R SWITCH AT 2
          24360    102     106     14   0  0  transfer (A) to N
          24361    124             24   0  2  select literal and division  SET LAST CHAP READ AT 24
          24362    124     225     16   0  1  modify address of next       *579
          24363    102     224      6   0  0  transfer (A) to N
          24364    106     222      7   0  0  select (N)                   TRIAL DATA IND
          24365    124     233     45   0  1  modify address of next
          24366    124              4   1  0  unconditional jump           >PTS
          24367    124     233     45   0  1  modify address of next       *££0*££1*49‼        LINK UP FROM
    10015>24368    124              2   0  1  modify address of next       *49‼                STORE (ABC)
          24369    100             30   1  0  copy registers               *49Ю
          24370    106     209      6   0  0  select (N)                                       26/0/1 2 RESTORE(9)
          24371    102              9   0  0  transfer (A) to N
          24372    124              2   0  1  modify address of next       RESTORE (ABC)
          24373    100             30   1  1  replace registers
          24374    124     233     45   0  1  modify address of next       *49Ю                LINK UP FROM
          24375    124              5   1  0  unconditional jump           *60Ю >PTS
          24376    102              6   0  0  transfer (A) to N            *599
          24377    127     244     23   0  0  jump A = Z                   *££0*££2*57‼
          24378    124     244     25   1  0  unconditional jump           *14‼
          24379    127     245     12   0  0  jump A = Z                   *573 >NO
  Source image: P1020684.JPG
          24380    127     244     25   0  0  jump A = Z                   *££2*14‼57‼

          24400    PROCR   244       244     ENTRY FOR OVERLAY.
          24401     NOTES          RADIX     B
    10009>24402    124     212      2   1  1  set modification group                           SET MOD GROUP 0
          24403    124              2   0  1  modify address of next
          24404    100             30   1  0  copy registers
          24405    126     250      2   0  0  enter subroutine             *599 >STORE MOD GROUP 3 S/R
          24406    106     209      6   0  0  select (N)                   *49Ю                26/0/1 2 RESTORE (9)
          24407    102              9   0  0  transfer (A) to N            *49Ю
          24408    106     100      8   0  0  select (N)                                       STORE DETAILS IN
          24409    102             44   0  1  transfer (A) to N                                SWITCH
          24410    126     238      2   0  0  enter subroutine             *099 >AUGMENT TIME SPENT
          24411    126     462      2   0  0  enter subroutine             >REQUEST M/R FOR OVERLAY
          24412    106     221     34   0  0  select (N)                   *16Ю
    37915>24413    127     244     17   0  0  jump A = Z                   *14‼57‼*57‼ >UPTIME NOT IN
          24414    126     379      2   0  0  enter subroutine             >CLOSE RT
          24415    127     103      7   0  3  jump A < Z                   >DELAY STILL IN PROCESS
          24416    126     380      2   0  0  enter subroutine             *16Ю SET EVERYTHING BACK
    24413>24417    124              3   0  1  modify address of next       *57Ю
          24418    106            159   0  0  select (N)                   SELECT AND STORE CH RT FROM SPECIAL CHAP
          24419    103     233     26   0  0  copy (A) to N
          24420    126     249      2   0  0  enter subroutine             >S/R-SEARCH LIST    FOR RT
          24421    124     244     23   1  0  unconditional jump           *14‼ >RT FOUND IN LIST
          24422    124     240      2   1  0  unconditional jump           *57Ю                >'LOST'
    24421>
    24377>24423    106     212      6   0  0  select (N)                   *14Ю SET OPT A SWITCH AT2
          24424    102     296      6   0  0  transfer (A) to N            *14Ю
    24380>
    24378>24425    125            127   1  0  set indicators               *579169
          24426    106             37   0  1  select (N)                   START OF LAST CH.
          24427    102              4   1  0  transfer (A) to N
          24428    106             30   0  1  select (N)                                       TEST IF OVERLAYING
          24429    105              4   0  2  subtract (N) from (A)                            CHPT IS AN INITIAL
          24430    127     244     33   0  3  jump A < Z                   >YES                CHPT
          24431    106     210      8   0  0  select (N)
          24432    107             30   0  1  augment (N) by (A)
    24430>24433    106             12   1  2  select (N)                   PROG ID & SL NO
          24434    102     221      8   1  0  transfer (A) to N
          24435    106             30   0  1  select (N)
          24436    102     221     13   0  0  transfer (A) to N
          24437    124     270      2   0  2  select literal and division  *464                00004
          24438    102             42   0  1  transfer (A) to N
          24439    106              9   0  1  select (N)                   SET SI=2
          24440    102              7   0  1  transfer (A) to N
          24441    106              2   1  0  select (N)                   STORE (MR1)
          24442    102     221      6   1  0  transfer (A) to N
          24443    126     107      8   1  1  set modification register    SET (MR1) FOR M/R
          24444    124     214     72   0  2  select literal and division  SET EDIT TABLE FOR O'LAY
          24445    102     217     28   0  0  transfer (A) to N
          24446    124     217     28   0  2  select literal and division  EDIT COMMENT INTO SP CHAP
          24447    124              3   0  1  modify address of next
          24448    128            130   1  2  edit fixed field formats
          24449    124              3   0  1  modify address of next
          24450    124            130   0  2  select literal and division
          24451    123            168   0  2  enter master routine         >TYPE

          24500    PROCR   245       245     OVERLAY 2
          24501     NOTES          RADIX     B
    24024>24502    100     220      3   0  2  replace (B) by (N)
          24503    124     221      7   0  1  modify address of next       *60Ю TEST PROGRAM UNDER TRIAL
          24504    106             11   0  0  select (N)
          24505    127     245     11   0  0  jump A = Z                   *573 >NO
          24506    106     220      3   0  0  select (N)                   *572 SET BITS 1-3
          24507    114     233     26   0  0  replace selected bits        *572 OF PROG ROUTE
          24508    124     233     45   0  1  modify address of next
  Source image: P1020685.JPG
          24509    124              0   1  0  unconditional jump           *60Ю                >PTS
          24510    125              0   1  2  interrogate indicators       *572*601
    24505>24511    114     233     26   0  0  replace selected bits        *572
    24379>24512    106     209     10   0  0  select (N)                   SET UP A.S.L'S
          24513    124     233     26   0  1  modify address of next
          24514    102             64   0  0  transfer (A) to N
          24515    106     209     11   0  0  select (N)
          24516    102            124   0  0  transfer (A) to N
          24517    126     241      2   0  0  enter subroutine             >S/R A
          24518    124     245     23   1  0  unconditional jump           >FILE HAS BEEN OPENED
          24519    106     221      8   1  0  select (N)                                       TEST LAST PROG READ
          24520    124     225     16   0  1  modify address of next       *579                WAS THIS PROG
          24521    105     224      4   1  0  subtract (N) from (A)
          24522    127     245     26   0  0  jump A = Z                   >YES
    24518>24523    126     242      2   0  0  enter subroutine             >S/R B
          24524    124     240      2   1  0  unconditional jump           >'LOST'
          24525    124     245     44   1  0  unconditional jump           >
    24631>
    24522>24526    106     221     13   0  0  select (N)                                       TEST THIS CHAP=
          24527    124     225     16   0  1  modify address of next       *579                LAST CHAPT LOADED+1
          24528    105     224      6   0  0  subtract (N) from (A)
          24529    101              1   1  2  subtract literal address
          24530    127     245     41   0  0  jump A = Z                   >YES
          24531    127     245     44   0  2  jump A >= Z                  >YES                TEST THIS CHAP>LAST
          24532    124     225     16   0  1  modify address of next       *579
          24533    106     224      7   0  0  select (N)
          24534    118           4123   1  0  shift logical                SET UP PROG'S IDENTIFIER
          24535    124             10   0  2  select literal and division
          24536    118              5   1  0  shift logical
          24537    102     221      4   1  0  transfer (A) to N
          24538    124     245     24   0  2  select literal and division  SET LINK IN S/R B
          24539    102     242      2   0  0  transfer (A) to N
          24540    124     242     70   1  0  unconditional jump           >S/R B
    24530>24541    100     210      8   0  2  replace (B) by (N)
          24542    124             40   0  2  select literal and division
          24543    126     237      2   0  0  enter subroutine             >STEP BACK
    24548>
    24551>
    24554>
    24632>
    24531>
    24525>24544    126     236      2   0  0  enter subroutine             >S/R BB
          24545    124            124   0  1  modify address of next                           TEST CHAPTER
          24546    106             12   1  0  select (N)                                       HEADING BLOCK
          24547    105     214     68   1  0  subtract (N) from (A)
          24548    127     245     44   0  1  jump A != Z                  >NO
          24549    106     228      4   1  0  select (N)                                       TEST CORRECT PROG
          24550    105     221      8   1  0  subtract (N) from (A)                            IDENTITY AND
          24551    127     245     44   0  1  jump A != Z                  >NO                 SERIAL NO
          24552    106     228      2   0  0  select (N)                                       TEST IF REQUIRED
          24553    105     221     13   0  0  subtract (N) from (A)                            CHAPTER
          24554    127     245     44   0  1  jump A != Z                  >NO
          24555    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          24556    102     106     13   0  0  transfer (A) to N                                NON-INT
          24557    106     218      2   1  0  select (N)                                       STORE GP 3 REGS
          24558    128     222     12   0  0  bulk copy short numeric
          24559    124     212      2   1  1  set modification group                           RESET MOD GP 0
          24560    126     221      6   1  2  set modification register    SET (MR2) FOR PROG
          24561    106             32   0  2  select (N)                   OVERLAYED CH NO
          24562    104             32   0  2  add (N) to (A)                                   SET MR2 FOR START OF
          24563    104             37   0  2  add (N) to (A)               START OF LAST CH    CH TO BE OVERLAYED
          24564    102             28   1  0  transfer (A) to N
          24565    124     210      3   1  1  set modification group                           SET MOD GP3
          24566    124              3   0  2  select literal and division  *14Ю SET OPT A SWITCH AT 3
          24567    102     296      6   0  0  transfer (A) to N            *14Ю
          24568    106             18   0  2  select (N)                   START OF CH
  Source image: P1020686.JPG
          24569    103             28   1  0  copy (A) to N                                    SET (MR2)=START CH
          24570    126     247      2   0  0  enter subroutine             >LOAD S/R

          24600    PROCR   246       246     OVERLAY (3)
          24601     NOTES          RADIX     B
          24602    106     221     13   0  0  select (N)                   STORE NO OF CHAP LOADED
          24603    124     225     16   0  1  modify address of next       *579
          24604    102     224      6   0  0  transfer (A) to N
          24605    124     221      7   0  1  modify address of next       *60Ю                TESTPROG
          24606    106             11   0  0  select (N)                                       UNDER TRIAL
          24607    127     246     10   0  0  jump A = Z                   >NO
          24608    124     233     45   0  1  modify address of next
          24609    124              7   1  0  unconditional jump           *60Ю                >PTS
    24607>24610    124     212      2   1  1  set modification group       0                   SET MOD GROUP 0
          24611    126     221      6   1  2  set modification register    SET (MR2) FOR PROG
          24612    106             35   0  2  select (N)
          24613    102              7   0  2  transfer (A) to N                                SET SI=4
    24353>24614    106     218      6   1  0  select (N)                   RESTORE GROUP 3 REGISTERS
          24615    128             26   0  0  bulk copy short numeric
    46815>24616    126     107      8   1  1  set modification register    SET (MR1) FOR M/R   (NEEDED FOR PTS)
          24617    106     106     16   0  0  select (N)                   SET M/R SWITCH AT 2
          24618    102     106     14   0  0  transfer (A) to N
          24619    100     220      3   0  2  replace (B) by (N)           *60Ю BITS 1-3
          24620    106     220      3   0  0  select (N)                   7
          24621    114     233     26   0  0  replace selected bits        *60Ю RESET ROUTE IN CASE OF PTS
          24622    126     480      2   0  0  enter subroutine
          24623    124     103      7   1  0  unconditional jump           >HEAD OF QUEUE
          24624    102     221      2   0  0  transfer (A) to N            *60Ю RETURN FROM PTS(START)
          24625    106     209     10   0  0  select (N)
          24626    124     233     26   0  1  modify address of next
          24627    102             64   0  0  transfer (A) to N
          24628    106     209     11   0  0  select (N)
          24629    102            124   0  0  transfer (A) to N
          24630    106     221      2   0  0  select (N)
          24631    127     245     26   0  0  jump A = Z                   >ALIGNED AT END OF CHAP
          24632    124     245     44   1  0  unconditional jump           >ALIGNED AT START OF PROG

          24700    PROCR   247       247     LOAD SUB-ROUTINE
          24701     NOTES          RADIX     B    LOAD NEXT CHAPTER
          24702    100              0   0  0  Halt                         LINK
          24703    102     221      5   0  0  transfer (A) to N            STORE START OF PARAMETER TABLE
          24704    101             16   0  1  prepare for digit collation  *60Ю                TEST PTS
          24705    115     247      2   0  0  collate and add                                  LOADED
          24706    127     247      9   0  0  jump A = Z                   >NO
          24707    106              4   0  0  select (N)
          24708    124     247     10   1  0  unconditional jump           *60Ю                >
    24706>24709    106             28   0  0  select (N)                   SET IND MOD REG 1 AT
    24708>24710    102     221     16   1  0  transfer (A) to N            START OF CHAPTER
    24741>24711    126     236      2   0  0  enter subroutine             >S/R BB
          24712    106     212      2   1  0  select (N)                   SET IND MOD REG 2 AT
          24713    102     221     18   1  0  transfer (A) to N            24:0
    24740>24714    124     221     18   0  1  modify address of next       STORE NEXT WORD
          24715    106     228      2   1  0  select (N)
          24716    103     221      2   1  0  copy (A) to N
          24717    105     210      6   0  0  subtract (N) from (A)                            TEST FOR END OF
          24718    127     247     42   0  0  jump A = Z                   >YES                CHAPTER
          24719    104     210      7   0  0  add (N) to (A)                                   TEST FOR MINUS ZERO
          24720    127     248      2   0  0  jump A = Z                   >YES
          24721    125              0   1  2  interrogate indicators                           TEST FOR PARAMETER
          24722    101              4   0  1  prepare for digit collation                      IN Q3
          24723    115     221      2   0  0  collate and add
          24724    127     248      6   0  1  jump A != Z                  >YES
          24725    106     221      5   0  0  select (N)                   FORM ABSOLUTE LOCATION OF PARAMETER
          24726    107     221      2   0  0  augment (N) by (A)
          24727    106     221      3   0  0  select (N)                                       TEST INFORMATION
          24728    127     247     32   0  3  jump A < Z                   >YES                IS NEGATIVE
  Source image: P1020687.JPG
          24729    124     221      2   0  1  modify address of next       ADD PARAMETER VALUE
          24730    104              0   0  0  add (N) to (A)
          24731    124     247     34   1  0  unconditional jump
    24728>24732    124     221      2   0  1  modify address of next       SUBTRACT PARAMETER VALUE
          24733    105              0   0  0  subtract (N) from (A)
    24731>24734    124     221     16   0  1  modify address of next       STORE IN CHAPTER
          24735    102              0   0  0  transfer (A) to N
    24805>
    24818>24736    123              1   0  0  step on and test
          24737    100     221     16   0  0  Halt
    24821>24738    123              2   0  0  step on and test
          24739    100     221     18   0  0  Halt
          24740    124     247     14   1  0  unconditional jump           >DEAL WITH NEXT LOCATION
          24741    124     247     11   1  0  unconditional jump           >READ AND UNPACK NEXT BLOCK
    24718>24742    126     247      2   0  1  leave subroutine             >LEAVE S/R

          24800    PROCR   248       248     LOAD SUB-ROUTINE CONT
          24801     NOTES          RADIX     B
    24720>24802    106     218      4   1  0  select (N)                   STACK MINUS ZERO
          24803    124     221     16   0  1  modify address of next
          24804    128              0   1  0  bulk copy alpha to short
          24805    124     247     36   1  0  unconditional jump           >
    24724>24806    101           3840   1  2  subtract literal address                         TEST FOR 15 IN Q3
          24807    127     248     19   0  0  jump A = Z                   >YES
          24808    106     221      3   0  0  select (N)                   STORE WORD IN CHAPTER
          24809    124     221     16   0  1  modify address of next
          24810    102              0   0  0  transfer (A) to N
          24811    100     212      6   0  2  replace (B) by (N)           FORM AND PACK
          24812    110     221      2   0  0  multiply and add             ENTRY POINT
          24813    118           4126   0  0  shift logical                TO 3B M/R
          24814    101            158   1  1  add literal address
          24815    100     210      2   0  2  replace (B) by (N)
          24816    124     221     16   0  1  modify address of next
          24817    114              0   0  0  replace selected bits
          24818    124     247     36   1  0  unconditional jump           >
    24807>24819    106     221      3   0  0  select (N)                   STEP ON STACKING LOCATION COUNTER
          24820    107     221     16   0  0  augment (N) by (A)
          24821    124     247     38   1  0  unconditional jump           >
          24822    100              0   0  0  Halt                         *££0*££2*14‼*42‼*46‼*5+‼
          24823    127     264     27   0  1  jump A != Z                  *163 >NO
          24824    100     285     45   0  0  Halt                         *0138Ю‼             (12)RE-READ

          24900    PROCR   249       249     SET INDIRECT MR AND SEARCH MULTI-ROUTE LOADING,LIST
          24902    100              0   0  0  Halt                         *57Ю
          24903    102     108     27   0  0  transfer (A) to N            STORE A
          24904    101             36   1  3  select literal address                           SET INDIRECT MR=36:0
          24905    102     225     17   0  0  transfer (A) to N
          24906    102     225     16   0  0  transfer (A) to N
    24913>24907    106     108     27   0  0  select (N)                   SELECT A
          24908    124     225     16   0  1  modify address of next       SEARCH LIST
          24909    105     224      2   0  0  subtract (N) from (A)
          24910    127     249     16   0  0  jump A = Z                   >AVAIL
          24911    123              6   0  0  step on and test             STEP MOD BY 6
          24912    100     225     16   0  0  Halt
          24913    124     249      7   1  0  unconditional jump           >DO NEXT SEARCH
          24914    124     249      2   0  1  modify address of next       >LEAVE S/R+1        END OF MOD
          24915    124              1   1  0  unconditional jump
    24910>24916    126     249      2   0  1  leave subroutine             *57Ю                >LEAVE SR

          25000    PROCR   250       250     STORE MOD GROUP 3 S/R
          25002    100              0   0  0  Halt                         *59Ю STORE MOD
          25003    100     212      2   0  3  set radix                    SET BINARY
          25004    106              3   0  1  select (N)                   GROUP 3
          25005    127     250      9   0  2  jump A >= Z                  >NOT 28/1/1
          25006    102     250      8   0  0  transfer (A) to N
          25007    106     212     20   1  0  select (N)
  Source image: P1020688.JPG
          25008    128     129      8   1  1  bulk copy long numeric       FORMED BULK COPY ORDER
    25005>25009    126     250      2   0  1  leave subroutine             >LEAVE S/R

          25100    PROCR   251       251     USE OF ASSEMBLER TABLE

          25200    CONST   252       252     1    USE OF ASSEMBLER TABLE
          25202          (D)£££££     ;                                    CH0 LAST RT NO & TYPE
          25204          0;                                                CH0 DB INDICATORS
          25206          0;                                                CH3 RT 0 1ST WD
          25208          0;                                                CH3 RT 0 2ND WD
          25210          £££££     ;                                       CH1 LAST RT NO & TYPE
          25212          0;                                                CH1 DB INDICATORS
          25214          0;                                                CH3 RT 1 1ST WD
          25216          0;                                                CH3 RT 1 2ND WD
          25218          £££££     ;                                       CH2 LAST RT NO & TYPE
          25220          0;                                                CH2 DB INDICATORS
          25222          0;                                                CH3 RT 2 1ST WD
          25224          0;                                                CH3 RT 2 2ND WD
          25226          £££££     ;                                       CH3 LAST RT NO & TYPE
          25228          0;                                                CH3 DB INDICATORS
          25230          0;                                                CH3 RT 3 1ST WD
          25232          0;                                                CH3 RT 3 2ND WD
          25234          £££££     ;                                       CH4 LAST RT NO & TYPE
          25236          0;                                                CH4 DB INDICATORS
          25238          0;                                                CH3 RT 4 1ST WD
          25240          0;                                                CH3 RT 4 2ND WD
          25242          £££££     ;                                       CH5 LAST RT NO & TYPE
          25244          0;                                                CH5 DB INDICATORS
          25246          0;                                                CH3 RT 5 1ST WD
          25248          0;                                                CH3 RT 5 2ND WD
          25250          £££££     ;                                       CH6 LAST RT NO & TYPE
          25252          0;                                                CH6 DB INDICATORS
          25254          0;                                                CH3 RT 6 1ST WD
          25256          0;                                                CH3 RT 6 2ND WD
          25258          £££££     ;                                       CH7 LAST RT NO & TYPE
          25260          0;                                                CH7 DB INDICATORS
          25262          0;                                                CH3 RT 7 1ST WD
          25264          0;                                                CH3 RT 7 2ND WD
          25266          0;                                                *02Ю3:Ю4£Ю*53Ю0ЮЮ3:Ю4£Ю
          25268          0;                                                RT 19/18 PROG NO
          25270          0;                                                RT 17/16 FILE ID
          25272          0;                                                *53Ю0ЮЮ3:Ю4£Ю
          25274          0;                                                RT 25/24 PROG NO
          25276          0;                                                RT 27/26 PROG NO
          25278          0;                                                RT 25/24 FILE ID
          25280          0;                                                RT 27/26 FILE ID
          25282          0;                                                *53Ю0ЮЮ3:Ю4£Ю
          25284          0;                                                RT 19/18 REEL NO
          25286          0;                                                PADDING
          25288          0;                                                *53Ю0ЮЮ3:Ю4£Ю
          25290          0;                                                RT 25/24 REEL NO
          25292          0;                                                RT 27/26 REEL NO

          25300    CONST   253       253     1    P/T I/P(CH2)W/L'S
          25302          (D)0;                                             *53Ю0ЮЮ3:Ю4£Ю
          25304          0;                                                2ND WORD
          25306          0;                                                RT 1
          25308          0;
          25310          0;                                                RT 2
          25312          0;
          25314          0;                                                RT 3
          25316          0;

          25400    CONST   254       254     1    40-COL CARD READER W/L'S
          25402          (A);                                              *16Ю0ЮЮ3:Ю4£Ю
          25404          ;                                                 RT 4 2ND WORD
  Source image: P1020689.JPG
          25406          ;                                                 RT5 1ST WORD
          25408          ;                                                 RT5 2ND WORD
          25410          ;                                                 RT6 1ST WORD
          25412          ;                                                 RT6 2ND WORD
          25414          ;                                                 RT7 1ST WORD
          25416          ;                                                 RT7 2ND WORD

          25500    CONST   255       255     1    P/TI/P(CH2)W/L'S

          25600    CONST   256       256     1    PADDING
          25602          (D)0;                                             *3:Ю4£Ю
          25604          0;

          25700    CONST   257       257     1    CHANNEL 16 ETC
          25702          (D)£££££     ;                                    *3:Ю4£Ю CH 16
          25704          0;                                                CH16 DB INDS
          25706          0;
          25708          0;
          25710          £££££     ;                                       CH17
          25712          0;
          25714          0;
          25716          0;
          25718          £££££     ;                                       CH18
          25720          0;
          25722          0;
          25724          0;
          25726          £££££     ;                                       CH19
          25728          0;
          25730          0;
          25732          0;
          25734          £££££     ;                                       CH20
          25736          0;
          25738          0;
          25740          0;
          25742          £££££     ;                                       CH21
          25744          0;
          25746          0;
          25748          0;

          25800    CONST   258       258     1    MISC WL'S AND CONSTANTS
          25802          (A)*(D)00410000;                                   *:SP:1:SP:SP
          25804          (D)0;                                             COL 1
          25806          0;                                                COL 2&6
          25808          0;                                                COL 3
          25810          0;                                                COL 4
          25812          0;                                                COL 5
          25814          0001+00080;                                       BULK COPY FOR LOG
          25816          2001+00000;                                       BULK CLEAR FOR PRINTER W/E
          25818          0;                                                (MR2)
          25820          8000000000;
          25822          0;                                                LIB CARD SERIAL NUMBER, ROUTE BEING REWO
          25824          (A)SNT? ;
          25826          HDG  ;
          25828          FINIS;
          25830          (D)7Ю(A)END(D)7‼;                                 (END)
          25832          0;                                                USED IN ABANDON S/R

          25900    CONST   259       259     1    MATRIX FOR LIBRARIAN CARDS
          25902          (D)0;                                             *25Ю*05Ю
          25904          0;
          25906          0;
          25908          0;
          25910          0;
          25912          0;
          25914          0;
          25916          0;
  Source image: P1020690.JPG
          25918          0;
          25920          0;
          25922          0;
          25924          0;
          25926          0;
          25928          0;
          25930          0;
          25932          0;
          25934          0;
          25936          0;
          25938          0;
          25940          0;
          25942          0;
          25944          0;
          25946          0;
          25948          0;
          25950          0;
          25952          0;

          26000    CONST   260       260     1    W/L'S FOR P/T O/P
          26002          (D)0;                                             *05Ю CARD O/P ANNEXE
          26004          ;
          26006          ;
          26008          ;                                                 *05Ю
          26010          (D)0001000024;                                    *259*059 LIB CRD
          26012          (D)0;                                             '(64+R)'
          26014          0;                                                INDIRECT MODIFIER
          26016          3£00000000;
          26018          7.00000000;
          26020          0;                                                REEL NO. FILE IDENTITY
          26022          0;                                                W/L
          26024          7.7.7.7.7.;
          26026          3.00000000;

          26100    TABLE   261       261     1
          26101     NOTES
          26102   258     4     0     0  2  0   3   0   0   0  0  0  0     COMMENT
          26104   258     7     0     0  0  0   3   2   0   1  0  0  0     ROUTE NUMBER
          26106   102     2     0     0  2  0   1   0   1   0  0  0  0     SP,TAB
          26108   258     6     0     0  0  0   5   0   0   0  0  0  0     COL 2
          26110   211    22     0     0  2  0   2   0   0   0  0  0  1     /////L/E,L/E
          26112   258     4     0     0  2  0   3   0   0   0  0  0  0     COMMENT
          26114   258     7     0     0  0  0   3   2   0   1  0  0  0     ROUTE NUMBER
          26116   102     2     0     0  2  0   1   0   1   0  0  0  0     SP,TAB
          26118   258     6     0     0  0  0   5   0   0   0  0  0  0     COL 2
          26120   102     2     0     0  2  0   1   0   1   0  0  0  0     SP,TAB
          26122   258     8     0     0  0  0   5   0   0   3  0  0  0     COL 3
          26124   102     2     0     0  2  0   1   0   1   0  0  0  0     SP,TAB
          26126   258    10     0     0  2  0   5   0   0   0  0  0  0     COLUMN 4
          26128   211    22     0     0  2  0   2   0   1   0  0  0  1     SP,L/E L/E
          26130   258     4     0     0  2  0   3   0   0   0  0  0  0     COMMENT
          26132   258     7     0     0  0  0   3   2   0   1  0  0  0     ROUTE NUMBER
          26134   102     2     0     0  2  0   1   0   1   0  0  0  0     SP TAB
          26136   258     6     0     0  0  0   5   0   0   0  0  0  0     COL 2
          26138   102     2     0     0  2  0   1   0   1   0  0  0  0     SP TAB
          26140   258     8     0     0  2  0   5   0   0   0  0  0  0     COL 3
          26142   102     2     0     0  2  0   1   0   1   0  0  0  0     SP TAB
          26144   258    10     0     0  2  0   5   0   0   0  0  0  0     COL 4
          26146   102     2     0     0  2  0   1   0   0   0  0  0  0     TAB
          26148   258    12     0     0  0  0   5   0   0   5  0  0  0     COL 5
          26150   211    22     0     0  2  0   2   0   0   0  0  0  1     L/E,L/E
          26152   102    74     0     0  0  0   5   0   0   4  0  0  1     *679
          26154   258    12     0     0  0  0   5   0   0   0  0  0  1     *8£9

          26200    TABLE   262       262     1
          26201     NOTES
  Source image: P1020691.JPG
          26202   258     4     0     0  2  0   3   0   0   0  0  0  0     COMMENT
          26204   258     7     0     0  0  0   3   2   0   1  0  0  0     ROUTE NUMBER
          26206   102     2     0     0  2  0   1   0   0   0  0  0  0     TAB
          26208   258     6     0     0  0  0   5   0   0   0  0  0  0     COL 2
          26210   102     2     0     0  2  0   1   0   0   0  0  0  0     TAB
          26212   258     8     0     0  0  0   5   0   0   0  0  0  0     COL 3
          26214   102     2     0     0  2  0   1   0   1   0  0  0  0     SP,TAB
          26216   258    10     0     0  0  0   5   0   0   0  0  0  0     COL 4
          26218   102     2     0     0  2  0   1   0   2   0  0  0  0     2 SP,TAB
          26220   258    12     0     0  2  0   5   0   0   0  0  0  0     COL 5
          26222   211    22     0     0  2  0   2   0   0   0  0  0  1     L/E,L/E
          26224   211    22     0     0  2  0   2   0   0   0  0  0  1     *3£Ю*712                                  SUM
          26226   258    23     0     0  0  0   3   2   2   1  0  0  0     *3£Ю*712 LIB NO
          26228   258    23     0     0  0  0   3   2   2   1  0  0  0     *71Ю*3£9 LIB NO
          26230   211    22     0     0  2  0   2   0   0   0  0  0  1                                               SUM
          26232   260    20     0     0  0  0   5   0   5   0  0  0  0     REEL PROGM 10
          26234   258    23     0     0  0  0   3   2   2   1  0  0  0     *71Ю*3£9 LIB NO
          26236   214    24     0     0  2  0   4   1   3   0  0  0  1     /////3SP L/E N/E N/E R/S

          26300    PROCR   263       263     W.L'S FOR OPTIONS AND ZZZ COMMENT
          26301     NOTES          RADIX
          26302    101              0   0  3  interchange area addresses   CONSTANT
          26303    100     295      2   0  0  Halt                         *14‼                (1)ABANDON
          26304    100     410      9   0  0  Halt                         (2)ALARM TYPE 3
          26305    100     416      2   0  0  Halt                         (3)
          26306    100     289      8   0  0  Halt                         (4) ALARM TYPE 2
          26307    100     289      6   0  0  Halt                         (5)
          26308    100     289      4   0  0  Halt                         (6)
          26309    100     289      2   0  0  Halt                         (7)
          26310    100     106     11   0  0  Halt                         *42‼                (8) ALARM TYPE 1
          26311    100     280     32   0  0  Halt                         *42‼                (9)
          26312    100     290      2   0  0  Halt                         *46‼                (10)REOFFER OPTIONS
          26313    100     286     37   0  0  Halt                                             (11)RE-WRITE
          26314    100     285      5   0  0  Halt                         *0138Ю‼             (12)RE-READ
          26315    100     291      2   0  0  Halt                         *5+‼                (13)CHANGE DECKS
          26316    100     263     25   0  0  Halt                         *77Ю                (14)ZZZ08
          26317    100     442     34   0  0  Halt                         *77Ю                (15)CONTINUE RUN FWD
    26437>
    26438>
    26704>
    26714>
    26724>
    26750>
    27254>
    44753>
    44754>
    44755>
    44807>
    44912>
    44914>
    10012>26318    126     312      2   0  0  enter subroutine             >ZZZ01
    30238>
    37808>26319    126     312      2   0  0  enter subroutine             >   02
    27713>
    28403>
    28410>
    30035>
    37308>
    40608>26320    126     312      2   0  0  enter subroutine             >   03
    42117>26321    126     312      2   0  0  enter subroutine             >   04
    44413>
    44417>
    44605>
    44606>26322    126     312      2   0  0  enter subroutine             >   05
    44510>
    44707>26323    126     312      2   0  0  enter subroutine             >   06
    44538>
  Source image: P1020692.JPG
    44720>26324    126     312      2   0  0  enter subroutine             >   07
    44214>26325    126     312      2   0  0  enter subroutine             >   08
    27010>
    45019>26326    126     312      2   0  0  enter subroutine             >   09
    43605>26327    126     312      2   0  0  enter subroutine             >10
          26328    100     210      3   0  3  set radix                    *££0*££2*063
          26329    106            157   0  0  select (N)                   *063063

          26400    PROCR   264       264     SET UP SI
          26401     NOTES          RADIX     B
    10016>26402    101     267      2   1  2  subtract literal address     PSEUDOROWTETYPE     PROGRAMMED
          26403    102             31   0  1  transfer (A) to N                                TEST ROUTE
          26404    124     252      2   0  2  select literal and division                      USE OF ASSR TABLE
          26405    102             32   0  1  transfer (A) to N
          26406    106     209      6   0  0  select (N)                   *49Ю
          26407    102              9   0  0  transfer (A) to N            *49Ю
          26408    106              3   0  1  select (N)                   *59Ю STORING MOD    GROUP 3
          26409    127     264     31   0  2  jump A >= Z                  TEST 28/1/1
          26410    126     250      2   0  0  enter subroutine             *59Ю STORE MOD GROUP 3 S/R
          26411    124     264     31   1  0  unconditional jump
    10003>26412    124     212      2   1  1  set modification group       SET MOD GROUP 0
          26413    124              2   0  1  modify address of next       STORE (AB) IN SI
          26414    100             30   1  0  copy registers
          26415    106              3   0  1  select (N)                   *59Ю STORING MOD GROUP 3
          26416    127     264     20   0  2  jump A >= Z                  >NOT 28/1/1
          26417    102     264     19   0  0  transfer (A) to N
          26418    106     212     20   1  0  select (N)
          26419    128     129      8   1  1  bulk copy long numeric       *59Ю
    26416>26420    106     100      2   0  0  select (N)                   SET UP LINK IN SI
          26421    102             44   1  1  transfer (A) to N            SET ASSOC TIME=0
          26422    106     209      6   0  0  select (N)                   *49Ю                26/0/1 2 RESTORE (9)
          26423    102              9   0  0  transfer (A) to N            *49Ю
          26424    106             31   0  1  select (N)                   *169199
          26425    101             48   1  2  subtract literal address     *19Ю TEST SELECT REEL COUNTER
          26426    127     449      2   0  0  jump A = Z                   *19Ю >YES
    24823>26427    101              1   1  2  subtract literal address     *16Ю*19+            0000000049
          26428    124              2   0  1  modify address of next       TEST UPTIME POCKET SELECT
          26429    127             12   0  0  jump A = Z                   *16Ю >YES-UPTIME
    28808>
    35110>
    42105>
    42742>26430    126     338      2   0  0  enter subroutine             SET SI=1
    26411>
    26409>26431    124              2   0  1  modify address of next       *063 OBEY TEST ROUTE(SET DECIMAL)
          26432    124              7   1  0  unconditional jump           *063063 >51+7       (6/0/0/0/157)
          26433    107             46   1  1  augment (N) by (A)           *09Ю06Ю
          26434    100     212      2   0  3  set radix                    SET (C) FOR BINARY
    35211>26435    124              2   0  1  modify address of next
          26436    124              7   1  0  unconditional jump           *09Ю06Ю
          26437    124     263     18   1  0  unconditional jump           *££0*££2*03‼*02‼*04‼*05‼*19‼*1‼‼*30‼*2.‼
          26438    124     263     18   1  0  unconditional jump           *49‼*16‼*56‼82‼*82‼*81‼
          26439    124     436     11   1  0  unconditional jump           *1Ю‼ M/T INPUT
          26440    124     268      2   1  0  unconditional jump           *££2*1Ю‼1Ю‼

          26500    PROCR   265       265     FORM INTERCHANGE AREA ADDRESSES
          26501     NOTES          RADIX     B
    20903>
    11826>
    11002>26502    119             56   0  1  input one block/reset timer  *099069*3+9 RESET MILLISECOND TIMER
    20909>
    12519>
    12319>
    12119>
    11919>
    11719>
    11519>
    11319>
    11119>
  Source image: P1020693.JPG
    10624>26503    103     188      2   1  0  copy (A) to N
          26504    118              6   0  3  shift binary                 FORM INSTRUCTION    SWITCH SAS    20000

          26600    PROCR   266       266     NB THE PRECEDING ORDER IS'SWITCH SAS'SET AT'26/0/0>DB:DETECT
          26601     NOTES                         DURING'SET DB IND'IF DB FOUND IN'TEST ROUTE'IN PROG SWITCH
    42167>26602    104             32   0  1  add (N) to (A)               *4£2*3:2            PSEUDO ROUTE
          26603    104     263      2   0  0  add (N) to (A)               *4£2*3:2            1/0/3 ORDER
          26604    124     188      3   0  1  modify address of next       RTE TYPE 1-48*OR*SR LINK-THIS ADDRESS+1

          26700    PROCR   267       267     SWITCH SI
          26701     NOTES          RADIX     B
    26702>26702    124     267      2   1  0  unconditional jump
          26703    124     405      2   1  0  unconditional jump           *03‼*3:4*4£4 P/T O/P         3    3
          26704    124     263     18   1  0  unconditional jump           ZZZ COMMENT
          26705    124     388      2   1  0  unconditional jump           *05‼*3:4*4£4 DEC O/P         4    4
          26706    124     390      2   1  0  unconditional jump           *3:4*4£4 PRINTER        3    3
          26707    124     373      2   1  0  unconditional jump           *02‼*3:4*4£4 P/T I/P         3    3
          26708    124     375      2   1  0  unconditional jump           *04‼ CARD I/P
          26709    124     420      2   1  0  unconditional jump           *3:4*4£4 M/T I/P        3    3
          26710    124     433      2   1  0  unconditional jump           *3:4*4£4 M/T O/P        3    3
          26711    124     390      2   1  0  unconditional jump           *3:4*4£4 PRINTER        3    3
          26712    124     395      2   1  0  unconditional jump           *30‼*4£4*3:4 AUTOLEC3    3
          26713    124     401      2   1  0  unconditional jump           *03‼ P/T O/P        OPEN FILE
          26714    124     263     18   1  0  unconditional jump           ZZZ COMMENT
          26715    124     387      2   1  0  unconditional jump           *05‼ DEC CARD OUTPUT
          26716    124     269      4   1  0  unconditional jump           PRINTER
          26717    124     364      2   1  0  unconditional jump           *02‼ P/T INPUT
          26718    124     366      2   1  0  unconditional jump           *04‼ DEC CARD INPUT
          26719    124     409      2   1  0  unconditional jump           MAG TAPE INPUT
          26720    124     424      2   1  0  unconditional jump           MAG TAPE OUTPUT
          26721    124     269      4   1  0  unconditional jump           PRINTER
          26722    124     394      2   1  0  unconditional jump           *30‼ AUTOLECTOR
          26723    124     408      2   1  0  unconditional jump           *03‼ P/T OUTPUT     CLOSE FILE
          26724    124     263     18   1  0  unconditional jump           ZZZ COMMENT
          26725    124     391      2   1  0  unconditional jump           *05‼ DEC CARD OUTPUT
          26726    124     268      2   1  0  unconditional jump           PRINTER
          26727    124     383      2   1  0  unconditional jump           *1Ю‼1Ю‼*02‼ P/T INPUT
          26728    124     383      2   1  0  unconditional jump           *1Ю‼1Ю‼*04‼ DEC CARD INPUT
          26729    124     423      2   1  0  unconditional jump           *1Ю‼ MAG TAPE INPUT
          26730    124     436      2   1  0  unconditional jump           MAG TAPE OUTPUT
          26731    124     268      2   1  0  unconditional jump           PRINTER
          26732    124     268      2   1  0  unconditional jump           *30‼ AUTOLECTOR
          26733    124     424      2   1  0  unconditional jump           MAG TAPE OUTPUT     OPEN FILE
          26734    124     409      2   1  0  unconditional jump           MAG TAPE INPUT      32
          26735    124     437      2   1  0  unconditional jump           CURRENT USE O/P     REWIND
          26736    124     437      4   1  0  unconditional jump           CURRENT USE I/P     34
          26737    124     438      4   1  0  unconditional jump           CURRENT USE O/P     RUN BACK
          26738    124     438     11   1  0  unconditional jump           CURRENT USE I/P     36
          26739    124     438      2   1  0  unconditional jump           CURRENT USE I/P     RUN FORWARD
          26740    124     438      2   1  0  unconditional jump           CURRENT USE I/P     38
          26741    124     444      4   1  0  unconditional jump           O/P>O/P             STEP BACK
          26742    124     443      2   1  0  unconditional jump           I/P>I/P             40
          26743    124     446      4   1  0  unconditional jump           *1‼‼ FUTURE USE O/P STEP FORWARD
          26744    124     446      2   1  0  unconditional jump           *1‼‼ FUTURE USE I/P 42
          26745    124     444      2   1  0  unconditional jump           O/P>I/P             STEP BACK
          26746    124     443      4   1  0  unconditional jump           I/P>O/P             44
          26747    124     434      2   1  0  unconditional jump           >MAG TAPE OUTPUT    CLOSE REEL
          26748    124     422      2   1  0  unconditional jump           MAG TAPE INPUT      46
          26749    124     448      2   1  0  unconditional jump           SET                 REEL NUMBER
          26750    124     263     18   1  0  unconditional jump           >ZZZ01 SELECT       48
          26751    124     378      2   1  0  unconditional jump           *16Ю49Ю56Ю82Ю81Ю81Ю*16‼ UPT POCKET SEL
          26752    124     397      2   1  0  unconditional jump           *49Ю56Ю81Ю82Ю*49‼   MICR INPUT
          26753    124     398      2   1  0  unconditional jump           *49‼                MICR POCKET SELECT
  Source image: P1020694.JPG
          26754    124     396      2   1  0  unconditional jump           *49‼                MICR OPEN FILE
          26755    124     400      2   1  0  unconditional jump           *56‼82‼             DATA TRANS OPEN FILE
          26756    124     399      2   1  0  unconditional jump           *56‼82‼             DATA TRANS READ
          26757    124     269      4   1  0  unconditional jump           *81Ю82Ю*81‼         OPEN 5-8 HOLE P/T
          26758    124     268      2   1  0  unconditional jump           *81‼                CLOSE 5-8 HOLE P/T
          26759    124     390      2   1  0  unconditional jump           *81‼*3:4 OUTPUT     0000000003
          26760    124     389      2   1  0  unconditional jump           *82‼                NHKG OUTPUT
          26761    124     269      4   1  0  unconditional jump           *82‼                NHKG OPEN
          26762    124     391      7   1  0  unconditional jump           *82‼                NHKG CLOSE

          26800    PROCR   268       268     UPDATE USE OF ASSEMBLER TABLE ETC.
          26801     NOTES          RADIX
    39108>
    40804>
    40814>
    26758>
    26732>
    26731>
    26726>
    26440>26802    124     188      2   0  1  modify address of next
          26803    119              0   1  2  unload                       SET ROUTE TO MANUAL OR UNLOAD
          26804    106     211      2   0  0  select (N)
          26805    102     188      3   0  0  transfer (A) to N            SET RT TYPE AT £5
    43618>26806    106     188      2   0  0  select (N)
          26807    126     299      2   0  0  enter subroutine             >CLEAR D/B INDICATOR
    37322>
    37325>
    37520>
    39008>
    39011>
    39507>
    39717>
    42017>
    43319>
    43723>
    44624>26808    126     349      2   0  0  enter subroutine             >UPDATE ASSEMBLER TABLE
    26907>
    37517>
    37803>
    37805>
    38322>
    39010>
    39926>
    40516>
    40632>
    40913>
    42155>
    42157>
    42210>
    43714>
    43927>
    44615>
    44632>
    45053>
    10030>26809    124              2   0  1  modify address of next       RESTORE MOD GROUP
          26810    124             29   1  1  set modification group
          26811    124              2   0  1  modify address of next       *59Ю STORE ABC
          26812    100             30   1  0  copy registers
          26813    124              2   0  1  modify address of next       PREPARE FOR ENTRY
          26814    106             26   0  0  select (N)                   TO SWITCH
          26815    102     268     16   0  0  transfer (A) to N
          26816    100              0   0  0  Halt                         *59Ю
          26817    124              2   0  1  modify address of next
          26818    124             28   1  0  unconditional jump           > COMMERCIAL PROG.

          26900    PROCR   269       269     UPDATE ASSEMBLER TABLE:SET UP (AB)
  Source image: P1020695.JPG
          26901     NOTES          RADIX     B
    38706>
    39404>
    39607>
    40007>26902    102     188      3   0  0  transfer (A) to N            STORE RTE TYPE
    36426>26903    126     349      2   0  0  enter subroutine             >UPDATE USE OF ASSEMBLER TABLE
    40105>
    40116>
    26761>
    26757>
    26721>
    26716>26904    106             40   0  1  select (N)                   SET(A)=RUN NUMBER
          26905    118           4127   0  0  shift logical
    44815>
    44909>
    44918>26906    100     212      2   0  2  replace (B) by (N)           SET (B)=0
          26907    124     268      9   1  0  unconditional jump           >RESET MOD GP

          27000    PROCR   270       270     ROUTE CLOSED ROUTINE
          27001     NOTES          RADIX     B
          27002    106     209      4   0  0  select (N)                   *462                LARGE AND NEGATIVE
          27003    102             45   0  1  transfer (A) to N            *462 SET PROG TIME TO INHIBIT'RC'COMMENT
          27004    126     347      2   0  0  enter subroutine             *469 SET PROG TIME 3 MINS AHEAD OF CLOCK
          27005    106     270     17   0  0  select (N)
          27006    124              3   0  1  modify address of next       SET SETTING FOR S101
          27007    102            176   0  0  transfer (A) to N            TO TEST ROUTE
          27008    106             30   0  1  select (N)                   *13Ю                TEST RTE 7/7
          27009    101            175   1  2  subtract literal address     *3:+                00023
          27010    127     263     26   0  0  jump A = Z                   *13Ю >YES,ZZZ COMMENT
          27011    106     214     28   1  0  select (N)                   SET RC FOR COMMENT
          27012    102     258      4   1  0  transfer (A) to N
          27013    126     356      2   0  0  enter subroutine             >SET UP PROGRAMME NO
          27014    101              4   1  3  select literal address
          27015    126     345      2   0  0  enter subroutine             >EDIT TIME SET UP RTE NO
          27016    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
          27017    126     338      2   0  0  enter subroutine

          27100    PROCR   271       271     DOUBTFUL BLOCK: PREPARATION
          27101     NOTES          RADIX     B
          27102    100              0   0  0  Halt                         LINK=SI+11
          27103    124     271      2   0  1  modify address of next       SET UP (MR1)
          27104    106             25   1  0  select (N)
          27105    102              2   1  0  transfer (A) to N
          27106    100     210     10   0  2  replace (B) by (N)           SET (MR3)=8*CH NO
          27107    115             30   0  1  collate and add
          27108    126     272      2   0  0  enter subroutine             >SET D/B INDICATOR
          27109    124     271      2   0  1  modify address of next
          27110    124              1   1  0  unconditional jump           >SI+12

          27200    PROCR   272       272     SET DOUBTFUL BLOCK INDICATOR
          27202    100              0   0  0  Halt                         LINK
          27203    102              6   1  0  transfer (A) to N            SET (MR3) = 8 * CH NO
          27204    100     220      3   0  2  replace (B) by (N)           STORE RTE NO IN W/L
          27205    115     252      2   0  3  collate and add
          27206    102     109      2   0  0  transfer (A) to N
          27207    101              1   0  1  prepare for digit collation
          27208    106     252      3   0  3  select (N)                   *16Ю                TEST BEFORE POCKET
          27209    101             49   1  2  subtract literal address                         SELECT ON UPTIME
          27210    127     272     50   0  0  jump A = Z                   *16Ю                >YES SPURIOUS
          27211    106     252      3   0  3  select (N)                   *49Ю
          27212    101             50   1  2  subtract literal address                         TEST MICR READ
          27213    127     284      2   0  0  jump A = Z                                       >YES
          27214    101              1   1  2  subtract literal address                         TEST MICR WRITE
          27215    127     284      2   0  0  jump A = Z                   *49Ю                >YES
          27216    106             31   0  1  select (N)                   *56Ю82Ю
          27217    101             54   1  2  subtract literal address
  Source image: P1020696.JPG
          27218    124              2   0  3  modify address of next
          27219    127             12   0  0  jump A = Z                                       >YES
          27220    106             31   0  1  select (N)
          27221    101     267      2   1  1  add literal address
          27222    101     399     24   1  2  subtract literal address
          27223    118              6   0  0  shift logical
          27224    127     284      2   0  0  jump A = Z                   *56Ю82Ю
          27225    106     252      3   0  3  select (N)                   *82Ю                D/B LINK
          27226    101             58   1  2  subtract literal address                         MANDATORY
          27227    127     284      2   0  0  jump A = Z                   *82Ю
          27228    106             31   0  1  select (N)                   *81Ю                5-8 HOLE OUTPUT
          27229    101             57   1  2  subtract literal address
          27230    127     284      2   0  0  jump A = Z                   *81Ю                >YES
          27231    106     252      3   0  3  select (N)                   *83Ю
          27232    101              5   1  2  subtract literal address
          27233    127     272     37   0  1  jump A != Z                  >NOT P/T INPUT
          27234    106             33   0  1  select (N)
          27235    101              1   1  2  subtract literal address
          27236    127     272     50   0  0  jump A = Z                   *83Ю                8-HOLE P/T SPURIOUS
    27233>27237    106     252      3   0  3  select (N)
          27238    105     211      2   0  0  subtract (N) from (A)
          27239    127     272     52   0  0  jump A = Z                   >YES
          27240    106     252      3   0  3  select (N)                                       TEST RT TYPE 0
          27241    127     272     43   0  1  jump A != Z                  >NO
          27242    124             11   0  2  select literal and division                      SET RTE TYPE 11
    27241>27243    124     109      2   0  1  modify address of next
          27244    118              0   1  0  shift logical                SET RT TYPE AS D/B INDICATOR
          27245    114     252      4   1  3  replace selected bits
          27246    106     103     15   0  0  select (N)                   SET SAS=2
          27247    102     265      4   0  0  transfer (A) to N
          27248    106     108     25   0  0  select (N)                   SET SLAS=2
          27249    102     103     14   0  0  transfer (A) to N
    27236>
    27210>27250    106     211      2   0  0  select (N)                   CLEAR ASSEMBLER TABLE
          27251    102     252      3   0  3  transfer (A) to N
    27239>27252    126     272      2   0  1  leave subroutine
          27253    100              0   0  0  Halt                         *££0*££2
          27254    124     263     18   1  0  unconditional jump           *03‼*02‼*04‼*05‼*30‼*2.‼
          27255    127     279     34   0  0  jump A = Z                   *42‼
          27256    127     285     61   0  0  jump A = Z                   *43‼
          27257    101     280      8   1  3  select literal address       *66‼
          27258    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          27259    127     285     45   0  1  jump A != Z                  *013 >NO
          27260    127     279     34   0  2  jump A >= Z                  *42Ю42‼ >NO
          27261    124     282      7   1  0  unconditional jump           *2.286‼ PRINTER     4

          27300    PROCR   273       273     DOUBTFUL BLOCK : DETECTION
          27302    100              0   0  0  Halt                         LINK
          27303    100     210     10   0  2  replace (B) by (N)           SET (MR3)=8*CH NO
          27304    102     109      2   0  0  transfer (A) to N
          27305    115     109      2   0  0  collate and add
          27306    102              6   1  0  transfer (A) to N
          27307    100     220      3   0  2  replace (B) by (N)           STORE 'RTE NO WITHIN CH'
          27308    115     109      2   0  0  collate and add
          27309    102     109      2   0  0  transfer (A) to N
          27310    101              1   0  1  prepare for digit collation  TEST D/B INDICATOR
          27311    124     109      2   0  1  modify address of next       SET FOR THIS ROUTE
          27312    118              0   1  0  shift logical
          27313    115     252      4   1  3  collate and add
          27314    127     276      5   0  0  jump A = Z                   >NO

          27400    PROCR   274       274     DOUBTFUL BLOCK : INITIATION
          27402    118              1   0  0  shift logical
          27403    114     252      4   1  3  replace selected bits        CLEAR D/B INDICATOR
          27404    118     109      2   1  2  scale denominator
          27405    118           4120   0  0  shift logical                SET SDB AT ROUTE TYPE
  Source image: P1020697.JPG
          27406    103     109     19   0  0  copy (A) to N
          27407    101              2   1  2  subtract literal address                         TEST T/W
          27408    127     274     14   0  0  jump A = Z                   >YES
          27409    101              9   1  2  subtract literal address                         TEST NOTE DB
          27410    127     274     14   0  0  jump A = Z                   >YES
          27411    106     188      3   0  0  select (N)
          27412    124              3   0  1  modify address of next
          27413    102            174   0  0  transfer (A) to N
    27410>
    27408>27414    102     109      2   0  0  transfer (A) to N
    27419>27415    124     109      2   0  1  modify address of next                           TEST ALL
          27416    104     252      4   1  0  add (N) to (A)                                   ENTRIES ZERO
          27417    123              8   0  0  step on and test
          27418    100     109      2   0  0  Halt
          27419    124     274     15   1  0  unconditional jump
          27420    127     274     31   0  1  jump A != Z                  >NO
          27421    101            128   1  3  select literal address       *3:Ю
          27422    102     212     16   0  0  transfer (A) to N
    27427>27423    124     212     16   0  1  modify address of next
          27424    104     252      4   1  0  add (N) to (A)
          27425    123              8   0  0  step on and test
          27426    100     212     16   0  0  Halt
          27427    124     274     23   1  0  unconditional jump
          27428    127     274     31   0  1  jump A != Z                  *3:Ю
          27429    106     108     24   0  0  select (N)                   18/0/36 RESET SWITCH SAS
          27430    102     265      4   0  0  transfer (A) to N
    27428>
    27420>27431    124     109     19   0  1  modify address of next

          27500    PROCR   275       275     DOUBTFUL BLOCK SWITCH
    27502>27502    124     275      2   1  0  unconditional jump                               SWITCH SDB
          27503    124     277      2   1  0  unconditional jump           *03‼ P/T O/P
          27504    124     187      2   1  0  unconditional jump           TYPEWRITER          2
          27505    124     282      7   1  0  unconditional jump           *05‼ CARD OUTPUT    3
          27506    124     282      2   1  0  unconditional jump           *2.286‼ PRINTER     4
          27507    124     279      4   1  0  unconditional jump           *429*02‼ P/T INPUT  5
          27508    124     279      9   1  0  unconditional jump           *421*02‼ P/T INPUT  5
          27509    124     279      7   1  0  unconditional jump           *421*04‼
          27510    124     279      2   1  0  unconditional jump           *429*04‼ CARD INPUT 6
          27511    124     285      2   1  0  unconditional jump           M/T INPUT           7
          27512    124     286      2   1  0  unconditional jump           M/T OUTPUT          8
          27513    124     282      7   1  0  unconditional jump           SPECIAL PRINTER     9
          27514    124     284      2   1  0  unconditional jump           *30‼ AUTOLECTOR     10

          27600    PROCR   276       276     NOTE D/B
          27602    106     210      3   0  0  select (N)                                       11
          27603    124              3   0  1  modify address of next       SET D/B IND IN SP CH
          27604    102            160   0  0  transfer (A) to N
    27314>27605    106     188      2   1  0  select (N)
          27606    118              6   0  3  shift binary
          27607    126     273      2   0  1  leave subroutine             >

          27700    PROCR   277       277     PAPER TAPE OUTPUT DOUBTFUL BLOCK
    27503>27702    106             31   0  1  select (N)                   *03Ю
          27703    101     267      2   1  1  add literal address          TEST D/B GENUINE
          27704    101     404     10   1  2  subtract literal address
          27705    105     209     12   0  0  subtract (N) from (A)
          27706    127     288      2   0  1  jump A != Z                  >NO
          27707    126     339      2   0  0  enter subroutine             SET (MR3)=(3)
          27708    106            188   0  3  select (N)                   *28Ю                TEST NON STD
          27709    127     277     22   0  0  jump A = Z                   >NO
          27710    106            194   0  3  select (N)                   RESET(64+R)
          27711    102            192   0  3  transfer (A) to N
          27712    106             33   0  1  select (N)                                       TEST LINK
          27713    127     263     20   0  0  jump A = Z                   >NO ZZZ COMMENT
          27714    101             15   0  1  prepare for digit collation  RETURN TO PROGRAMME
  Source image: P1020698.JPG
          27715    114             44   0  1  replace selected bits        BY LINK
          27716    106     214     42   1  0  select (N)                   SET UP DB FOR COMMENT
          27717    102     258      4   1  0  transfer (A) to N
          27718    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          27719    106     291      4   0  0  select (N)                   SET SETTING OF
          27720    102            176   0  3  transfer (A) to N            S101 TO TEST ROUTE
          27721    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
    27709>27722    101              0   1  3  select literal address       *28Ю
          27723    100     210     10   0  2  replace (B) by (N)           *73Ю*74Ю
          27724    115     188      2   0  0  collate and add                                  TEST CHANNEL 6
          27725    101             48   1  2  subtract literal address
          27726    127     277     47   0  0  jump A = Z                   *73Ю*74Ю            >YES P/T O/P ASS
    27733>
    27739>27727    124              3   0  3  modify address of next       *73Ю                GP ASSEMBLER
          27728    124            190   0  2  select literal and division
          27729    124     188      2   0  3  modify address of next
          27730    102             64   0  0  transfer (A) to N
          27731    106     260     26   1  0  select (N)
          27732    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27733    127     277     27   0  1  jump A != Z                  >D/B OCCURED
          27734    101             10   1  3  select literal address       SET COUNTER FOR
    27742>27735    102            192   0  3  transfer (A) to N            NUMBER OF DB MARKS
          27736    101             31   1  3  select literal address
          27737    118              8   0  0  shift logical
          27738    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27739    127     277     27   0  1  jump A != Z                  >D/B OCCURED
          27740    106            192   0  3  select (N)
          27741    101              2   1  2  subtract literal address
          27742    127     277     35   0  1  jump A != Z                  >NEXT D/B INDICATOR
    27745>27743    106     260     26   1  0  select (N)
          27744    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27745    127     277     43   0  1  jump A != Z                  *73Ю >D/B OCCURRED
          27746    124     277     59   1  0  unconditional jump           *739*749
    27750>
    27754>
    27726>27747    106     260     18   1  0  select (N)                   *74Ю                P/T ASSEMBLER
          27748    102            154   1  0  transfer (A) to N            SET UP WORD
          27749    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27750    127     277     47   0  1  jump A != Z                  >D/B OCCURED
          27751    106     211     16   1  0  select (N)                   SET FAULTY BLOCK MARKER
          27752    102            154   1  0  transfer (A) to N            SET UP WORD
          27753    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27754    127     277     47   0  1  jump A != Z                  >D/B OCCURED
    27758>27755    106     260     18   1  0  select (N)                   B/E
          27756    102            154   1  0  transfer (A) to N            SET UP WORD
          27757    126     278      2   0  0  enter subroutine             >OUTPUT S/R
          27758    127     277     55   0  1  jump A != Z                  *74Ю >D/B OCCURRED
    27746>27759    106     214     42   1  0  select (N)                   SET DB FOR COMMENT
          27760    102     258      4   1  0  transfer (A) to N
          27761    124     277     63   0  2  select literal and division
          27762    124     282     10   1  0  unconditional jump           >OUTPUT COMMENT
          27763    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          27764    106            194   0  3  select (N)                   RESET(64+R)
          27765    102            192   0  3  transfer (A) to N
          27766    106            174   0  3  select (N)                   RESTORE RTE TYPE
          27767    102             31   0  1  transfer (A) to N
          27768    102            174   0  3  transfer (A) to N            CLEAR W/L
          27769    124     403      6   1  0  unconditional jump           >O/P BLOCK S/R

          27800    PROCR   278       278     PAPER TAPE OUTPUT DOUBTFUL BLOCK OUTPUT S/R
          27802    100              0   0  0  Halt                         *03Ю LINK
          27803    102            190   1  3  transfer (A) to N            *739 STORE WORD
          27804    124     188      2   0  1  modify address of next       OUTPUT
          27805    119              0   0  0  output
          27806    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          27807    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
  Source image: P1020699.JPG
          27808    106            160   0  3  select (N)                   TEST D/B OCCURED
          27809    126     278      2   0  1  leave subroutine             >

          27900    PROCR   279       279     D/B, P/T & CARD INPUT
          27901     NOTES          RADIX     B    OFFER OPTIONS
    27510>27902    101     280      6   1  3  select literal address       *42Ю*66‼
          27903    124     279      5   1  0  unconditional jump           >
    27507>27904    101     280      2   1  3  select literal address
    27903>27905    124              3   0  1  modify address of next
          27906    102            158   0  0  transfer (A) to N            *42Ю
    27509>27907    101              6   1  3  select literal address       *422*04Ю
          27908    124     279     10   1  0  unconditional jump           *04Ю
    27508>27909    101              5   1  3  select literal address       *029
    27908>27910    102     280     44   0  0  transfer (A) to N            *422
          27911    124              3   0  1  modify address of next       PROG SP CHAP START
          27912    106            174   0  0  select (N)
          27913    101              7   1  2  subtract literal address     READING?
          27914    127     279     26   0  2  jump A >= Z                  *42Ю42‼ >NO
          27915    106             33   0  1  select (N)                   TEST IF LINK SPECIFIED IN Q6-10 B
          27916    127     279     26   0  0  jump A = Z                   *42‼ >NO
    28206>
    28570>27917    101             15   0  1  prepare for digit collation
          27918    114             44   0  1  replace selected bits
          27919    106     214     42   1  0  select (N)                   SET 'DB' FOR COMMENT
          27920    102     258      4   1  0  transfer (A) to N
          27921    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          27922    106     270     17   0  0  select (N)                   SET SETTING OF S101
          27923    124              3   0  1  modify address of next       TO TEST ROUTE
          27924    102            176   0  0  transfer (A) to N
          27925    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
    27916>
    27914>27926    106     258      2   1  0  select (N)                   *42Ю                SET UP ALARM 1
          27927    102     258      4   1  0  transfer (A) to N
          27928    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL ETC
          27929    126     345      2   0  0  enter subroutine             >EDIT TIME
          27930    124            897   0  2  select literal and division  *14+46+*14+*46+     003840089600385
          27931    102             41   0  1  transfer (A) to N            PERMISSIBLE OPTIONS
          27932    101     261      2   1  3  select literal address       SELECT TABLE START LOCN.
          27933    124     335      2   1  0  unconditional jump           *42Ю
    27260>
    27255>27934    101     280      2   1  3  select literal address       *422
          27935    124     282     10   1  0  unconditional jump

          28000    PROCR   280       280     *42 OPTIONS 8 & 9
          28001     NOTES          RADIX     B
          28002    126     329      2   0  0  enter subroutine             > READ
          28003    126     352      2   0  0  enter subroutine             *42Ю*09‼06‼         TEST RTE NOTING D/B
          28004    125              0   1  2  interrogate indicators       *66Ю
          28005    124     280      7   1  0  unconditional jump
          28006    106     210     15   0  0  select (N)
    28005>28007    102     210     16   0  0  transfer (A) to N            *66Ю
          28008    126     341      2   0  0  enter subroutine
          28009    102              2   1  3  transfer (A) to N            CLEAR SECOND WORD OF ANNEXE
          28010    126     329      2   0  0  enter subroutine             >READ
          28011    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28012    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          28013    126     344      2   0  0  enter subroutine             >S/R WW
          28014    124     210     16   0  1  modify address of next       *669
          28015    106              0   1  3  select (N)                                       TEST ALIGNMENT CORRE
          28016    124     109      2   0  1  modify address of next
          28017    105     252      6   1  0  subtract (N) from (A)
          28018    127     281      2   0  1  jump A != Z                  >NO
          28019    124     210     16   0  1  modify address of next       *669
          28020    106              2   1  3  select (N)
          28021    124     109      2   0  1  modify address of next
          28022    105     252      8   1  0  subtract (N) from (A)
  Source image: P1020700.JPG
          28023    127     281      2   0  1  jump A != Z                  >NO
          28024    106     188      2   0  0  select (N)                   *16Ю
          28025    105     100     33   0  0  subtract (N) from (A)        TEST UPTIME*UPTIME ROUTE SMALL
          28026    127     280     32   0  2  jump A >= Z                  >NO
          28027    126     378     12   0  0  enter subroutine
          28028    124     280     32   1  0  unconditional jump           >ACCEPTED
          28029    106             32   0  1  select (N)                   MEANT TO REJECT?
          28030    127     281      2   0  1  jump A != Z                  >RE OFFER OPTIONS   >NO
          28031    126     378      6   0  0  enter subroutine             *16Ю 44 OF SWITCH
    28028>
    28026>28032    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          28033    102              2   1  3  transfer (A) to N            CLEAR SECOND WORD OF ANNEXE
          28034    126     329      2   0  0  enter subroutine             >READ
          28035    124              3   0  1  modify address of next
          28036    106            158   0  0  select (N)                                       TEST IF P/T
          28037    101     280      2   1  2  subtract literal address
          28038    127     280     40   0  0  jump A = Z
          28039    106     210      8   0  0  select (N)                                       SET UP ROUTE TYPE
    28038>28040    101              5   1  1  add literal address
          28041    124     287     52   1  0  unconditional jump           *42Ю
          28042    106     280     44   0  0  select (N)                   *422
          28043    124     287     52   1  0  unconditional jump
          28044    100              0   0  0  Halt                         *422

          28100    PROCR   281       281     ALIGNMENT INCORRECT FOR OPTION 8
          28101     NOTES          RADIX     B
    28030>
    28023>
    28018>28102    126     339      2   0  0  enter subroutine             *42Ю
          28103    126     344      2   0  0  enter subroutine             >S/R WW
          28104    124     109      2   0  1  modify address of next       SET FIRST TWO WORDS FOR COMMENT
          28105    106     252      6   1  0  select (N)
          28106    102     258      8   1  0  transfer (A) to N
          28107    124     109      2   0  1  modify address of next
          28108    106     252      8   1  0  select (N)
          28109    102     258     10   1  0  transfer (A) to N
          28110    106     214     42   1  0  select (N)                   SETDB/ FOR COMMENT
          28111    102     258      4   1  0  transfer (A) to N
          28112    106            158   0  3  select (N)                   SELECT RETURN LINK
          28113    126     362      2   0  0  enter subroutine             > SET RTE TO MANUAL
          28114    124     370      8   1  0  unconditional jump           >OUTPUT COMMENT

          28200    PROCR   282       282     DOUBTFUL BLOCK:PRINTER
          28201     NOTES          RADIX     B
    27506>28202    106             33   0  1  select (N)                   *2.286Ю TEST IF LINK SPECIFIED
          28203    105             30   0  1  subtract (N) from (A)        *54Ю44Ю
          28204    127     282      7   0  0  jump A = Z
          28205    106             33   0  1  select (N)                   *54Ю44Ю
          28206    127     279     17   0  1  jump A != Z                  *2.286Ю >YES
    28204>
    27513>
    27505>
    27261>28207    106     214     42   1  0  select (N)                   SET DB/ FOR COMMENT
          28208    102     258      4   1  0  transfer (A) to N
          28209    101     283      2   1  3  select literal address
    32010>
    37408>
    40620>
    27935>
    27762>28210    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL  ETC
    37103>
    38311>
    38316>
    38320>
    45051>
    27925>
    27721>
  Source image: P1020701.JPG
    27016>28211    124     261      2   0  2  select literal and division  SELECT TABLE START
          28212    124     336      2   1  0  unconditional jump           >OUTPUT COMMENT

          28300    PROCR   283       283     PRINTER:ROUTINE AFTER D/B
          28301     NOTES          RADIX     B
          28302    126     330      2   0  0  enter subroutine             >WRITE
          28303    101              4   1  3  select literal address       *2.486+             00009
          28304    124     287     52   1  0  unconditional jump           >END ROUTINE

          28400    PROCR   284       284     DOUBTFUL BLOCK-AUTOLECTOR & CHEQUE SORTER
    39918>
    27514>
    27230>
    27227>
    27224>
    27215>
    27213>28402    106             33   0  1  select (N)                   *30Ю49Ю56Ю81Ю82Ю82Ю
          28403    127     263     20   0  0  jump A = Z                   >NO ZZZ COMMENT
    30037>28404    101             15   0  1  prepare for digit collation  RETURN TO PROGRAM
          28405    114             44   0  1  replace selected bits        BY LINK
          28406    106             35   0  1  select (N)                   SET SI=4
          28407    102              7   0  1  transfer (A) to N
          28408    106             33   0  1  select (N)                   ENSURE LINK NOT
          28409    105             39   0  1  subtract (N) from (A)        BOGUS
          28410    127     263     20   0  0  jump A = Z                   >OPEN FILE,ZZZ COMMENT
          28411    124     397     15   1  0  unconditional jump           >RETURN TO PROGM

          28500    PROCR   285       285     DOUBTFUL BLOCK:M/T INPUT
          28501     NOTES          RADIX     B
    42132>
    27511>28502    126     314      2   0  0  enter subroutine             TEST A1=BLOCK COUNTER
          28503    127     288      2   0  1  jump A != Z                  >NO TO END ROUTINE
          28504    124     285     45   1  0  unconditional jump           *019                STEP BACK 50/8 BLOCK
    28515>
    28548>28505    106     212      6   0  0  select (N)
          28506    126     306      2   0  0  enter subroutine             >
    28559>
    29350>28507    126     342      2   0  0  enter subroutine             *019
    28577>28508    126     329      2   0  0  enter subroutine             >READ
          28509    126     343      2   0  0  enter subroutine             *019
          28510    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28511    124              3   0  1  modify address of next                           TEST D/B IND SET
          28512    106            160   0  0  select (N)
          28513    127     285     29   0  0  jump A = Z                   *43‼
          28514    126     358      2   0  0  enter subroutine             >STEP CTR OF TRIES=C
          28515    127     285      5   0  1  jump A != Z                  *013 >NO
          28516    124              3   0  1  modify address of next                           TEST RTE TYPE 7
          28517    106            174   0  0  select (N)
          28518    101              7   1  2  subtract literal address
          28519    127     285     23   0  1  jump A != Z                  >NO
          28520    106             33   0  1  select (N)                                       TEST LINK TO BE AMEN
          28521    127     285     23   0  0  jump A = Z                   >NO
          28522    127     285     65   0  2  jump A >= Z                  > YES
    28521>
    28519>28523    125              0   1  2  interrogate indicators
          28524    124              3   0  1  modify address of next
          28525    102            175   0  0  transfer (A) to N
          28526    101           6145   1  3  select literal address       *14+5++*14+*5++     020480614402049
    28668>28527    102             41   0  1  transfer (A) to N
          28528    124     294      2   1  0  unconditional jump           >OFFER OPTIONS
    28513>28529    106     214     42   1  0  select (N)                   *43Ю                SET UP'DB'
          28530    102     258      4   1  0  transfer (A) to N
          28531    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          28532    106     109      8   1  0  select (N)                   SET UP I/P:1
          28533    102     258     10   1  0  transfer (A) to N
  Source image: P1020702.JPG
          28534    101     285     63   1  3  select literal address       SET UP LINK FOR SI=5
    28729>28535    126     363      2   0  0  enter subroutine             > & SETTING OF S101
          28536    124              3   0  1  modify address of next       SET UP NO OF ATTEMPTS
          28537    106            167   0  0  select (N)
          28538    100     210      3   0  3  set radix                    *519
          28539    107     258     10   1  0  augment (N) by (A)
          28540    100     212      2   0  3  set radix                    *519
          28541    125              0   1  2  interrogate indicators
          28542    124              3   0  1  modify address of next       CLEAR COUNTER C
          28543    102            167   0  0  transfer (A) to N
          28544    124     432     11   1  0  unconditional jump           *43Ю
    28504>
    27259>28545    124     188      2   0  1  modify address of next       *01Ю                TEST<52/10 BLOCKS
          28546    106     190      2   0  0  select (N)
          28547    101             82   1  2  subtract literal address     *8Ю4                00010
          28548    127     285      5   0  3  jump A < Z                   >YES
          28549    101             50   1  3  select literal address       *8Ю4                00008
          28550    126     306      2   0  0  enter subroutine             >STEP BACK 50 BLOCKS,FORWARD 1
          28551    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          28552    101             48   1  3  select literal address       *8Ю4 COUNTER        00006
    28560>28553    102            177   0  3  transfer (A) to N
          28554    126     355      2   0  0  enter subroutine             STEP FORWARD
          28555    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28556    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          28557    106            177   0  3  select (N)                                       STEP COUNTER BY
          28558    105     210      8   0  0  subtract (N) from (A)                            MINUS ONE AND
          28559    127     285      7   0  0  jump A = Z                   >YES                TEST END
          28560    124     285     53   1  0  unconditional jump           *01Ю
    27256>28561    124              3   0  1  modify address of next       *432                CLEAR COUNTER
          28562    102            167   0  0  transfer (A) to N            *432
          28563    101              7   1  3  select literal address
          28564    124     287     52   1  0  unconditional jump
    28522>28565    101              7   1  3  select literal address
          28566    102             31   0  1  transfer (A) to N            RESET RTE TYPE 7 IN SI+31
          28567    124              3   0  1  modify address of next
          28568    102            167   0  0  transfer (A) to N            CLEAR ATTEMPTS COUNTER
          28569    106             33   0  1  select (N)
          28570    124     279     17   1  0  unconditional jump           > AMEND LINK
          28571    127     287     33   0  0  jump A = Z                   *££0*££2*43‼
          28572    127     286     48   0  0  jump A = Z                   *01‼01‼
          28573    127     293     36   0  0  jump A = Z                   *01Ю01‼
          28574    127     287     30   0  1  jump A != Z                  *51‼                >OMIT
          28575    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28576    127     425     25   0  0  jump A = Z                   *43‼43‼*51‼51‼      >BLOCK 7
          28577    124     285      8   1  0  unconditional jump           *01901‼

          28600    PROCR   286       286     DOUBTFUL BLOCK:M/T OUTPUT
          28601     NOTES          RADIX     B
    27512>28602    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          28603    124     188      2   0  1  modify address of next       TEST BLOCK 7
          28604    106     190      2   0  0  select (N)
          28605    101              7   1  2  subtract literal address
          28606    127     286     11   0  1  jump A != Z                  >NO
          28607    106              6   0  0  select (N)                   TEST FINISHED
          28608    118           4124   0  0  shift logical                OPENING FILE
          28609    101             14   1  2  subtract literal address
          28610    127     288      2   0  1  jump A != Z                  >YES IGNORE O/B
    28606>28611    106              0   1  3  select (N)                   STORE A1
          28612    124              3   0  1  modify address of next
          28613    102            178   1  0  transfer (A) to N
          28614    126     331      2   0  0  enter subroutine
          28615    101              3   1  3  select literal address       STEP BACK 3 BLOCKS
    28623>28616    126     306      2   0  0  enter subroutine             >FORWARD 1
          28617    126     355      2   0  0  enter subroutine             >STEP FORWARD
          28618    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28619    124              3   0  1  modify address of next                           TEST D/B OCCURRED
  Source image: P1020703.JPG
          28620    106            160   0  0  select (N)
          28621    127     286     24   0  0  jump A = Z                   >NO
          28622    101              2   1  3  select literal address
          28623    124     286     16   1  0  unconditional jump           >TRY AGAIN
    28676>
    28681>
    28694>
    28621>28624    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK CTR
          28625    127     286     69   0  1  jump A != Z                  >NO
          28626    126     339      2   0  0  enter subroutine             >SET(MR3)=3
          28627    102            171   0  3  transfer (A) to N            CLEAR OPTION INDICATOR
          28628    102            186   0  3  transfer (A) to N
    28689>28629    126     321      2   0  0  enter subroutine             >
          28630    126     341      2   0  0  enter subroutine             >SET MR3=(64+R)
          28631    106     211     16   1  0  select (N)                   SET A1=FAULTY BLOCK WORD
          28632    102              0   1  3  transfer (A) to N
          28633    124              3   0  3  modify address of next       PACK
          28634    106            178   1  0  select (N)
          28635    101             15   0  1  prepare for digit collation
          28636    114              0   1  3  replace selected bits
    28663>28637    126     341      2   0  0  enter subroutine             >SET (MR3) = (64+R)
          28638    124              3   0  1  modify address of next
          28639    106            179   1  0  select (N)
          28640    105     220      3   0  0  subtract (N) from (A)
          28641    127     286     48   0  0  jump A = Z                   >BLOCK 7
          28642    106              2   1  3  select (N)                                       TEST A2=R/M'S
          28643    105     211      8   1  0  subtract (N) from (A)
          28644    127     286     47   0  0  jump A = Z                   *01‼01‼
          28645    124              1   0  2  select literal and division  AUGMENT 2ND WORD
          28646    107              3   1  3  augment (N) by (A)
    28644>28647    126     342      2   0  0  enter subroutine             *019 >SET ASL FOR HI-D
    28641>
    28572>28648    126     330      2   0  0  enter subroutine             WRITE
          28649    126     343      2   0  0  enter subroutine             *019
          28650    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28651    100     210      3   0  3  set radix                    *8£Ю                SET DECIMAL
          28652    101              1   1  3  select literal address                           AUGMENT
          28653    124     188      2   0  1  modify address of next                           DB'S
          28654    107     193      2   0  0  augment (N) by (A)                               COUNT
          28655    100     212      2   0  3  set radix                    *8£Ю                SET BINARY
          28656    124              3   0  1  modify address of next                           TEST D/B IND SET
          28657    106            160   0  0  select (N)
          28658    127     287      2   0  0  jump A = Z                   *43‼
          28659    101              1   1  3  select literal address       *43Ю*51Ю STEP DB'S COUNTER
          28660    124     188      2   0  3  modify address of next
          28661    107     192      2   0  0  augment (N) by (A)           *43Ю*51Ю
          28662    126     358      2   0  0  enter subroutine             >STEP COUNTER C
          28663    127     286     37   0  1  jump A != Z                  >NO                 TEST C=6
          28664    106     212      6   0  0  select (N)
          28665    124              3   0  1  modify address of next
          28666    102            175   0  0  transfer (A) to N
          28667    101           5121   1  3  select literal address       *14+5++*14+*5++     010240512001025
          28668    124     285     27   1  0  unconditional jump           >
    28625>28669    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          28670    124     286     82   1  0  unconditional jump           >FMB FOUND
          28671    126     339      2   0  0  enter subroutine             >SET(MR3)=3
          28672    101     286     24   1  3  select literal address       STORE RETURN LOCATION
          28673    102            162   0  3  transfer (A) to N
          28674    126     323      2   0  0  enter subroutine
          28675    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          28676    124     286     24   1  0  unconditional jump           >
          28677    126     318      2   0  0  enter subroutine             >TEST BLOCK 6
          28678    124     291     27   1  0  unconditional jump           >OPEN REEL
          28679    126     317      2   0  0  enter subroutine             >REREAD
          28680    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          28681    124     286     24   1  0  unconditional jump           >
  Source image: P1020704.JPG
    28670>28682    101              3   0  1  prepare for digit collation
          28683    126     339      2   0  0  enter subroutine             SET(MR3)=3
          28684    115            179   1  3  collate and add                                  CORRECTLY FOR REWRIT
          28685    102     221      2   0  0  transfer (A) to N
          28686    126     341      2   0  0  enter subroutine             (MR3)=(64+R)
          28687    115              1   1  3  collate and add
          28688    105     221      2   0  0  subtract (N) from (A)
          28689    127     286     29   0  0  jump A = Z                   >YES
          28690    101              3   1  3  select literal address
          28691    126     306      2   0  0  enter subroutine             >STEP BACK(3)FORWARD 1
          28692    126     355      2   0  0  enter subroutine             >STEP FORWARD
          28693    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28694    124     286     24   1  0  unconditional jump           >

          28700    PROCR   287       287     DB/COMMENT:M/T OUTPUT
          28701     NOTES          RADIX     B
    29347>
    28658>28702    106     214     42   1  0  select (N)                   *43Ю                SET UP'DB'
          28703    102     258      4   1  0  transfer (A) to N
          28704    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP ROUTE NUMBER
          28705    126     356      2   0  0  enter subroutine             >SET UP PROGRAMME NUMBER
          28706    124              3   0  1  modify address of next       SET UP BLOCK NUMBER
          28707    106            179   1  0  select (N)
          28708    102     258      8   0  0  transfer (A) to N
          28709    126     188      2   1  3  set modification register    *519
          28710    101              1   1  3  select literal address       *5:Ю OMIT CATEGORY
          28711    126     332      2   0  0  enter subroutine             >TEST CATEGORY SET
          28712    127     287     16   0  0  jump A = Z                   *5:Ю*51‼            >EVERY D/B
          28713    106     192      2   0  3  select (N)                   *51Ю TEST COUNTER
          28714    101             11   1  2  subtract literal address     REACHED 12
          28715    127     287     30   0  3  jump A < Z                   >NOT 12
    28712>28716    100     210      3   0  3  set radix                    CONVERT AND
          28717    101     213      2   1  3  select literal address
          28718    112     192      2   0  3  convert                      FOR COMMENT
          28719    102     258     11   1  0  transfer (A) to N            CONVERT TO ALPHA
          28720    106     258     10   1  0  select (N)
          28721    101             64   1  2  subtract literal address
          28722    100     212      2   0  3  set radix
          28723    124              3   0  3  modify address of next
          28724    102            167   0  0  transfer (A) to N
          28725    102     192      2   0  3  transfer (A) to N            *51Ю
          28726    106     109     10   1  0  select (N)                   SET UP O/P:1
          28727    102     258     10   1  0  transfer (A) to N
          28728    124     287     30   0  2  select literal and division
          28729    124     285     35   1  0  unconditional jump           > OUTPUT 'DB'
    28715>
    28574>28730    106             30   1  1  select (N)                   SET UP ROUTE NO AND TYPE
          28731    102     188      2   1  0  transfer (A) to N
          28732    126     359      2   0  0  enter subroutine             *43Ю
    28571>28733    124              3   0  1  modify address of next       *4315195:9          CLEAR COUNTER
          28734    102            167   0  0  transfer (A) to N            *4315195:9
          28735    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          28736    124              3   0  1  modify address of next       RESTORE A1
          28737    106            178   1  0  select (N)
          28738    102              0   1  3  transfer (A) to N
          28739    106     210      8   0  0  select (N)
          28740    126     333      2   0  0  enter subroutine             >STEP BLOCK CNTR BY 1
          28741    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          28742    126     188      2   1  2  set modification register    *01Ю
          28743    100     210      8   0  2  replace (B) by (N)           SET(B)
          28744    124              3   0  1  modify address of next
          28745    106            179   1  0  select (N)                                       TEST BLOCK 7
          28746    105     220      3   0  0  subtract (N) from (A)
          28747    127     287     49   0  0  jump A = Z                   >YES
          28748    126     342      2   0  0  enter subroutine             *01Ю
    28747>28749    126     330      2   0  0  enter subroutine             >WRITE
  Source image: P1010150.JPG
          28750    126     343      2   0  0  enter subroutine             *019
          28751    106     212      5   0  0  select (N)                   SET RTE TYPE 8
    28564>
    28304>
    28043>
    28041>28752    103     188      3   0  0  copy (A) to N
          28753    126     349      2   0  0  enter subroutine             >UPDATE ASSEMELER TABLE
          28754    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3

          28800    PROCR   288       288     DOUBTFUL BLOCK:END ROUTINE
          28801     NOTES          RADIX     B
    28610>
    28503>
    27706>28802    126     339      2   0  0  enter subroutine             >SET (MR3) = (3)
          28803    106            174   0  3  select (N)                   RESTORE RTE TYPE
          28804    127     288      6   0  1  jump A != Z
          28805    106     188      3   0  0  select (N)
    29130>
    28804>28806    102             31   0  1  transfer (A) to N
          28807    102            174   0  3  transfer (A) to N            CLEAR W/L
          28808    124     264     30   1  0  unconditional jump           >

          28900    PROCR   289       289     OPTIONS 4,5,6 & 7
          28901     NOTES          RADIX     B
          28902    124              4   0  2  select literal and division  SELECT 4
          28903    124     289      7   1  0  unconditional jump           >
          28904    101              3   1  3  select literal address       SELECT 3
          28905    124     289      7   1  0  unconditional jump           >
          28906    106     212      6   0  0  select (N)                   SELECT 2
    28905>
    28903>28907    126     306      2   0  0  enter subroutine             STEP BACK(A)BLOCKS FORWARD 1
          28908    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          28909    106            171   0  3  select (N)                                       TEST REALIGNING
          28910    101     286     24   1  2  subtract literal address
          28911    127     289     26   0  0  jump A = Z                   >YES
          28912    100     210      8   0  2  replace (B) by (N)           *01Ю                SET(B)
          28913    126     188      2   1  2  set modification register    SET(MR2)=R
          28914    106     190      2   0  2  select (N)                                       TEST BLOCK SIX OR
          28915    101              8   1  2  subtract literal address                         SEVEN
          28916    127     289     18   0  3  jump A < Z                   >YES
          28917    126     342      2   0  0  enter subroutine             *01Ю
    28916>28918    126     329      2   0  0  enter subroutine             >READ
          28919    126     343      2   0  0  enter subroutine             *019
          28920    106            164   0  3  select (N)                   *5+Ю                TEST IF CHD
          28921    127     289     27   0  1  jump A != Z                  *5+Ю                >YES
          28922    101              7   1  3  select literal address       SET RTE TYPE
    28928>28923    102     188      3   0  0  transfer (A) to N
          28924    106            171   0  3  select (N)
          28925    124     351      5   1  0  unconditional jump           > UPDATE ASSEMBLER TABLE
    28911>28926    126     355      2   0  0  enter subroutine             >STEP FORWARD
    28921>28927    125              0   1  2  interrogate indicators
          28928    124     289     23   1  0  unconditional jump           >CLEAR ASSEMBLER TABLE

          29000    PROCR   290       290     OPTION 10:REOFFER OPTIONS
          29001     NOTES          RADIX     B
    20222>29002    125              0   1  2  interrogate indicators       *46Ю DRAIN
          29003    126     346      2   0  0  enter subroutine             >EDIT TIME
          29004    124     335      4   1  0  unconditional jump           >OFFER OPTIONS

          29100    PROCR   291       291     OPTION 13
          29102    124     291      6   0  2  select literal and division  *5+Ю
          29103    126     362      2   0  0  enter subroutine             >UNLOAD
          29104    126     338      2   0  0  enter subroutine             >SET SI=1
          29105    124     462     11   1  0  unconditional jump           >SI+1
          29106    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29107    106            164   0  3  select (N)
  Source image: P1010151.JPG
          29108    127     292     15   0  1  jump A != Z                  >YES
          29109    106            187   0  3  select (N)                   TEST CHANGE DECKS IN MISALIGNMENT
          29110    127     291     20   0  0  jump A = Z                   >NO
          29111    126     322      2   0  0  enter subroutine             TEST ALIGNING FROM O/P
          29112    124     291     18   1  0  unconditional jump           >NO
          29113    106     212      6   0  0  select (N)
    29119>29114    102            175   0  3  transfer (A) to N
          29115    106            183   0  3  select (N)
          29116    102            172   0  3  transfer (A) to N
          29117    124     292      8   1  0  unconditional jump           >CHANGE DECKS
    29112>29118    125              0   1  2  interrogate indicators
          29119    124     291     14   1  0  unconditional jump           >
    29110>29120    126     340      2   0  0  enter subroutine             >SET(MR3)=R
          29121    124              3   0  1  modify address of next                           TEST IF I/P
          29122    106            175   0  0  select (N)
          29123    127     291     33   0  1  jump A != Z                  >NO
          29124    106     190      2   0  3  select (N)
          29125    101              9   1  2  subtract literal address                         TEST D/B IN OPEN
          29126    127     292      2   0  2  jump A >= Z                  *5+Ю >NO CHANGE DECKFILE
    29135>
    30834>
    28678>29127    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          29128    101     291     31   1  3  select literal address       SET UP PSEUDO RTE TYPE
          29129    101     267      2   1  2  subtract literal address
          29130    124     288      6   1  0  unconditional jump           >END ROUTINE
          29131    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29132    124     307     12   1  0  unconditional jump           >
    29123>29133    106     190      2   0  3  select (N)                   *5+Ю                TEST D/B IN
          29134    101              6   1  2  subtract literal address                         OPEN FILE
          29135    127     291     27   0  3  jump A < Z                   >YES

          29200    PROCR   292       292     CHANGE DECKS(1)
    29126>29202    126     339      2   0  0  enter subroutine             *5+Ю SET(MR3)=(3)
          29203    106            175   0  3  select (N)                                       TEST IF I/P
          29204    127     292      8   0  0  jump A = Z                   >YES
          29205    124     188      2   0  1  modify address of next       STORE BLOCK COUNTER
          29206    106     190      2   0  0  select (N)
          29207    124     292     13   1  0  unconditional jump           >
    29204>
    29117>29208    124     188      2   0  1  modify address of next
          29209    106     190      2   0  0  select (N)                   STORE BLOCK COUNTER
          29210    100     210      3   0  3  set radix                    MINUS ONE           SET DECIMAL
          29211    105     210      8   0  0  subtract (N) from (A)
          29212    100     212      2   0  3  set radix                                        SET BINARY
    29207>29213    103            170   0  3  copy (A) to N
          29214    102            164   0  3  transfer (A) to N            SET INDICATOR FOR OPEN REEL
    29108>29215    106            175   0  3  select (N)                                       TEST IF I/P
          29216    127     292     28   0  1  jump A != Z                  >NO
          29217    106            170   0  3  select (N)                                       TEST BLOCK NO
          29218    101              8   1  2  subtract literal address                         <8
          29219    127     292     26   0  2  jump A >= Z                  >NO
          29220    124     188      2   0  1  modify address of next
          29221    119              0   0  3  run forward                  RUN FORWARD
          29222    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29223    126     355      2   0  0  enter subroutine             >STEP FORWARD
          29224    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29225    124     292     42   1  0  unconditional jump           >
    29219>29226    126     410      2   0  0  enter subroutine             >OPEN INPUT REEL
          29227    124     292     42   1  0  unconditional jump           >
    29216>29228    106            170   0  3  select (N)
          29229    101              6   1  2  subtract literal address
          29230    127     292     36   0  1  jump A != Z                  >NOT BLOCK 7
          29231    124     188      2   0  1  modify address of next       TEST IF OPENING FILE
          29232    106             64   0  0  select (N)
          29233    118           4124   0  0  shift logical
          29234    101             14   1  2  subtract literal address
  Source image: P1010152.JPG
          29235    127     425     22   0  0  jump A = Z                   *51‼51‼*43‼43‼
    29230>29236    126     425      2   0  0  enter subroutine             >OPEN OUTPUT REEL
          29237    106            170   0  3  select (N)
          29238    101              7   1  2  subtract literal address
          29239    127     292     42   0  1  jump A != Z                  > NOT BLOCK 8
          29240    101              2   1  3  select literal address
          29241    126     306      2   0  0  enter subroutine             STEP BACK 2 FORWARD 1
    42675>
    29239>
    29227>
    29225>29242    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29243    106            170   0  3  select (N)
          29244    124     188      2   0  1  modify address of next       SET UP BLOCK
          29245    103     190      2   0  0  copy (A) to N                COUNTER
          29246    100     210      3   0  3  set radix                    DECIMAL             STEP FORWARD
          29247    101              9   1  2  subtract literal address     SUB 9               (BLOCK COUNTER)-9
    29262>29248    100     212      2   0  3  set radix                    BINARY              BLOCKS
          29249    127     292     63   0  0  jump A = Z                   >BLOCK 9 OR END OF STEP FORWARD
          29250    127     292     63   0  3  jump A < Z                   >BLOCK<9
          29251    102            177   0  3  transfer (A) to N            STORE COUNTER IN C+177
    29257>29252    126     342      2   0  0  enter subroutine             *019 SET ASL FOR HIGH DENSITY
          29253    126     355      2   0  0  enter subroutine             STEP FORWARD
          29254    126     343      2   0  0  enter subroutine             *019 CLEAR BIT 1 ASL
          29255    126     352      2   0  0  enter subroutine             *09‼06‼ TEST RTE NOTING D/B
          29256    126     315      2   0  0  enter subroutine             TEST A1 FOR FBM'S
          29257    124     292     52   1  0  unconditional jump           >YES DON'T COUNT THIS BLOCK
          29258    126     339      2   0  0  enter subroutine             SET (MR3)=(3)
          29259    106            177   0  3  select (N)                   COUNTER
          29260    100     210      3   0  3  set radix                    DECIMAL
          29261    101              1   1  2  subtract literal address     SUB 1
          29262    124     292     48   1  0  unconditional jump           >TEST ZERO
    29279>
    29282>
    29311>
    29250>
    29249>29263    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK COUNTER
          29264    127     293     12   0  0  jump A = Z                   >YES
          29265    127     293      2   0  3  jump A < Z                   TEST A1<BLOCK COUNTE>YES
          29266    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          29267    124     293     51   1  0  unconditional jump           >FBM FOUND
          29268    126     355      2   0  0  enter subroutine
          29269    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29270    126     314      2   0  0  enter subroutine             > TEST A1<BLOCK COUNTER
          29271    127     293     12   0  0  jump A = Z                   >YES
          29272    127     293      2   0  3  jump A < Z                   TEST A1<BLOCK COUNTER >YES
          29273    101              2   1  3  select literal address       STEP BACK2
          29274    126     306      2   0  0  enter subroutine             FORWARD 1
          29275    101     292     63   1  3  select literal address       STORE RETURN LOCATION
          29276    124              3   0  1  modify address of next
          29277    102            162   0  0  transfer (A) to N
          29278    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          29279    124     292     63   1  0  unconditional jump           >
          29280    126     317      2   0  0  enter subroutine             >REREAD
          29281    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          29282    124     292     63   1  0  unconditional jump           >

          29300    PROCR   293       293     CHANGE DECKS(2)
    29353>
    29272>
    29265>29302    126     339      2   0  0  enter subroutine             *5+Ю SET(MR3)=(3)
          29303    102            185   0  3  transfer (A) to N            CLEAR ATTEMPTS CTR
          29304    106            170   0  3  select (N)                   *01Ю TEST BLOCK<8
          29305    101              8   1  2  subtract literal address
          29306    127     293      8   0  3  jump A < Z                   >YES
          29307    126     342      2   0  0  enter subroutine             *01Ю SET(MR2)=R FOR 90K
    29306>29308    126     355      2   0  0  enter subroutine             >STEP FORWARD
  Source image: P1010153.JPG
          29309    126     343      2   0  0  enter subroutine             *019
    29356>29310    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29311    124     292     63   1  0  unconditional jump           >
    29271>
    29264>29312    126     339      2   0  0  enter subroutine             >SET(MR3)=3
          29313    102            171   0  3  transfer (A) to N            CLEAR INDICATORS
          29314    102            186   0  3  transfer (A) to N
          29315    106            187   0  3  select (N)                                       TEST CHANGE DECKS
          29316    127     293     39   0  0  jump A = Z                   >NO                 IN ALIGNMENT FAILURE
          29317    106            175   0  3  select (N)                                       TEST IF I/P
          29318    127     293     35   0  0  jump A = Z                   *01Ю01‼
          29319    126     355      2   0  0  enter subroutine             >STEP FORWARD
    29338>29320    106     210      8   0  0  select (N)
          29321    126     333      2   0  0  enter subroutine             STEP BLOCK COUNTER BY 1
          29322    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29323    102            173   0  3  transfer (A) to N            CLEAR INDICATOR
          29324    102            164   0  3  transfer (A) to N            TEST IN OPEN FILE
          29325    106            175   0  3  select (N)
          29326    127     293     32   0  1  jump A != Z                  >O/P
          29327    106            170   0  3  select (N)
          29328    101              8   1  2  subtract literal address
          29329    127     293     32   0  3  jump A < Z
          29330    106            181   0  3  select (N)                                       TEST ALIGNING FROM
          29331    127     421     39   0  0  jump A = Z                   >NO                 S FWD OR BACK FOR I/
    29329>
    29326>29332    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29333    124              3   0  1  modify address of next
          29334    126            172   0  1  leave subroutine             >LEAVE SR
    29318>29335    126     342      2   0  0  enter subroutine             *019
    28573>29336    126     329      2   0  0  enter subroutine             >READ
          29337    126     343      2   0  0  enter subroutine             *019
          29338    124     293     20   1  0  unconditional jump           >
    29316>29339    126     321      2   0  0  enter subroutine             >'SER'COMMENT IF REQUIRED
          29340    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29341    102            167   0  3  transfer (A) to N            CLEAR D/B ATTEMPTS CTR
          29342    102            164   0  3  transfer (A) to N
          29343    106            175   0  3  select (N)                                       TEST IF I/P
          29344    127     293     48   0  0  jump A = Z                   >YES
          29345    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          29346    102              2   1  3  transfer (A) to N            CLEAR SECOND WORD
          29347    124     287      2   1  0  unconditional jump           *43‼
    29344>29348    106     210      8   0  0  select (N)
          29349    126     333      2   0  0  enter subroutine             >STEP BLOCK CTR. BY ONE
          29350    124     285      7   1  0  unconditional jump           *01901‼
    29267>29351    124              3   0  1  modify address of next                           TEST IF INDICATOR
          29352    106            186   0  0  select (N)                                       SET
          29353    127     293      2   0  0  jump A = Z
          29354    101              2   1  3  select literal address       STEP BACK 2
          29355    126     306      2   0  0  enter subroutine             >FORWARD 1
          29356    124     293     10   1  0  unconditional jump           *5+Ю >

          29400    PROCR   294       294     OFFER OPTIONS FOR M/T DOUBTFUL BLOCK
    28528>29402    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          29403    106            164   0  3  select (N)                   *5+Ю                TEST IF IN CH DECKS
          29404    127     320      7   0  1  jump A != Z                  *5+Ю                >YES
          29405    106     258      2   1  0  select (N)                   SETUPALARMONE
          29406    102     258      4   1  0  transfer (A) to N
          29407    102            187   0  3  transfer (A) to N            CLEAR COUNTER C
          29408    102            167   0  3  transfer (A) to N
          29409    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          29410    106            175   0  3  select (N)                   TEST IF I/P
          29411    127     294     15   0  0  jump A = Z                   >YES
          29412    124              3   0  1  modify address of next       SET UP STORED
          29413    106            179   1  0  select (N)                   BLOCK NUMBER
          29414    102     258      8   0  0  transfer (A) to N
    29411>29415    124              3   0  1  modify address of next       SET UP I/P:1
  Source image: P1010154.JPG
          29416    124            175   0  1  modify address of next       OR O/P:1
          29417    106     109      8   1  0  select (N)
          29418    102     258     10   1  0  transfer (A) to N
          29419    101             69   1  3  select literal address       SET UP SIX ATTEMPTS
          29420    107     258     10   1  0  augment (N) by (A)
          29421    101     261     12   1  3  select literal address       SELECT TABLE START
          29422    124     335      2   1  0  unconditional jump           >OFFER OPTIONS

          29500    PROCR   295       295     OPTION 1=ABANDON PROGRAMME
          29501     NOTES          RADIX     B
    19937>29502    106             30   0  1  select (N)                   *14Ю SET UP RTE NO
          29503    102     188      2   0  0  transfer (A) to N
          29504    106             39   0  1  select (N)                                       TEST M/R OR PTS
          29505    105     107     11   0  0  subtract (N) from (A)
          29506    127     296      2   0  0  jump A = Z                   >YES
    29614>29507    124              3   0  1  modify address of next       *60Ю                TEST A TRIAL
          29508    106             11   0  0  select (N)
          29509    127     295     16   0  0  jump A = Z                   >NO
          29510    126     473      2   0  0  enter subroutine             *459 RESTORE 07 DETAILS
          29511    106     108     10   0  0  select (N)
          29512    124     233     26   0  1  modify address of next       RESTORE A.S.L.
          29513    102             64   0  0  transfer (A) to N
          29514    124     233     45   0  1  modify address of next
          29515    124              6   1  0  unconditional jump           *60Ю
    29509>29516    126     462      2   0  0  enter subroutine             *14Ю                >REQUEST M/R
    29640>
    29707>
    51715>
    20417>29517    102     106      2   0  0  transfer (A) to N            SET INDICATOR
          29518    101              2   1  3  select literal address       RESET ABANDON/UNLOAD INDICATOR
          29519    102            179   0  0  transfer (A) to N
          29520    124              2   0  1  modify address of next
          29521    124             37   0  1  modify address of next
          29522    102             16   0  0  transfer (A) to N
          29523    106             39   0  1  select (N)                   SET UP PROGRAM NO
          29524    102     221     12   0  0  transfer (A) to N
          29525    126     298      2   0  0  enter subroutine             >CLEAR D/B INDICATORS
          29526    106     221     34   0  0  select (N)                   *16Ю                TEST UPTIME IN
          29527    127     295     41   0  0  jump A = Z                   >NO
          29528    106     221     38   0  0  select (N)
          29529    105              2   0  0  subtract (N) from (A)
          29530    127     295     41   0  1  jump A != Z                  *851 >NO
          29531    127     295     34   0  1  jump A != Z                  *859 >NO
          29532    102     221     38   1  0  transfer (A) to N            CLEAR INDICATORS
          29533    124     295     38   1  0  unconditional jump           *85Ю
    29531>29534    106     221     40   0  0  select (N)
          29535    105              2   0  0  subtract (N) from (A)
          29536    127     295     41   0  1  jump A != Z                  2ND SET
          29537    102     221     40   1  0  transfer (A) to N            *85Ю
    29533>29538    106     221     34   0  0  select (N)                   DECREASE NO OF UPTIME PROGS
          29539    101              2   1  2  subtract literal address     COUNTER BY 2
          29540    102     221     34   0  0  transfer (A) to N            *16Ю
    29536>
    29530>
    29527>29541    106              3   0  1  select (N)                   *59Ю TEST PROGRAM USES MOD GROUP 3
          29542    127     295     63   0  2  jump A >= Z                  >NO
          29543    106     209     14   0  0  select (N)                   SET UP 6/0/0 IN 2 OF SWITCH
          29544    102              2   0  1  transfer (A) to N
          29545    106              0   0  1  select (N)                   100/1/0 ACTION
          29546    101           8191   1  1  add literal address          TURN INTO
          29547    101              1   1  1  add literal address          100/1/1 ACTION
          29548    102             26   0  1  transfer (A) to N
          29549    106     209     18   0  0  select (N)                   FORM 2/0/0 44 IN 3 OF SWITCH
          29550    104              2   0  0  add (N) to (A)
          29551    102              3   0  1  transfer (A) to N
          29552    106     209     19   0  0  select (N)                   FORM UP 24/1/0 IN 6 OF SWITCH
  Source image: P1010155.JPG
          29553    102              6   0  1  transfer (A) to N
          29554    106     209     20   0  0  select (N)                   FORM UP 26/0/3 IN 28 OF SWITCH
          29555    105              2   0  0  subtract (N) from (A)
          29556    102             28   0  1  transfer (A) to N
          29557    106              4   0  1  select (N)                   *09Ю06Ю*06209Ю      TEST TIMINGS ON
          29558    127     295     63   0  2  jump A >= Z                  *09Ю06Ю             >YES
          29559    106              6   0  1  select (N)
          29560    102              4   0  1  transfer (A) to N
          29561    106             28   0  1  select (N)
          29562    102             27   0  1  transfer (A) to N            *59Ю*06209Ю
    29558>
    29542>29563    106              9   0  1  select (N)                   CLOSE PROG SWITCH FIRMLY
          29564    102              7   0  1  transfer (A) to N
          29565    124     106      2   0  1  modify address of next       AMEND EDIT TABLE FOR
          29566    124     214     54   0  2  select literal and division  ABDON'OR'END'
          29567    102     482      2   0  0  transfer (A) to N
          29568    124     106      2   0  1  modify address of next
          29569    124     295     70   1  0  unconditional jump
    29569>29570    106              9   0  1  select (N)                   CORRUPT SI+35 TO PREVENT
          29571    102             35   0  1  transfer (A) to N            SWITCH BEING OPENED
          29572    126     179      2   0  0  enter subroutine             >SEARCH LOG QUEUE S/R
          29573    124     176     12   0  2  select literal and division  TEST OPTION OUTSTANDING
          29574    105     175      4   0  3  subtract (N) from (A)        FOR THIS PROG
          29575    127     295     77   0  1  jump A != Z                  >NO
          29576    102     175      3   0  0  transfer (A) to N            CLEAR OPT OUTSTANDING INDICATOR
    29575>29577    102     175      4   0  3  transfer (A) to N            CLEAR A
          29578    102     175      4   0  3  transfer (A) to N            CLEAR LOG REQUEST
          29579    124     475      2   1  0  unconditional jump           >END ROUTINE
          29580    124     208      2   1  0  unconditional jump           *££0*££2*41‼        >XXX COMMENT
          29581    127     301      5   0  3  jump A < Z                   *28‼                >NO
          29582    127     302      2   0  3  jump A < Z                   *03‼                >NO
          29583    127     301      5   0  2  jump A >= Z                  *28‼033             >NO
          29584    127     296     33   0  0  jump A = Z                   *57‼
          29585    124     203      2   1  0  unconditional jump           *60‼
          29586    124     477      8   1  0  unconditional jump           *363
          29587    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          29588    127     302      2   0  2  jump A >= Z                  *03‼03‼             >NO

          29600    PROCR   296       296     ABANDON OPTION: DURING A MASTER ROUTINE OPERATION
          29601     NOTES          RADIX     B
    29506>29602    124              3   0  1  modify address of next       *14Ю
          29603    102            164   0  0  transfer (A) to N
          29604    124     296      6   0  1  modify address of next
          29605    124     296      7   1  0  unconditional jump
          29606    100              0   0  0  Halt                         SWITCH
    29605>29607    124     296     25   1  0  unconditional jump           (S)=0               ALLOC PREP
          29608    124     296     15   1  0  unconditional jump           (S)=1               ALLOC & LOADING
          29609    124     297      4   1  0  unconditional jump           (S)=2               O'LAY PREP
          29610    124     297      2   1  0  unconditional jump           (S)=3               O'LAY
          29611    124     297      8   1  0  unconditional jump           *41‼
          29612    124     297     10   1  0  unconditional jump           (S)=5               READING CONTROL DATA
          29613    124     208      2   1  0  unconditional jump           (S)=6               >XXX COMMENT
          29614    124     295      7   1  0  unconditional jump           *60‼ TRIAL SETTING  (5)=7
    29608>29615    106     218      6   1  0  select (N)                   RESTORE GP 3 REGISTERS
          29616    128             26   0  0  bulk copy short numeric
          29617    123             26   1  0  copy into tag                *59Ю SET TAG 0
          29618    123             30   1  0  copy into tag                IN MOD GROUP 3
          29619    123             28   1  0  copy into tag                *59Ю
          29620    106     233      7   0  0  select (N)                                       TEST ALLOCATED YET
          29621    127     296     27   0  0  jump A = Z                   *57‼ >YES
          29622    125              0   1  2  interrogate indicators                           TEST IF ANY PROGRAMM
          29623    126     479      2   0  0  enter subroutine             >S/R M*             STILL AWAITING
          29624    124     484      2   1  0  unconditional jump           >NO,REJECT COMMENT UNLOADING
    29607>29625    101             86   1  3  select literal address       *363 CODE LETTER F
          29626    124     491     11   1  0  unconditional jump           *361                C REG COMMENT
    29621>29627    106     233     26   0  0  select (N)                   *57Ю                CH CH RT
  Source image: P1010156.JPG
          29628    126     249      2   0  0  enter subroutine             >FIND RT IN LIST
          29629    124     296     31   1  0  unconditional jump           >FOUND
          29630    124     296     41   1  0  unconditional jump           >INTERNAL IMPOSSIBILITY
    29629>29631    101              0   1  3  select literal address
          29632    124     225     16   0  1  modify address of next       *57Ю
    29584>29633    102     224      4   1  0  transfer (A) to N            CLEAR IS LAST PROG LOCATED
          29634    106     221      8   0  0  select (N)
          29635    126     479      2   0  0  enter subroutine             >S/R M*
          29636    124     296     42   1  0  unconditional jump           >NOT FOUND
          29637    124              4   0  1  modify address of next
          29638    124     230      3   0  1  modify address of next
          29639    126             36   1  1  set modification register    SET MR1 FOR PROG
          29640    124     295     17   1  0  unconditional jump           >ABANDON PROGRAM
    29630>29641    101              2   1  3  select literal address       'M'
    29636>29642    101             98   1  1  add literal address          'K'
          29643    124     208      3   1  0  unconditional jump           >XXX COMMENT

          29700    PROCR   297       297     ABANDON OPTION: DURING OVERLAY, STORE DUMP, OR READING CD
          29701     NOTES          RADIX     B
    29610>29702    106     218      6   1  0  select (N)                   *14Ю
          29703    128             26   0  0  bulk copy short numeric
    29609>29704    106     209      9   0  0  select (N)                   RESET M/R SWITCH
          29705    102     106     24   0  0  transfer (A) to N            IN CASE OF LOST
          29706    126     221      6   1  1  set modification register    SET(MR1)FOR PROG
          29707    124     295     17   1  0  unconditional jump           >ABANDON PROGRAM
    29611>29708    124     214     74   0  2  select literal and division  *41Ю
          29709    124     468      6   1  0  unconditional jump           *41Ю >TYPE COMMENT
    29612>29710    106     222     18   0  0  select (N)                   RESTORE (64+R)
          29711    124     222     20   0  1  modify address of next
          29712    102             64   0  0  transfer (A) to N
          29713    106     222     19   0  0  select (N)                   *01Ю TEST READING FILES BLOCK
          29714    127     297     17   0  0  jump A = Z                   *01Ю >YES
          29715    101             84   1  3  select literal address       CODE LETTER D
          29716    124     498      5   1  0  unconditional jump           >NO CD COMMENT
    29714>29717    106     499      2   0  0  select (N)                   *01Ю                TEST ISSUE 6 PLS
          29718    101     535      2   1  2  subtract literal address                         READING CD
          29719    127     297     22   0  3  jump A < Z                   >NO
          29720    124     296     25   0  2  select literal and division  FRIG RETURN LINK
          29721    102     499      2   0  0  transfer (A) to N
    29719>29722    126     459      2   0  1  leave subroutine             >CLEAR UP S/R G

          29800    PROCR   298       298     CLEAR D/B INDICATORS FOR PROGM'S ROUTES
          29802    100              0   0  0  Halt
          29803    126     354      2   0  0  enter subroutine             >SET(MR3)
    29837>29804    106             34   1  3  select (N)                   TEST RELEASED
          29805    127     298     36   0  3  jump A < Z                   >YES
          29806    118           4118   1  0  shift logical                *52Ю
    29817>
    29820>29807    118              1   1  0  shift logical                ROUTE OR ALT RT TYPE
          29808    127     298     18   0  0  jump A = Z                   >ZERO
          29809    102     221      2   0  0  transfer (A) to N            STORE
          29810    118              2   1  0  shift logical
          29811    125              0   1  2  interrogate indicators
          29812    118              2   1  0  shift logical                STORE ROUTE OR
          29813    102     221      3   0  0  transfer (A) to N            ALTERNATE ROUTE
          29814    106     221      2   0  0  select (N)                   RESTORE ROUTE TYPE
          29815    124     221      3   0  1  modify address of next       IN 64+R
          29816    102             64   0  0  transfer (A) to N
          29817    124     298      7   1  0  unconditional jump           >CONTINUE
    29808>29818    118              4   1  0  shift logical
          29819    125              0   1  2  interrogate indicators
          29820    127     298      7   1  1  jump AB != Z                 >AB NON-ZERO CONTINUE
          29821    105             34   1  3  subtract (N) from (A)        SET ENTRY NEGATIVE
          29822    102             34   1  3  transfer (A) to N            *52Ю
          29823    101              3   0  1  prepare for digit collation
          29824    125              0   1  2  interrogate indicators       *521
  Source image: P1010157.JPG
          29825    115             34   0  3  collate and add
          29826    126     299      2   0  0  enter subroutine             >CLEAR A D/B INDICATOR
          29827    125              0   1  2  interrogate indicators
          29828    101              3   0  1  prepare for digit collation                      TEST THIS ROUTE
          29829    115             34   0  3  collate and add                                  IN ASSEMBLER TABLE
          29830    124     258     32   0  1  modify address of next
          29831    105     252      2   0  0  subtract (N) from (A)
          29832    127     298     36   0  1  jump A != Z                  >NO
          29833    106     211      2   0  0  select (N)
          29834    124     258     32   0  1  modify address of next       SET RTE TYPE  £5
          29835    102     252      3   0  0  transfer (A) to N
    29832>
    29805>29836    125              2   0  3  step on and test                                 TEST END OF TABLE
          29837    124     298      4   1  0  unconditional jump           >NO
          29838    126     298      2   0  1  leave subroutine             >YES

          29900    PROCR   299       299     CLEAR D/B INDICATOR
          29902    100              0   0  0  Halt                         LINK
          29903    118           4127   1  0  shift logical                STORE 8*CH
          29904    118              1   1  3  shift binary
          29905    118              3   0  3  shift binary
          29906    102     258     32   0  0  transfer (A) to N
          29907    118              3   1  3  shift binary                 STORE RTE
          29908    102     258     33   0  0  transfer (A) to N
          29909    101              1   0  1  prepare for digit collation  CLEAR D/B INDICATOR
          29910    124     258     33   0  1  modify address of next
          29911    118              0   1  0  shift logical
          29912    124     258     32   0  1  modify address of next
          29913    114     252      4   1  0  replace selected bits
          29914    126     299      2   0  1  leave subroutine             >

          30000    PROCR   300       300     WARNING OF END ROUTINE
          30001     NOTES          RADIX     B
          30002    100              0   0  0  Halt                         LINK=SI+12
          30003    124     300      2   0  1  modify address of next       SET (MR1) WITH PROG LINK
          30004    126             24   1  1  set modification register
          30005    106             31   0  1  select (N)                   *56Ю82Ю             TEST DATA
          30006    101             54   1  2  subtract literal address                         TRANS READ
          30007    124              2   0  3  modify address of next
          30008    127              9   0  0  jump A = Z                   *56Ю82Ю >NEXT PROG
          30009    106             31   0  1  select (N)                   *16Ю                TEST CARD READ
          30010    101              6   1  2  subtract literal address
          30011    127     381      2   0  0  jump A = Z                   >UPTIME MANUAL S/R
          30012    101             10   1  2  subtract literal address     OPEN FILE/CARD
    38027>
    38103>30013    124              2   0  1  modify address of next
          30014    127             18   0  0  jump A = Z                   *16Ю                >RC ROUTINE
          30015    106             30   1  1  select (N)                   SET UP ROUTE NO. & TYPE
          30016    102     188      2   1  0  transfer (A) to N
          30017    106     188      3   0  0  select (N)                   *56Ю82Ю             TEST IF FROM
          30018    101     267      2   1  1  add literal address                              SECIND TEST
          30019    101     399     24   1  2  subtract literal address                         ROUTE OF
          30020    118              6   0  0  shift logical                                    DATA TRANS
          30021    127     300     38   0  1  jump A != Z                  >NO
          30022    124     300     52   1  0  unconditional jump           *56Ю82Ю
          30023    106     188      3   0  0  select (N)                   *81Ю                5-8 HOLE P/T
          30024    101             57   1  2  subtract literal address
          30025    127     300     38   0  1  jump A != Z                  *81Ю
          30026    106     188      3   0  0  select (N)                   *49Ю                TEST MICR READ
          30027    101             50   1  2  subtract literal address
          30028    127     300     52   0  0  jump A = Z                   >YES BEFORE READ ORDER
          30029    106     188      3   0  0  select (N)                                       TEST IF FROM
          30030    101     267      2   1  1  add literal address                              SECOND TEST
          30031    101     397     13   1  2  subtract literal address                         ROUTE
          30032    118              6   0  0  shift logical
          30033    127     300     38   0  1  jump A != Z                  *49Ю
  Source image: P1010158.JPG
          30034    106             33   0  1  select (N)                   *49Ю81Ю
          30035    127     263     20   0  0  jump A = Z                   >NO,ZZZ COMMENT     SPECIFIED
          30036    104     210      8   0  0  add (N) to (A)               AUGMENT LINK BY 1
          30037    124     284      4   1  0  unconditional jump           *49Ю81Ю
    30033>
    30025>
    30021>30038    106     188      2   0  0  select (N)                                       TEST IF M/T
          30039    101            128   1  2  subtract literal address     *3:Ю
          30040    127     301      2   0  3  jump A < Z                   *3:Ю*03‼*28‼        >NO
          30041    101             24   1  2  subtract literal address     *3:2*224*234        000000000800016
          30042    127     301      2   0  2  jump A >= Z                  *3:2*03‼03‼*28‼033  >NO
          30043    106     188      3   0  0  select (N)                                       TEST RTE TYPE 8
          30044    101              8   1  2  subtract literal address
          30045    127     305      2   0  0  jump A = Z                   >YES                RTE TYPE 8
          30046    101             40   1  2  subtract literal address                         TEST RTE TYPE 48
          30047    127     300     52   0  0  jump A = Z                   >YES
          30048    125              0   1  2  interrogate indicators       CLEAR W/E INDICATOR
          30049    101             16   0  1  prepare for digit collation
          30050    124     188      2   0  1  modify address of next
          30051    114     190     34   0  0  replace selected bits
    30219>
    30047>
    30028>
    30022>30052    126     300      2   0  1  leave subroutine             >SI+12

          30100    PROCR   301       301     WARNING OF END:P/T OUTPUT
    30042>
    30040>30102    125              0   1  2  interrogate indicators       *03Ю*28Ю
          30103    101              1   0  1  prepare for digit collation                      TEST PAPER TAPE
          30104    115     188      3   0  0  collate and add              *28Ю                OUTPUT         23202
    29583>
    29581>30105    106     188      3   0  0  select (N)                   *281
          30106    105     210      8   0  0  subtract (N) from (A)                            TEST RTE TYPE 1
          30107    127     302      2   0  1  jump A != Z                  >NO
          30108    105     210      2   0  0  subtract (N) from (A)
          30109    124              3   0  1  modify address of next       SET W/E INDICATOR
          30110    102            157   0  0  transfer (A) to N
          30111    126     300      2   0  1  leave subroutine             >SI+12

          30200    PROCR   302       302     WARNING OF END:PRINTER
          30201     NOTES          RADIX     B    FOR ALTERATION IN HARDWARE
    30107>
    29588>
    29582>30202    106     188      3   0  0  select (N)                   TEST ROUTE TYPE
          30203    101              4   1  2  subtract literal address     *2.4                00009
          30204    127     302     20   0  0  jump A = Z                   >4OR9
          30205    101             10   1  2  subtract literal address
          30206    127     304      2   0  0  jump A = Z                   >14 OR 19
          30207    101             10   1  2  subtract literal address
          30208    127     302     20   0  0  jump A = Z                   *86Ю >29
          30209    101              5   1  1  add literal address
          30210    127     302     20   0  0  jump A = Z                   >24
          30211    101             10   1  1  add literal address
          30212    127     304      2   0  0  jump A = Z                   >14
          30213    101             10   1  1  add literal address          *86Ю
          30214    127     302     20   0  0  jump A = Z                   >24 OR 29
          30215    106     188      3   0  0  select (N)                   *54Ю44Ю
          30216    101     267      2   1  1  add literal address
          30217    101     390     10   1  2  subtract literal address     TEST SINGLE ANNEX WORKING
          30218    105     209     12   0  0  subtract (N) from (A)        *54Ю44Ю
          30219    127     300     52   0  1  jump A != Z                  >NO TO SI+12
    30214>
    30210>
    30208>
    30204>30220    106     188      3   0  0  select (N)                   STORE ROUTE TYPE IN SPECIAL CHAPTER
          30221    124              3   0  1  modify address of next
  Source image: P1010159.JPG
          30222    102            157   0  0  transfer (A) to N
          30223    124              3   0  1  modify address of next       *2.Ю CLEAR INDICATOR
          30224    102            156   0  0  transfer (A) to N            *2.Ю
          30225    124     303      2   0  2  select literal and division  RETURN LOCATION
          30226    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL, ETC.
          30227    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          30228    124              3   0  1  modify address of next       *86Ю
          30229    106            157   0  0  select (N)
          30230    101              4   1  2  subtract literal address
          30231    127     302     58   0  0  jump A = Z
          30232    101             20   1  2  subtract literal address
          30233    127     302     58   0  0  jump A = Z                   *86Ю
    30243>
    30252>30234    125              2   0  3  step on and test             *2.Ю                TEST IF MULTI-FORM
          30235    124              6   0  1  modify address of next       TEST ANNEXE LIM WD  BLOCK
          30236    123              0   0  3  select tag
          30237    101             15   1  2  subtract literal address
          30238    127     263     19   0  0  jump A = Z                   >YES, ZZZ COMMENT
          30239    124              6   0  1  modify address of next
          30240    100              0   1  2  replace (B) by (N)
    30248>30241    118              2   1  3  shift binary                 TEST END OF WORD
          30242    125              0   1  2  interrogate indicators
          30243    127     302     34   1  0  jump AB = Z                  >YES
          30244    118              6   1  3  shift binary
          30245    101             62   1  2  subtract literal address     TEST B/E
          30246    127     302     58   0  0  jump A = Z                   >YES                >NO
          30247    101             32   1  1  add literal address          TEST L/E
          30248    127     302     41   0  1  jump A != Z                  >NO
          30249    125              2   0  3  step on and test             TEST TRACK 8
          30250    100     220     13   0  2  replace (B) by (N)
          30251    115              0   0  3  collate and add
          30252    127     302     34   0  0  jump A = Z                   >NO
          30253    124     188      2   0  1  modify address of next       STORE ASL           YES
          30254    106             64   0  0  select (N)                   AS INDICATOR
          30255    124              3   0  1  modify address of next
          30256    102            156   0  0  transfer (A) to N
          30257    106     214     46   1  0  select (N)                   *2.Ю
    30404>
    30246>
    30233>
    30231>30258    102     258      8   1  0  transfer (A) to N
          30259    106     214     44   1  0  select (N)                   'WE'
          30260    102     258      4   1  0  transfer (A) to N
          30261    124     370      7   1  0  unconditional jump           >OUTPUT COMMENT

          30300    PROCR   303       303     WARNING OF END:PRINTER
          30301     NOTES          RADIX     B    CONT.
          30302    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          30303    106            156   0  3  select (N)                   *2.Ю                TEST MULTI-FORM
          30304    127     303     27   0  0  jump A = Z                   >NO
          30305    106     258     16   1  0  select (N)                   BULK CLEAR 128-155 OF SPECIAL CHAPTER
          30306    124              3   0  1  modify address of next
          30307    128            128   1  1  bulk copy long numeric
          30308    106     214     44   1  0  select (N)                   'WE'
          30309    102            132   1  3  transfer (A) to N
          30310    106     214     46   1  0  select (N)                   'CHECK'
          30311    103            136   1  3  copy (A) to N
          30312    103            144   1  3  copy (A) to N
          30313    102            152   1  3  transfer (A) to N
          30314    106     214     10   1  0  select (N)                   B/E WD
          30315    102            154   1  3  transfer (A) to N
          30316    106     210     14   0  0  select (N)                   SET UP A.S.L.
          30317    104              3   0  0  add (N) to (A)
          30318    124     188      2   0  1  modify address of next
          30319    102             64   0  0  transfer (A) to N
          30320    126     330      2   0  0  enter subroutine             >WRITE
  Source image: P1010160.JPG
          30321    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          30322    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          30323    106            156   0  3  select (N)                   RESTORE ASL
          30324    124     188      2   0  1  modify address of next
          30325    102             64   0  0  transfer (A) to N
          30326    102            156   0  3  transfer (A) to N            *2.Ю                CLEAR IND
    30304>30327    126     330      2   0  0  enter subroutine             >WRITE
          30328    101              4   1  3  select literal address       *2.486+             00009
          30329    102     188      3   0  0  transfer (A) to N
          30330    106            157   0  3  select (N)                   ORIGINAL ROUTE TYPE
          30331    124     351      7   1  0  unconditional jump           >TEST ROUTE DEALING WITH D/B

          30400    PROCR   304       304     WARNING OF END PRINTER
          30401     NOTES          RADIX     B    OPEN FILE
    30212>
    30206>30402    124     267     21   0  2  select literal and division  RETURN LINK
          30403    126     362      2   0  0  enter subroutine             >SET RTE TO MANUAL, ETC.
          30404    124     302     58   1  0  unconditional jump           >COMMENT

          30500    PROCR   305       305     WARNING OF END
          30501     NOTES          RADIX     B    MAGNETIC TAPE OUTPUT
    30045>30502    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          30503    101             16   0  1  prepare for digit collation                      TEST W/E INDICATOR
          30504    115     190     34   0  3  collate and add                                  SET
          30505    127     305     13   0  1  jump A != Z                  >YES
          30506    106     210      6   0  0  select (N)                   SET W/E INDICATOR
          30507    114     190     34   0  3  replace selected bits
          30508    106             33   0  1  select (N)                                       TEST IF LINK TO BE
          30509    127     428     35   0  0  jump A = Z                   >NO                 AMENDED
          30510    101             15   0  1  prepare for digit collation
          30511    114             44   0  1  replace selected bits
          30512    124     428     35   1  0  unconditional jump           >SI + 12
    30505>30513    105     210      6   0  0  subtract (N) from (A)                            TEST IF INDICATOR
          30514    127     305     18   0  1  jump A != Z                  >YES                IS.
          30515    105     209     12   0  0  subtract (N) from (A)        SET INDICATOR AS .
          30516    107     190     34   0  3  augment (N) by (A)
          30517    124     428     35   1  0  unconditional jump           >SI+12
    30514>30518    126     350      2   0  0  enter subroutine             >TEST ROUTE DEALING WITH D/B
          30519    126     435      2   0  0  enter subroutine             >SET UP END OF REEL SENTINEL
          30520    126     310      2   0  0  enter subroutine             >WRITE END OF TAPE INF
          30521    126     334      2   0  0  enter subroutine             >STEP REEL COUNTER
          30522    126     357      2   0  0  enter subroutine             >COUNT 500 M. SECS
          30523    126     451      2   0  0  enter subroutine             *8£9
          30524    126     324      2   0  0  enter subroutine             >UNLOAD. NEW TAPE
          30525    126     425      2   0  0  enter subroutine             >OPEN OUTPUT REEL
          30526    126     351      2   0  0  enter subroutine             *££0*££2*09‼06‼
          30527    126     385      2   0  0  enter subroutine             *163
          30528    102            185   0  3  transfer (A) to N            *5+‼ CLEAR ATTEMPTS COUNTER

          30600    PROCR   306       306     STEP BACK (A) BLOCKS, FORWARD 1 BLOCK
          30601     NOTES          RADIX     B
          30602    100              0   0  0  Halt                         LINK
          30603    124              3   0  1  modify address of next       SET UP CNTR
          30604    102            177   0  0  transfer (A) to N
          30605    106     306      2   0  0  select (N)
          30606    124              3   0  1  modify address of next       STORE LINK
          30607    102            161   0  0  transfer (A) to N
          30608    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
    30616>30609    124     188      2   0  1  modify address of next       STEP BACK
          30610    119              0   1  0  step back
          30611    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          30612    126     339      2   0  0  enter subroutine             SET(MR3)=3
          30613    106            177   0  3  select (N)                   SELECT CNTR
          30614    105     210      8   0  0  subtract (N) from (A)        SUBT 1              TEST COUNTER=0
          30615    103            177   0  3  copy (A) to N                STORE CNTR
          30616    127     306      9   0  1  jump A != Z                  >NO
  Source image: P1010161.JPG
          30617    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          30618    126     355      2   0  0  enter subroutine             >STEP FORWARD
          30619    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          30620    124              3   0  1  modify address of next
          30621    126            161   0  1  leave subroutine             > LEAVE S/R

          30700    PROCR   307       307     RUN FORWARD STEP FORWARD & READ
          30701     NOTES          RADIX     B
          30702    100              0   0  0  Halt
          30703    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          30704    106            164   0  3  select (N)                   *8£Ю                TEST OPT 13
          30705    127     307     10   0  1  jump A != Z                                      >YES
          30706    124     188      2   0  1  modify address of next       CLEAR DB COUNT
          30707    102     193      2   0  0  transfer (A) to N
          30708    124     188      2   0  1  modify address of next       CLEAR O/P COUNT
          30709    102     193     26   0  0  transfer (A) to N            *8£Ю
    30705>30710    106     307      2   0  0  select (N)
          30711    102            165   0  3  transfer (A) to N
    29132>30712    125              0   1  2  interrogate indicators       DRAIN
          30713    102            157   0  3  transfer (A) to N            CLEAR INDICATORS
          30714    102            158   0  3  transfer (A) to N
          30715    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          30716    100     210      6   0  2  replace (B) by (N)                               TEST IF THIS REEL
          30717    115     190     98   0  3  collate and add                                  HAS BEEN REWOUND
          30718    127     307     22   0  0  jump A = Z                   >NO
          30719    125              0   1  2  interrogate indicators       CLEAR REWIND IND
          30720    114     190     98   0  3  replace selected bits
          30721    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
    30718>30722    124     188      2   0  1  modify address of next       RUN FORWARD
          30723    119              0   0  3  run forward
          30724    126     343      2   0  0  enter subroutine             *019 CLEAR BIT 1 OF ASL
          30725    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          30726    126     355      2   0  0  enter subroutine             > STEP FORWARD
          30727    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          30728    101              5   1  3  select literal address
          30729    124     188      2   0  1  modify address of next       SET BLOCK CNTR=5
          30730    102     190      2   0  0  transfer (A) to N
          30731    126     308      2   0  0  enter subroutine             >READ, TEST BLOCK
          30732    126     341      2   0  0  enter subroutine             >SET MR3=64+R
          30733    106              7   1  3  select (N)
          30734    124     188      2   0  1  modify address of next       *8£Ю                STORE
          30735    103     193     50   0  0  copy (A) to N                *8£Ю                SPOOL NO
          30736    124              3   0  1  modify address of next
          30737    102            182   0  0  transfer (A) to N
          30738    124              3   0  1  modify address of next
          30739    126            165   0  1  leave subroutine             > LEAVE S/R

          30800    PROCR   308       308     READ & TEST BLOCK
          30801     NOTES          RADIX     B
          30802    100              0   0  0  Halt                         LINK
          30803    106     210      8   0  0  select (N)
          30804    126     333      2   0  0  enter subroutine             >STEP BLOCK CNTR
          30805    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          30806    106     308      2   0  0  select (N)                   STORE LINK
          30807    102            166   0  3  transfer (A) to N
    30842>30808    126     329      2   0  0  enter subroutine             > READ
          30809    126     343      2   0  0  enter subroutine             *019 CLEAR BIT 1 OF ASL
          30810    106            164   0  3  select (N)                   *5+Ю                TEST CHD
          30811    127     308     38   0  1  jump A != Z                  *5+Ю                >YES
          30812    101              7   1  3  select literal address       SET RTE TYPE 7
          30813    102     188      3   0  0  transfer (A) to N
          30814    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
    30832>
    30837>
    30839>30815    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK COUNTER
          30816    127     308     25   0  1  jump A != Z                  >NO
  Source image: P1010162.JPG
          30817    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          30818    102            171   0  3  transfer (A) to N            CLEAR OPTION INDICATOR
          30819    102            186   0  3  transfer (A) to N            CLEAR INDICATOR
          30820    106            187   0  3  select (N)                                       TEST CHD INDICATOR
          30821    127     308     23   0  1  jump A != Z                  >YES
          30822    126     321      2   0  0  enter subroutine             >
    30821>30823    124              3   0  1  modify address of next
          30824    126            166   0  1  leave subroutine             > LEAVE S/R
    30816>30825    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          30826    124     308     40   1  0  unconditional jump           >FBM FOUND
          30827    101     308     15   1  3  select literal address       SELECT RETURN LOCATION
          30828    124              3   0  1  modify address of next
          30829    102            162   0  0  transfer (A) to N
          30830    126     323      2   0  0  enter subroutine             >TEST OPTION INDICATOR
          30831    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          30832    124     308     15   1  0  unconditional jump           >
          30833    126     318      2   0  0  enter subroutine             >TEST BLOCK 6
          30834    124     291     27   1  0  unconditional jump           >
          30835    126     317      2   0  0  enter subroutine             >REREAD
          30836    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          30837    124     308     15   1  0  unconditional jump           >
    30846>
    30811>30838    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          30839    124     308     15   1  0  unconditional jump           >
    30826>30840    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          30841    106            186   0  3  select (N)                   TEST ALREADY STEPPED BACK DURING
          30842    127     308      8   0  0  jump A = Z                   REALIGNMENT         >NO READ NEXT BLOCK
          30843    101              3   1  3  select literal address
          30844    126     306      2   0  0  enter subroutine             >STEP BACK 3,FORWARD 1
          30845    126     329      2   0  0  enter subroutine             >READ
          30846    124     308     38   1  0  unconditional jump           >

          30900    PROCR   309       309     WRITE 'FINIS' BLOCK
          30901     NOTES          RADIX     B
          30902    100              0   0  0  Halt                         LINK
          30903    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          30904    106     210      8   0  0  select (N)                   STEP BLOCK COUNTER
          30905    126     333      2   0  0  enter subroutine             >
          30906    124     188      2   0  1  modify address of next       SELECT BLOCK CNTR
          30907    106     190      2   0  0  select (N)
          30908    102              1   1  3  transfer (A) to N            1ST WORD
          30909    106     211      8   1  0  select (N)                   SELECT R/M WORD
          30910    102              2   1  3  transfer (A) to N            2ND WORD
          30911    106     258     28   1  0  select (N)                   SELECT 'FINIS'
          30912    102              4   1  3  transfer (A) to N            3RD WORD
          30913    106     214     10   1  0  select (N)                   SELECT B/E WORD
          30914    102              6   1  3  transfer (A) to N            4TH WORD
          30915    126     342      2   0  0  enter subroutine             *019 SET(MR3)=(64+R)FOR 90K
          30916    126     330      2   0  0  enter subroutine             >WRITE
          30917    126     343      2   0  0  enter subroutine             *019
          30918    106     309      2   0  0  select (N)                   STORE LINK
          30919    124              3   0  1  modify address of next
          30920    102            197   0  0  transfer (A) to N
          30921    106     212      5   0  0  select (N)                   SET RTE TYPE 8
          30922    102     188      3   0  0  transfer (A) to N
          30923    126     350      2   0  0  enter subroutine             >TEST RTE, DEALING WITH D/B
          30924    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          30925    106     211      6   1  0  select (N)                   SELECT SENTINEL TYPE 3
          30926    104     212      6   0  0  add (N) to (A)
          30927    124              3   0  1  modify address of next
          30928    126            197   0  1  leave subroutine             >LEAVE S/R

          31000    PROCR   310       310     WRITE END OF TAPE INFORMATION
          31001     NOTES          RADIX     B
          31002    100              0   0  0  Halt
          31003    102              0   1  3  transfer (A) to N            SET 1ST WORD AT SENTINEL TYPE
  Source image: P1010163.JPG
          31004    106     210      8   0  0  select (N)                   STEP BLOCK COUNTER
          31005    126     333      2   0  0  enter subroutine             >
          31006    124     188      2   0  1  modify address of next       SELECT BLOCK COUNTER
          31007    106     190      2   0  0  select (N)
          31008    102              5   1  3  transfer (A) to N            3RD WORD
          31009    126     342      2   0  0  enter subroutine             *019*8Ю9
          31010    126     330      2   0  0  enter subroutine             >WRITE
          31011    126     343      2   0  0  enter subroutine             *019*8Ю9
          31012    106     310      2   0  0  select (N)                   STORE LINK
          31013    124              3   0  1  modify address of next
          31014    102            197   0  0  transfer (A) to N
          31015    106     212      5   0  0  select (N)                   SET RTE TYPE 8
          31016    102     188      3   0  0  transfer (A) to N
          31017    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          31018    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          31019    106     258     30   1  0  select (N)                   SELECT (END)
          31020    103              0   1  3  copy (A) to N                1ST WORD
          31021    102              2   1  3  transfer (A) to N            2ND WORD
          31022    126     342      2   0  0  enter subroutine             *019*8Ю9
          31023    126     330      2   0  0  enter subroutine             >WRITE
          31024    126     343      2   0  0  enter subroutine             *019*8Ю9
          31025    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          31026    125              0   1  2  interrogate indicators
          31027    126     331      2   0  0  enter subroutine             >AUGMENT BLOCK CTR BY-1
          31028    124              3   0  1  modify address of next
          31029    126            197   0  1  leave subroutine             >LEAVE S/R

          31100    PROCR   311       311     SET UP FILE I.D. FOR M/T COMMENT
          31101     NOTES          RADIX     B
          31102    100              0   0  0  Halt                         LINK
          31103    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          31104    106     190     98   0  3  select (N)                   SET UP FILE ID/
          31105    118              2   0  0  shift logical
          31106    101            113   1  1  add literal address
          31107    118              4   0  0  shift logical
          31108    102     258     12   1  0  transfer (A) to N
          31109    101              3   0  1  prepare for digit collation  COLLATE REEL NO
          31110    115     190     34   0  3  collate and add
          31111    118           4127   1  0  shift logical
          31112    118              1   0  0  shift logical
          31113    118              1   1  0  shift logical
          31114    126     311      2   0  1  leave subroutine             > LEAVE S/R

          31200    PROCR   312       312     ZZZ COMMENT
          31201     NOTES          RADIX     B
          31202    100              0   0  0  Halt                         LINK
          31203    101              4   1  3  select literal address
          31204    126     361      2   0  0  enter subroutine             >EDIT TIME, SET UP PROG. NO.
          31205    106     258      7   0  0  select (N)                   SET UP RTE NO
          31206    102     258      8   0  0  transfer (A) to N
          31207    106     214     48   1  0  select (N)                   SET UP 'ZZZ'
          31208    102     258      4   1  0  transfer (A) to N
          31209    106     312      2   0  0  select (N)                   SET UP CODE NUMBER
          31210    101     263     18   1  2  subtract literal address
          31211    102     258      7   0  0  transfer (A) to N            *131
          31212    103     258      7   0  0  copy (A) to N                *13Ю
          31213    101              9   1  2  subtract literal address     TEST 22209
          31214    127     312     16   0  1  jump A != Z                  >NO
          31215    102     258      8   0  0  transfer (A) to N            CLEAR ROUTE NO
    31214>31216    125              0   1  2  interrogate indicators       *13Ю
          31217    102     188      3   0  0  transfer (A) to N
          31218    126     349      2   0  0  enter subroutine             > CLEAR ASSEMBLER TABLE
          31219    106     438      2   0  0  select (N)                   STORE SETTING OF S101
          31220    124              3   0  1  modify address of next
          31221    102            176   0  0  transfer (A) to N
          31222    124     432     10   1  0  unconditional jump           >OUTPUT COMMENT

  Source image: P1010164.JPG
          31300    PROCR   313       313     IDENTIFICATION FAILURE
          31301     NOTES          RADIX     B
    31913>
    32308>31302    106            162   0  3  select (N)                   RETURN LOCN
          31303    102            171   0  3  transfer (A) to N
          31304    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          31305    106              1   1  3  select (N)                   SET UP ACTUAL BLOCK NO
          31306    102     258     10   0  0  transfer (A) to N
          31307    106     108     31   1  0  select (N)                   SET UP ALARM TYPE 2
          31308    102     258      4   1  0  transfer (A) to N
          31309    126     361      2   0  0  enter subroutine             >EDIT TIME,SET UP PROG NO
          31310    124           4217   0  2  select literal and division  *14+5++*14+*5++     001200421600121
          31311    102             41   0  1  transfer (A) to N
          31312    102     258     12   1  0  transfer (A) to N            CLEAR COL 5
          31313    101     262      2   1  3  select literal address       SELECT TABLE START LOCATION
          31314    124     335      2   1  0  unconditional jump           >OFFER OPTIONS

          31400    PROCR   314       314     TEST A1=BLOCK CTR
          31402    100              0   0  0  Halt                         LINK
          31403    126     341      2   0  0  enter subroutine             >SET MR3=(64+R)
          31404    106              1   1  3  select (N)                   ACTUAL BLOCK NO
          31405    124     188      2   0  1  modify address of next
          31406    105     190      2   0  0  subtract (N) from (A)        EXPECTED
          31407    126     314      2   0  1  leave subroutine

          31500    PROCR   315       315     TEST FOR FBM S/R
          31502    100              0   0  0  Halt                         LINK
          31503    126     341      2   0  0  enter subroutine             >SET MR3=64+R
          31504    106              0   1  3  select (N)
          31505    118           4118   1  0  shift logical
    31511>31506    118              2   1  0  shift logical
          31507    101             95   1  2  subtract literal address                         TEST CHARACTER IS FB
          31508    127     315     10   0  1  jump A != Z                  >NO
          31509    126     315      2   0  1  leave subroutine             >LEAVE S/R
    31508>31510    125              0   1  2  interrogate indicators
          31511    127     315      6   1  1  jump AB != Z
          31512    124     315      2   0  1  modify address of next
          31513    124              1   1  0  unconditional jump           >FBM NOT FOUND

          31600    PROCR   316       316     ALIGNMENT FAILURE S/R
          31602    100              0   0  0  Halt                         LINK
          31603    106     316      2   0  0  select (N)                   STORE LINK IN
          31604    124              3   0  1  modify address of next       SPECIAL CHAPTER
          31605    102            183   0  0  transfer (A) to N
          31606    126     341      2   0  0  enter subroutine             >SET MR3=64+R
          31607    124              3   0  1  modify address of next       TEST ATTEMPTS COUNTER
          31608    106            185   0  0  select (N)                   ZERO
          31609    127     316     13   0  1  jump A != Z                  >NO
          31610    106              1   1  3  select (N)                   STORE ACTUAL BLOCK NO
          31611    124              3   0  1  modify address of next
          31612    102            184   0  0  transfer (A) to N
    31609>31613    124     188      2   0  1  modify address of next                           TEST EXPECTED BLOCK
          31614    106     190      2   0  0  select (N)                                       >ACTUAL BLOCK
          31615    100     210      3   0  3  set radix                    SET DECIMAL
          31616    105              1   1  3  subtract (N) from (A)
          31617    127     316     51   0  0  jump A = Z                   >A1=BLOCK COUNTER
          31618    127     316     36   0  3  jump A < Z                   >NO
          31619    101              8   1  2  subtract literal address                         TEST DIFFERENCE <8
          31620    127     316     54   0  2  jump A >= Z                  > NO
          31621    101              7   1  1  add literal address
          31622    100     212      2   0  3  set radix                    SET BINARY
          31623    127     316     32   0  0  jump A = Z                   >
    31631>31624    124              3   0  1  modify address of next
          31625    102            177   0  0  transfer (A) to N
          31626    126     355      2   0  0  enter subroutine             >STEP FORWARD
  Source image: P1010165.JPG
          31627    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          31628    124              3   0  1  modify address of next                           TEST ALIGNED
          31629    106            177   0  0  select (N)                                       CORRECTLY
          31630    105     210      8   0  0  subtract (N) from (A)
          31631    127     316     24   0  1  jump A != Z                  >NO
    31647>
    31623>31632    126     322      2   0  0  enter subroutine             >TEST O/P OR I/P
          31633    124     316     48   1  0  unconditional jump           >I/P
          31634    126     355      2   0  0  enter subroutine             >STEP FORWARD
          31635    124     316     49   1  0  unconditional jump           >
    31618>31636    106              1   1  3  select (N)                                       EXPECTED <ACTUAL
          31637    124     188      2   0  1  modify address of next
          31638    105     190      2   0  0  subtract (N) from (A)
          31639    101              8   1  2  subtract literal address                         TEST DIFFERENCE <8
          31640    127     316     54   0  2  jump A >= Z                  >NO
          31641    101             10   1  1  add literal address
          31642    100     212      2   0  3  set radix                    SET BINARY
          31643    127     316     54   0  3  jump A < Z                   >CRAZY BLOCK NO
          31644    124              3   0  1  modify address of next       SET INDICATOR
          31645    103            186   0  0  copy (A) to N
          31646    126     306      2   0  0  enter subroutine             >STEP BACK DIFFERENCE
          31647    124     316     32   1  0  unconditional jump           >
    31816>
    31633>31648    126     329      2   0  0  enter subroutine             >READ
    31635>31649    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          31650    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
    31617>31651    100     212      2   0  3  set radix                    SET BINARY
          31652    124              3   0  1  modify address of next
          31653    126            183   0  1  leave subroutine             >LEAVE S/R
    31643>
    31640>
    31620>31654    100     212      2   0  3  set radix                    SET BINARY
          31655    124     316      2   0  1  modify address of next
          31656    124              1   1  0  unconditional jump           >LEAVE S/R+1

          31700    PROCR   317       317     ALIGNMENT FAILURE(11)-REREAD
          31702    100              0   0  0  Halt                         LINK
          31703    106     317      2   0  0  select (N)                   STORE LINK IN
          31704    124              3   0  1  modify address of next       SPECIAL CHAPTER
          31705    102            173   0  0  transfer (A) to N
          31706    106     212      6   0  0  select (N)
          31707    126     306      2   0  0  enter subroutine             >STEP BACK 2,FORWARD 1
          31708    126     322      2   0  0  enter subroutine             >TEST I/P OR O/P
          31709    124     317     14   1  0  unconditional jump           >
          31710    126     355      2   0  0  enter subroutine             >STEP FORWARD
    31715>31711    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          31712    124              3   0  1  modify address of next
          31713    126            173   0  1  leave subroutine             >LEAVE S/R
    31709>31714    126     329      2   0  0  enter subroutine             >READ
          31715    124     317     11   1  0  unconditional jump           >

          31800    PROCR   318       318     ALIGNMENT FAILURE(111)-BLOCK 6 TEST
          31802    100              0   0  0  Halt                         LINK
          31803    106     318      2   0  0  select (N)                   STORE LINK IN
          31804    124              3   0  1  modify address of next       SPECIAL CHAPTER
          31805    102            173   0  0  transfer (A) to N
          31806    124     188      2   0  1  modify address of next                           TEST EXPECTED BLOCK=
          31807    106     190      2   0  0  select (N)
          31808    101              6   1  2  subtract literal address
          31809    127     318     26   0  1  jump A != Z                  >NO
          31810    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          31811    106            185   0  3  select (N)                   TEST IF REWOUND ONCE ALREADY
          31812    105     212      6   0  0  subtract (N) from (A)
          31813    127     318     17   0  1  jump A != Z                  >NO
          31814    126     329      2   0  0  enter subroutine             >READ
          31815    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
  Source image: P1010166.JPG
          31816    124     316     48   1  0  unconditional jump           >ALIGNMENT FAILURE
    31813>31817    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          31818    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          31819    124     188      2   0  1  modify address of next       REWIND
          31820    119              0   1  1  rewind
          31821    106     210      6   0  0  select (N)
          31822    124     188      2   0  1  modify address of next       SET REWIND INDICATOR
          31823    107     190     98   0  0  augment (N) by (A)           TO COUNT 500 MILLI-SECS
          31824    124              3   0  1  modify address of next
          31825    126            173   0  1  leave subroutine             >LEAVE S/R
    31809>31826    124     318      2   0  1  modify address of next
          31827    124              1   1  0  unconditional jump           >LEAVE S/R+1

          31900    PROCR   319       319     STEP ATTEMPTS COUNTER S/R
          31902    100              0   0  0  Halt                         LINK
          31903    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          31904    106            185   0  3  select (N)                   STEP ATTEMPTS COUNTER
          31905    104     210      8   0  0  add (N) to (A)
          31906    103            185   0  3  copy (A) to N
          31907    101              6   1  2  subtract literal address                         TEST COUNTER IS SIX
          31908    127     319     10   0  0  jump A = Z                   >YES
          31909    126     319      2   0  1  leave subroutine             >LEAVE S/R
    31908>31910    126     320      2   0  0  enter subroutine             *5+‼ CLEAR C+185 TEST IF IN OPT 13
          31911    106     210      8   0  0  select (N)                   SET INDICATOR
          31912    102            187   0  3  transfer (A) to N
          31913    124     313      2   1  0  unconditional jump

          32000    PROCR   320       320     CLEAR 185 AND TEST IF IN CHANGE DECKS
          32002    100              0   0  0  Halt                         *5+Ю
          32003    102            185   0  3  transfer (A) to N
          32004    106            164   0  3  select (N)                   TEST IN OPT 13
          32005    127     320      7   0  1  jump A != Z                  >YES
          32006    126     320      2   0  1  leave subroutine
    32005>
    29404>32007    106     214     90   1  0  select (N)                   SET UP'CMD'
          32008    102     258      4   1  0  transfer (A) to N
          32009    101     291      6   1  3  select literal address       SELECT RETURN LINK
          32010    124     282     10   1  0  unconditional jump           >UNLOAD-OUTPUT COMMENT

          32100    PROCR   321       321     COMMENT ON ALIGNMENT FAILURE CURED
          32102    100              0   0  0  Halt                         LINK
          32103    101              2   1  3  select literal address       *50Ю*5:Ю
          32104    126     332      2   0  0  enter subroutine             TEST CATEGORY SET
          32105    127     321     28   0  1  jump A != Z                  *5:Ю >NO COMMENT
          32106    106     321      2   0  0  select (N)                   STORE
          32107    124              3   0  1  modify address of next       LINK
          32108    102            173   0  0  transfer (A) to N
          32109    124              3   0  1  modify address of next                           TEST ATTEMPTS COUNTE
          32110    106            185   0  0  select (N)                                       ZERO
          32111    127     321     24   0  0  jump A = Z                   >YES
          32112    106     214     82   1  0  select (N)                   SET UP 'SER'
          32113    102     258      4   1  0  transfer (A) to N
          32114    126     361      2   0  0  enter subroutine             >SET UP PART OF COMMENT
          32115    102     258     12   1  0  transfer (A) to N            CLEAR COL 5
          32116    124              3   0  1  modify address of next       SET UP FOUND SERIAL NO
          32117    106            184   0  0  select (N)
          32118    102     258     10   0  0  transfer (A) to N
          32119    124              3   0  1  modify address of next       CLEAR ATTEMPTS CTR
          32120    102            185   0  0  transfer (A) to N
          32121    124     321     23   0  2  select literal and division
          32122    124     426     63   1  0  unconditional jump           >
          32123    126     359      2   0  0  enter subroutine             >SET SI=4,RESTORE LINK FOR SI=3
    32111>32124    106             30   1  1  select (N)                   STORE RTE NUMBER AND
          32125    102     188      2   1  0  transfer (A) to N            TYPE
          32126    124              3   0  1  modify address of next
          32127    126            173   0  1  leave subroutine             *50Ю
  Source image: P1010167.JPG
    32105>32128    125              0   1  2  interrogate indicators
          32129    124              3   0  1  modify address of next
          32130    102            185   0  0  transfer (A) to N            CLEAR ATTEMPTS COUNTER
          32131    126     321      2   0  1  leave subroutine

          32200    PROCR   322       322     TEST ALIGNING FROM O/P S/R
          32202    100              0   0  0  Halt                         LINK
          32203    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          32204    106            162   0  3  select (N)                                       TEST ALIGNING FROM
          32205    101     286     24   1  2  subtract literal address                         M/T O/P DB
          32206    127     322     21   0  0  jump A = Z                   >YES
          32207    101     286     24   1  1  add literal address          *5+Ю                TEST ALIGNING FROM
          32208    101     292     63   1  2  subtract literal address                         CHANGE DECKS
          32209    127     322     13   0  1  jump A != Z                  >NO
          32210    106            175   0  3  select (N)                                       TEST IF O/P
          32211    127     322     21   0  1  jump A != Z                  *5+Ю                >YES
    32218>
    32220>32212    126     322      2   0  1  leave subroutine             >LEAVE S/R
    32209>32213    106            162   0  3  select (N)                   *5+Ю                TEST ALIGNING FROM
          32214    101     446      8   1  2  subtract literal address     *1‼Ю                STEP FORWARD
          32215    127     322     19   0  0  jump A = Z                                       >YES
          32216    101     446      8   1  1  add literal address          *1‼Ю                TEST ALIGNING FROM
          32217    101     444     45   1  2  subtract literal address                         STEP BACK
          32218    127     322     12   0  1  jump A != Z                                      >NO
    32215>32219    106            181   0  3  select (N)                                       TEST O/P
          32220    127     322     12   0  1  jump A != Z                  *5+Ю                >NO
    32211>
    32206>32221    124     322      2   0  1  modify address of next
          32222    124              1   1  0  unconditional jump           >LEAVE S/R+1

          32300    PROCR   323       323     TEST OPTION INDICATOR S/R
          32302    100              0   0  0  Halt                         LINK
          32303    124              3   0  1  modify address of next                           TEST OPTION
          32304    106            171   0  0  select (N)                                       INDICATOR SET
          32305    127     323      9   0  0  jump A = Z                   >NO
          32306    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          32307    126     320      2   0  0  enter subroutine             *5+‼ CLEAR C+185 TEST IF IN OPT 13
          32308    124     313      2   1  0  unconditional jump
    32305>32309    126     323      2   0  1  leave subroutine             >LEAVE S/R

          32400    PROCR   324       324     UNLOAD CALL FOR NEW TAPE
          32401     NOTES          RADIX     B
          32402    100              0   0  0  Halt                         LINK
          32403    106     324      2   0  0  select (N)
          32404    126     362      2   0  0  enter subroutine             >UNLOAD ETC.
    42207>32405    126     326      2   0  0  enter subroutine             *179                ALTERNATE ROUTES
    41065>32406    106     215     16   1  0  select (N)                   SET UP'NEW'
          32407    102     258      4   1  0  transfer (A) to N
          32408    101              4   1  3  select literal address
          32409    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE NO
          32410    126     311      2   0  0  enter subroutine             >
          32411    102     258      8   0  0  transfer (A) to N            STORE REEL NO
          32412    124     432     10   1  0  unconditional jump           >OUTPUT COMMENT

          32500    PROCR   325       325     ALTERNATE PAPER TAPE ROUTES
          32501     NOTES          RADIX     B
          32502    100              0   0  0  Halt                         *02Ю*18Ю88Ю
          32503    126     327      2   0  0  enter subroutine             *18Ю >ALTERNATE ROUTES
          32504    124     325      6   1  0  unconditional jump           >
          32505    126     325      2   0  1  leave subroutine             *18Ю
    53139>
    32504>32506    126     212     12   1  3  set modification register    SET (MR3)=12:0
    32521>32507    124     221      3   0  1  modify address of next       COPY FILE DETAILS
          32508    106     252     50   0  3  select (N)                   *53+3:+             00042
          32509    124     188      2   0  1  modify address of next
          32510    102     252     50   0  3  transfer (A) to N            *53+3:+             00042
  Source image: P1010168.JPG
          32511    124     221      3   0  1  modify address of next       *53Ю0ЮЮ3:Ю
          32512    106     252     54   0  0  select (N)                   *53+3:+             00046
          32513    124     188      2   0  1  modify address of next
          32514    102     252     54   0  0  transfer (A) to N            *53+3:+             00046
          32515    124     221      3   0  1  modify address of next
          32516    106     252     66   0  0  select (N)                   *53+3:+             00058
          32517    124     188      2   0  1  modify address of next
          32518    102     252     66   0  0  transfer (A) to N            *53+3:+             00058
          32519    126     325      2   0  1  leave subroutine             *53Ю0ЮЮ3:Ю
          32520    125              4   0  3  step on and test                                 TEST ALL DETAILS COP
          32521    124     325      7   1  0  unconditional jump           >NO
          32522    126     325      2   0  1  leave subroutine             >LEAVE S/R

          32600    PROCR   326       326     ALTERNATE MAGNETIC TAPE ROUTES
          32601     NOTES          RADIX     B
          32602    100              0   0  0  Halt                         *17Ю LINK
          32603    126     327      2   0  0  enter subroutine             >ALTERNATE ROUTES
          32604    124     326      6   1  0  unconditional jump           >
          32605    126     326      2   0  1  leave subroutine
    32604>32606    126     108     18   1  3  set modification register    SET (MR3)
    32612>32607    124     221      3   0  1  modify address of next       COPY FILE DETAILS
          32608    106     190      2   0  3  select (N)
          32609    124     188      2   0  1  modify address of next
          32610    102     190      2   0  3  transfer (A) to N
          32611    125             32   0  3  step on and test             *244*234*224        000240001600008
          32612    124     326      7   1  0  unconditional jump           >NO
          32613    126     326      2   0  1  leave subroutine             > LEAVE S/R

          32700    PROCR   327       327     ALTERNATE ROUTES
          32701     NOTES          RADIX     B
          32702    100              0   0  0  Halt                         *17Ю18Ю LINK
          32703    106             39   0  1  select (N)                                       TEST M/R
          32704    105     230      2   0  0  subtract (N) from (A)
          32705    127     327     33   0  0  jump A = Z                   >YES
          32706    126     353      2   0  0  enter subroutine             >SELECT RTE NO FROM LAST CHAPTER
          32707    127     327     12   0  0  jump A = Z                   >YES                TEST REQ'D ENTRY
          32708    125              2   0  3  step on and test                                 TEST END OF TABLE
          32709    124     353      4   1  0  unconditional jump           *17Ю18Ю             >NO
    45013>32710    101             87   1  3  select literal address       CODE LETTER G
          32711    124     208      3   1  0  unconditional jump           > OUTPUT XXX COMMENT
    32707>32712    101             12   0  1  prepare for digit collation  *17Ю18Ю
          32713    115             34   0  3  collate and add                                  TEST ALT. RTE. ALLOC
          32714    105     210      5   0  0  subtract (N) from (A)
          32715    127     327     33   0  0  jump A = Z                   >NO
          32716    106             34   0  3  select (N)                   INTERCHANGE ROUTE NUMBERS
          32717    118              5   0  0  shift logical
          32718    104             35   0  3  add (N) to (A)
          32719    102             34   1  3  transfer (A) to N
          32720    101              3   0  1  prepare for digit collation
          32721    115             34   0  3  collate and add
          32722    126     328      2   0  0  enter subroutine             >S/R
          32723    124     188      2   0  1  modify address of next
          32724    106             64   0  0  select (N)                   SET UP NEW (64+R)
          32725    124     221      2   0  1  modify address of next
          32726    102             64   0  0  transfer (A) to N
          32727    106     188      2   0  0  select (N)                   STORE RTE NUMBER
          32728    102     221      3   0  0  transfer (A) to N
          32729    106     221      2   0  0  select (N)
          32730    103             30   0  1  copy (A) to N                SET UP RTE NO IN SI & 137/2
          32731    102     188      2   0  0  transfer (A) to N
          32732    126     327      2   0  1  leave subroutine             > LEAVE S/R
    32715>
    32705>32733    124     327      2   0  1  modify address of next
          32734    124              1   1  0  unconditional jump           >

          32800    PROCR   328       328     CHANGE ROUTE NUMBERS IN PARAMETER LISTS
  Source image: P1010169.JPG
          32802    100              0   0  0  Halt                         *17Ю18Ю11Ю13Ю       LINK
          32803    102     221      2   0  0  transfer (A) to N            STORE NEW RTE NUMBER
          32804    106              6   0  0  select (N)                   SET (MR3) = O/PSN OF RTE IN LIST
          32805    105              3   0  0  subtract (N) from (A)
          32806    118           4119   1  0  shift logical
          32807    113     212      6   0  0  divide uniform radix
          32808    102              6   1  0  transfer (A) to N
          32809    106              3   0  0  select (N)                   SET (MR2) = START OF LAST CHAP +
          32810    103              4   0  0  copy (A) to N                2 * (NO OF CHAPS INITIALLY -1)/START OF
          32811    105     212      6   0  0  subtract (N) from (A)
          32812    102              5   0  0  transfer (A) to N
          32813    106              4   0  2  select (N)
          32814    104              4   0  2  add (N) to (A)
          32815    107              5   0  0  augment (N) by (A)
          32816    104     210      8   0  0  add (N) to (A)               SET (MR3) = 0/NO OF CHAPS INITIALLY +
    32828>32817    104             20   0  2  add (N) to (A)               POSN OF RTE IN LIST + 1 + START OF CTH
          32818    107              6   0  0  augment (N) by (A)
          32819    106              0   0  3  select (N)                                       TEST CORRECT RTE NO
          32820    105     188      2   0  0  subtract (N) from (A)
          32821    127     328     24   0  0  jump A = Z                   >YES
          32822    101             86   1  3  select literal address       SELECT CODE LETTER 'F'
          32823    124     208      3   1  0  unconditional jump           >XXX COMMENT
    32821>32824    106     221      2   0  0  select (N)                   SUBSTITUTE NEW RTE NO
          32825    102              0   0  3  transfer (A) to N
          32826    105             20   0  2  subtract (N) from (A)        SUBTRACT START OF CTH CHAP
          32827    125              2   0  2  step on and test                                 TEST ALL CHAPTERS
          32828    124     328     17   1  0  unconditional jump           >NO                 AMENDED
          32829    126     328      2   0  1  leave subroutine             >LEAVE S/R

          32900    PROCR   329       329     READ
          32901     NOTES          RADIX     B
          32902    100              0   0  0  Halt                         LINK
          32903    124     188      2   0  1  modify address of next       READ
          32904    119              0   0  1  input one block/reset timer
          32905    126     329      2   0  1  leave subroutine             > LEAVE S/R

          33000    PROCR   330       330     WRITE
          33001     NOTES          RADIX     B
          33002    100              0   0  0  Halt                         LINK
          33003    124     188      2   0  1  modify address of next       WRITE
          33004    119              0   0  0  output
          33005    126     330      2   0  1  leave subroutine             >LEAVE S/R

          33100    PROCR   331       331     STEP BLOCK COUNTER BY-1
          33102    100              0   0  0  Halt
          33103    100     210      3   0  3  set radix                    SET DECIMAL
          33104    101              1   1  2  subtract literal address
          33105    126     333      2   0  0  enter subroutine             >STEP COUNTER
          33106    126     331      2   0  1  leave subroutine             >LEAVE S/R

          33200    PROCR   332       332     TEST OMIT CATEGORY
          33202    100              0   0  0  Halt                         *5:Ю
          33203    102     221      2   0  0  transfer (A) to N            STORE CATEGORY NO
          33204    100     210      8   0  2  replace (B) by (N)           ALIGN ON
          33205    124     221      2   0  1  modify address of next       CATEGORY SETTING
          33206    118              0   1  3  shift binary
          33207    115     508     20   0  0  collate and add              COLLATE CATEGORY
          33208    126     332      2   0  1  leave subroutine             >LEAVE S/R

          33300    PROCR   333       333     STEP BLOCK COUNTER BY (A)
          33301     NOTES          RADIX     B
          33302    100              0   0  0  Halt                         LINK
          33303    100     210      3   0  3  set radix                    SET DECIMAL
          33304    124     188      2   0  1  modify address of next       RTE. NO.
          33305    107     190      2   0  0  augment (N) by (A)           M/T FILE DETAILS    BLOCK COUNTER
          33306    100     212      2   0  3  set radix                    SET BINARY
  Source image: P1010170.JPG
          33307    126     333      2   0  1  leave subroutine             > LEAVE S/R

          33400    PROCR   334       334     STEP REEL COUNTER BY 1
          33401     NOTES          RADIX     B
          33402    100              0   0  0  Halt                         LINK
          33403    106     210      8   0  0  select (N)
          33404    100     210      3   0  3  set radix
          33405    124     188      2   0  1  modify address of next
          33406    107     190     34   0  0  augment (N) by (A)
          33407    100     212      2   0  3  set radix
          33408    126     334      2   0  1  leave subroutine             >LEAVE S/R

          33500    PROCR   335       335     OFFER OPTIONS
          33501     NOTES          RADIX     B
    41523>
    44233>
    31314>
    29422>
    27933>33502    124              3   0  1  modify address of next       EDIT INTO SPECIAL CHAP
          33503    128            130   1  2  edit fixed field formats
    29004>33504    126     176      2   0  0  enter subroutine             >REQUEST T/W FOR OPTIONS
          33505    106     258     14   1  0  select (N)                   SELECT TABLE ENTRY
          33506    104              3   0  0  add (N) to (A)
          33507    128     102      4   1  1  bulk copy long numeric       BULKCOPY TO T/W ANNEXE
          33508    101     263      2   1  3  select literal address       SET UP LOCN BEFORE 1ST OPTION
          33509    102             43   0  1  transfer (A) to N
          33510    106              2   0  0  select (N)                   SET (913/2)=SI+0
          33511    102     222      4   0  0  transfer (A) to N
          33512    106     210      6   0  0  select (N)                   SET 15 IN Q5 OF (SI+38)
          33513    102             38   0  1  transfer (A) to N
          33514    124     181      2   1  0  unconditional jump           >OUTPUT COMMENT

          33600    PROCR   336       336     OUTPUT COMMENT
          33601     NOTES          RADIX     B
    37010>
    43212>
    45127>
    28212>33602    124              3   0  1  modify address of next       SET UP COMMENT IN SPCHAPTER
          33603    128            130   1  2  edit fixed field formats
    41442>
    42673>33604    126     177      2   0  0  enter subroutine             >REQUEST T/W
          33605    106     258     14   1  0  select (N)                   SELECT TABLE ENTRY
          33606    104              3   0  0  add (N) to (A)
          33607    128     102      4   1  1  bulk copy long numeric       BULK COPY TO T/W ANNEXE
          33608    124              3   0  1  modify address of next
          33609    106            176   0  0  select (N)                   SET SWITCH S101
          33610    102     336     11   0  0  transfer (A) to N
          33611    100              0   0  0  Halt                                             SWITCH S 101
          33612    124     181      2   1  0  unconditional jump           >OUTPUT COMMENT

          33700    PROCR   337       337     NB PREVIOUS ORDER IS'SWITCH 101',EITHER'25/1/0 0'IF'ZZZ'COMMENT
          33701     NOTES                         OR'26/0/0'TO'SET SI=1'OR'SET SI=5'

          33800    PROCR   338       338     SET SI=1
          33801     NOTES          RADIX     B
          33802    100              0   0  0  Halt                         LINK
          33803    106     209      4   0  0  select (N)
          33804    105             30   0  1  subtract (N) from (A)
          33805    102              7   0  1  transfer (A) to N            *163
          33806    126     338      2   0  1  leave subroutine             >LEAVE S/R

          33900    PROCR   339       339     SET (MR3)=(3)
          33901     NOTES          RADIX     B
          33902    100              0   0  0  Halt                         LINK
          33903    106              3   0  0  select (N)
          33904    102              6   1  0  transfer (A) to N
  Source image: P1010171.JPG
          33905    126     339      2   0  1  leave subroutine             >LEAVE S/R

          34000    PROCR   340       340     SET(MR3)=R
          34001     NOTES          RADIX     B
          34002    100              0   0  0  Halt                         LINK
          34003    106     188      2   0  0  select (N)
          34004    102              6   1  0  transfer (A) to N
          34005    126     340      2   0  1  leave subroutine             >LEAVE S/R

          34100    PROCR   341       341     SET (MR3)=(64+R)
          34101     NOTES          RADIX     B
          34102    100              0   0  0  Halt                         LINK
          34103    124     188      2   0  1  modify address of next
          34104    106             64   0  0  select (N)
          34105    102              6   1  0  transfer (A) to N
          34106    126     341      2   0  1  leave subroutine             >LEAVE S/R

          34200    PROCR   342       342     SET(64+R)FOR HIGH DENSITY
          34202    100              0   0  0  Halt                         *01Ю
          34203    126     188      2   1  2  set modification register    SET(MR2)=R
          34204    100     210      8   0  2  replace (B) by (N)           SET(B)
          34205    106     191     64   0  2  select (N)
          34206    114             64   0  2  replace selected bits
          34207    126     342      2   0  1  leave subroutine             >LEAVE S/R

          34300    PROCR   343       343     CLEAR BIT 1 OF ASL IF HIGH DENSITY
          34302    100              0   0  0  Halt                         *01Ю
          34303    125              0   1  2  interrogate indicators
          34304    100     210      8   0  2  replace (B) by (N)           SET(B)=1
          34305    124     188      2   0  1  modify address of next
          34306    114             64   0  0  replace selected bits        CLEAR BIT 1
          34307    126     343      2   0  1  leave subroutine

          34400    PROCR   344       344     SUBROUTINE WW
          34402    100              0   0  0  Halt                         *42Ю
          34403    125              0   1  2  interrogate indicators
          34404    100     220      3   0  2  replace (B) by (N)
          34405    115     188      2   0  0  collate and add
          34406    102     109      2   0  0  transfer (A) to N            *16Ю53Ю0ЮЮ
          34407    106     188      2   0  0  select (N)
          34408    118              1   0  3  shift binary
          34409    118           4127   0  0  shift logical
          34410    101              3   1  2  subtract literal address
          34411    127     344     16   0  0  jump A = Z                   >YES
          34412    106     109      2   0  0  select (N)
          34413    118              2   0  3  shift binary                 SET W/L=4R+88
          34414    101             88   1  1  add literal address          *0Ю+53+3:+          00056
          34415    124     344     18   1  0  unconditional jump
    34411>34416    106     109      2   0  0  select (N)                   *16Ю53Ю0ЮЮ
          34417    118              3   0  3  shift binary                 SET W/L=8R
    34415>34418    102     109      2   0  0  transfer (A) to N
          34419    126     344      2   0  1  leave subroutine

          34500    PROCR   345       345     EDIT TIME SET UP RTE NO
          34501     NOTES          RADIX
          34502    100              0   0  0  Halt                         LINK
          34503    126     346      2   0  0  enter subroutine             >EDIT TIME
          34504    100     210     12   0  3  set radix                    SET (C)=66668
          34505    101     213     28   1  3  select literal address       SELECT TABLE START LOCN
          34506    112             30   0  1  convert                      CONVERT RTE NUMBER
          34507    100     212      2   0  3  set radix                    RESET(C)BINARY
          34508    102     258      7   0  0  transfer (A) to N
          34509    126     345      2   0  1  leave subroutine             >LEAVE S/R

          34600    PROCR   346       346     EDIT TIME R/S IF REQ INTO SP CHPT
          34601     NOTES          RADIX     B
  Source image: P1010172.JPG
          34602    100              0   0  0  Halt                         LINK
          34603    101     217     36   1  1  add literal address
          34604    124              3   0  1  modify address of next
          34605    128            128   1  2  edit fixed field formats
          34606    126     346      2   0  1  leave subroutine             >LEAVE S/R
          34607    103              0   0  0  copy (A) to N                *££0*££2*2£‼
          34608    126     212      2   1  3  set modification register    *4:3
          34609    126     385      2   0  0  enter subroutine             *163
          34610    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          34611    125              0   1  2  interrogate indicators       *3:3*4£3
          34612    127     367     31   0  0  jump A = Z                   *16‼

          34700    PROCR   347       347     SET ASSOC TIME=CURRENT TIME+3 MIN
          34701     NOTES          0
          34702    100              0   0  0  Halt                         *46Ю
          34703    100     210      9   0  3  set radix                    *31Ю                SET(C)=66Ю6.6
          34704    106     347      2   0  0  select (N)                   *6£Ю
          34705    101     270      5   1  2  subtract literal address
          34706    127     347      9   0  1  jump A != Z
          34707    106             45   0  1  select (N)
          34708    127     347     14   0  0  jump A = Z                   *6£Ю
    34706>34709    106            156   0  0  select (N)                   SELECT CURRENT TIME
          34710    104     212     11   0  0  add (N) to (A)               ADD 48(=3MIN)
          34711    102             45   0  1  transfer (A) to N            SET ASSOC TIME
          34712    100     212      2   0  3  set radix                    RESET (C) BINARY
          34713    126     347      2   0  1  leave subroutine             LEAVE S/R
    34708>34714    106            156   0  0  select (N)                   *6£Ю
          34715    101              2   1  1  add literal address
          34716    102             45   0  1  transfer (A) to N
          34717    100     212      2   0  3  set radix                    SET BINARY
          34718    124     127     11   1  0  unconditional jump           *31Ю*6£Ю
          34719    106            156   0  0  select (N)                   *312
          34720    104     347     23   0  0  add (N) to (A)               ADD 3 MIN
          34721    102             45   0  1  transfer (A) to N
          34722    126     347      2   0  1  leave subroutine
          34723    100           3808   0  1  Invalid                      *2£‼                CONSTANT

          34800    PROCR   348       348     CLEAR RTE TYPE AND D/B INDICATOR
          34801     NOTES          RADIX     B
          34802    100              0   0  0  Halt                         LINK
          34803    125              0   1  2  interrogate indicators
          34804    102     188      3   0  0  transfer (A) to N            CLEAR RTE TYPE
          34805    124              3   0  1  modify address of next
          34806    102            160   0  0  transfer (A) to N
          34807    126     348      2   0  1  leave subroutine             >LEAVE S/R

          34900    PROCR   349       349     UPDATE USE OF ASSEMBLER TABLE
          34901     NOTES          RADIX     B
          34902    100              0   0  0  Halt                         LINK
          34903    125              0   1  2  interrogate indicators       DRAIN
          34904    100     210     10   0  2  replace (B) by (N)           SET (B)=56
          34905    115     188      2   0  0  collate and add              SET(MR3)=8*CH.NO
          34906    102              6   0  0  transfer (A) to N
          34907    106     188      2   1  0  select (N)                   UPDATE TABLE
          34908    102     252      2   1  3  transfer (A) to N
          34909    126     349      2   0  1  leave subroutine             >LEAVE S/R

          35000    PROCR   350       350     TEST RTE DEALING WITH D/B
          35001     NOTES          RADIX     B    TIMINGS ON
          35002    100              0   0  0  Halt                         LINK
          35003    106     350      2   0  0  select (N)                   SELECT LINK
          35004    124     351      5   1  0  unconditional jump

          35100    PROCR   351       351     TEST ROUTE NOTING D/B
          35101     NOTES          RADIX     B    TIMINGS ON
          35102    100              0   0  0  Halt                         LINK
  Source image: P1010173.JPG
          35103    126     348      2   0  0  enter subroutine             >CLEAR RTE TYPE AND D/B INDICATOR
          35104    106     351      2   0  0  select (N)                   SELECT LINK
    35004>
    28925>35105    101     267      2   1  2  subtract literal address     SET UP PSEUDO ROUTE TYPE IN SI
          35106    104     209     12   0  0  add (N) to (A)
    36559>
    37606>
    42141>
    30331>35107    102             31   0  1  transfer (A) to N
          35108    126     349      2   0  0  enter subroutine             > UPDATE ASSEMBLER TABLE
          35109    102             45   0  1  transfer (A) to N            SET ASSOC. TIME=0
          35110    124     264     30   1  0  unconditional jump           > SET SI=1, TEST RTE

          35200    PROCR   352       352     TEST RTE NOTING D/B
          35201     NOTES          RADIX     B    TIMINGS OFF
          35202    100              0   0  0  Halt                         *09Ю06Ю
          35203    126     348      2   0  0  enter subroutine             >CLEAR RTE TYPE AND D/B INDICATOR
          35204    106     352      2   0  0  select (N)                   SELECT LINK
          35205    101     267      2   1  2  subtract literal address     SET UP PSEUDO ROUTE TYPE
          35206    104     209     12   0  0  add (N) to (A)               IN SI+31
          35207    102             31   0  1  transfer (A) to N
          35208    126     349      2   0  0  enter subroutine             UPDATE ASSEMBLER TABLE
          35209    102             45   0  1  transfer (A) to N            SET ASS TIME=0
          35210    126     338      2   0  0  enter subroutine             >SET SI=1
          35211    124     264     35   1  0  unconditional jump           >SI+7

          35300    PROCR   353       353     SELECT RTE NOS FROM LAST CHAPTER
          35301     NOTES          RADIX     B
          35302    100              0   0  0  Halt                         *11Ю13Ю17Ю18Ю
          35303    126     354      2   0  0  enter subroutine             >SET (MR3)=START OF LC+2*NO OF FILES/STA
    45012>
    52972>
    32709>35304    125              0   1  2  interrogate indicators       COLLATE RTE NO FROM LIST
          35305    101              3   0  1  prepare for digit collation
          35306    115             34   0  3  collate and add
          35307    105     188      2   0  0  subtract (N) from (A)
          35308    126     353      2   0  1  leave subroutine             > LEAVE S/R

          35400    PROCR   354       354     SET (MR3)=START OF LC+2*NO OF FILES/START OF LC SUBROUTINE
          35402    100              0   0  0  Halt
          35403    106              3   0  0  select (N)
          35404    103              6   0  0  copy (A) to N
          35405    104              5   0  3  add (N) to (A)
          35406    104              5   0  3  add (N) to (A)
          35407    102              7   0  0  transfer (A) to N
          35408    126     354      2   0  1  leave subroutine

          35500    PROCR   355       355     STEP FORWARD
          35501     NOTES          RADIX     B
          35502    100              0   0  0  Halt                         LINK
          35503    124     188      2   0  1  modify address of next       STEP FORWARD
          35504    119              0   1  3  step on/set manual
          35505    126     355      2   0  1  leave subroutine             > LEAVE S/R

          35600    PROCR   356       356     SET UP PROGRAMME NUMBER
          35601     NOTES          RADIX     B
          35602    100              0   0  0  Halt                         LINK
          35603    106             39   0  1  select (N)
          35604    102     258      6   0  0  transfer (A) to N
          35605    126     356      2   0  1  leave subroutine             > LEAVE S/R

          35700    PROCR   357       357     COUNT 500 MILLISECS
          35701     NOTES          RADIX     B
          35702    100              0   0  0  Halt                         LINK
          35703    106     487      2   0  0  select (N)                   *5.Ю*3+Ю*092*062
          35704    127     357     28   0  1  jump A != Z                  *3Ю1
  Source image: P1010174.JPG
          35705    127     357     29   0  1  jump A != Z                  *3Ю9
          35706    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          35707    106     357      2   0  0  select (N)                   STORE LINK
          35708    102            190   0  3  transfer (A) to N
          35709    106            157   0  0  select (N)
          35710    102            191   0  3  transfer (A) to N
    35721>35711    124     357     13   0  2  select literal and division  FOR SI=5 LINK
          35712    124     462      9   1  0  unconditional jump
          35713    100     210      3   0  3  set radix                    DECIMAL
          35714    106            157   0  0  select (N)
          35715    124              3   0  1  modify address of next
          35716    105            191   0  0  subtract (N) from (A)
          35717    127     357     19   0  2  jump A >= Z
          35718    104     209     12   0  0  add (N) to (A)               10,000
    35717>35719    101            384   1  2  subtract literal address
          35720    100     212      2   0  3  set radix                    BIN
          35721    127     357     11   0  3  jump A < Z                   >NOT TIME YET
          35722    126     359      2   0  0  enter subroutine             >SET SI=4,RESTORE LINK FOR SI=3
          35723    106             30   1  1  select (N)                   RESTORE RT. TYPE
          35724    102     188      2   1  0  transfer (A) to N
          35725    126     351      2   0  0  enter subroutine             TEST ROUTE NOTING D/B
          35726    124              3   0  1  modify address of next
          35727    126            190   0  1  leave subroutine             *5.Ю*3+Ю*092*062
    35704>35728    106     357     33   0  0  select (N)                   *3Ю1
    35705>35729    101           2143   1  3  select literal address       *3Ю9*2‼4*2+4*2:4    00000028390485402000
    35731>35730    101              1   1  2  subtract literal address
          35731    127     357     30   0  1  jump A != Z
          35732    126     357      2   0  1  leave subroutine
          35733    100           6192   0  3  set radix                    *3Ю1

          35800    PROCR   358       358     STEP COUNTER C
          35801     NOTES          RADIX     B
          35802    100              0   0  0  Halt                         LINK
          35803    124              3   0  1  modify address of next       STEP COUNTER C
          35804    106            167   0  0  select (N)
          35805    104     210      8   0  0  add (N) to (A)
          35806    124              3   0  1  modify address of next
          35807    103            167   0  0  copy (A) to N
          35808    101              6   1  2  subtract literal address
          35809    126     358      2   0  1  leave subroutine             > LEAVE S/R

          35900    PROCR   359       359     SET SI=4, RESTORE LINK FOR SI=3
          35901     NOTES          RADIX     B
          35902    100              0   0  0  Halt                         LINK
          35903    124     270      2   0  2  select literal and division  *464                00004
          35904    102             42   0  1  transfer (A) to N
          35905    106             35   0  1  select (N)                   SET SI=4
          35906    102              7   0  1  transfer (A) to N            *163
          35907    126     359      2   0  1  leave subroutine             >LEAVE S/R

          36000    PROCR   360       360     SET SI=5
          36001     NOTES          RADIX     B
          36002    100              0   0  0  Halt                         LINK
          36003    106             35   0  1  select (N)
          36004    104     212      6   0  0  add (N) to (A)
          36005    102              7   0  1  transfer (A) to N            *163
          36006    126     360      2   0  1  leave subroutine             > LEAVE S/R

          36100    PROCR   361       361     SET UP PART OF ALARM & DB/COMMENT
          36101     NOTES          RADIX     B
          36102    100              0   0  0  Halt                         LINK
          36103    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE NO
          36104    126     356      2   0  0  enter subroutine             >SET UP PROG NO
          36105    124     188      2   0  1  modify address of next       SET UP EXPECTED BLOCK NO
          36106    106     190      2   0  0  select (N)
          36107    102     258      8   0  0  transfer (A) to N
  Source image: P1010175.JPG
          36108    126     361      2   0  1  leave subroutine             > LEAVE S/R

          36200    PROCR   362       362     SET ROUTE TO MANUAL OR UNLOAD
          36201     NOTES          RADIX     B
          36202    100              0   0  0  Halt                         LINK
          36203    101     267      2   1  2  subtract literal address     SET PSEUDO RTE TYPE
          36204    102             31   0  1  transfer (A) to N
          36205    106     211      3   0  0  select (N)
          36206    102     188      3   0  0  transfer (A) to N            UPDATE ASSEMBLER TABLE
          36207    126     349      2   0  0  enter subroutine             >CLEAR ASSEMBLER TABLE
          36208    124     188      2   0  1  modify address of next       SET RTE TO MANUAL ORUNLOAD
          36209    119              0   1  2  unload
          36210    126     347      2   0  0  enter subroutine             *469 SET PROG TIME 3 MINS AHEAD OF CLOCK
          36211    106     270     17   0  0  select (N)
          36212    124              3   0  1  modify address of next       SET SETTING FOR S101
          36213    102            176   0  0  transfer (A) to N            TO TEST ROUTE
          36214    101              4   1  3  select literal address
          36215    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE. NO.
          36216    126     356      2   0  0  enter subroutine             >SET UP PROG NO
          36217    126     362      2   0  1  leave subroutine             >LEAVE S/R

          36300    PROCR   363       363     SET LINK FOR SI=5 & SETTING FOR S101
          36301     NOTES          RADIX     B
          36302    100              0   0  0  Halt                         LINK
          36303    102             42   0  1  transfer (A) to N            SET LINK FOR SI=5
          36304    106     176     21   0  0  select (N)
          36305    124              3   0  1  modify address of next       SET SETTING FOR S101
          36306    102            176   0  0  transfer (A) to N
          36307    126     363      2   0  1  leave subroutine             > LEAVE S/R

          36400    PROCR   364       364     *07 OPEN PAPER TAPE INPUT FILE
          36401     NOTES          RADIX     B
    26717>36402    106     210      8   0  0  select (N)                   *02Ю SET REEL CNTR=1
          36403    124     188      2   0  1  modify address of next
          36404    102     252     66   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   0005000058
          36405    126     367      2   0  0  enter subroutine             >READ, TEST SENTINEL
          36406    126     368      2   0  0  enter subroutine             >TEST REEL NO
          36407    127     370      2   0  1  jump A != Z                  >HDG COMMENT        TEST REEL CNTR=Ю
          36408    126     369      2   0  0  enter subroutine             >                   TEST CORRECT FILE
          36409    127     370      2   0  1  jump A != Z                  >HDG COMMENT        LETTER & SUITE NO
          36410    106              3   1  3  select (N)                   STORE PROG NO
          36411    124     188      2   0  1  modify address of next
          36412    102     252     50   0  0  transfer (A) to N            *53+3:+             00042
          36413    106              5   0  3  select (N)                   STORE FILE ID
          36414    124     188      2   0  1  modify address of next
          36415    102     252     54   0  0  transfer (A) to N            *53+3:+             00046
          36416    101              3   0  1  prepare for digit collation  STORE REEL NO
          36417    115              5   1  3  collate and add
          36418    124     188      2   0  1  modify address of next
          36419    102     252     66   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   0005000058
          36420    126     377      2   0  0  enter subroutine             *429                STORE FIRST TWO WORD
          36421    101              5   1  3  select literal address       *02Ю SELECT RTE TYPE
    36608>36422    102     188      3   0  0  transfer (A) to N            *02Ю04Ю
          36423    124              3   0  1  modify address of next
          36424    102            168   0  0  transfer (A) to N            CLEAR(168)
          36425    126     329      2   0  0  enter subroutine             > READ
          36426    124     269      3   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE

          36500    PROCR   365       365     UNLOAD:OPEN PAPER TAPE I/P REEL
          36501     NOTES          RADIX     B
    37329>36502    101     365     35   1  3  select literal address       *02Ю
          36503    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          36504    126     325      2   0  0  enter subroutine             *189 >ALTERNATE ROUTES
          36505    106     215     16   1  0  select (N)                   SET UP'NEW'
          36506    102     258      4   1  0  transfer (A) to N
          36507    101              4   1  3  select literal address
  Source image: P1010176.JPG
          36508    126     345      2   0  0  enter subroutine             >EDIT TIME, SET UP RTE NO
          36509    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          36510    106     252     54   0  3  select (N)                   *53+3:+ FILE ID     00046
          36511    118              1   0  0  shift logical
          36512    101             49   1  1  add literal address
          36513    118              4   0  0  shift logical
          36514    102     258     10   1  0  transfer (A) to N
          36515    106     252     66   0  3  select (N)                   *53+0Ю+3:+*53+3:+   0005000058 RL CTR=Ю?
          36516    101             10   1  2  subtract literal address
          36517    127     365     33   0  0  jump A = Z                   >YES
          36518    106     252     66   0  3  select (N)                   *53+0Ю+3:+*53+3:+   0005000058 RL CTR=99
          36519    100     210      3   0  3  set radix
          36520    101            153   1  2  subtract literal address
          36521    127     365     31   0  0  jump A = Z                   >YES
          36522    101            154   1  1  add literal address          STEP REEL COUNTER
    36532>36523    100     212      2   0  3  set radix
          36524    103     252     66   0  3  copy (A) to N                *53+0Ю+3:+*53+3:+   0005000058
          36525    102     258     19   1  0  transfer (A) to N            SET UP REEL NO
          36526    106     258     18   1  0  select (N)
    36534>36527    107     258     10   1  0  augment (N) by (A)
          36528    106     252     50   0  3  select (N)                   *53+3:+             00042
          36529    102     258      8   0  0  transfer (A) to N
          36530    124     432     11   1  0  unconditional jump           >OUTPUT COMMENT
    36521>36531    106     210      8   0  0  select (N)                   SET REEL CNTR=-1
          36532    124     365     23   1  0  unconditional jump           >
    36517>36533    101           4112   1  3  select literal address       SET-? FOR COMMENT
          36534    124     365     27   1  0  unconditional jump           >
          36535    126     367      2   0  0  enter subroutine             >READ, TEST SENTINEL
          36536    126     368      2   0  0  enter subroutine             >TEST REEL NO
          36537    127     371      2   0  1  jump A != Z                  >HDG COMMENT        TEST REEL CNTR=Ю
          36538    115              5   1  3  collate and add              STORE REEL NO
          36539    124     188      2   0  1  modify address of next
          36540    102     252     66   0  0  transfer (A) to N            *53+0Ю+3:+*53+3:+   0005000058
          36541    106              3   1  3  select (N)                                       TEST CORRECT PROG NO
          36542    124     188      2   0  1  modify address of next
          36543    105     252     50   0  0  subtract (N) from (A)        *53+3:+             00042
          36544    127     371      2   0  1  jump A != Z                  >HDG COMMENT
          36545    106              5   0  3  select (N)                                       TEST CORRECT FILE ID
          36546    124     188      2   0  1  modify address of next
          36547    105     252     54   0  0  subtract (N) from (A)        *53+3:+             00046
          36548    127     371      2   0  1  jump A != Z                  >HDG COMMENT
          36549    124              3   0  1  modify address of next
          36550    102            168   0  0  transfer (A) to N            CLEAR(168)
          36551    106     365     60   0  0  select (N)                   CLEAR FIRST
          36552    118              5   0  0  shift logical                EIGHT LOCATIONS
          36553    124     188      2   0  1  modify address of next
          36554    124             64   1  2  modify address of next
          36555    128              0   0  0  bulk copy short numeric
          36556    126     329      2   0  0  enter subroutine             >READ
          36557    101              5   1  3  select literal address       SET UP RTE TYPE
          36558    103     188      3   0  0  copy (A) to N
          36559    124     351      7   1  0  unconditional jump           > TEST RTE, DEALING WITH D/B
          36560    102              8   0  0  transfer (A) to N

          36600    PROCR   366       366     OPEN CARD INPUT FILE
          36601     NOTES          RADIX     B
    26718>36602    126     367      2   0  0  enter subroutine             *04Ю READ,TEST SENTINEL
          36603    126     369      2   0  0  enter subroutine             >                   TEST FILE LETTER &
          36604    127     370      2   0  1  jump A != Z                  >HDG COMMENT        SUITE NO
          36605    106     210     15   0  0  select (N)                   *669
          36606    126     377      2   0  0  enter subroutine             *429                STORE FIRST 2 WORDS
          36607    101              6   1  3  select literal address       SELECT RTE TYPE
          36608    124     364     22   1  0  unconditional jump           >

          36700    PROCR   367       367     READ, TEST ROUTE, TEST SENTINEL
          36701     NOTES          RADIX     B
  Source image: P1010177.JPG
          36702    100              0   0  0  Halt                         LINK
          36703    106     367      2   0  0  select (N)
          36704    124              3   0  1  modify address of next
          36705    102            168   0  0  transfer (A) to N
          36706    126     329      2   0  0  enter subroutine             >READ
          36707    124              3   0  1  modify address of next       *04Ю*02Ю
          36708    106            168   0  0  select (N)
          36709    101     366      3   1  2  subtract literal address
          36710    127     367     30   0  0  jump A = Z                   *02Ю*04Ю*16‼
          36711    101              5   1  3  select literal address       *02+                00006
    36732>36712    102     188      3   0  0  transfer (A) to N
          36713    126     351      2   0  0  enter subroutine             TEST ROUTE NOTING D/B
          36714    124              3   0  1  modify address of next                           TEST D/B
          36715    106            160   0  0  select (N)                                       OCCURRED
          36716    127     367     20   0  0  jump A = Z                   >NO
          36717    126     419      2   0  0  enter subroutine             >SET UP HDG
          36718    106     214     42   0  0  select (N)                   SET UP D/B
          36719    124     370      6   1  0  unconditional jump           >
    36716>36720    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          36721    106              0   1  3  select (N)
          36722    105     211     12   1  0  subtract (N) from (A)                            TEST SENTINEL BLOCK
          36723    127     372      2   0  1  jump A != Z                  >NO, 'SNT?' COMMENT
          36724    101              4   0  1  prepare for digit collation                      TEST SENTINEL
          36725    115              5   1  3  collate and add                                  TYPE 1
          36726    101            256   1  2  subtract literal address
          36727    127     372      2   0  1  jump A != Z                  >NO, 'SNT?' COMMENT
          36728    124              3   0  1  modify address of next
          36729    126            168   0  1  leave subroutine             >LEAVE S/R
    36710>36730    126     384      2   0  0  enter subroutine             *169                TEST UPTIME
    34612>36731    101              6   1  3  select literal address       SELECT RT
          36732    124     367     12   1  0  unconditional jump           >TEST RTE

          36800    PROCR   368       368     TEST REEL NUMBER
          36801     NOTES          RADIX     B
          36802    100              0   0  0  Halt                         *02Ю LINK
          36803    101              3   0  1  prepare for digit collation                      TEST REEL NO=Ю
          36804    115              5   1  3  collate and add
          36805    105     213     14   0  0  subtract (N) from (A)
          36806    127     368     11   0  0  jump A = Z                   >YES
          36807    104     213     14   0  0  add (N) to (A)                                   TEST CORRECT REEL NO
          36808    124     188      2   0  1  modify address of next
          36809    105     252     66   0  0  subtract (N) from (A)        *53+0Ю+3:+*53+3:+   0005000058
          36810    127     368     13   0  1  jump A != Z                  >NO
    36806>36811    124     368      2   0  1  modify address of next       LEAVE S/R BY LINK+1
          36812    124              1   1  0  unconditional jump           >
    36810>36813    124     188      2   0  1  modify address of next                           TEST REEL CNTR=Ю
          36814    106     252     66   0  0  select (N)                   *53+0Ю+3:+*53+3:+   0005000058
          36815    105     213     14   0  0  subtract (N) from (A)
          36816    126     368      2   0  1  leave subroutine             > LEAVE S/R

          36900    PROCR   369       369     TEST FILE LETTER & SUITE NUMBER
          36901     NOTES          RADIX     B
          36902    100              0   0  0  Halt                         LINK
          36903    101            768   0  1  prepare for digit collation  COLLATE FILE LETTER
          36904    115              4   1  3  collate and add
          36905    101             28   0  1  prepare for digit collation  COLLATE SUITE NO.
          36906    115              3   1  3  collate and add
          36907    102     258      4   1  0  transfer (A) to N            NEGATE (A)
          36908    115             33   0  1  collate and add
          36909    118              6   0  0  shift logical
          36910    115             32   0  1  collate and add
          36911    105     258      4   1  0  subtract (N) from (A)
          36912    126     369      2   0  1  leave subroutine             > LEAVE S/R

          37000    PROCR   370       370     HDG COMMENT OPEN P/T I/P FILE
          37001     NOTES          RADIX     B
    36604>
    36409>
  Source image: P1010178.JPG
    36407>37002    126     419      2   0  0  enter subroutine             >SET UP HDG
          37003    101             12   0  1  prepare for digit collation  SET UP FILE LETTER
          37004    115             33   0  1  collate and add
          37005    118              6   0  0  shift logical
    37204>
    41445>
    36719>37006    102     258      8   1  0  transfer (A) to N
    30261>37007    102     258     11   1  0  transfer (A) to N
    28114>37008    102     258     12   1  0  transfer (A) to N            CLEAR COL 5
          37009    124     261     30   0  2  select literal and division
          37010    124     336      2   1  0  unconditional jump           >OUTPUT COMMENT

          37100    PROCR   371       371     HDG COMMENT:OPEN P/T INPUT REEL
          37101     NOTES          RADIX     B
    36548>
    36544>
    36537>37102    126     419      2   0  0  enter subroutine             *02Ю >SET UP HDG
          37103    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT

          37200    PROCR   372       372     HDG COMMENT:NO SENTINEL
          37201     NOTES          RADIX     B
    36727>
    36723>37202    126     419      2   0  0  enter subroutine             >SET UP HDG
          37203    106     258     24   1  0  select (N)                   SET UP SNT?
          37204    124     370      6   1  0  unconditional jump           >OUTPUT COMMENT

          37300    PROCR   373       373     PAPER TAPE INPUT
          37301     NOTES          RADIX
    26707>37302    102     373     12   0  0  transfer (A) to N            *02Ю*4£1*3:1
          37303    125              0   1  2  interrogate indicators       *6693:94£9
          37304    126     377      2   0  0  enter subroutine             *429                STORE FIRST 2 WORDS
          37305    126     341      2   0  0  enter subroutine             *422
          37306    106              0   1  3  select (N)                   *422
          37307    105     211     16   1  0  subtract (N) from (A)                            TEST F8M
          37308    127     263     20   0  0  jump A = Z                   >YES
          37309    105     211     14   1  0  subtract (N) from (A)        SUBT SENTINEL MINUS FAULTY BLOCK WORD
          37310    127     373     26   0  0  jump A = Z                   >YES                TEST SENTINEL BLOCK
          37311    126     430      2   0  0  enter subroutine             *3:94£9 IAA
          37312    100              0   0  0  Halt                         *4£1*3:1
          37313    125              0   1  2  interrogate indicators       CLEAR 2ND WORD
          37314    124     188      2   0  1  modify address of next       OF ANNEXE
          37315    124             64   0  1  modify address of next
          37316    102              2   1  0  transfer (A) to N
          37317    106             33   0  1  select (N)                   *83Ю
          37318    101              1   1  2  subtract literal address
          37319    127     373     23   0  1  jump A != Z                  >NOT 8-HOLE
          37320    124     188      2   0  1  modify address of next
          37321    119              0   1  1  rewind                       READ
          37322    124     268      8   1  0  unconditional jump           *83Ю                >UPDATE ASS TABLE
    37319>37323    124     188      2   0  1  modify address of next       READ
          37324    119              0   0  1  input one block/reset timer
          37325    124     268      8   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE
    37310>37326    101              4   0  1  prepare for digit collation  SET(B)=0.0.£.0.0
          37327    115              5   1  3  collate and add              COLLATE SENTINEL TYPE IN Q3
          37328    101            512   1  2  subtract literal address     SUBTRACT 2 IN Q3    TEST SENTINEL TYPE 2
          37329    127     365      2   0  0  jump A = Z                   >OPEN NEXT I/P TAPE

          37400    PROCR   374       374     SET UP SENTINEL:INPUT
    37512>37402    106     188      3   0  0  select (N)                   STORE RTE TYPE
          37403    124              3   0  1  modify address of next
          37404    102            157   0  0  transfer (A) to N
          37405    106     258     24   1  0  select (N)                   SET UP SNT
          37406    102     258      4   1  0  transfer (A) to N
          37407    101     376      2   1  3  select literal address
  Source image: P1010179.JPG
          37408    124     282     10   1  0  unconditional jump           >OUTPUT

          37500    PROCR   375       375     CARD INPUT
          37501     NOTES          RADIX     B
    26708>37502    102     375     15   0  0  transfer (A) to N            *04Ю*3:3*4£3
          37503    126     382      2   0  0  enter subroutine             *16Ю                TEST W/E IND
          37504    127     381     12   0  0  jump A = Z                   *859                >EXTRA READ
          37505    127     381     18   0  0  jump A = Z                   *16Ю*851            >EXTRA READ
    38129>37506    106     210     15   0  0  select (N)                   *669
    37835>37507    126     377      2   0  0  enter subroutine             *429                STORE FIRST 2 WORDS
    37834>37508    126     341      2   0  0  enter subroutine             *422 SET(MR3)=(644R)
          37509    106              0   1  3  select (N)                   *422
          37510    127     375     13   0  3  jump A < Z                   >YES                TEST 1ST WORD NEG
          37511    105     211     12   1  0  subtract (N) from (A)        SUBT SENTINEL WORD  TEST SENTINEL BLOCK
          37512    127     374      2   0  0  jump A = Z                   >YES
    37510>37513    125              0   1  0  set indicators
          37514    126     430      2   0  0  enter subroutine             *3:94£9 1AA SIR
          37515    100              0   0  0  Halt                         *4£1*3:1
          37516    126     382      2   0  0  enter subroutine             *16Ю                TEST WIE IND
          37517    127     268      9   0  0  jump A = Z                   *16Ю                >PROGM
          37518    124     188      2   0  1  modify address of next       READ
          37519    119              0   0  1  input one block/reset timer
          37520    124     268      8   1  0  unconditional jump           >

          37600    PROCR   376       376     READ AFTER SENTINEL TYPE 3
          37601     NOTES          RADIX     B
          37602    126     329      2   0  0  enter subroutine             >READ
          37603    124              3   0  1  modify address of next
          37604    106            157   0  0  select (N)
          37605    103     188      3   0  0  copy (A) to N
          37606    124     351      7   1  0  unconditional jump           >TEST RTE,DEALING WITH D/B

          37700    PROCR   377       377     STORE FIRST TWO WORDS S/R
          37702    100              0   0  0  Halt                         *42Ю
          37703    102     369      2   0  0  transfer (A) to N            *669
          37704    126     341      2   0  0  enter subroutine             SET(MR3)=(64+R)
          37705    126     344      2   0  0  enter subroutine             >S/R WW
          37706    124     369      2   0  1  modify address of next       *669
          37707    106              2   1  3  select (N)
          37708    124     109      2   0  1  modify address of next
          37709    102     252      8   1  0  transfer (A) to N            STORE SECOND WORD
          37710    124     369      2   0  1  modify address of next       *669
          37711    106              0   1  3  select (N)
          37712    124     109      2   0  1  modify address of next
          37713    103     252      6   1  0  copy (A) to N                STORE FIRST WORD
          37714    106              0   1  3  select (N)                   *669
          37715    126     377      2   0  1  leave subroutine

          37800    PROCR   378       378     POCKET-SELECT UPTIME CARD READER
    26751>37802    126     378     12   0  0  enter subroutine             *16Ю                >STACK
          37803    124     268      9   1  0  unconditional jump           >PROGM
          37804    126     378      6   0  0  enter subroutine
          37805    124     268      9   1  0  unconditional jump           >PROGM
          37806    100              0   0  0  Halt
          37807    106             33   0  1  select (N)                                       TEST LINK Q6-9
          37808    127     263     19   0  0  jump A = Z                   >MISSING,ZZZ02 COMMENT
          37809    101             15   0  1  prepare for digit collation  PACK IN 44 OF SWITCH
          37810    114             44   0  1  replace selected bits
          37811    126     378      6   0  1  leave subroutine
          37812    100              0   0  0  Halt
          37813    106             32   0  1  select (N)
          37814    127     378     17   0  0  jump A = Z                   >POCKET 2.
          37815    106     440      9   0  0  select (N)                   19/0/2 INSTRUCTION  REJECT
          37816    124     378     18   1  0  unconditional jump
    37814>37817    106     330      4   0  0  select (N)                   19/0/0 INSTRUCTION  ACCEPT
    37816>37818    102     378     23   0  0  transfer (A) to N
  Source image: P1010180.JPG
          37819    106     188      2   0  0  select (N)                   PACK IN ROUTE NO
          37820    101              7   0  1  prepare for digit collation  PACKING CONST Q1-3
          37821    114     378     23   0  0  replace selected bits        19/ / ORDER
          37822    114     378     24   0  0  replace selected bits        26/1/0 ORDER
          37823    119              0   0  0  output                       POCKET SELECT
          37824    126              0   1  0  test route N1                TEST ROUTE
          37825    100              1   0  0  Halt                         CLOSED
          37826    100              2   0  0  Halt                         ENGAGED
          37827    100              3   0  0  Halt                         DOUBTFUL
          37828    124     378     30   1  0  unconditional jump           >STATUS 4
          37829    126     378     12   0  1  leave subroutine             >AVAILABLE
    37828>37830    124     378     12   0  1  modify address of next
          37831    124              1   1  0  unconditional jump           *16Ю >S/R+1
          37832    124     379     34   1  0  unconditional jump           *££0*££2*85‼
          37833    124     380     25   1  0  unconditional jump           *85‼85‼
          37834    124     375      8   1  0  unconditional jump           *66‼42‼
          37835    124     375      7   1  0  unconditional jump           *66‼
          37836    124     390      4   1  0  unconditional jump           *3:‼4£‼
          37837    105     221     38   0  0  subtract (N) from (A)        *85Ю85‼

          37900    PROCR   379       379     CLOSE UPTIME ROUTE
          37902    100              0   0  0  Halt                         *16Ю
          37903    124     221     38   0  1  modify address of next       *852*0:Ю
          37904    106             45   0  0  select (N)                   HAS BEEN PAUSED
          37905    127     379      8   0  2  jump A >= Z                  >NO
          37906    124     379      2   0  1  modify address of next       YES LEAVE S/R+2
          37907    124              2   1  0  unconditional jump           *852*0:Ю
    37905>37908    106              2   1  0  select (N)                   STORE 2,3
          37909    102     221     36   1  0  transfer (A) to N
    37933>37910    124     221     35   0  1  modify address of next       *859
          37911    106     221     38   0  0  select (N)                   SELECT START OF SWITCH
          37912    127     379     31   0  0  jump A = Z                   *859
          37913    105     221     36   0  0  subtract (N) from (A)        TEST O'LAY PROGM
          37914    127     379     27   0  0  jump A = Z                   *859 >YES
          37915    127     244     13   0  0  jump A = Z                   *851 >YES
    37920>37916    124     221     35   0  1  modify address of next       *859
    37921>37917    124     221     39   0  1  modify address of next
          37918    126              0   1  0  test route N1                TEST ROUTE
          37919    124     379     27   1  0  unconditional jump           *85‼                CLOSED
          37920    124     379     16   1  0  unconditional jump           *859                ENGAGED
          37921    124     379     17   1  0  unconditional jump           *851                ENGAGED
          37922    124     379     24   1  0  unconditional jump                               DOUBTFUL
          37923    124     379     27   1  0  unconditional jump           *85‼                W/E
    37922>37924    124     221     35   0  1  modify address of next       CLOSE ROUTE
          37925    124     221     39   0  1  modify address of next
          37926    119              0   1  3  step on/set manual
    37923>
    37919>
    37914>37927    101              2   1  3  select literal address       *85Ю
          37928    104     221     35   0  0  add (N) to (A)               ALL UPTIME PROGS DONE?
          37929    105     221     34   0  0  subtract (N) from (A)
          37930    127     379     34   0  2  jump A >= Z                  >YES
    37912>37931    101              2   1  3  select literal address
          37932    107     221     35   0  0  augment (N) by (A)           STEP MODIFIER
          37933    124     379     10   1  0  unconditional jump           *85Ю
    37930>
    37832>37934    106     221     43   0  0  select (N)                   BEEN THOUGH SIR BEFORE?
          37935    127     379     52   0  1  jump A != Z                  >YES
          37936    126     212      8   1  3  set modification register    SET UP MR3 TO STORE 7'S
    37949>37937    106              6   0  0  select (N)
          37938    101     111      2   1  1  add literal address
          37939    126     386      2   0  0  enter subroutine             *85Ю85‼             UPTIME?
          37940    127     379     46   0  0  jump A = Z                   >YES
          37941    106     111      9   0  3  select (N)
          37942    124     221     42   0  1  modify address of next
          37943    102     221     44   0  0  transfer (A) to N
  Source image: P1010181.JPG
          37944    106     111     11   0  3  select (N)
          37945    102     111      9   0  3  transfer (A) to N
    37940>37946    101              1   1  3  select literal address
          37947    107     221     42   0  0  augment (N) by (A)           STEP MODIFIER
          37948    125             48   0  3  step on and test
          37949    124     379     37   1  0  unconditional jump           >NEXT SWITCH
          37950    106     380     23   0  0  select (N)                   MAKE RC W/E GO TO END
          37951    102     381      3   0  0  transfer (A) to N
    37935>37952    106     380     17   0  0  select (N)                   CORRUPT 160
          37953    102     264     31   0  0  transfer (A) to N
          37954    106     177     10   0  0  select (N)                   STOP COMMENTS
          37955    102     177      9   0  0  transfer (A) to N
          37956    102     221     35   0  0  transfer (A) to N            CLEAR COUNTER
          37957    102     221     42   0  0  transfer (A) to N                                CLEAR 7'S MODIFIER
    12714>37958    106     104      4   0  0  select (N)                   SET L6=2            UNSET REQUEST
          37959    102     103     27   0  0  transfer (A) to N                                TYPEWRITER
          37960    106     221     43   0  0  select (N)                   AUGMENT NO TIMES
          37961    101              1   1  1  add literal address
          37962    103     221     43   0  0  copy (A) to N                BEEN THROUGH S/R
          37963    101              3   1  2  subtract literal address
          37964    126     379      2   0  1  leave subroutine

          38000    PROCR   380       380     SET EVERYTHING BACK AFTER ALLOC OR O'LAY WITH UPTIME
          38002    100              0   0  0  Halt                         *16Ю
          38003    106     223      2   0  0  select (N)                   *09Ю062*06Ю09Ю      TEST TIMINGS ON
          38004    127     380      7   0  0  jump A = Z                   *09Ю062             >NO
          38005    106     333      3   0  0  select (N)                                       YES
          38006    124     380      8   1  0  unconditional jump           *06Ю09Ю*09Ю062
    38004>38007    106     264     28   0  0  select (N)                   *09Ю062             SET BACK 160
    38006>38008    102     264     31   0  0  transfer (A) to N
          38009    106     380     27   0  0  select (N)                   REPLACE RC LINK
          38010    102     381      3   0  0  transfer (A) to N
          38011    106     221     36   1  0  select (N)                   REPLACE 2,3
          38012    102              2   1  0  transfer (A) to N
          38013    106     379     59   0  0  select (N)                   ALLOW COMMENTS
          38014    102     177      9   0  0  transfer (A) to N
          38015    102     221     43   0  0  transfer (A) to N
          38016    124     380     28   1  0  unconditional jump
          38017    124     380     18   1  0  unconditional jump
    38017>38018    106              2   0  0  select (N)
          38019    126     386      2   0  0  enter subroutine             *85Ю85‼             UPTIME?
          38020    127     127     11   0  1  jump A != Z                  >NO                 PRIORITY QUEUE
          38021    124              2   0  1  modify address of next
          38022    124              7   1  0  unconditional jump           >CONTINUE
          38023    124     380     24   1  0  unconditional jump           *85‼85‼
    38023>38024    127     381      4   0  1  jump A != Z                  *859                >NOT COMPLETED YET
    37833>38025    127     381      9   0  1  jump A != Z                  *851
          38026    124     127     11   1  0  unconditional jump           >PRIORITY QUEUE
          38027    127     300     13   0  0  jump A = Z
    38016>38028    126     212      8   1  3  set modification register
    38046>38029    124     221     42   0  1  modify address of next
          38030    106     221     44   0  0  select (N)
          38031    127     380     42   0  1  jump A != Z                  >NOT UPTIME
          38032    101              1   1  2  subtract literal address     SET IND
          38033    102     221     43   0  0  transfer (A) to N
          38034    106     112     17   0  3  select (N)                   *85Ю*0:Ю TEST ALREADY CLOSED
          38035    127     380     39   0  2  jump A >= Z                                      >NO
          38036    125              0   1  2  interrogate indicators
          38037    105     112     17   0  3  subtract (N) from (A)        SET SWITCH SETTING POSITIVE
          38038    124     380     40   1  0  unconditional jump           *85Ю*0:Ю
    38035>38039    106     111      9   0  3  select (N)                   STORE SWITCH SETTING
    38038>38040    102     112     17   0  3  transfer (A) to N
          38041    106     111     11   0  3  select (N)                   CLOSE PROGRAM
    38031>38042    102     111      9   0  3  transfer (A) to N            RESTORE 7'S
          38043    101              1   1  3  select literal address
          38044    107     221     42   0  0  augment (N) by (A)
  Source image: P1010182.JPG
          38045    125             48   0  3  step on and test
          38046    124     380     29   1  0  unconditional jump           >NEXT SWITCH
          38047    125              0   1  2  interrogate indicators
          38048    102     221     42   0  0  transfer (A) to N
          38049    102     221     44   1  0  transfer (A) to N            CLEAR STORED
          38050    102     221     46   1  0  transfer (A) to N            SWITCHES
          38051    102     221     48   1  0  transfer (A) to N
          38052    102     221     50   1  0  transfer (A) to N
          38053    126     380      2   0  1  leave subroutine

          38100    PROCR   381       381     MANUAL UPTIME S/R
    30011>38102    126     382      2   0  0  enter subroutine             *16Ю TEST W/E INDICATOR
          38103    127     300     13   0  0  jump A = Z                   >RC ROUTINE
    38024>38104    106     381     23   0  0  select (N)                   *85Ю
          38105    127     381      9   0  0  jump A = Z
          38106    106             30   0  1  select (N)
          38107    102     381     24   0  0  transfer (A) to N
          38108    124     381     25   1  0  unconditional jump           *85Ю
    38105>
    38025>38109    106             30   0  1  select (N)
          38110    102     381     23   0  0  transfer (A) to N
          38111    124     381     25   1  0  unconditional jump
    37504>38112    106             30   0  1  select (N)                   *85Ю
          38113    105     381     23   0  0  subtract (N) from (A)
          38114    127     381     18   0  0  jump A = Z
          38115    125              0   1  2  interrogate indicators
          38116    102     381     24   0  0  transfer (A) to N
          38117    124     381     19   1  0  unconditional jump           *85Ю
    38114>
    37505>38118    102     381     23   0  0  transfer (A) to N
    38117>38119    126     338      2   0  0  enter subroutine             SET SI=1
          38120    126     329      2   0  0  enter subroutine             EXTRA READ
          38121    126     349      2   0  0  enter subroutine             >UPDATE ASS.TABLE
          38122    124     127     11   1  0  unconditional jump
          38123    100              0   0  0  Halt                         INDICATORS
          38124    100              0   0  0  Halt                         *859
    38111>
    38108>38125    106             30   1  1  select (N)
          38126    102     188      2   1  0  transfer (A) to N            STORE RT,RT TYPE
          38127    106             35   0  1  select (N)                   CLOSE SWITCH
          38128    102              7   0  1  transfer (A) to N
          38129    124     375      6   1  0  unconditional jump           *66‼42‼*66‼

          38200    PROCR   382       382     TEST UPTIME INDICATOR
          38202    100              0   0  0  Halt                         *16Ю
          38203    106             30   0  1  select (N)                   TEST 1ST INDICATOR
          38204    105     381     23   0  0  subtract (N) from (A)
          38205    127     382      8   0  0  jump A = Z                   *85Ю
          38206    106             30   0  1  select (N)                   TEST 2ND INDICATOR
          38207    105     381     24   0  0  subtract (N) from (A)        *85Ю
    38205>38208    126     382      2   0  1  leave subroutine

          38300    PROCR   383       383     CLOSE P/T & DECIMAL CARD INPUT FILE
          38301     NOTES          RADIX     B
    26728>
    26727>38302    106     109      6   1  0  select (N)                   *1ЮЮ SET UP'EDG'
          38303    102     258      4   1  0  transfer (A) to N
          38304    126     384      2   0  0  enter subroutine             *169 TEST PTIME
          38305    126     362      2   0  0  enter subroutine             >SET ROUTE TO MANUAL, ETC.
          38306    124     383     21   0  2  select literal and division
          38307    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5,SETTING OF S101
          38308    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          38309    106              0   1  3  select (N)                                       TEST SENTINEL BLOCK
          38310    105     211     12   1  0  subtract (N) from (A)
          38311    127     282     11   0  1  jump A != Z                  *5:1                >NO,EDG COMMENT
          38312    127     383     18   0  1  jump A != Z                  *5:9
  Source image: P1010183.JPG
          38313    101              4   0  1  prepare for digit collation
          38314    115              5   1  3  collate and add
          38315    101            768   1  2  subtract literal address
          38316    127     282     11   0  1  jump A != Z                  *5:1                NO,EDG COMMENT
          38317    127     383     21   0  0  jump A = Z                   *5:Ю                >YES,TYPE 3
    38312>38318    101              4   1  3  select literal address                           OMIT EDG?
          38319    126     332      2   0  0  enter subroutine
          38320    127     282     11   0  0  jump A = Z                   *5:Ю                >MAKE COMMENT
    38317>38321    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3
          38322    124     268      9   1  0  unconditional jump           >RESET MOD GROUP

          38400    PROCR   384       384     OPEN & CLOSE CARD FILES FOR UPTIME
          38402    100              0   0  0  Halt                         *16Ю                LINK
          38403    106     188      2   0  0  select (N)                   ROUTE NUMBER
          38404    105     100     33   0  0  subtract (N) from (A)        MIN CD RTE * ASSUMES UPTIME RTE SMALLER
          38405    127     384     42   0  2  jump A >= Z                  >NO
          38406    106     188      3   0  0  select (N)                   *1ЮЮ
          38407    101             16   1  2  subtract literal address     TEST OPEN
          38408    127     384     13   0  0  jump A = Z                   >YES
          38409    124              3   0  1  modify address of next
          38410    106            174   0  0  select (N)
          38411    101             16   1  2  subtract literal address
          38412    127     384     29   0  1  jump A != Z                  *1ЮЮ >NO
    38408>38413    106              2   0  0  select (N)
          38414    126     386      2   0  0  enter subroutine             *85Ю85‼ TEST PROG
          38415    127     384     29   0  0  jump A = Z                   ALREADY OPENED FILE >NO
          38416    101              2   1  3  select literal address
          38417    107     221     34   0  0  augment (N) by (A)
          38418    106     221     38   0  0  select (N)                   *85Ю
          38419    127     384     21   0  0  jump A = Z                   >1ST LOCS FREE
          38420    101              2   1  3  select literal address
    38419>38421    102     378     12   0  0  transfer (A) to N            *85Ю
          38422    106              2   0  0  select (N)
          38423    124     378     12   0  1  modify address of next       *859
          38424    102     221     38   0  0  transfer (A) to N
          38425    106     188      2   0  0  select (N)                   SELECT RT
          38426    124     378     12   0  1  modify address of next       *859
          38427    102     221     39   0  0  transfer (A) to N
          38428    102     378     12   0  0  transfer (A) to N            *859
    38415>
    38412>38429    106     188      2   0  0  select (N)                   PACK IN RTE NO
          38430    101              7   0  1  prepare for digit collation
          38431    114     384     38   0  0  replace selected bits        19/0/0 INSTRUCTION
          38432    114     384     33   0  0  replace selected bits        26/1/0 INSTRUCTION
    38434>
    38435>38433    126              0   1  0  test route N1                TEST RTE
          38434    124     384     33   1  0  unconditional jump           >CLOSED
          38435    124     384     33   1  0  unconditional jump           >ENGAGED
          38436    124     384     38   1  0  unconditional jump           >DOUBTFUL
          38437    124     384     43   1  0  unconditional jump           >STATUS 4
    38436>38438    119              0   0  0  output                       >SELECT POCKET 2
          38439    125              0   1  2  interrogate indicators
          38440    102     381     23   0  0  transfer (A) to N            CLEAR MANUAL INDICATORS
          38441    102     381     24   0  0  transfer (A) to N            *859
    38405>38442    126     384      2   0  1  leave subroutine             >AVAILABLE
    38437>38443    124              2   0  1  modify address of next
          38444    124             18   1  0  unconditional jump           >RC ROUTINE

          38500    PROCR   385       385     SET UP SI+45 IF UPTIME STOPPED OTHERWISE SI+7
          38502    100              0   0  0  Halt                         *16Ю
          38503    102     221      2   0  0  transfer (A) to N            STORE SWITCH SETTING
          38504    106     221     43   0  0  select (N)                   TEST UPTIME STOPPED
          38505    127     385      9   0  2  jump A >= Z                  >NO
          38506    106              2   0  0  select (N)
          38507    126     386      2   0  0  enter subroutine             *85Ю85‼
          38508    127     385     12   0  0  jump A = Z                   >YES
  Source image: P1010184.JPG
    38505>38509    106     221      2   0  0  select (N)
          38510    102              7   0  1  transfer (A) to N            SET UP SI+7
          38511    126     385      2   0  1  leave subroutine             >LEAVE S/R
    38508>38512    106     221      2   0  0  select (N)
          38513    102             45   0  1  transfer (A) to N            SET UP SI+45
          38514    126     385      2   0  1  leave subroutine             >LEAVE S/R

          38600    PROCR   386       386     TEST UPTIME
          38602    100              0   0  0  Halt                         *16Ю*85Ю
          38603    105     221     38   0  0  subtract (N) from (A)
          38604    127     386      7   0  0  jump A = Z
          38605    104     221     38   0  0  add (N) to (A)
          38606    105     221     40   0  0  subtract (N) from (A)
    38604>38607    126     386      2   0  1  leave subroutine

          38700    PROCR   387       387     OPEN CARD OUTPUT FILE
          38701     NOTES          RADIX     B
    26715>38702    125              0   1  2  interrogate indicators       *05Ю
          38703    126     392      2   0  0  enter subroutine             *259                >S/R LC
          38704    124            256   0  2  select literal and division
          38705    126     393      2   0  0  enter subroutine             >SET UP SENTINEL
          38706    124     269      2   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE

          38800    PROCR   388       388     CARD OUTPUT
    26705>38802    102     390      4   0  0  transfer (A) to N            *05Ю*3:1*4£1
          38803    126     392      2   0  0  enter subroutine             *259                >S/R LC
          38804    124     390      3   1  0  unconditional jump           *3:‼4£‼

          38900    PROCR   389       389     NHKG OUTPUT
    26760>38902    102     389      3   0  0  transfer (A) to N            *82Ю*3:2*4£2
          38903    100              0   0  0  Halt                         *3:2*4£2
          38904    126     430      2   0  0  enter subroutine             *3:94£9 IAA S/R                    37303
          38905    126     330      2   0  0  enter subroutine             O/P
          38906    124     399      4   1  0  unconditional jump

          39000    PROCR   390       390     PRINTER OUTPUT
          39001     NOTES          RADIX     B
    26759>
    26711>
    26706>39002    102     390      4   0  0  transfer (A) to N            *3:1*4£1
    38804>39003    126     430      2   0  0  enter subroutine             *3:94£9 1AA SIR
    37836>39004    100              0   0  0  Halt                         *3:1*4£1
          39005    126     330      2   0  0  enter subroutine
          39006    106             30   0  1  select (N)                   *54Ю44Ю
          39007    105             33   0  1  subtract (N) from (A)        TEST SINGLE ANNEX
          39008    127     268      8   0  1  jump A != Z                  >NO UPDATE ASS TABLE
          39009    126     350      2   0  0  enter subroutine             >TEST ROUTE DEALING WITH W/E OR D/B
          39010    124     268      9   1  0  unconditional jump           *54Ю44Ю >PROGRAM
          39011    124     268      8   1  0  unconditional jump           *541*441 >UPDATE USE OF ASS TABLE

          39100    PROCR   391       391     CLOSE CARD OUTPUT FILE
          39101     NOTES          RADIX     B
    26725>39102    125              0   1  2  interrogate indicators       *05Ю
          39103    126     392      2   0  0  enter subroutine             *259                >S/R LC
          39104    124            768   0  2  select literal and division
          39105    126     393      2   0  0  enter subroutine             >SET UP SENTINEL
          39106    102     188      3   0  0  transfer (A) to N
    26762>39107    126     350      2   0  0  enter subroutine             >TEST RTE DEALING   WITH D/B
          39108    124     268      2   1  0  unconditional jump           >SET ROUTE TO MANUAL

          39200    PROCR   392       392     SUBROUTINE LC
          39202    100              0   0  0  Halt                         *25Ю*05Ю
          39203    124     188      2   0  1  modify address of next                           TEST LIB CARD
          39204    106             64   0  0  select (N)                                       BEING PROCESSED
          39205    118           4124   0  0  shift logical                                    ON THIS ROUTE
          39206    101             13   1  2  subtract literal address
  Source image: P1010185.JPG
          39207    127     392      9   0  0  jump A = Z                   >YES
          39208    126     392      2   0  1  leave subroutine             >NO
    39207>39209    126     338      2   0  0  enter subroutine             >SET SI=1
          39210    124     176     22   1  0  unconditional jump           >SI+9
          39211    124     428     24   1  0  unconditional jump           AVOID PUNCHING LIB CARDS IN STORE DUMP.
          39212    124              2   0  1  modify address of next       PUNCH LIB CARDS OUT OF STORE DUMP.

          39300    PROCR   393       393     SET UP SENTINEL
          39301     NOTES          RADIX     B
          39302    100              0   0  0  Halt                         *05Ю
          39303    104     214     10   0  0  add (N) to (A)               B/E
          39304    118              2   0  0  shift logical
          39305    102     260      8   1  0  transfer (A) to N
          39306    106             33   0  1  select (N)                   FILE ID
          39307    118              1   0  0  shift logical
          39308    107     260      9   0  0  augment (N) by (A)
          39309    106     211     12   1  0  select (N)                   SENTINEL WORD
          39310    102     260      4   1  0  transfer (A) to N
          39311    106             32   0  1  select (N)                   PROGRAM IDENTITY
          39312    102     260      7   1  0  transfer (A) to N
          39313    102     260      2   1  0  transfer (A) to N            CLEAR FUNCTION WORD
          39314    124     260      2   0  2  select literal and division
          39315    124     188      2   0  1  modify address of next       EDIT
          39316    124             64   0  1  modify address of next
          39317    129              0   0  0  edit for hollerith output
          39318    126     330      2   0  0  enter subroutine             >WRITE
          39319    124              3   0  2  select literal and division
          39320    126     393      2   0  1  leave subroutine             >LEAVE S/R

          39400    PROCR   394       394     OPEN AUTOLECTOR FILE
    26722>39402    126     329      2   0  0  enter subroutine             *30Ю                >READ
          39403    101             10   1  3  select literal address       SELECT RTE TYPE
          39404    124     269      2   1  0  unconditional jump           >UPDATE ASSR TABLE

          39500    PROCR   395       395     AUTOLECTOR INPUT
    26712>39502    102     395      4   0  0  transfer (A) to N            *30Ю*3:1*4£1
          39503    126     430      2   0  0  enter subroutine             *3:94£9 1AA SIR
          39504    100              0   0  0  Halt                         *3:1*4£1
          39505    124     188      2   0  1  modify address of next
          39506    119              0   0  1  input one block/reset timer  READ
          39507    124     268      8   1  0  unconditional jump           >

          39600    PROCR   396       396     OPEN FILE-CHEQUE READER
    26754>39602    106             33   0  1  select (N)                   *49Ю                SET UP ASL
          39603    101             15   0  1  prepare for digit collation
          39604    124     188      2   0  1  modify address of next
          39605    114             64   0  0  replace selected bits
          39606    106     211      3   0  0  select (N)                   CLEAR ASSR TABLE
          39607    124     269      2   1  0  unconditional jump           *49Ю                >UPDATE ASSR TABLE

          39700    PROCR   397       397     INPUT-CHEQUE READER
    26752>39702    106             32   0  1  select (N)                   *49Ю                READ
          39703    124              2   0  1  modify address of next       SET ASL ODD
          39704    100             32   0  2  replace (B) by (N)           OR EVEN ACCORDING
          39705    124     188      2   0  1  modify address of next       TO LITERAL OF
          39706    114             64   0  0  replace selected bits        INTERCODE ACTION
          39707    124     188      2   0  1  modify address of next
          39708    119              0   0  1  input one block/reset timer
          39709    125              0   1  2  interrogate indicators       CLEAR ASL OF
          39710    124     188      2   0  1  modify address of next       ROUTE
          39711    114             64   0  0  replace selected bits
          39712    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          39713    106     209     13   0  0  select (N)                   SET(9)              26/0/18
          39714    102              9   0  0  transfer (A) to N            *49Ю
    39805>
    28411>39715    106     211      3   0  0  select (N)                   *49Ю56Ю30Ю81Ю82Ю82Ю
  Source image: P1010186.JPG
          39716    102     188      3   0  0  transfer (A) to N
          39717    124     268      8   1  0  unconditional jump

          39800    PROCR   398       398     POCKET SELECT-CHEQUE READER
    26753>39802    124     188      2   0  1  modify address of next       *49Ю
          39803    119              0   0  0  output
          39804    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          39805    124     397     15   1  0  unconditional jump           >

          39900    PROCR   399       399     READ DATA TRANSMISSION
    26756>39902    124     188      2   0  1  modify address of next       *56Ю82Ю
          39903    119              0   0  1  input one block/reset timer
    38906>39904    106     211      3   0  0  select (N)                   *82Ю
          39905    102     188      3   0  0  transfer (A) to N            UPDATE ASS TABLE
          39906    126     349      2   0  0  enter subroutine
    39910>39907    124     188      2   0  1  modify address of next       TEST ROUTE
          39908    126              0   1  0  test route N1
          39909    124     399     13   1  0  unconditional jump           CLOSED
          39910    124     399      7   1  0  unconditional jump           ENGAGED
          39911    124     399     19   1  0  unconditional jump           D/B
          39912    124     399     13   1  0  unconditional jump           W/E
    39921>
    39912>
    39909>39913    126     357      2   0  0  enter subroutine             AVAILABLE           300 SECS
          39914    106     399     22   0  0  select (N)
          39915    127     399     24   0  0  jump A = Z                   >NO D/B
          39916    101              0   1  3  select literal address
          39917    102     399     22   0  0  transfer (A) to N
          39918    124     284      2   1  0  unconditional jump           >EXIT VIA D/B LINK
    39911>39919    101              1   1  3  select literal address       SET D/B MARKER
          39920    102     399     22   0  0  transfer (A) to N
          39921    124     399     13   1  0  unconditional jump
          39922    100              0   0  0  Halt                         *82Ю
          39923    126     350      2   0  0  enter subroutine             *821 TEST ROUTE DEALING WITH D/B
    39915>39924    106     211      3   0  0  select (N)                   CLEAR ASSR TABLE
          39925    102     188      3   0  0  transfer (A) to N
          39926    124     268      9   1  0  unconditional jump

          40000    PROCR   400       400     OPEN FILE DATA TRANSMISSION
    26755>40002    106             33   0  1  select (N)                   *56Ю82Ю
          40003    101             15   0  1  prepare for digit collation                      TX
          40004    124     188      2   0  1  modify address of next
          40005    114             64   0  0  replace selected bits
          40006    106     211      3   0  0  select (N)
          40007    124     269      2   1  0  unconditional jump

          40100    PROCR   401       401     OPEN PAPER TAPE FILE
    26713>40102    126     339      2   0  0  enter subroutine             *03Ю
          40103    106     188      3   0  0  select (N)                   *28Ю TEST NON STANDARD
          40104    118           4124   0  0  shift logical
          40105    127     269      4   0  1  jump A != Z                  *28Ю                >YES           31202
          40106    106             33   0  1  select (N)                                       STORE FILE IDENTITY
          40107    102            195   0  3  transfer (A) to N
          40108    124             65   0  2  select literal and division  SET REEL COUNTER=1
          40109    102            196   0  3  transfer (A) to N
          40110    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40111    124     188      2   0  1  modify address of next       STORE ASL
          40112    106             64   0  0  select (N)
          40113    103            192   0  3  copy (A) to N
          40114    102            194   0  3  transfer (A) to N
          40115    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK
          40116    124     269      4   1  0  unconditional jump           >PROGM

          40200    PROCR   402       402     TEST BLOCK END-TYPING ON PT ASSEMBLER AND NON-STD PT O/P THEREON
          40202    100              0   0  0  Halt                         *29274Ю
          40203    106     212     14   1  0  select (N)                   SET UP INDIRECT MOD REGISTER
  Source image: P1010187.JPG
          40204    102     260     14   1  0  transfer (A) to N
          40205    100     260     16   1  2  replace (B) by (N)
    40217>40206    115            154   1  0  collate and add              COLLATE WORD TO BE OUTPUT
          40207    102     260     22   1  0  transfer (A) to N            W/L
          40208    115     260     24   1  0  collate and add              TEST WORD CONTAINS BLOCK END CHARACTER
          40209    105     260     22   1  0  subtract (N) from (A)
          40210    127     402     20   0  0  jump A = Z                   >YES
    18286>40211    123              2   0  0  step on and test             STEP INDIRECT MOD REGISTER
          40212    100     260     14   0  0  Halt
          40213    124     402     15   1  0  unconditional jump           >
          40214    124     402     18   1  0  unconditional jump           >
    40213>40215    125              0   1  2  interrogate indicators
          40216    118           4126   1  0  shift logical
          40217    124     402      6   1  0  unconditional jump           >TEST NEXT CHARACTER
    40214>40218    123              1   0  0  step on and test             STEP LINK
          40219    100     402      2   0  0  Halt
    40210>40220    126     402      2   0  1  leave subroutine             >LEAVE S/R

          40300    PROCR   403       403     PAPER TAPE OUTPUT BLOCK S/R
          40302    100              0   0  0  Halt                         *03Ю LINK
          40303    106     403      2   0  0  select (N)                   STORE LINK IN SPECIAL CHAPTER
          40304    124              3   0  1  modify address of next
          40305    102            156   0  0  transfer (A) to N
    27769>40306    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          40307    100     210     10   0  2  replace (B) by (N)           *73Ю*74Ю
          40308    115     188      2   0  0  collate and add                                  TEST CHANNEL 6
          40309    101             48   1  2  subtract literal address
          40310    127     403     46   0  0  jump A = Z                   *73Ю*74Ю            >YES P/T O/P ASS
          40311    124              3   0  3  modify address of next       *73Ю                GP ASSEMBLER
          40312    124            190   0  2  select literal and division  LOCATION IN SPECIAL
          40313    124     188      2   0  1  modify address of next       CHAPTER
          40314    102             64   0  0  transfer (A) to N
    40338>40315    101              8   1  3  select literal address       SET UP MODIFIER
    40335>40316    102            193   0  3  transfer (A) to N
          40317    101             63   1  3  select literal address       FORM COLLATION
          40318    124              3   0  3  modify address of next       CONSTANT IN
          40319    124            193   0  3  modify address of next       CORRECT POSITION
          40320    118              0   0  0  shift logical
          40321    118           4118   1  0  shift logical
          40322    124              3   0  3  modify address of next       COLLATE NEXT
          40323    124            192   0  3  modify address of next       CHARACTER
          40324    115              0   1  0  collate and add
    40326>40325    118           4126   1  0  shift logical                ALIGN CHARACTER
          40326    127     403     25   0  1  jump A != Z                  TO CORRECT
          40327    118              2   1  0  shift logical                POSITION
          40328    118              8   0  0  shift logical
          40329    103            190   1  3  copy (A) to N                STORE WORD
          40330    105     260     26   1  0  subtract (N) from (A)        TEST B/E
          40331    127     403     39   0  0  jump A = Z                   >YES
          40332    126     404      2   0  0  enter subroutine             >O/P S/R
          40333    106            193   0  3  select (N)                   TEST END OF WORD
          40334    101              2   1  2  subtract literal address
          40335    127     403     16   0  2  jump A >= Z                  >NO
          40336    101              2   1  3  select literal address       STEP WORD MODIFIER
          40337    107            192   0  3  augment (N) by (A)
          40338    124     403     15   1  0  unconditional jump           >NEXT WORD
    40331>40339    106            188   0  3  select (N)                   TEST NON STANDARD
          40340    127     403     42   0  1  jump A != Z                  >YES
          40341    126     404      2   0  0  enter subroutine             >O/P S/R
    40340>40342    106            194   0  3  select (N)                   RESET(64+R)
          40343    124     188      2   0  3  modify address of next
          40344    102             64   0  0  transfer (A) to N            *73Ю
          40345    124     403     66   1  0  unconditional jump           *739*749
    40355>
    40310>40346    124              3   0  3  modify address of next       *74Ю                P/T ASSEMBLER
          40347    124            192   0  3  modify address of next       BE OUTPUT           ASSEMBLER
  Source image: P1010188.JPG
          40348    106              0   1  0  select (N)
          40349    102            154   1  0  transfer (A) to N
          40350    126     402      2   0  0  enter subroutine             >TEST FOR B/E
          40351    124     403     56   1  0  unconditional jump           >B/E FOUND
          40352    126     404      2   0  0  enter subroutine             >O/P S/R
          40353    101              2   1  3  select literal address       STEP INDIRECT
          40354    107            192   0  3  augment (N) by (A)           WORD MODIFIER
          40355    124     403     46   1  0  unconditional jump           >NEXT WORD
    40351>40356    101              8   1  3  select literal address
          40357    105     260     14   0  0  subtract (N) from (A)
          40358    102     260     13   0  0  transfer (A) to N
          40359    106            154   1  0  select (N)                   CLEAR CHARACTERS AFTER B/E
          40360    124     260     14   0  1  modify address of next
          40361    118           4120   0  0  shift logical
          40362    124     260     13   0  1  modify address of next
          40363    118              0   0  0  shift logical
          40364    102            154   1  0  transfer (A) to N
          40365    126     404      2   0  0  enter subroutine             *74Ю
    40345>40366    124              3   0  1  modify address of next
          40367    126            156   0  1  leave subroutine             >LEAVE S/R

          40400    PROCR   404       404     PAPER TAPE OUTPUT S/R
          40402    100              0   0  0  Halt                         *03Ю LINK
          40403    106     404      2   0  0  select (N)
          40404    102            183   0  3  transfer (A) to N
          40405    124     188      2   0  1  modify address of next       O/P WORD
          40406    119              0   0  0  output
          40407    101              1   1  3  select literal address
          40408    102     188      3   0  0  transfer (A) to N
          40409    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          40410    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          40411    124              3   0  3  modify address of next
          40412    126            183   0  1  leave subroutine

          40500    PROCR   405       405     PAPER TAPE OUTPUT END ROUTINE
    26703>40502    102     405      4   0  0  transfer (A) to N            *03Ю*3:1*4£1
          40503    126     430      2   0  0  enter subroutine             *3:94£9 1AA SIR
          40504    100              0   0  0  Halt                         *3:1*4£1
          40505    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          40506    124     188      2   0  1  modify address of next       STORE ASL
          40507    106             64   0  0  select (N)
          40508    103            192   0  3  copy (A) to N
          40509    102            194   0  3  transfer (A) to N
          40510    106     188      3   0  0  select (N)                   *28Ю                TEST IF NON-STAND
          40511    118           4124   0  0  shift logical
          40512    127     405     14   0  0  jump A = Z                   >NO
          40513    102            188   0  3  transfer (A) to N            *28Ю                NON STAND P/T
    40512>40514    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40515    106            157   0  3  select (N)                                       TEST W/E OCCURED
          40516    127     268      9   0  2  jump A >= Z                  >NO,RETURN TO PROGM

          40600    PROCR   406       406     PAPER TAPE OUTPUT-CHANGE REEL
          40602    126     339      2   0  0  enter subroutine             *03Ю SET(MR3)=(3)
          40603    106            194   0  3  select (N)                   RESET(64+R)
          40604    102            192   0  3  transfer (A) to N
          40605    106            188   0  3  select (N)                   *28Ю                TEST IF NON STAND
          40606    127     406     13   0  0  jump A = Z                   >NO
          40607    106             33   0  1  select (N)                                       TEST LINK
          40608    127     263     20   0  0  jump A = Z                   >NO ZZZ COMMENT
          40609    104     210      8   0  0  add (N) to (A)               AUGMENT LINK TO
          40610    101             15   0  1  prepare for digit collation  RETURN TO PROGRAMME
          40611    114             44   0  1  replace selected bits        BY LINK+1
          40612    124     406     30   1  0  unconditional jump           *28Ю                >PROGRAM
    40606>40613    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40614    106     209     12   0  0  select (N)                   SET SENTINEL TYPE 2
          40615    107              4   1  2  augment (N) by (A)
  Source image: P1010189.JPG
          40616    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40617    106     215     16   1  0  select (N)                   SET UP 'NEW'
          40618    102     258      4   1  0  transfer (A) to N
          40619    101     406     21   1  3  select literal address
          40620    124     282     10   1  0  unconditional jump           >OUTPUT COMMENT
          40621    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          40622    100     210      3   0  3  set radix                    SET DECIMAL
          40623    101              1   1  3  select literal address       AUGMENT REEL COUNTER
          40624    107            197   1  3  augment (N) by (A)
          40625    100     212      2   0  3  set radix                    SET BINARY
          40626    106            194   0  3  select (N)                   RESET(64+R)
          40627    102            192   0  3  transfer (A) to N
          40628    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40629    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
    40612>40630    125              0   1  2  interrogate indicators       CLEAR W/E INDICATOR
          40631    102            157   0  3  transfer (A) to N
          40632    124     268      9   1  0  unconditional jump           >RETURN TO PROG

          40700    PROCR   407       407     SET UP SENTINEL BLOCK
          40702    100              0   0  0  Halt                         *03Ю LINK
          40703    124     188      2   0  3  modify address of next       SET(MR2)=64+R
          40704    126             64   1  2  set modification register
          40705    106     211     12   1  0  select (N)                   SET UP SENTINEL WORD
          40706    102              0   1  2  transfer (A) to N
          40707    106             39   0  1  select (N)                   SET UP PROGM NUMBER
          40708    102              3   1  2  transfer (A) to N
          40709    106            195   0  3  select (N)                   SET UP FILE IDENTITY
          40710    118              2   0  0  shift logical
          40711    101             65   1  1  add literal address          SENTINEL TYPE 1
          40712    118              4   0  0  shift logical
          40713    104            196   0  3  add (N) to (A)               REEL NUMBER
          40714    102              4   1  2  transfer (A) to N
          40715    106     260     18   1  0  select (N)                   SET UP B/E
          40716    102              6   1  2  transfer (A) to N
          40717    126     407      2   0  1  leave subroutine             *03Ю                >LEAVE S/R

          40800    PROCR   408       408     CLOSE PAPER TAPE OUTPUT FILE
    26723>40802    126     339      2   0  0  enter subroutine             *03Ю >SET(MR3)=(3)
          40803    106            188   0  3  select (N)                   *28Ю TEST NON STAND
          40804    127     268      2   0  1  jump A != Z                  *28Ю
          40805    126     407      2   0  0  enter subroutine             >SET UP SENTINEL BLOCK
          40806    106     209     12   0  0  select (N)                   SET SENTINEL TYPE 3
          40807    104     209     12   0  0  add (N) to (A)
          40808    107              4   1  2  augment (N) by (A)
          40809    124     188      2   0  1  modify address of next       STORE ASL
          40810    106             64   0  0  select (N)
          40811    103            192   0  3  copy (A) to N
          40812    102            194   0  3  transfer (A) to N
          40813    126     403      2   0  0  enter subroutine             >OUTPUT BLOCK S/R
          40814    124     268      2   1  0  unconditional jump           >SET RTE TO MANUAL

          40900    PROCR   409       409     OPEN MAGNETIC TAPE INPUT FILE
          40901     NOTES          RADIX     B
    26734>
    26719>40902    126     410      2   0  0  enter subroutine             >OPEN REEL
          40903    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          40904    101            990   0  1  prepare for digit collation  SET UP (AB) FOR RETURN TO PROGRAMME
          40905    115             40   0  1  collate and add              Q1-4 CURRENT RUN NUMBER
          40906    118           4123   1  0  shift logical                Q6-9 SOURCE RUN NUMBER
          40907    115     191     32   0  3  collate and add              Q10 SOURCE FILE NO
          40908    118           4123   1  0  shift logical
          40909    106     190     98   0  3  select (N)
          40910    118              9   1  0  shift logical
    42405>40911    124              3   0  1  modify address of next       SET (B)=SPOOL NO
          40912    100            182   0  2  replace (B) by (N)
          40913    124     268      9   1  0  unconditional jump           >RESET MOD GROUP                   40713

  Source image: P1010190.JPG
          41000    PROCR   410       410     OPEN MAGNETIC TAPE INPUT REEL
          41001     NOTES          RADIX     B
          41002    100              0   0  0  Halt                         LINK
          41003    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          41004    106     410      2   0  0  select (N)                   STORE LINK
          41005    102            168   0  3  transfer (A) to N
    41608>41006    124     188      2   0  1  modify address of next       SET IND IF FILE HAS BEEN
          41007    106     190     34   0  0  select (N)                   OPENED BEFORE
          41008    102            156   0  3  transfer (A) to N
          41009    126     307      2   0  0  enter subroutine             >RUN FORWARD ETC
          41010    126     308      2   0  0  enter subroutine             >READ TEST BLOCK
          41011    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          41012    106            156   0  3  select (N)                   TEST FILE BEING OPENED FOR FIRST TIME
          41013    127     410     26   0  0  jump A = Z                   >YES
          41014    118           4126   1  0  shift logical
          41015    101             15   1  2  subtract literal address     (TESTX=£)
          41016    127     411     52   0  1  jump A != Z                  >NO
          41017    118              4   1  0  shift logical                SETX=Y
          41018    101             12   0  1  prepare for digit collation
          41019    124     188      2   0  1  modify address of next
          41020    114     190     34   0  0  replace selected bits
          41021    106     188      2   0  0  select (N)
          41022    105     233     26   0  0  subtract (N) from (A)
          41023    127     410     29   0  1  jump A != Z
          41024    126     341      2   0  0  enter subroutine
          41025    124     410     43   1  0  unconditional jump
    41013>41026    124            257   0  2  select literal and division                      SET REEL CTR=1:1
          41027    124     188      2   0  1  modify address of next
          41028    103     190     34   0  0  copy (A) to N
    41023>41029    102            158   0  3  transfer (A) to N            SET IND 3
          41030    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41031    101             28   0  1  prepare for digit collation  *48Ю
          41032    115             15   1  3  collate and add
          41033    102     258     12   0  0  transfer (A) to N                                TEST CORRECT
          41034    115             32   0  1  collate and add                                  SUITE NUMBER
          41035    105     258     12   0  0  subtract (N) from (A)
          41036    127     414      2   0  1  jump A != Z                  *48Ю
          41037    101             12   0  1  prepare for digit collation                      TEST CORRECT FILE
          41038    115              6   0  3  collate and add                                  LETTER
          41039    102     258     12   0  0  transfer (A) to N
          41040    115             33   0  1  collate and add
          41041    105     258     12   0  0  subtract (N) from (A)
          41042    127     414      2   0  1  jump A != Z                  >NO, HDG COMMENT
    41406>
    41025>41043    106             15   1  3  select (N)                   STORE PROGRAMME NO
          41044    103     260     20   0  0  copy (A) to N                *719 STORE FOR COMMENT
          41045    124     188      2   0  1  modify address of next
          41046    102     190     66   0  0  transfer (A) to N
          41047    106              6   0  3  select (N)                   STORE FILE IDENTITY
          41048    124     188      2   0  1  modify address of next
          41049    102     190     98   0  0  transfer (A) to N
    41162>41050    106              9   1  3  select (N)                   STORE RUN AND RE-RUN NUMBERS
          41051    124     188      2   0  1  modify address of next
          41052    102     191     32   0  0  transfer (A) to N
          41053    101              3   0  1  prepare for digit collation                      TEST CORRECT REEL
          41054    124     188      2   0  1  modify address of next                           NUMBER
          41055    115     190     34   0  0  collate and add
          41056    105             11   1  3  subtract (N) from (A)
          41057    127     415      2   0  1  jump A != Z                  >NO, OFFER OPTIONS
          41058    127     414     43   0  0  jump A = Z                   *££0*££2*01‼        >YES REJECT
          41059    126     212      2   1  3  set modification register    *4:34Ю‼             (MR3)=24:0
          41060    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          41061    127     426     62   0  0  jump A = Z                   *3£‼71‼             >NO
          41062    127     426     60   0  0  jump A = Z                   *3£‼                >NO
          41063    127     411     45   0  0  jump A = Z                   *01‼01‼
  Source image: P1010191.JPG
          41064    124     426     35   1  0  unconditional jump           *5+‼                >NO
          41065    124     324      6   1  0  unconditional jump           *17‼                >NEW COMMENT
          41066    127     442     21   0  0  jump A = Z                   *773                >OFFER *4

          41100    PROCR   411       411     OPEN MAGNETIC TAPE INPUT REEL(2)
          41101     NOTES          RADIX     B
    42823>41102    106             17   1  3  select (N)                                       TEST 90K TAPE
          41103    105     210      8   0  0  subtract (N) from (A)
          41104    127     411     12   0  1  jump A != Z                  *01‼                >NO
          41105    125              0   1  2  interrogate indicators       *72Ю
          41106    101              7   0  1  prepare for digit collation
          41107    115             30   0  1  collate and add              CHANNEL 2?
          41108    101             32   1  2  subtract literal address
          41109    127     411     12   0  1  jump A != Z                  *72Ю
          41110    106     211      6   0  0  select (N)                   *01Ю
          41111    124     411     13   1  0  unconditional jump
    41109>
    41104>41112    125              0   1  2  interrogate indicators
    41111>41113    124     188      2   0  1  modify address of next       SET LOW/HIGH DENSITY
          41114    102     191     64   0  0  transfer (A) to N            *01Ю
          41115    124              3   0  1  modify address of next                           TEST OPENED FOR
          41116    106            165   0  0  select (N)                                       INPUT
          41117    101     410     10   1  2  subtract literal address
          41118    127     428     29   0  1  jump A != Z                  >NO
          41119    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          41120    106            158   0  3  select (N)                                       TEST IND 3
          41121    127     411     44   0  0  jump A = Z                   *01‼01‼
          41122    125              0   1  2  interrogate indicators       CLEAR IND 3
          41123    102            158   0  3  transfer (A) to N
          41124    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41125    126     431      2   0  0  enter subroutine             >SET UP COMMENT
          41126    106             17   1  3  select (N)                   *01Ю                TEST 90K TAPE
          41127    127     411     30   0  0  jump A = Z                   >NO
          41128    106     492     14   1  0  select (N)                   SET UP HIP
          41129    124     411     31   1  0  unconditional jump           *01Ю
    41127>41130    106     214     52   1  0  select (N)                   SET UP 'LIP'
    41129>41131    102     258      4   1  0  transfer (A) to N
          41132    126     339      2   0  0  enter subroutine             >SET (MR3) = (3)
          41133    106            182   0  3  select (N)                   SET UP TAPE NO
          41134    102     258     10   0  0  transfer (A) to N
          41135    106     262     32   1  0  select (N)                   *71Ю                SET UP TABLE
          41136    102     262     22   1  0  transfer (A) to N                                FOR PROG IDENTITY
          41137    106     262     30   1  0  select (N)                   *3£Ю
          41138    102     262     28   1  0  transfer (A) to N            *71Ю*3£Ю
          41139    124     411     41   0  2  select literal and division  SELECT LINK
          41140    124     426     63   1  0  unconditional jump
          41141    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3
          41142    106             30   0  1  select (N)                   RESTORE ROUTE NO
          41143    102     188      2   0  0  transfer (A) to N
    41121>41144    126     342      2   0  0  enter subroutine             *019
    41063>41145    126     308      2   0  0  enter subroutine             >READ
          41146    126     343      2   0  0  enter subroutine             *019
    42832>41147    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          41148    106            168   0  3  select (N)
          41149    102     410      2   0  0  transfer (A) to N
          41150    102            168   0  3  transfer (A) to N            CLEAR(168)
          41151    126     410      2   0  1  leave subroutine
    41016>41152    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41153    126     413      2   0  0  enter subroutine             >TEST CORRECT SOURCE BLOCK
          41154    126     412      2   0  0  enter subroutine             >                   TEST Y>X
          41155    127     411     61   0  2  jump A >= Z                  >NO
          41156    106     190     34   0  3  select (N)                   SET X=Y
          41157    118              2   0  0  shift logical
          41158    114     190     34   0  3  replace selected bits
          41159    124              3   0  1  modify address of next       SET IND 3
          41160    102            158   0  0  transfer (A) to N
  Source image: P1010192.JPG
    41155>41161    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          41162    124     410     50   1  0  unconditional jump           >

          41200    PROCR   412       412     FORM X-Y FOR TEST ON REEL COUNTER
          41201     NOTES          RADIX     B
          41202    100              0   0  0  Halt                         LINK
          41203    126     340      2   0  0  enter subroutine             >SET (MR3) =R
          41204    101              3   0  1  prepare for digit collation  STORE Y
          41205    115     190     34   0  3  collate and add
          41206    118              2   1  0  shift logical
          41207    102     258     12   0  0  transfer (A) to N
          41208    115     190     34   0  3  collate and add              FORM X-Y
          41209    105     258     12   0  0  subtract (N) from (A)
          41210    126     412      2   0  1  leave subroutine             >LEAVE S/R

          41300    PROCR   413       413     TEST CORRECT SOURCE BLOCK
          41301     NOTES          RADIX     B
          41302    100              0   0  0  Halt                         LINK
          41303    106             15   1  3  select (N)                                       TEST CORRECT
          41304    103     260     20   0  0  copy (A) to N                *719 STORE FOR COMMENT
          41305    124     188      2   0  1  modify address of next                           PROGRAMME NUMBER
          41306    105     190     66   0  0  subtract (N) from (A)
          41307    127     417      2   0  1  jump A != Z                  >NO, HDG COMMENT
          41308    106              6   0  3  select (N)                                       TEST CORRECT FILE
          41309    124     188      2   0  1  modify address of next                           IDENTITY
          41310    105     190     98   0  0  subtract (N) from (A)
          41311    127     417      2   0  1  jump A != Z                  >NO, HDG COMMENT
          41312    101             30   0  1  prepare for digit collation                      TEST CORRECT RUN
          41313    115              9   1  3  collate and add                                  NUMBER
          41314    102     221      2   0  0  transfer (A) to N
          41315    124     188      2   0  1  modify address of next
          41316    115     191     32   0  0  collate and add
          41317    105     221      2   0  0  subtract (N) from (A)
          41318    127     417      2   0  1  jump A != Z                  >NO, HDG COMMENT
          41319    126     413      2   0  1  leave subroutine             >LEAVE S/R

          41400    PROCR   414       414     HDG COMMENT FOR FIRST OPEN INPUT FILE
          41401     NOTES          RADIX     B
    41042>
    41036>41402    125              0   1  2  interrogate indicators                           TEST IF SUITE IS
          41403    101             28   0  1  prepare for digit collation                      060
          41404    115             39   0  1  collate and add
          41405    105     108      7   0  0  subtract (N) from (A)
          41406    127     410     43   0  0  jump A = Z                   >YES
          41407    126     418      2   0  0  enter subroutine             >SET UP BLOCK, UNLOAD
          41408    101             28   0  1  prepare for digit collation  SET UP SUITE NO
          41409    115             32   0  1  collate and add
          41410    102     258      8   0  0  transfer (A) to N
          41411    101             12   0  1  prepare for digit collation
          41412    115             33   0  1  collate and add              FORM UP FILE LETTER-/REEL 1
          41413    118              2   0  0  shift logical
          41414    101           4209   1  1  add literal address          -/
          41415    118              4   0  0  shift logical
          41416    101             65   1  1  add literal address          1
          41417    102     258     12   1  0  transfer (A) to N
    41709>41418    102     258     10   0  0  transfer (A) to N            CLEAR RUN&RERUN NO
          41419    106     262     36   1  0  select (N)                   SET UP LTE
          41420    102     262     22   1  0  transfer (A) to N
          41421    124     262      2   0  2  select literal and division
          41422    124              3   0  1  modify address of next       EDIT INTO SP CHAP
          41423    128            130   1  2  edit fixed field formats
          41424    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41425    106             15   1  3  select (N)                   SET UP PROG NO
          41426    102     258      8   0  0  transfer (A) to N
          41427    106              6   1  3  select (N)                   SET UP FILE 1D/REEL NO
          41428    118              2   0  0  shift logical
  Source image: P1010193.JPG
          41429    101            113   1  1  add literal address          /
          41430    118              4   0  0  shift logical
          41431    104             10   1  3  add (N) to (A)               REEL NO
          41432    102     258     12   1  0  transfer (A) to N
          41433    106              9   1  3  select (N)                   SET UP RUN & RERUN NO
          41434    102     258     10   0  0  transfer (A) to N
          41435    106     216     36   1  0  select (N)                   SET UP LAST TABLE ENTRY
          41436    102     262     22   1  0  transfer (A) to N
          41437    124     262     10   0  2  select literal and division  EDIT INTO SP CHAP
          41438    124              3   0  1  modify address of next
          41439    128            146   1  2  edit fixed field formats
          41440    106     261     10   1  0  select (N)                   RESTORE LAST TABLE ENTRY
          41441    102     262     22   1  0  transfer (A) to N
          41442    124     336      4   1  0  unconditional jump           >OUTPUT COMMENT
    41058>41443    126     418      2   0  0  enter subroutine             *012 >SET UP HDG
          41444    106     214     64   1  0  select (N)                   SET UP 45K
          41445    124     370      6   1  0  unconditional jump           >OUTPUT COMMENT

          41500    PROCR   415       415     REEL NUMBER FAILURE
          41501     NOTES          RADIX     B    COMMENT AND OFFER OPTIONS
    41057>41502    126     418      2   0  0  enter subroutine             >SET UP HDG
          41503    106     109      4   1  0  select (N)                   SET UP *,*,3,SP,SP
          41504    102     258      4   1  0  transfer (A) to N
          41505    126     346      2   0  0  enter subroutine             > EDIT TIME
          41506    126     311      2   0  0  enter subroutine             SET UP REEL NUMBER
          41507    104     258     12   1  0  add (N) to (A)
          41508    102     258      8   1  0  transfer (A) to N
          41509    126     341      2   0  0  enter subroutine             SET (MR3=64+R)
          41510    101             15   0  1  prepare for digit collation
          41511    115             10   0  3  collate and add
          41512    104     258     12   1  0  add (N) to (A)
          41513    102     258     10   1  0  transfer (A) to N
          41514    101             12   0  1  prepare for digit collation
          41515    124     188      2   0  1  modify address of next
          41516    114     190     34   0  0  replace selected bits        SET X=0 IN REEL COUNTER
          41517    124              3   0  1  modify address of next       SET UP TAPE NUMBER
          41518    106            182   0  0  select (N)
          41519    102     258     12   1  0  transfer (A) to N
          41520    124            519   0  2  select literal and division  *14+46+*14+*46+     000060051800007
          41521    102             41   0  1  transfer (A) to N
          41522    101     261     30   1  3  select literal address
          41523    124     335      2   1  0  unconditional jump           >OFFER OPTIONS

          41600    PROCR   416       416     OPTIONS 2 AND3
          41601     NOTES          RADIX     B    REEL NUMBER FAILURE
          41602    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          41603    106             11   1  3  select (N)                   PACK IN ACTUAL REEL NO.
          41604    101              3   0  1  prepare for digit collation
          41605    124     188      2   0  1  modify address of next
          41606    114     190     34   0  0  replace selected bits
          41607    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          41608    124     410      6   1  0  unconditional jump           >OPEN REEL

          41700    PROCR   417       417     HDG COMMENT FOR SUBSEQUENT OPEN REELS
          41701     NOTES          RADIX     B
    42817>
    41318>
    41311>
    41307>41702    126     418      2   0  0  enter subroutine             >SET UP HDG
          41703    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          41704    106     190     66   0  3  select (N)                   SET UP PROG NO
          41705    102     258      8   0  0  transfer (A) to N
          41706    126     311      2   0  0  enter subroutine             >SET UP FILE ID
          41707    107     258     12   1  0  augment (N) by (A)
          41708    106     191     32   0  3  select (N)                   SET UP RUN & RERUN NOS
          41709    124     414     18   1  0  unconditional jump           >

  Source image: P1010194.JPG
          41800    PROCR   418       418     SET UP HDG COMMENT
          41801     NOTES          RADIX     B
          41802    100              0   0  0  Halt                         LINK
          41803    126     357      2   0  0  enter subroutine             >COUNT 500 M SECS
          41804    106     258     26   1  0  select (N)                   SET UP 'HDG'
          41805    102     258      4   1  0  transfer (A) to N
          41806    124              3   0  1  modify address of next
          41807    106            165   0  0  select (N)
          41808    101              1   1  2  subtract literal address     RETURN LINK
          41809    126     362      2   0  0  enter subroutine             >UNLOAD, ETC.
          41810    126     418      2   0  1  leave subroutine             > LEAVE S/R

          41900    PROCR   419       419     SET UP HDG COMMENT (PAPER TAPE OR CARDS)
          41902    100              0   0  0  Halt                         LINK
          41903    106     258     26   1  0  select (N)                   SET UP HDG
          41904    102     258      4   1  0  transfer (A) to N
          41905    124     367      6   0  2  select literal and division  RETURN LINK
          41906    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          41907    126     419      2   0  1  leave subroutine             >LEAVE S/R

          42000    PROCR   420       420     MAGNETIC TAPE INPUT
          42001     NOTES          RADIX     B
    26709>42002    102     420     11   0  0  transfer (A) to N            *4£1*3:1
    42128>42003    126     314      2   0  0  enter subroutine             TEST A1=BLOCK COUNTER
          42004    127     421      6   0  1  jump A != Z                  >NO
          42005    126     339      2   0  0  enter subroutine             SET(MR3)=(3)
          42006    102            171   0  3  transfer (A) to N            CLEAR OPTION INDICATOR
          42007    102            186   0  3  transfer (A) to N            CLEAR INDICATOR
          42008    106            185   0  3  select (N)                   TEST ATTEMPTS COUNTER ZERO
          42009    127     421      2   0  1  jump A != Z                  >NO
          42010    126     430      2   0  0  enter subroutine             *3:94£9 1AA S/R
          42011    100              0   0  0  Halt                         *4£1*3:1
          42012    126     342      2   0  0  enter subroutine             *019
          42013    126     329      2   0  0  enter subroutine             READ
          42014    126     343      2   0  0  enter subroutine             *019
          42015    106     210      8   0  0  select (N)                   STEP BLOCK COUNTER
          42016    126     333      2   0  0  enter subroutine             >
          42017    124     268      8   1  0  unconditional jump           >UPDATE ASSEMBLER TABLE,RETURN TO PROG

          42100    PROCR   421       421     MT INPUT:BLOCK NUMBER NOT AS EXPECTED
          42101     NOTES          RADIX     B
    42009>42102    126     321      2   0  0  enter subroutine             >'SER' COMMENT
          42103    101              7   1  3  select literal address
          42104    102             31   0  1  transfer (A) to N            SET ROUTE TYPE='MT IN'
          42105    124     264     30   1  0  unconditional jump           >ANOTHER READ ORDER
    42004>42106    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          42107    124     421     33   1  0  unconditional jump           >FBM FOUND
          42108    106              1   1  3  select (N)                                       TEST A1=SENTINEL
          42109    105     211      7   1  0  subtract (N) from (A)                            TYPE 2
          42110    105     210      8   0  0  subtract (N) from (A)
          42111    127     421     42   0  0  jump A = Z                   >YES
          42112    105     210      8   0  0  subtract (N) from (A)                            TEST A1=SENTINEL
          42113    127     421     18   0  1  jump A != Z                  >NO
          42114    106              5   1  3  select (N)                                       TEST A3=BL CNTR
          42115    124     188      2   0  1  modify address of next
          42116    105     190      2   0  0  subtract (N) from (A)
          42117    127     263     21   0  0  jump A = Z                   >YES ZZZ4 COMMENT
    42145>
    42113>42118    101     421     62   1  3  select literal address       SELECT RETURN LOCATION
          42119    124              3   0  1  modify address of next
          42120    102            162   0  0  transfer (A) to N
          42121    126     323      2   0  0  enter subroutine             >TEST OPTION LINK
          42122    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          42123    124     421     26   1  0  unconditional jump
          42124    126     317      2   0  0  enter subroutine             >REREAD
  Source image: P1010195.JPG
          42125    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
    42123>42126    124              3   0  1  modify address of next       TEST D/B OCCURRED
          42127    106            160   0  0  select (N)
          42128    127     420      3   0  0  jump A = Z                   >NO
          42129    101              7   1  3  select literal address
          42130    124              3   0  1  modify address of next
          42131    102            174   0  0  transfer (A) to N
          42132    124     285      2   1  0  unconditional jump           >D/B ROUTINE
    42107>42133    124              3   0  1  modify address of next                           TEST INDICATOR SET
          42134    106            186   0  0  select (N)
          42135    127     421     38   0  0  jump A = Z                   >NO
          42136    101              3   1  3  select literal address       STEP BACK 3 BLOCKS
          42137    126     306      2   0  0  enter subroutine             FORWARD 1
    42135>42138    126     329      2   0  0  enter subroutine             >READ
    29331>42139    101              7   1  3  select literal address
          42140    103     188      3   0  0  copy (A) to N
          42141    124     351      7   1  0  unconditional jump           >TEST ROUTE
    42111>42142    106              5   1  3  select (N)                                       TEST A3=BL CNTR
          42143    124     188      2   0  1  modify address of next
          42144    105     190      2   0  0  subtract (N) from (A)
          42145    127     421     18   0  1  jump A != Z                  >NO
          42146    106             39   0  1  select (N)                   *6+Ю PROG ID
          42147    105     210     17   0  0  subtract (N) from (A)        07008
          42148    127     421     56   0  1  jump A != Z                  >NOT 07008
          42149    106     258     28   1  0  select (N)                   FINIS               07008
          42150    102              4   1  3  transfer (A) to N
          42151    126     430      2   0  0  enter subroutine             *4£93:9 IAA FOR FCC
          42152    106     420     11   0  0  select (N)                   *4£2*3:2
          42153    102     421     54   0  0  transfer (A) to N            IAA
          42154    100              0   0  0  Halt                         *4£2*3:2
          42155    124     268      9   1  0  unconditional jump           *6+Ю
    42148>42156    106             33   0  1  select (N)                                       TEST LINK
          42157    127     268      9   0  3  jump A < Z                   >YES
          42158    126     334      2   0  0  enter subroutine             >STEP REEL COUNTER
          42159    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          42160    126     324      2   0  0  enter subroutine             >UNLOAD, 'NEW' COMMENT
          42161    126     410      2   0  0  enter subroutine             >OPEN NEW REEL
          42162    101              7   1  3  select literal address       SET UP RTE TYPE
          42163    103     188      3   0  0  copy (A) to N
          42164    102             31   0  1  transfer (A) to N
          42165    106     188      2   0  0  select (N)
          42166    118              6   0  3  shift binary
          42167    124     266      2   1  0  unconditional jump           *4£4*3:4 >MAIN PATH     4     4

          42200    PROCR   422       422     CLOSE MAGNETIC TAPE INPUT REEL
          42201     NOTES          RADIX     B
    43404>
    26748>42202    126     334      2   0  0  enter subroutine             >STEP REEL COUNTER
          42203    126     357      2   0  0  enter subroutine             >COUNT 500 M.SECS.
          42204    126     362      2   0  0  enter subroutine             >UNLOAD
          42205    124     422      8   0  2  select literal and division
          42206    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5 & SETTING FOR S101
          42207    124     324      5   1  0  unconditional jump           *17‼
          42208    126     359      2   0  0  enter subroutine             >SET SI=4, RESTORE LINK FOR SI=3
          42209    126     451      2   0  0  enter subroutine             *8£9                >TMS COMMENT
          42210    124     268      9   1  0  unconditional jump           >RESET MOD. GROUP

          42300    PROCR   423       423     CLOSE MAGNETIC TAPE INPUT FILE
          42301     NOTES          RADIX     B
    26729>42302    126     341      2   0  0  enter subroutine             *1ЮЮ >SET(MR3)=(64+R)
          42303    106              4   1  3  select (N)                                       TEST 'FINIS' BLOCK
          42304    105     258     28   1  0  subtract (N) from (A)
          42305    127     436     12   0  0  jump A = Z                   >YES
          42306    106              1   1  3  select (N)                                       TEST SENTINEL TYPE 3
          42307    105     211      7   1  0  subtract (N) from (A)
          42308    105     212      6   0  0  subtract (N) from (A)
  Source image: P1010196.JPG
          42309    127     436     12   0  0  jump A = Z                   >YES
          42310    101              4   1  3  select literal address       *5:Ю                OMIT EDG?
          42311    126     332      2   0  0  enter subroutine
          42312    127     436      8   0  1  jump A != Z                  *5:Ю                >YES
          42313    126     451      2   0  0  enter subroutine             *8£9
          42314    106     109      6   1  0  select (N)                   SET UP'EDG'
          42315    102     258      4   1  0  transfer (A) to N
          42316    126     357      2   0  0  enter subroutine             COUNT 500 MILLISECS
          42317    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          42318    124     188      2   0  1  modify address of next       SET UP BLOCK NO.
          42319    106     190      2   0  0  select (N)
          42320    102     258      8   0  0  transfer (A) to N
          42321    124     188      2   0  3  modify address of next       CLEAR BLOCK COUNTER
          42322    102     190      2   0  0  transfer (A) to N
          42323    124     188      2   0  1  modify address of next       CLEAR REEL COUNTER
          42324    102     190     34   0  0  transfer (A) to N
          42325    126     326      2   0  0  enter subroutine             *179 >ALTERNATE ROUTES
          42326    124     383     21   0  2  select literal and division
          42327    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5 SETTING OF S101
          42328    124     432     10   1  0  unconditional jump           >OUTPUT COMMENT

          42400    PROCR   424       424     OPEN MAGNETIC TAPE OUTPUT FILE
          42401     NOTES          RADIX     B
    26733>
    26720>42402    126     425      2   0  0  enter subroutine             >OPEN MAG TAPE O/P REEL
          42403    106             40   0  1  select (N)
          42404    118           4127   0  0  shift logical
          42405    124     409     11   1  0  unconditional jump           >

          42500    PROCR   425       425     OPEN MAGNETIC TAPE OUTPUT REEL
          42501     NOTES          RADIX     B
          42502    100              0   0  0  Halt                         LINK
          42503    126     339      2   0  0  enter subroutine             >SET(MR3)=(3)
          42504    106     425      2   0  0  select (N)
          42505    102            168   0  3  transfer (A) to N            LINK TO 168 OF SPECIAL CHAP
          42506    126     188      2   1  2  set modification register    SET(MR2)=R
          42507    106             64   0  2  select (N)                   STORE CURRENT ASL
          42508    102     221      2   0  0  transfer (A) to N            *5+9
          42509    102            163   0  3  transfer (A) to N            *5+1
          42510    101             14   1  3  select literal address       FORM NEW ASL
          42511    118              4   0  0  shift logical                C+106
          42512    104              3   0  0  add (N) to (A)
          42513    101            106   1  1  add literal address
          42514    105     221      2   0  0  subtract (N) from (A)        *5+Ю                TEST ALREADY SET UP
          42515    127     425     20   0  0  jump A = Z                                       >YES
          42516    104     221      2   0  0  add (N) to (A)               *5+Ю
          42517    102             64   0  2  transfer (A) to N
          42518    106     221      2   0  0  select (N)                   *5+Ю
          42519    102            163   0  3  transfer (A) to N            *5+Ю
    42515>42520    101             15   1  3  select literal address       SET TAG 15
          42521    123            126   1  3  copy into tag                IN LIMIT WORD
    29235>42522    101              0   1  3  select literal address       *43Ю*51Ю CLEAR DB'S COUNTER
          42523    124     188      2   0  3  modify address of next
          42524    102     192      2   0  0  transfer (A) to N            *43Ю*51Ю
    28576>42525    126     307      2   0  0  enter subroutine             >RUN FORWARD ETC
          42526    124              3   0  1  modify address of next       *5+Ю                TEST CHD
          42527    106            164   0  0  select (N)
          42528    127     425     33   0  0  jump A = Z                   >NO
          42529    124              3   0  1  modify address of next
          42530    106            189   0  0  select (N)                                       TEST OPEN FILE
          42531    127     428      2   0  0  jump A = Z                   >NO,REOPEN O/P REEL
          42532    124     425     38   1  0  unconditional jump           *5+Ю YES REWRITE BLOCK 7
    42528>42533    126     429      2   0  0  enter subroutine             >TEST TAPE RELEASED S/R
          42534    124     428      2   1  0  unconditional jump           >NO
          42535    101              1   1  3  select literal address
          42536    124              3   0  1  modify address of next
  Source image: P1010197.JPG
          42537    102            189   0  0  transfer (A) to N            SET OPEN FILE IND(FOR CMD
    42532>42538    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          42539    106     190     34   0  3  select (N)                                       TEST REEL COUNTER
          42540    103     221      2   0  0  copy (A) to N
          42541    127     425     56   0  0  jump A = Z                   >YES                =0
          42542    118           4126   1  0  shift logical                                    TEST X=
          42543    101             15   1  2  subtract literal address
          42544    127     425     50   0  1  jump A != Z                  >NO
          42545    118              4   1  0  shift logical                SET X=Y
          42546    101             12   0  1  prepare for digit collation
          42547    124     188      2   0  1  modify address of next
          42548    114     190     34   0  0  replace selected bits
          42549    124     425     58   1  0  unconditional jump           >YES
    42544>42550    126     412      2   0  0  enter subroutine             >FORM X-Y           TEST Y>X IN REEL
          42551    127     425     64   0  2  jump A >= Z                  >
          42552    106     190     34   0  3  select (N)                   SET X=Y
          42553    118              2   0  0  shift logical
          42554    114     190     34   0  3  replace selected bits
          42555    124     425     64   1  0  unconditional jump           >
    42541>42556    124            257   0  2  select literal and division  SET REEL COUNTER=1:1
          42557    102     190     34   0  3  transfer (A) to N
    42549>42558    106             32   0  1  select (N)                   STORE PROGRAMME NO
          42559    102     190     66   0  3  transfer (A) to N
          42560    106             33   0  1  select (N)                   STORE FILE IDENTITY
          42561    102     190     98   0  3  transfer (A) to N
          42562    106             40   0  1  select (N)                   STORE RUN & RE-RUN NUMBERS
          42563    102     191     32   0  3  transfer (A) to N
    42555>
    42551>42564    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)

          42600    PROCR   426       426     SET UP LOP COMMENT AND SOURCE BLOCK
          42601     NOTES          RADIX     B
          42602    124              7   0  2  select literal and division  SET UP XERONIC WORD
          42603    124     188      2   0  1  modify address of next
          42604    103     190      2   0  0  copy (A) to N
          42605    103              1   1  3  copy (A) to N
          42606    104     211     20   1  0  add (N) to (A)
          42607    102              4   1  3  transfer (A) to N
          42608    102              2   1  3  transfer (A) to N            CLEAR 2ND WORD
          42609    124     188      2   0  1  modify address of next       SET UP PROG NO
          42610    106     190     66   0  0  select (N)
          42611    103     260     20   0  0  copy (A) to N                *719 STORE FOR COMMENT
          42612    102             15   1  3  transfer (A) to N
          42613    106     100     17   0  0  select (N)                   SET UP DATE
          42614    102             13   1  3  transfer (A) to N
          42615    106     214     10   1  0  select (N)                   SET UP B/E WORD
          42616    102             18   1  3  transfer (A) to N
          42617    126     431      2   0  0  enter subroutine             >SET UP FILE, RUN & REEL
          42618    124     188      2   0  1  modify address of next       *01Ю                TEST 90K FILE
          42619    106     191     64   0  0  select (N)
          42620    127     426     22   0  0  jump A = Z                   >NO
          42621    106     210      8   0  0  select (N)                   *01Ю
    42620>42622    102             17   1  3  transfer (A) to N            SET UP 45/90K IND
          42623    126     330      2   0  0  enter subroutine             >WRITE
          42624    126     429      2   0  0  enter subroutine             >TEST TAPE RELEASED S/R
          42625    124     426     32   1  0  unconditional jump           *5+‼                >NO
    42631>42626    106     258     10   0  0  select (N)                   *8:Ю SPOOL NO
          42627    105     196      2   0  3  subtract (N) from (A)        TEST=NEXT IN LIST
          42628    127     426     30   0  1  jump A != Z                  *8:Ю NO>
          42629    102     196      2   0  3  transfer (A) to N            DELETE TAPE NO
    42628>42630    125              1   0  3  step on and test             *8:Ю
          42631    124     426     26   1  0  unconditional jump           *8:Ю
    42625>42632    124              3   0  1  modify address of next       *5+Ю                TEST IF CHANGE
          42633    106            164   0  0  select (N)                                       DECKS
          42634    127     426     74   0  1  jump A != Z                  *5+Ю                >YES
    41064>42635    101              8   1  3  select literal address       SET ROUTE TYPE 8
  Source image: P1010198.JPG
          42636    102     188      3   0  0  transfer (A) to N
          42637    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          42638    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          42639    126     431      2   0  0  enter subroutine             >SET UP COMMENT
          42640    106     214     50   1  0  select (N)                   SET UP 'LOP'
          42641    102     258      4   1  0  transfer (A) to N
          42642    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          42643    106            182   0  3  select (N)
          42644    102     258     10   0  0  transfer (A) to N
          42645    102            189   0  3  transfer (A) to N            CLEAR OPEN FILE IND(FOR CHD)
          42646    124     188      2   0  1  modify address of next       *01Ю                TEST 90K FILE
          42647    106     191     64   0  0  select (N)
          42648    127     426     53   0  0  jump A = Z                   *3£‼71‼*3£‼         >NO
          42649    101             24   0  1  prepare for digit collation  SET UP'H'IN'HOP'COMMENT
          42650    124             88   0  2  select literal and division
          42651    118              3   0  0  shift logical
          42652    114     258      5   0  0  replace selected bits        *01Ю
    42648>42653    100     210      3   0  3  set radix                    *3£Ю                SET DECIMAL
          42654    106     258     23   0  0  select (N)                   STEP CARD SERIAL NUMBER
          42655    104     210      8   0  0  add (N) to (A)
          42656    100     212      2   0  3  set radix                    SET BINARY
          42657    102     258     23   0  0  transfer (A) to N            *3£Ю
          42658    106     262     26   1  0  select (N)                   *3£Ю*3£2712
          42659    102     262     22   1  0  transfer (A) to N            *3£Ю*3£2712
    41062>42660    106     262     32   1  0  select (N)                   *71Ю
          42661    102     262     22   1  0  transfer (A) to N            *71Ю
    41061>42662    124     426     76   0  2  select literal and division
    41140>
    32122>42663    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5, SETTING OF S101
          42664    124     262      2   0  2  select literal and division  SELECT TABLE START LOCATION
          42665    124              3   0  1  modify address of next       SET UP COMMENT IN SPECIAL CHAPTER
          42666    128            130   1  2  edit fixed field formats
          42667    106     262     24   1  0  select (N)                   *3£Ю*712
          42668    102     262     22   1  0  transfer (A) to N            *3£Ю*712
          42669    106     262     30   1  0  select (N)                   *71Ю
          42670    102     262     22   1  0  transfer (A) to N
          42671    106     262     34   1  0  select (N)                   *3£Ю
          42672    102     262     28   1  0  transfer (A) to N            *71Ю*3£Ю
          42673    124     336      4   1  0  unconditional jump           > OUTPUT COMMENT
    42634>42674    126     352      2   0  0  enter subroutine             *5+Ю*09‼06‼         TEST RTE NOTING D/B
          42675    124     292     42   1  0  unconditional jump           *5+Ю
          42676    126     359      2   0  0  enter subroutine             >SET SI=4,RESTORE LINK FOR SI=3

          42700    PROCR   427       427     SET UP AND PUNCH LIBRARIAN CARD
          42701     NOTES          RADIX     B
          42702    124     428     24   1  0  unconditional jump           *251                >AVOID
          42703    124              2   0  1  modify address of next       *25Ю SET (MR3)=(64+R)
          42704    124             30   0  1  modify address of next
          42705    106             64   0  0  select (N)
          42706    102              6   1  0  transfer (A) to N
          42707    106             30   0  1  select (N)                   STORE RTE NUMBER
          42708    124              3   0  1  modify address of next
          42709    102            158   0  0  transfer (A) to N
          42710    124     427     43   0  2  select literal and division  SET UP RTE NO & TYPE FOR CARDS
          42711    101     267      2   1  2  subtract literal address
          42712    118              5   0  0  shift logical
          42713    104     260     10   0  0  add (N) to (A)
          42714    102             30   1  1  transfer (A) to N
          42715    106     258     23   0  0  select (N)                   SET UP CARD SERIAL NO
          42716    102              3   1  3  transfer (A) to N
          42717    124              3   0  1  modify address of next
          42718    106            182   0  0  select (N)                   SET UP SPOOL NO
          42719    102              5   1  3  transfer (A) to N
          42720    124              3   0  1  modify address of next       SET (MR2)=R
          42721    106            158   0  0  select (N)
          42722    102              4   1  0  transfer (A) to N
  Source image: P1010199.JPG
          42723    106     190     66   0  2  select (N)                   SET UP PROGRAMME NO
          42724    102              7   1  3  transfer (A) to N
          42725    106     191     32   0  2  select (N)                   SET UP RUN AND RERUN NOS
          42726    102              9   1  3  transfer (A) to N
          42727    106     190     98   0  2  select (N)                   SET UP FILE IDENTITY
          42728    118              6   0  0  shift logical
          42729    102             10   1  3  transfer (A) to N
          42730    101              3   0  1  prepare for digit collation  SET UP REEL NO
          42731    115     190     34   0  2  collate and add
          42732    118              1   0  0  shift logical
          42733    104            139   0  0  add (N) to (A)
          42734    102     258     13   1  0  transfer (A) to N
          42735    106     258     12   1  0  select (N)
          42736    107             10   1  3  augment (N) by (A)
          42737    106            138   0  0  select (N)                   SET UP DATE
          42738    102             13   1  3  transfer (A) to N
          42739    106     214     10   1  0  select (N)                   SET UP B/E
          42740    102             14   1  3  transfer (A) to N
          42741    102              0   1  3  transfer (A) to N
    42747>42742    124     264     30   1  0  unconditional jump           >SET SI=1,TEST ROUTE,ETC
          42743    124     260     10   0  1  modify address of next                           TEST ANOTHER LIB
          42744    106             64   0  0  select (N)                                       CARD BEING PROCESSED
          42745    118           4124   0  0  shift logical
          42746    101             13   1  2  subtract literal address
          42747    127     427     42   0  0  jump A = Z                   >YES
          42748    124              3   0  1  modify address of next
          42749    124            158   0  1  modify address of next       EDIT INTO MATRIX FORM
          42750    124             64   0  1  modify address of next
          42751    124              0   0  2  select literal and division
          42752    129     259      2   0  0  edit for hollerith output
          42753    106     258     20   1  0  select (N)                   AUGMENT BY B40
          42754    107     259      8   1  0  augment (N) by (A)
          42755    101              3   1  3  select literal address       SET UP RTE NO AND TYPE FOR CARDS
          42756    118              5   0  0  shift logical
          42757    104     260     10   0  0  add (N) to (A)
          42758    103     188      2   1  0  copy (A) to N
          42759    124     260     11   0  1  modify address of next       UPDATE ASSEMBLER TABLE
          42760    102     252      2   1  0  transfer (A) to N
          42761    124     260     10   0  1  modify address of next       INTERCHANGE AREA ADDRESSES
          42762    101           3520   0  3  interchange area addresses
          42763    124     188      2   0  1  modify address of next       OUTPUT
          42764    119              0   0  0  output
          42765    126     350      2   0  0  enter subroutine             >TEST RTE DEALING WITH D/B
          42766    124     260     10   0  1  modify address of next       INTERCHANGE AREA ADDRESSES
          42767    101           3520   0  3  interchange area addresses
          42768    106              4   0  0  select (N)                   SET UP ROUTE NO
          42769    103             30   0  1  copy (A) to N
          42770    102     188      2   0  0  transfer (A) to N
          42771    124     188      2   0  1  modify address of next       CLEAR 2ND WORD
          42772    124             64   0  1  modify address of next
          42773    102              2   1  0  transfer (A) to N
          42774    124     428     24   1  0  unconditional jump           *25Ю >

          42800    PROCR   428       428     RE-OPEN MAGNETIC TAPE OUTPUT REEL
          42801     NOTES          RADIX     B
    42534>
    42531>42802    124     188      2   0  1  modify address of next                           TEST REEL COUNTER
          42803    106     190     34   0  0  select (N)                                       =0
          42804    127     432      2   0  0  jump A = Z                   >YES RT1 COMMENT
          42805    118           4126   0  0  shift logical                                    TESTX=
          42806    101             15   1  2  subtract literal address
          42807    127     432      2   0  0  jump A = Z                   >YES RT1 COMMENT
          42808    126     412      2   0  0  enter subroutine             >FORM X-Y           TEST Y>X IN REEL
          42809    127     432      2   0  3  jump A < Z                   >YES RT1 COMMENT
          42810    126     308      2   0  0  enter subroutine             >READ, TEST BLOCK
          42811    126     341      2   0  0  enter subroutine             >SET MR3=64+R
  Source image: P1010200.JPG
          42812    126     413      2   0  0  enter subroutine             >TEST CORRECT SOURCE BLOCK
          42813    101              3   0  1  prepare for digit collation                      TEST CORRECT REEL
          42814    124     188      2   0  1  modify address of next                           NUMBER
          42815    115     190     34   0  0  collate and add
          42816    105             11   1  3  subtract (N) from (A)
          42817    127     417      2   0  1  jump A != Z                  >NO, HDG COMMNET
          42818    124              3   0  1  modify address of next       RESTORE ASL
          42819    106            163   0  0  select (N)
          42820    124              2   0  1  modify address of next
          42821    124             30   0  1  modify address of next
          42822    102             64   0  0  transfer (A) to N
          42823    124     411      2   1  0  unconditional jump           >
    42774>
    42702>
    39211>42824    124              3   0  1  modify address of next       RESTORE ASL
          42825    106            163   0  0  select (N)
          42826    124              2   0  1  modify address of next
          42827    124             30   0  1  modify address of next
          42828    102             64   0  0  transfer (A) to N
    41118>42829    124              3   0  1  modify address of next                           TEST LINK FROM
          42830    106            168   0  0  select (N)                                       W/E PROCEDURE
          42831    101     306      2   1  2  subtract literal address
          42832    127     411     47   0  1  jump A != Z                  >NO
          42833    106     212      5   0  0  select (N)                   SET UP ROUTE TYPE
          42834    102             31   0  1  transfer (A) to N
    30517>
    30512>
    30509>42835    124              2   0  1  modify address of next
          42836    124             12   1  0  unconditional jump           >SI+12

          42900    PROCR   429       429     TEST TAPE RELEASED S/R
          42902    100              0   0  0  Halt
          42903    126     212     10   1  3  set modification register    *4:34Ю‼             (MR3)=48:0
          42904    124              3   0  1  modify address of next       SPOOL EX SENTINEL
          42905    106            182   0  0  select (N)
          42906    103     258     10   0  0  copy (A) to N                STORE FOR COMMENT
          42907    118           4127   1  1  shift arithmetic             *8+Ю WORKING TAPE?
          42908    127     429     10   0  0  jump A = Z                   YES>
          42909    118              1   1  1  shift arithmetic             *8+Ю
    42914>
    42908>42910    105     196      2   0  3  subtract (N) from (A)        TEST=NEXT IN LIST
          42911    127     429     16   0  0  jump A = Z                   >YES
          42912    104     196      2   0  3  add (N) to (A)
          42913    125              1   0  3  step on and test
          42914    124     429     10   1  0  unconditional jump           >NEXT ONE
          42915    126     429      2   0  1  leave subroutine             >LEAVE S/R NOT IN RT1
    42911>42916    124     429      2   0  3  modify address of next
          42917    124              1   1  0  unconditional jump           >S/R+1 IN RT1

          43000    PROCR   430       430     INTERCHANGE AREA ADDRESSES FOR FCC
          43002    100              0   0  0  Halt                         *3:Ю4£Ю
          43003    106             32   0  1  select (N)                   PSEUDOROUTE
          43004    102     430     15   0  0  transfer (A) to N            WL
          43005    124     430     15   0  1  modify address of next
          43006    100             64   0  2  replace (B) by (N)           PSEUDOROUTE START LOCN>B
          43007    124     188      2   0  1  modify address of next
          43008    106             64   0  0  select (N)                   ROUTE START LOCN
          43009    124     430     15   0  1  modify address of next
          43010    102             64   0  0  transfer (A) to N            >PSEUDOROUTE START
          43011    118             10   1  1  shift arithmetic             (B)>A
          43012    124     188      2   0  1  modify address of next
          43013    102             64   0  0  transfer (A) to N            PSEUDO ROUTE>ROUTE
          43014    126     430      2   0  1  leave subroutine
          43015    100              0   0  0  Halt                         WL FOR THIS S/R

          43100    PROCR   431       431     SET UP'LIP'AND'LOP'COMMENTS
  Source image: P1010201.JPG
          43101     NOTES          RADIX     B
          43102    100              0   0  0  Halt                         LINK
          43103    126     345      2   0  0  enter subroutine             >EDIT TIME,SET UP RTE NUMBER
          43104    126     356      2   0  0  enter subroutine             SET UP PROGRAMME NUMBER
          43105    124     188      2   0  1  modify address of next       SET UP FILE IDENTITY
          43106    106     190     98   0  0  select (N)
          43107    103              6   1  3  copy (A) to N
          43108    118              2   0  0  shift logical
          43109    101            113   1  1  add literal address
          43110    118              4   0  0  shift logical
          43111    102     258     12   1  0  transfer (A) to N
          43112    101              3   0  1  prepare for digit collation
          43113    124     188      2   0  1  modify address of next       SET UP FILE IDENTITY/REEL NUMBER
          43114    115     190     34   0  0  collate and add
          43115    102     258      9   1  0  transfer (A) to N
          43116    106     258      8   0  0  select (N)
          43117    107     258     12   1  0  augment (N) by (A)
          43118    102             10   1  3  transfer (A) to N            SET UP REEL NUMBER
          43119    124     188      2   0  1  modify address of next       SET UP RUN AND RE-RUN NUMBERS
          43120    106     191     32   0  0  select (N)
          43121    103     258      8   0  0  copy (A) to N
          43122    102              9   1  3  transfer (A) to N
          43123    126     431      2   0  1  leave subroutine

          43200    PROCR   432       432     SET UP 'RTI' COMMENT
          43201     NOTES          RADIX     B
    42809>
    42807>
    42804>43202    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          43203    106     214     40   1  0  select (N)                   SET UP 'RTI'
          43204    102     258      4   1  0  transfer (A) to N
          43205    124     425     25   0  2  select literal and division
          43206    126     362      2   0  0  enter subroutine             >UNLOAD ETC
          43207    124              3   0  1  modify address of next       SET UP TAPE NUMBER
          43208    106            182   0  0  select (N)
          43209    102     258      8   0  0  transfer (A) to N
    42328>
    32412>
    31222>43210    102     258     10   1  0  transfer (A) to N            CLEAR COL 4
    36530>
    28544>43211    124     261     12   0  2  select literal and division  SELECT TABLE START LOCATION
          43212    124     336      2   1  0  unconditional jump           >OUTPUT COMMENT

          43300    PROCR   433       433     MAGNETIC TAPE OUTPUT
          43301     NOTES          RADIX
    26710>43302    102     433      4   0  0  transfer (A) to N            *4£1*3:1
          43303    126     430      2   0  0  enter subroutine             *3:94£9 1AA SS/R
          43304    100              0   0  0  Halt                         *4£1*3:1
          43305    126     188      2   1  2  set modification register    SET(MR2)=R
          43306    126     341      2   0  0  enter subroutine             SET(MR3)=(64+R)
          43307    102              2   1  3  transfer (A) to N            SET 2ND WORD OF BLOCK=0
          43308    106     190      2   0  2  select (N)                   SELECT BLOCK WITHIN REEL CTR
          43309    100     210      3   0  3  set radix                    SET(C) DECIMAL      STEP COUNTER BY 1
          43310    104     210      8   0  0  add (N) to (A)               ADD 1
          43311    103              1   1  3  copy (A) to N                INSERT BLOCK NO.
          43312    102     190      2   0  2  transfer (A) to N                                STORE BLOCK WITHIN
          43313    101              1   1  3  select literal address       *8£Ю
          43314    107     193     26   0  2  augment (N) by (A)           *8£Ю
          43315    100     212      2   0  3  set radix                    SET BINARY
          43316    126     342      2   0  0  enter subroutine             *019
          43317    126     330      2   0  0  enter subroutine             WRITE
          43318    126     343      2   0  0  enter subroutine             *019
          43319    124     268      8   1  0  unconditional jump           >UPDATE USE OF ASSEMBLER TABLE

          43400    PROCR   434       434     CLOSE MAGNETIC TAPE OUTPUT REEL
          43401     NOTES          RADIX     B
  Source image: P1010202.JPG
    26747>43402    126     435      2   0  0  enter subroutine             >SET UP END OF REEL SENTINEL
          43403    126     310      2   0  0  enter subroutine             >WRITE END OF REEL INFORMATION
          43404    124     422      2   1  0  unconditional jump           >UNLOAD

          43500    PROCR   435       435     SET UP END OF REEL SENTINEL
          43501     NOTES          RADIX     B
          43502    100              0   0  0  Halt                         LINK
          43503    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          43504    106     211      8   1  0  select (N)                   SET R/M WORD IN 2ND. WORD
          43505    102              2   1  3  transfer (A) to N
          43506    106     214     10   1  0  select (N)                   SET B/E WORD IN 4TH. WORD
          43507    102              6   1  3  transfer (A) to N
          43508    106     211      6   1  0  select (N)
          43509    104     210      8   0  0  add (N) to (A)
          43510    126     435      2   0  1  leave subroutine             >LEAVE S/R

          43600    PROCR   436       436     CLOSE MAGNETIC TAPE OUTPUT FILE
          43601     NOTES          RADIX     B
    26730>43602    124     188      2   0  3  modify address of next       TEST BLOCK COUNTER
          43603    106     190      2   0  0  select (N)                   =5
          43604    101              6   1  2  subtract literal address
          43605    127     263     27   0  3  jump A < Z                   >YES ZZZ10 JUST REWOUND
          43606    126     309      2   0  0  enter subroutine             >WRITE END OF FILE
          43607    126     310      2   0  0  enter subroutine             >INFORMATION
    42312>43608    125              0   1  2  interrogate indicators
          43609    124     188      2   0  1  modify address of next
          43610    102     190      2   0  0  transfer (A) to N            CLEAR BLOCK CNTR
    26439>43611    125              0   1  2  interrogate indicators       *1Ю1
    42309>
    42305>43612    124     188      2   0  1  modify address of next       CLEAR REEL CNTR
          43613    102     190     34   0  0  transfer (A) to N
          43614    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          43615    126     451      2   0  0  enter subroutine             *8£9
          43616    126     362      2   0  0  enter subroutine             >UNLOAD
          43617    126     326      2   0  0  enter subroutine             *179 >ALTERNATE ROUTES
          43618    124     268      6   1  0  unconditional jump           >

          43700    PROCR   437       437     REWIND
          43701     NOTES          RADIX     B
    26735>43702    126     309      2   0  0  enter subroutine             >WRITE END OF
          43703    126     310      2   0  0  enter subroutine             >FILE INFORMATION
    26736>43704    126     357      2   0  0  enter subroutine             >COUNT 500 MILLISECS
          43705    126     451      2   0  0  enter subroutine             *8£9
          43706    126     340      2   0  0  enter subroutine             > SET (MR3)=R
          43707    101              3   0  1  prepare for digit collation
          43708    115     190     34   0  3  collate and add
          43709    105     210      8   0  0  subtract (N) from (A)        1
          43710    127     437     15   0  0  jump A = Z                   >REEL CTR=1,NO TAPE CHANGE
          43711    106     210      8   0  0  select (N)                   SET REEL CNTR=1
          43712    114     190     34   0  3  replace selected bits
          43713    126     324      2   0  0  enter subroutine             >UNLOAD, NEW TAPE
          43714    124     268      9   1  0  unconditional jump           >RESET MOD GP
    43710>43715    124     188      2   0  1  modify address of next       REWIND
          43716    119              0   1  1  rewind
          43717    106     210      6   0  0  select (N)                   SET REWIND IND TO
          43718    107     190     98   0  3  augment (N) by (A)           COUNT 500 M-SECS
          43719    101              5   1  3  select literal address       SET BLOCK
          43720    124     188      2   0  3  modify address of next       COUNTER=5
          43721    102     190      2   0  0  transfer (A) to N
          43722    102     188      3   0  0  transfer (A) to N            CLEAR ASSEMBLER TABLE,
          43723    124     268      8   1  0  unconditional jump           > RESET MOD GROUP

          43800    PROCR   438       438     RUN FORWARD AND BACK (1)
          43801     NOTES          RADIX     B
    26740>
    26739>43802    125              0   1  2  interrogate indicators
  Source image: P1020707.JPG
          43803    124     438     12   1  0  unconditional jump           >SET PP=0, QQ=0
    26737>43804    126     309      2   0  0  enter subroutine             >WRITE END OF FILE
          43805    126     310      2   0  0  enter subroutine             >INFORMATION
          43806    101              1   1  3  select literal address       STEP BACK 3 FORWARD 1
    43810>43807    101              2   1  1  add literal address
          43808    126     306      2   0  0  enter subroutine
          43809    126     315      2   0  0  enter subroutine             TEST A1 FOR FBM
          43810    124     438      7   1  0  unconditional jump           >YES STEP BACK 2 FORWARD 1
    44239>
    26738>43811    101             15   1  3  select literal address       SET PP=15, QQ=0
    43803>43812    124              3   0  1  modify address of next
          43813    102            180   1  0  transfer (A) to N
          43814    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          43815    124              2   0  1  modify address of next       CLEAR IDENTIFIER WORD
          43816    124             33   0  1  modify address of next
          43817    102              0   1  3  transfer (A) to N

          43900    PROCR   439       439     RUN FORWARD & BACK (2)
          43901     NOTES          RADIX     B
    44017>43902    126     315      2   0  0  enter subroutine             >TEST A1=FBM
          43903    124     440      2   1  0  unconditional jump           >YES
          43904    124              7   0  2  select literal and division  TEST HEADING BLOCK
          43905    105              1   1  3  subtract (N) from (A)
          43906    127     441     17   0  2  jump A >= Z                  >YES
          43907    106              1   1  3  select (N)                                       TEST SENTINEL TYPE 3
          43908    105     211      7   1  0  subtract (N) from (A)
          43909    105     210      8   0  0  subtract (N) from (A)
          43910    127     441      2   0  0  jump A = Z                   >YES
          43911    105     210      8   0  0  subtract (N) from (A)                            TEST SENTINEL TYPE 3
          43912    127     442     18   0  0  jump A = Z                   >YES
          43913    124              3   0  1  modify address of next                           TEST D/B OCCURRED
          43914    106            160   0  0  select (N)
          43915    127     440      2   0  1  jump A != Z                  >YES
          43916    124              2   0  1  modify address of next                           TEST IDENTIFIER WORD
          43917    124             33   0  1  modify address of next                           =0
          43918    106              1   1  3  select (N)
          43919    127     440      2   0  0  jump A = Z                   >YES
          43920    105             32   0  1  subtract (N) from (A)                            TEST REQUIRED BLOCK
          43921    127     442      2   0  1  jump A != Z                  >NO
          43922    106              1   1  3  select (N)                   SET BLOCK CNTR=A1
          43923    124     188      2   0  1  modify address of next
          43924    102     190      2   0  0  transfer (A) to N
          43925    124              3   0  1  modify address of next
          43926    102            181   0  0  transfer (A) to N
          43927    124     268      9   1  0  unconditional jump           >RESET MOD GP

          44000    PROCR   440       440     RUN FORWARD & BACK (3)
          44001     NOTES          RADIX     B
    44207>
    44215>
    44217>
    43919>
    43915>
    43903>44002    124              3   0  1  modify address of next                           TEST PP=0
          44003    106            180   0  0  select (N)
          44004    127     440     18   0  0  jump A = Z                   >YES
          44005    106     212      6   0  0  select (N)
          44006    126     306      2   0  0  enter subroutine             >STEP BACK 2, STEP FORWARD
          44007    126     357      2   0  0  enter subroutine             >COUNT 500 M.SECS
          44008    124     188      2   0  1  modify address of next       RUN BACK
          44009    119              0   0  2  run back
          44010    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44011    126     342      2   0  0  enter subroutine             *019 SET (64+R) FOR HIGH DENSITY
          44012    106     210      8   0  0  select (N)
    44029>44013    126     306      2   0  0  enter subroutine             > STEP BACK, STEP FORWARD
          44014    126     343      2   0  0  enter subroutine             *019 CLEAR BIT 1 OF (64+R)
  Source image: P1020708.JPG
    44023>44015    126     329      2   0  0  enter subroutine             >READ
          44016    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44017    124     439      2   1  0  unconditional jump           >
    44116>
    44004>44018    126     341      2   0  0  enter subroutine             SET(MR3)=(64+R)
          44019    106              4   1  3  select (N)                   TEST FINIS
          44020    105     258     28   1  0  subtract (N) from (A)
          44021    127     442     18   0  0  jump A = Z                   >YES
          44022    126     315      2   0  0  enter subroutine             >TEST A1=FBK
          44023    124     440     15   1  0  unconditional jump           >YES
          44024    124     188      2   0  1  modify address of next       RUN FORWARD
          44025    119              0   0  3  run forward
          44026    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44027    126     342      2   0  0  enter subroutine             *019 SET (64+R) FOR HIGH DENSITY
          44028    106     212      6   0  0  select (N)
          44029    124     440     13   1  0  unconditional jump           >STEP BACK 2, FORWARD 1

          44100    PROCR   441       441     RUN FORWARD & BACK (4)
          44101     NOTES          RADIX     B
    43910>44102    106     210      8   0  0  select (N)                   AUGMENT REEL CNTR BY 1
          44103    100     210      3   0  3  set radix
    44125>44104    124     188      2   0  1  modify address of next
          44105    107     190     34   0  0  augment (N) by (A)
          44106    100     212      2   0  3  set radix
          44107    126     357      2   0  0  enter subroutine             COUNT 500 MILLISECS
          44108    126     324      2   0  0  enter subroutine             >UNLOAD, 'NEW' COMMENT
          44109    126     410      2   0  0  enter subroutine             >OPEN INPUT REEL
          44110    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          44111    124              2   0  1  modify address of next       CLEAR IDENTIFIER WORD
          44112    124             33   0  1  modify address of next
          44113    102              0   1  3  transfer (A) to N
          44114    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          44115    102            180   0  3  transfer (A) to N            SET PP=0
          44116    124     440     18   1  0  unconditional jump           >
    43906>44117    126     340      2   0  0  enter subroutine             >SET(MR3)=R
          44118    101              3   0  1  prepare for digit collation                      TEST REEL NO=1
          44119    115     190     34   0  3  collate and add
          44120    105     210      8   0  0  subtract (N) from (A)
          44121    127     442      8   0  0  jump A = Z                   >YES
          44122    125              0   1  2  interrogate indicators       AUG MENT REEL CNTR BY-1
          44123    100     210      3   0  3  set radix
          44124    105     210      8   0  0  subtract (N) from (A)
          44125    124     441      4   1  0  unconditional jump           >

          44200    PROCR   442       442     RUN FORWARD & BACK (5)
          44201     NOTES          RADIX     B
    43921>44202    102     258     12   0  0  transfer (A) to N            STORE DIFFERENCE, AN - REQ'D WORD
          44203    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          44204    106            180   0  3  select (N)                   TEST PP=0
          44205    127     442     16   0  0  jump A = Z                   >YES
          44206    106     258     12   0  0  select (N)                                       TEST DIFFERENCE < 0
          44207    127     440      2   0  2  jump A >= Z                  >NO
    44121>44208    126     339      2   0  0  enter subroutine             >SET (MR3=((3)
    44220>44209    102            180   0  3  transfer (A) to N            SET PP=0
          44210    106            181   0  3  select (N)                   STEP QQ BY 1
          44211    104     210      8   0  0  add (N) to (A)
          44212    103            181   0  3  copy (A) to N
          44213    101              6   1  2  subtract literal address     *774                00002
          44214    127     263     25   0  0  jump A = Z                   *773                >ZZZ08
          44215    124     440      2   1  0  unconditional jump           >
    44205>44216    106     258     12   0  0  select (N)                                       TEST DIFFERENCE > 0
          44217    127     440      2   0  3  jump A < Z                   >NO
    44021>
    43912>44218    126     339      2   0  0  enter subroutine             >SET (MR3)=(3)
          44219    124             15   0  2  select literal and division
          44220    124     442      9   1  0  unconditional jump           >SET PP=15
  Source image: P1020709.JPG
    41066>44221    106     214     92   1  0  select (N)                   *77Ю                OFFER
          44222    102     258      4   1  0  transfer (A) to N
          44223    126     361      2   0  0  enter subroutine             EDIT TIME SET UP PROG NO
          44224    106             33   0  1  select (N)                   IDENTIFIER WORD
          44225    102     258      8   0  0  transfer (A) to N
          44226    106             32   0  1  select (N)                   IDENTIFIER VALUE
          44227    102     258     10   0  0  transfer (A) to N
          44228    102     258     12   1  0  transfer (A) to N            CLEAR COL 5
          44229    101              3   1  3  select literal address
          44230    118             13   0  3  shift binary                 SET BITS 14 AND 15
          44231    102             41   0  1  transfer (A) to N
          44232    101     262      2   1  3  select literal address       TABLE START ADDR.
          44233    124     335      2   1  0  unconditional jump           >OFFER OPTIONS
          44234    126     362      2   0  0  enter subroutine             OPT 15              SET ROUTE TO MANUAL
          44235    101              1   1  3  select literal address       SET REEL COUNTER = 1
          44236    124     188      2   0  1  modify address of next
          44237    102     190     34   0  0  transfer (A) to N
          44238    126     410      2   0  0  enter subroutine             OPEN I/P REEL
          44239    124     438     11   1  0  unconditional jump           >RUN FORWARD

          44300    PROCR   443       443     STEP BACK 1
          44301     NOTES          RADIX     B
    26742>44302    124              3   0  1  modify address of next       SET N NON-ZERO
          44303    102            181   0  0  transfer (A) to N
    26746>44304    101              3   1  3  select literal address       SET M=L+3
          44305    124     444      7   1  0  unconditional jump           >                               43627
          44306    100           4102   0  3  set radix

          44400    PROCR   444       444     STEP BACK 2
          44401     NOTES          RADIX     B
    26745>44402    124              3   0  1  modify address of next       SET N NON-ZERO
          44403    102            181   0  0  transfer (A) to N
    26741>44404    126     309      2   0  0  enter subroutine             >WRITE END OF FILE
          44405    126     310      2   0  0  enter subroutine             >INFORMATION
          44406    101              5   1  3  select literal address
    44305>44407    100     210      3   0  3  set radix
          44408    104             32   0  1  add (N) to (A)               SET M=L+5
          44409    100     212      2   0  3  set radix
          44410    124              3   0  1  modify address of next
          44411    102            180   0  0  transfer (A) to N
          44412    106             32   0  1  select (N)
          44413    127     263     22   0  3  jump A < Z                   >YES
          44414    127     444     29   0  1  jump A != Z                  >NO                 TEST L=0
          44415    106             31   0  1  select (N)
          44416    101             44   1  2  subtract literal address                         TEST RTE. TYPE=44
          44417    127     263     22   0  1  jump A != Z                  >NO
          44418    124     188      2   0  1  modify address of next       TEST BLOCK COUNTER=8
          44419    106     190      2   0  0  select (N)
          44420    101              8   1  2  subtract literal address
          44421    127     446     25   0  0  jump A = Z                   *019 >YES
          44422    127     444     29   0  1  jump A != Z                  *012 >NO
          44423    101              3   1  3  select literal address
          44424    126     306      2   0  0  enter subroutine             STEP BACK 3, FORWARD 1
          44425    101              6   1  3  select literal address
          44426    124     188      2   0  1  modify address of next
          44427    102     190      2   0  0  transfer (A) to N            SET BLOCK COUNTER=6
          44428    124     446     31   1  0  unconditional jump           *012
    44422>
    44414>44429    125              0   1  2  interrogate indicators
          44430    100     210      3   0  3  set radix
          44431    105             32   0  1  subtract (N) from (A)        STEP BLOCK CNTR  BY-L-1
          44432    126     331      2   0  0  enter subroutine             >
    44551>44433    126     340      2   0  0  enter subroutine             >SET (MR3)=R
          44434    100     210      3   0  3  set radix                                        TEST BLOCK CTR >
          44435    106     190      2   0  3  select (N)                                       NO. OF HEADING BLOCK
          44436    101              6   1  2  subtract literal address
  Source image: P1020710.JPG
          44437    127     445      2   0  3  jump A < Z                   >NO
    44459>44438    100     212      2   0  3  set radix
          44439    101     213     12   1  3  select literal address       CONVERT M
          44440    124              3   0  1  modify address of next
          44441    112            180   0  0  convert
          44442    126     306      2   0  0  enter subroutine             >STEP BACK M, FORWARD 1 BLOCK
          44443    126     329      2   0  0  enter subroutine             >READ
          44444    126     351      2   0  0  enter subroutine             >TEST ROUTE NOTING D/B
    44467>
    44470>44445    126     315      2   0  0  enter subroutine             >TEST A1 FOR FBM
          44446    124     444     60   1  0  unconditional jump           >FBM FOUND
          44447    100     210      3   0  3  set radix                    DEC
          44448    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK COUNTER
          44449    100     212      2   0  3  set radix                    BIN
          44450    127     446     10   0  0  jump A = Z                   >YES
          44451    127     444     62   0  3  jump A < Z                   >YES                TEST A1<BLOCK CNTR
          44452    100     210      3   0  3  set radix                    DEC
          44453    101            256   1  2  subtract literal address                         TEST A1 WITHIN 100
          44454    127     444     60   0  2  jump A >= Z                  >NO                 OF BLOCK CNTR
          44455    101            258   1  1  add literal address          SET M=DISCREPANCY
    44461>44456    124              3   0  1  modify address of next
          44457    102            180   0  0  transfer (A) to N
          44458    100     212      2   0  3  set radix                    BIN
          44459    124     444     38   1  0  unconditional jump           >
    44454>
    44446>44460    101              3   1  3  select literal address       SET M=3
          44461    124     444     56   1  0  unconditional jump           >
    44451>44462    101     444     45   1  3  select literal address       SELECT RETURN LOCATION
          44463    124              3   0  1  modify address of next
          44464    102            162   0  0  transfer (A) to N
          44465    126     323      2   0  0  enter subroutine             >TEST OPTION LINK
          44466    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          44467    124     444     45   1  0  unconditional jump
          44468    126     317      2   0  0  enter subroutine             >REREAD
          44469    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          44470    124     444     45   1  0  unconditional jump

          44500    PROCR   445       445     STEP BACK 3
          44501     NOTES          RADIX     B
    44437>44502    124              3   0  1  modify address of next       STORE BLOCK COUNTER
          44503    102            169   0  0  transfer (A) to N
          44504    124              3   0  1  modify address of next       CLEAR M
          44505    102            180   0  0  transfer (A) to N
          44506    101              3   0  1  prepare for digit collation  STEP REEL CNTR
          44507    115     190     34   0  3  collate and add                                  TEST NO OF REQ'D
          44508    105     210      8   0  0  subtract (N) from (A)                            REEL=0
          44509    100     212      2   0  3  set radix
          44510    127     263     23   0  0  jump A = Z                   >YES, ZZZ COMMENT
          44511    114     190     34   0  3  replace selected bits        PACK IN NEW REEL NO
          44512    126     357      2   0  0  enter subroutine             COUNT 500 MILLISECS
          44513    126     324      2   0  0  enter subroutine             >UNLOAD CALL FOR NEW TAPE
          44514    126     410      2   0  0  enter subroutine             >OPEN INPUT REEL
    44532>44515    124     188      2   0  1  modify address of next       RUN FORWARD
          44516    119              0   0  3  run forward
          44517    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44518    126     342      2   0  0  enter subroutine             *019 SET(MR2)=(64+R)FOR 90K
          44519    126     329      2   0  0  enter subroutine             >READ
          44520    126     343      2   0  0  enter subroutine             *019 SET(MR2)=(64+R)FOR 90K
          44521    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44522    126     341      2   0  0  enter subroutine             >SET(MR3)=(64+R)
          44523    106              1   1  3  select (N)
          44524    105     211      7   1  0  subtract (N) from (A)                            TEST SENTINEL TYPE 2
          44525    105     210      8   0  0  subtract (N) from (A)
          44526    127     445     36   0  0  jump A = Z                   >YES
          44527    106              0   1  3  select (N)
          44528    105     258     30   0  0  subtract (N) from (A)                            TEST A1=(END)
  Source image: P1020711.JPG
          44529    127     445     32   0  0  jump A = Z                   >YES
          44530    106              2   1  3  select (N)
          44531    105     258     30   0  0  subtract (N) from (A)                            TEST A2=(END)
    44529>44532    127     445     15   0  1  jump A != Z
          44533    106     210      8   0  0  select (N)
          44534    124              3   0  1  modify address of next       SET M=1
          44535    102            180   0  0  transfer (A) to N
    44526>44536    124              3   0  1  modify address of next
          44537    106            160   0  0  select (N)                                       TEST D/B OCCURRED
          44538    127     263     24   0  1  jump A != Z                  >YES
          44539    100     210      3   0  3  set radix                    AUGMENT M BY 3
          44540    101              3   1  3  select literal address       -CTR IN SP. CHAP.
          44541    124              3   0  1  modify address of next
          44542    105            169   0  0  subtract (N) from (A)
          44543    124              3   0  1  modify address of next
          44544    107            180   0  0  augment (N) by (A)
          44545    124              3   0  1  modify address of next       SET BLOCK CTR.=
          44546    106            169   0  0  select (N)                   STORED VALUE+A3-1
          44547    104              5   1  3  add (N) to (A)
          44548    105     210      8   0  0  subtract (N) from (A)
          44549    124     188      2   0  1  modify address of next
          44550    102     190      2   0  0  transfer (A) to N
          44551    124     444     33   1  0  unconditional jump           >

          44600    PROCR   446       446     STEP FORWARD 1
          44601     NOTES          RADIX     B
    26744>44602    124              3   0  1  modify address of next       *1‼Ю
          44603    102            181   0  0  transfer (A) to N
    26743>44604    106             32   0  1  select (N)                                       TEST L<0
          44605    127     263     22   0  3  jump A < Z                   >YES, ZZZ COMMENT
          44606    127     263     22   0  0  jump A = Z                   >YES, ZZZ COMMENT   TEST L=0
          44607    126     331      2   0  0  enter subroutine             >AUGMENT BLOCK COUNTER BY-1
    44712>
    44743>
    44749>
    44752>44608    126     314      2   0  0  enter subroutine             >TEST A1=BLOCK COUNTER
          44609    127     447      2   0  1  jump A != Z                  *1‼Ю
    44450>44610    124              3   0  1  modify address of next       CLEAR OPTION INDICATOR
          44611    102            171   0  0  transfer (A) to N
          44612    126     321      2   0  0  enter subroutine             >'SER' COMMENT
          44613    124              3   0  1  modify address of next                           TEST N=0
          44614    106            181   0  0  select (N)
          44615    127     268      9   0  0  jump A = Z
          44616    125              0   1  2  interrogate indicators       NORMAL
          44617    124              3   0  1  modify address of next
          44618    102            181   0  0  transfer (A) to N            SET N=0
          44619    126     329      2   0  0  enter subroutine             >READ
          44620    106     210      8   0  0  select (N)                   STEP BLOCK COUNTER BY 1
          44621    126     333      2   0  0  enter subroutine
          44622    101              7   1  3  select literal address       SET ROUTE TYPE 7
          44623    102     188      3   0  0  transfer (A) to N
          44624    124     268      8   1  0  unconditional jump           >UPDATE ASSR TABLE
    44421>44625    126     357      2   0  0  enter subroutine             *01Ю
          44626    124     188      2   0  1  modify address of next
          44627    119              0   1  1  rewind                       REWIND
          44628    126     351      2   0  0  enter subroutine             TEST ROUTE NOTING D/B
          44629    126     357      2   0  0  enter subroutine             COUNT 500 MS
          44630    126     307      2   0  0  enter subroutine             *01Ю
    44428>44631    126     308      2   0  0  enter subroutine             READ, TEST BLOCK
          44632    124     268      9   1  0  unconditional jump           >EXIT

          44700    PROCR   447       447     STEP FORWARD 2
          44701     NOTES          RADIX     B
    44609>44702    106              1   1  3  select (N)                   *1‼Ю
          44703    105     211      7   1  0  subtract (N) from (A)
          44704    105     210      8   0  0  subtract (N) from (A)
  Source image: P1020712.JPG
          44705    127     447     13   0  0  jump A = Z                   >YES
          44706    105     210      8   0  0  subtract (N) from (A)                            TEST SENTINEL TYPE 3
          44707    127     263     23   0  0  jump A = Z                   >YES
          44708    126     314      2   0  0  enter subroutine             >TEST A1>BLOCK COUNTER
          44709    127     447     44   0  2  jump A >= Z                  >YES
          44710    126     329      2   0  0  enter subroutine             > READ
          44711    126     351      2   0  0  enter subroutine             >TEST RTE NOTING D/B
          44712    124     446      8   1  0  unconditional jump           >
    44705>44713    124              3   0  1  modify address of next                           TEST D/B OCCURRED
          44714    106            160   0  0  select (N)
          44715    127     447     21   0  0  jump A = Z                   >NO
          44716    126     329      2   0  0  enter subroutine             >READ
          44717    126     351      2   0  0  enter subroutine             >TEST  RTE NOTING D/B
          44718    124              3   0  1  modify address of next
          44719    106            160   0  0  select (N)                                       TEST D/B OCCURRED
          44720    127     263     24   0  1  jump A != Z                  >YES, ZZZ COMMENT
    44715>44721    106     210      8   0  0  select (N)
          44722    100     210      3   0  3  set radix                    STEP REEL CNTR BY 1
          44723    124     188      2   0  1  modify address of next
          44724    107     190     34   0  0  augment (N) by (A)
          44725    126     341      2   0  0  enter subroutine             >SET (MR3)=(64+R)
          44726    106     210      8   0  0  select (N)                   STORE BLOCK COUNTER.
          44727    105              5   1  3  subtract (N) from (A)        AUGMENTED BY-A3-1
          44728    124     188      2   0  1  modify address of next
          44729    104     190      2   0  0  add (N) to (A)
          44730    124              3   0  1  modify address of next
          44731    102            169   0  0  transfer (A) to N
          44732    100     212      2   0  3  set radix
          44733    126     357      2   0  0  enter subroutine             COUNT 500 MILLISECS
          44734    126     324      2   0  0  enter subroutine             >UNLOAD 'NEW' COMMENT
          44735    126     410      2   0  0  enter subroutine             >OPEN NEW INPUT REEL
          44736    100     210      3   0  3  set radix                    SET DECIMAL
          44737    124              3   0  1  modify address of next       AUGMENT STORED CTR.
          44738    106            169   0  0  select (N)                                       BY HEADING BLOCKS
          44739    101              7   1  1  add literal address          AND RESTORE
          44740    124     188      2   0  1  modify address of next
          44741    102     190      2   0  0  transfer (A) to N
          44742    100     212      2   0  3  set radix                    SET BINARY
          44743    124     446      8   1  0  unconditional jump           >
    44709>44744    101     446      8   1  3  select literal address       SELECT RETURN LOCATION
          44745    124              3   0  1  modify address of next
          44746    102            162   0  0  transfer (A) to N
          44747    126     323      2   0  0  enter subroutine             >TEST OPTION LINK
          44748    126     316      2   0  0  enter subroutine             >ALIGNMENT FAILURE
          44749    124     446      8   1  0  unconditional jump           >
          44750    126     317      2   0  0  enter subroutine             >REREAD
          44751    126     319      2   0  0  enter subroutine             >STEP ATTEMPTS COUNTER
          44752    124     446      8   1  0  unconditional jump           *1‼Ю
          44753    127     263     18   0  2  jump A >= Z                  *££0*££2*223*2333:‼*2433:‼ >NO
          44754    127     263     18   0  2  jump A >= Z                  *3:‼
          44755    127     263     18   0  3  jump A < Z                   *3:3                >ZZZ01
          44756    127     449     15   0  3  jump A < Z                   *3:‼243*3:‼233533

          44800    PROCR   448       448     SET REEL COUNTER
    26749>44802    106     188      2   0  0  select (N)
          44803    103              6   1  0  copy (A) to N                SET(MR3)=R          TEST IF M/T
          44804    101             16   1  2  subtract literal address     *3:Ю
          44805    127     448      8   0  3  jump A < Z                   *3:Ю
          44806    101            111   1  2  subtract literal address     *224*2343:+*2443:+  000080001600024
          44807    127     263     18   0  3  jump A < Z                   *223*2333:‼*2433:‼  >NO:ZZZ01
    44805>44808    106     190     34   0  3  select (N)                                       TEST REEL COUNTER=0
          44809    127     448     12   0  1  jump A != Z                  >NO
          44810    124           3840   0  2  select literal and division  SETX=
          44811    102     190     34   0  3  transfer (A) to N
    44809>44812    101              3   0  1  prepare for digit collation  SET Y=NEW REEL NO
          44813    106             32   0  1  select (N)
  Source image: P1020713.JPG
          44814    114     190     34   0  3  replace selected bits
          44815    124     269      6   1  0  unconditional jump           >

          44900    PROCR   449       449     SELECT REEL COUNTER
    26426>44902    106             30   0  1  select (N)                   *19Ю
          44903    103              6   1  0  copy (A) to N                SET(MR3)=R
          44904    101             24   1  2  subtract literal address     *02Ю*534 TEST P/T   0000000016
          44905    127     449     10   0  3  jump A < Z                   *3:3*3:‼243*3:‼233533 >NO
          44906    101              5   1  2  subtract literal address     *534*0Ю4            0001300013
          44907    127     449     10   0  2  jump A >= Z                  *3:‼
          44908    106     252     66   0  3  select (N)                   *53+0Ю+3:+*53+3:+   0005000058
          44909    124     269      6   1  0  unconditional jump           >
    44907>
    44905>44910    106              6   0  0  select (N)                   *02Ю
          44911    101            128   1  2  subtract literal address     *3:Ю242*3:Ю232532*3:Ю
          44912    127     263     18   0  3  jump A < Z                   *3:Ю                >ZZZ01
          44913    101             24   1  2  subtract literal address     *234*224            0001600008
          44914    127     263     18   0  2  jump A >= Z                  *3:Ю242*3:Ю232532 ZZZ01
    44756>44915    101              3   0  1  prepare for digit collation
          44916    125              0   1  2  interrogate indicators
          44917    115     190     34   0  3  collate and add              SELECT REEL COUNTER
          44918    124     269      6   1  0  unconditional jump           >

          45000    PROCR   450       450     RELEASE-ROUTE
    10019>45002    124     212      2   1  1  set modification group       *13Ю SET MOD GROUP 0
          45003    103     188      2   0  0  copy (A) to N                STORE(A)
          45004    102             30   0  1  transfer (A) to N
          45005    126     238      2   0  0  enter subroutine             *069099             >AUGMENT TIME SPENT
          45006    126     250      2   0  0  enter subroutine             *599 >STORE MOD GROUP 3
          45007    106     100     18   0  0  select (N)                   STORE LINK
          45008    102             44   1  1  transfer (A) to N
          45009    126     353      2   0  0  enter subroutine             >SELECT ROUTE NUMBER FROM LAST CHAPTER
          45010    127     450     14   0  0  jump A = Z                   >YES                TEST REQUIRED ENTRY
          45011    125              2   0  3  step on and test                                 TEST END OF TABLE
          45012    124     353      4   1  0  unconditional jump           >NO
          45013    124     327     10   1  0  unconditional jump           >XXXG COMMENT
    45010>45014    101             16   0  1  prepare for digit collation  STORE ROUTE TYPE
          45015    115             34   0  3  collate and add
          45016    118           4124   0  0  shift logical
          45017    102     188      3   0  0  transfer (A) to N
          45018    105             34   1  3  subtract (N) from (A)        SET ENTRY NEGATIVE
          45019    127     263     26   0  2  jump A >= Z                  >ZZZ09
          45020    102             34   1  3  transfer (A) to N
          45021    101             12   0  1  prepare for digit collation  *17Ю18Ю
          45022    115             34   0  3  collate and add                                  ROUTE ALLOCATED
          45023    105     210      5   0  0  subtract (N) from (A)
          45024    127     450     27   0  0  jump A = Z                   >NO
          45025    104     210      5   0  0  add (N) to (A)               STORE ALTERNATE ROUTE
          45026    118           4126   0  0  shift logical                AND SET
    45024>45027    102     533      7   0  0  transfer (A) to N            *17Ю18Ю
          45028    101            175   1  3  select literal address       *3:+                00023
          45029    126     328      2   0  0  enter subroutine             >CHANGE PARAMETER TABLES
    45044>45030    106     188      3   0  0  select (N)                   SET ROUTE AVAILABLE
          45031    124     188      2   0  1  modify address of next
          45032    102             64   0  0  transfer (A) to N
          45033    100     210     10   0  2  replace (B) by (N)           SET (MR2)=8*CH NO
          45034    115     188      2   0  0  collate and add
          45035    102              4   1  0  transfer (A) to N
          45036    101              1   0  1  prepare for digit collation  CLEAR D/B INDICATOR
          45037    124     188      2   0  1  modify address of next
          45038    118              0   1  0  shift logical
          45039    114     252      4   1  2  replace selected bits
          45040    106     533      7   0  0  select (N)                   *17Ю18Ю
          45041    127     450     45   0  0  jump A = Z                   >NO
          45042    102     188      2   0  0  transfer (A) to N            SET UP ALT ROUTE
          45043    102     533      7   0  0  transfer (A) to N            CLEAR INDICATOR
  Source image: P1020714.JPG
          45044    124     450     30   1  0  unconditional jump           *17Ю18Ю
    45041>45045    106     214     86   1  0  select (N)
          45046    102     258      4   1  0  transfer (A) to N
          45047    126     345      2   0  0  enter subroutine             >EDIT TIME ETC
          45048    126     356      2   0  0  enter subroutine             >SET UP PROG NO
          45049    124     450     52   0  2  select literal and division
          45050    126     363      2   0  0  enter subroutine             >SET LINK FOR SI=5
          45051    124     282     11   1  0  unconditional jump           >OUTPUT COMMENT
          45052    126     359      2   0  0  enter subroutine             >SET SI=4
          45053    124     268      9   1  0  unconditional jump           >PROG

          45100    PROCR   451       451     OUTPUT NO OF O/P DB'S PER REEL
          45102    100              0   0  0  Halt                         *8£Ю
          45103    106     451      2   0  0  select (N)                   STORE RETURN ADDR
          45104    124              3   0  1  modify address of next
          45105    102            197   0  0  transfer (A) to N
          45106    106             30   1  1  select (N)                   SET UP ROUTE NO
          45107    103     188      2   1  0  copy (A) to N
          45108    102              6   1  0  transfer (A) to N            (MR3)=R
          45109    106     193      2   0  3  select (N)                   DB COUNT
          45110    127     451     31   0  0  jump A = Z                   >ZERO NO COMMENT
          45111    102     258      8   0  0  transfer (A) to N
          45112    102     193      2   0  3  transfer (A) to N            CLEAR COUNT
          45113    106     215     48   1  0  select (N)                   'TMS'
          45114    102     258      4   1  0  transfer (A) to N
          45115    126     345      2   0  0  enter subroutine             EDIT TIME SET UP RTE NO
          45116    126     356      2   0  0  enter subroutine             SET UP PROG NO
          45117    106     193     26   0  3  select (N)                   O/P BLOCK COUNT
          45118    102     258     10   0  0  transfer (A) to N
          45119    102     193     26   0  3  transfer (A) to N            CLEAR
          45120    106     193     50   0  3  select (N)                   SPOOL NO
          45121    102     258     12   0  0  transfer (A) to N
          45122    101     261     54   1  3  select literal address       CONVERT TO ALPHA
          45123    128     258     12   1  2  edit fixed field formats
          45124    101     451     28   1  3  select literal address       RETURN ADD
          45125    126     363      2   0  0  enter subroutine
          45126    101     262      2   1  3  select literal address
          45127    124     336      2   1  0  unconditional jump           >OUTPUT COMMENT
          45128    126     359      2   0  0  enter subroutine
          45129    106             30   1  1  select (N)                   RESTORE 188/2
          45130    102     188      2   1  0  transfer (A) to N            FROM SI+30
    45110>45131    124              3   0  1  modify address of next
          45132    126            197   0  1  leave subroutine             >LEAVE S/R

          45200    PROCR   452       452     LOCKOUT AND OVERFLOW ROUTINE
          45201     NOTES          RADIX          HALT VERSION
    20822>45202    124     212      2   1  1  set modification group       *34Ю SET MOD GROUP 0
          45203    100     212      2   0  3  set radix                    BINARY
          45204    106             24   0  0  select (N)
          45205    102             38   0  1  transfer (A) to N            STORE(24)
          45206    124     214     34   0  2  select literal and division  AMEND EDIT TABLE
    45227>45207    102     217     28   0  0  transfer (A) to N
          45208    106              1   0  0  select (N)                   STORE(1)
          45209    102             40   0  1  transfer (A) to N
          45210    106             44   0  1  select (N)                   STORE LAST
          45211    102             41   0  1  transfer (A) to N            ENTRY POINT
          45212    106             39   0  1  select (N)                   STORE PROG NUMBER
          45213    103     221      8   0  0  copy (A) to N
          45214    105     107     11   0  0  subtract (N) from (A)                            TEST IF MASTER
          45215    127     452     28   0  0  jump A = Z                   >YES
          45216    126     177      2   0  0  enter subroutine             >REQUEST T/W
          45217    124     217     28   0  2  select literal and division  EDIT COMMENT
          45218    128     102      6   1  2  edit fixed field formats
          45219    124              4   0  2  select literal and division
          45220    126     234      2   0  0  enter subroutine             >S/R H
          45221    124     181      2   1  0  unconditional jump           >LOG ROUTINE
  Source image: P1020715.JPG
    55608>45222    124     212      2   1  1  set modification group       SET MOD GROUP 0
          45223    100     212      2   0  3  set radix                    BINARY
          45224    106             16   0  0  select (N)                   STORE(16)
          45225    102             38   0  1  transfer (A) to N            STORE(16)
          45226    124     214     38   0  2  select literal and division
          45227    124     452      7   1  0  unconditional jump           >
    45215>45228    106     217     28   0  0  select (N)
          45229    105     214     34   0  0  subtract (N) from (A)
          45230    127     452     32   0  0  jump A = Z                   >OFLOW
          45231    101              1   1  3  select literal address       L'OUT
    45230>45232    101             83   1  1  add literal address
          45233    124     208      3   1  0  unconditional jump           >XXX COMMENT

          45300    PROCR   453       453     CONVERT S/R (FOR LOCKOUT AND OVERFLOW)
          45302    100              0   0  0  Halt                         *342                LINK
          45303    118           4124   1  0  shift logical                STORE DIVISION NUMBER
          45304    118              3   1  3  shift binary
          45305    118              4   0  0  shift logical
          45306    102     221      2   0  0  transfer (A) to N
          45307    118             13   1  3  shift binary                 CONVERT LOCATION WITHIN DIVISION
          45308    102     222     12   0  0  transfer (A) to N
          45309    100     210      3   0  3  set radix                    SET DECIMAL
          45310    101     213      2   1  3  select literal address       SELECT TABLE START
          45311    112     222     12   0  0  convert
          45312    107     221      2   0  0  augment (N) by (A)
          45313    100     212      2   0  3  set radix                    SET BINARY
          45314    106     221      2   0  0  select (N)
          45315    126     453      2   0  1  leave subroutine             >LEAVE S/R

          45400    PROCR   454       454     LOCKOUT ROUTINE
          45401     NOTES          RADIX     B
    55806>45402    124              2   0  1  modify address of next       *342
          45403    100             30   1  0  copy registers               STORE(A)(B)(C)
          45404    100     212      2   0  3  set radix                    SET BINARY
          45405    126     474      2   0  0  enter subroutine             >SET TAG 15
          45406    124     212      2   1  1  set modification group       0                   SET MOD GROUP 0
          45407    106              2   0  0  select (N)                   (MR1)
          45408    105     107      8   0  0  subtract (N) from (A)        M/R LINK            TEST FOR M/R LOCKOUT
          45409    127     455     16   0  0  jump A = Z                   >
          45410    125              0   1  2  interrogate indicators
          45411    101             15   0  1  prepare for digit collation  COLLATE(16)
          45412    115             16   0  0  collate and add
          45413    105     210      8   0  0  subtract (N) from (A)        SUBTRACT ONE
          45414    126     453      2   0  0  enter subroutine             >CONVERT S/R
          45415    102             38   0  1  transfer (A) to N
          45416    101             15   0  1  prepare for digit collation  COLLATE LAST ENTRY POINT
          45417    115             44   0  1  collate and add
          45418    126     453      2   0  0  enter subroutine             >CONVERT S/R
          45419    102             43   0  1  transfer (A) to N
          45420    106             32   0  0  select (N)                   *3Ю4                    1
          45421    126     453      2   0  0  enter subroutine             >CONVERT S/R
          45422    102             45   0  1  transfer (A) to N

          45500    PROCR   455       455     LOCKOUT ROUTINE (2)
          45501     NOTES          RADIX     B
          45502    123     177      2   0  2  enter master routine         *342                REQUEST T/W
          45503    106             39   0  1  select (N)                   PROG IDENT NO
          45504    102     221      2   0  0  transfer (A) to N
          45505    106             38   0  1  select (N)                                       STORE DETAILS
          45506    102     222     12   0  0  transfer (A) to N
          45507    106             43   0  1  select (N)
          45508    102     222     13   0  0  transfer (A) to N
          45509    106             45   0  1  select (N)
          45510    102     222     14   0  0  transfer (A) to N
          45511    124     217      6   0  2  select literal and division                      EDIT COMMENT
    45718>45512    128     102      6   1  2  edit fixed field formats
  Source image: P1020716.JPG
          45513    124              4   0  2  select literal and division
          45514    126     234      2   0  0  enter subroutine             >S/R H
          45515    124     181      2   1  0  unconditional jump           >LOG ROUTINE
    45409>45516    101             84   1  3  select literal address       CODE LETTER (D)
          45517    124     208      3   1  0  unconditional jump           >

          45600    PROCR   456       456     OVERFLOW ROUTINE
          45601     NOTES          RADIX     B
    20907>45602    124              2   0  1  modify address of next       *342                STORE (A) (B),(C)
          45603    100             30   1  0  copy registers
          45604    100     212      2   0  3  set radix                    SET BINARY
          45605    106     108     13   0  0  select (N)                   26/0/1/0/24         ARRANGE TO IGNORE
          45606    102             25   0  0  transfer (A) to N                                FURTHER OVERFLOW
          45607    124     212      2   1  1  set modification group       0                   SET MOD GROUP 0
          45608    106              2   0  0  select (N)                                       TEST IF M/R OVERFLOW
          45609    105     107      8   0  0  subtract (N) from (A)
          45610    127     457     19   0  0  jump A = Z                   >
          45611    106             24   0  0  select (N)                   STORE CONTENTS OF COMPARTMENT 24
          45612    103             38   0  1  copy (A) to N
          45613    118              6   0  0  shift logical                GET RID OF TAG
          45614    118           4122   0  0  shift logical
          45615    105     210      8   0  0  subtract (N) from (A)        SUBTRACT 1
          45616    126     453      2   0  0  enter subroutine             >CONVERT S/R
          45617    102             45   0  1  transfer (A) to N
          45618    106     209      7   0  0  select (N)                   24/1/0/282/0
          45619    102             25   0  0  transfer (A) to N                                RESET (25)
          45620    126     177      2   0  0  enter subroutine             >REQUEST T/W
          45621    106             39   0  1  select (N)                   PROG.IDENT.NO
          45622    102     221      2   0  0  transfer (A) to N            W/L

          45700    PROCR   457       457     OVERFLOW ROUTINE 2
          45701     NOTES          RADIX     B
          45702    124              2   0  1  modify address of next       *342
          45703    100             30   1  1  replace registers                                SELECT DETAILS &
          45704    100     222     12   1  0  copy registers                                   STORE IN FIXED AREAS
          45705    100     212      2   0  3  set radix                                        RESET(C) BINARY
          45706    106             45   0  1  select (N)
          45707    102     221      3   0  0  transfer (A) to N
          45708    124              3   0  1  modify address of next       *60Ю                TEST IF TRIAL
          45709    106             11   0  0  select (N)
          45710    127     457     17   0  0  jump A = Z                   >NO
          45711    106             38   0  1  select (N)                                       TEST IF O'FLOW
          45712    118              6   0  0  shift logical
          45713    118           4122   0  0  shift logical
          45714    101     535      2   1  2  subtract literal address                         IN M/R AREA
          45715    124     233     45   0  1  modify address of next
          45716    127              3   0  2  jump A >= Z                  *60Ю >NO
    45710>45717    124     216      2   0  2  select literal and division
          45718    124     455     12   1  0  unconditional jump           >
    45610>45719    101             83   1  3  select literal address       CODE LETTER (C)
          45720    124     208      3   1  0  unconditional jump           >

          45800    PROCR   458       458     UNASSIGNED ACTION
    55809>45802    124              2   0  1  modify address of next       *3Ю2
          45803    100             30   1  0  copy registers               STORE A.B C IN SI
          45804    124     212      2   1  1  set modification group       SET MOD GROUP 0
          45805    100     212      2   0  3  set radix                    SET BINARY
          45806    106              2   0  0  select (N)                                       TEST IF M/R UA
          45807    105     107      8   0  0  subtract (N) from (A)
          45808    127     458     36   0  0  jump A = Z                   >YES:XXX D
          45809    125              0   1  2  interrogate indicators       SET UP CONVERT TABLE
          45810    101             15   0  1  prepare for digit collation  *342
          45811    115              0   0  0  collate and add              COLLATE OUT LINK
          45812    126     453      2   0  0  enter subroutine             >CONVERT S/R
          45813    102             45   0  1  transfer (A) to N            *342
          45814    102     213     10   0  0  transfer (A) to N            *34Ю
  Source image: P1020717.JPG
          45815    100     210      3   0  3  set radix
          45816    101     213      2   1  3  select literal address       CONVERT LINK
          45817    112              0   0  0  convert
          45818    102             45   0  1  transfer (A) to N
          45819    100     212      2   0  3  set radix
          45820    106     210     11   0  0  select (N)                   RESET CONVERT TABLE
          45821    102     213     10   0  0  transfer (A) to N            *34Ю
          45822    126     177      2   0  0  enter subroutine             >REQUEST TW
          45823    106             39   0  1  select (N)                   SET UP PROG NO
          45824    102     258      6   0  0  transfer (A) to N
          45825    106             45   0  1  select (N)                   SET UP LINK
          45826    102     258      8   0  0  transfer (A) to N
          45827    102     258     10   1  0  transfer (A) to N
          45828    102     258      7   0  0  transfer (A) to N
          45829    101     261     12   1  3  select literal address       EDIT COMMENT
          45830    128     102      6   1  2  edit fixed field formats
          45831    106     214     84   1  0  select (N)                   SET UP 'CPF'
          45832    102     102      6   1  0  transfer (A) to N
          45833    101              4   1  3  select literal address
          45834    126     234      2   0  0  enter subroutine             >EDIT TIME
          45835    124     181      2   1  0  unconditional jump           >LOG ROUTINE
    45808>45836    101             99   1  3  select literal address
          45837    124     208      3   1  0  unconditional jump           *3Ю2
          45838    102     226      2   0  0  transfer (A) to N            *££0*££2*0Ю‼*103*4:3103
          45839    127     460     44   0  0  jump A = Z                   *20‼
          45840    127     460     44   0  1  jump A != Z                  *20‼20‼

          45900    PROCR   459       459     SUB-ROUTINE G
          45901     NOTES          RADIX     B    TO READ CONTROL DATA
          45902    100              0   0  0  Halt                         LINK
    46041>45903    102     222     19   0  0  transfer (A) to N            FUNCTION NUMBER
          45904    106              4   0  0  select (N)                                       TEST CONTROL DATA
          45905    105     100     33   0  0  subtract (N) from (A)                            RTE ACCEPTABLE
          45906    127     460     49   0  3  jump A < Z                   >NO, REJECT
          45907    106     100     34   0  0  select (N)
          45908    105              4   0  0  subtract (N) from (A)
          45909    127     460     49   0  3  jump A < Z                   >NO, REJECT
          45910    106             64   0  2  select (N)
          45911    102     222     18   0  0  transfer (A) to N            W/L
          45912    106     209     10   0  0  select (N)                   14/0/0/17/60        SET UP (64+R)
          45913    103     460     51   0  0  copy (A) to N                *141
          45914    102             64   0  2  transfer (A) to N
          45915    126     107      8   1  1  set modification register                        SET (MR1) FOR M/R
          45916    106     209     11   0  0  select (N)                                       SET UP (64+R1)
          45917    103            127   0  0  copy (A) to N
          45918    102     227      2   0  0  transfer (A) to N            *103
          45919    101              5   1  3  select literal address       *14Ю SET OPT P1 SWITCH
          45920    102     296      6   0  0  transfer (A) to N            *14Ю
          45921    101             63   1  3  select literal address       *101
          45922    106              4   0  0  select (N)                   *109
          45923    118           4118   1  0  shift logical
          45924    106              4   0  0  select (N)                   *04Ю*02Ю            TEST PAPER TAPE OR
          45925    105     100     36   0  0  subtract (N) from (A)                            CARD ROUTE
          45926    127     460     45   0  2  jump A >= Z                  *04Ю*02Ю            >CARDS
          45927    101              5   1  3  select literal address       *02+                00006
    46046>45928    118              5   0  0  shift logical
          45929    104              4   0  0  add (N) to (A)               ROUTE NO
          45930    100     222     20   1  0  copy registers               STORE (AB)
          45931    126     100      2   0  0  enter subroutine             >I/P O/P CONTROL    READ
          45932    100     222     20   1  1  replace registers            *102
          45933    126     100      2   0  0  enter subroutine             *102
          45934    126     350      2   0  0  enter subroutine             *109
          45935    106     222     18   0  0  select (N)                   RESTORE (64+R)
          45936    124     222     20   0  1  modify address of next
          45937    102             64   0  0  transfer (A) to N
          45938    102     460     51   0  0  transfer (A) to N            *141
  Source image: P1020718.JPG
          45939    106     211      2   0  0  select (N)                   SET ASSEMBLER TABLE AT £5
          45940    124     100     35   0  1  modify address of next
          45941    102     252      3   0  0  transfer (A) to N
          45942    102     296      6   0  0  transfer (A) to N            *149 CLEAR OPTA SWITCH
          45943    106     222     19   0  0  select (N)                                       TEST FN=0 (I.E. PLS)
          45944    127     460     42   0  0  jump A = Z                   *20‼

          46000    PROCR   460       460     SUB ROUTINE G (CONT)
          46001     NOTES          RADIX     B
          46002    106     226      2   1  0  select (N)                                       TEST 1ST WORD OF
          46003    105     211     10   1  0  subtract (N) from (A)                            BLOCK IS CD WORD
          46004    127     498      2   0  1  jump A != Z                  >NO, REJECT
          46005    106     226      5   1  0  select (N)                                       TEST 2ND WORD ZERO
          46006    103     222     10   0  0  copy (A) to N                STORE IT
          46007    127     460     16   0  1  jump A != Z                  >NO
          46008    101              5   0  1  prepare for digit collation                      TEST RTI COMMAND
          46009    115     233      7   0  0  collate and add
          46010    101           1025   1  2  subtract literal address
          46011    127     460     16   0  0  jump A = Z                   >YES
          46012    101              2   1  2  subtract literal address     *4ЮЮ
          46013    127     460     16   0  0  jump A = Z                   *4ЮЮ
          46014    101              5   1  2  subtract literal address     *4Ю4                00003
          46015    127     460     47   0  3  jump A < Z                   >NO
    46013>
    46011>
    46007>46016    106     226      7   1  0  select (N)                   STORE SERIAL NO OR CH 8 RTE NO
          46017    102     222     11   0  0  transfer (A) to N
          46018    106     233      7   0  0  select (N)
          46019    102            185   0  0  transfer (A) to N
          46020    106     226      9   1  0  select (N)                   STORE RUN NUMBER
          46021    102     229      5   0  0  transfer (A) to N            *3Ю4*3‼+            0000300003
          46022    106     222     19   0  0  select (N)                                       TEST ALLOCATE
          46023    101              2   1  2  subtract literal address                         COMMAND
          46024    127     460     29   0  0  jump A = Z                   >YES
          46025    101              2   1  2  subtract literal address
          46026    127     460     29   0  0  jump A = Z                   >YES
          46027    101              5   1  2  subtract literal address
          46028    127     460     42   0  1  jump A != Z                  *20‼20‼
    46026>
    46024>46029    106     214     10   1  0  select (N)                   BE WORD INTO ANNEX
          46030    102     226     18   1  0  transfer (A) to N
          46031    106     258     17   0  0  select (N)                   CLEAR WORKING LOCAMONS
          46032    101             18   1  2  subtract literal address     SET UP REG A FOR CLEAR
          46033    118              5   0  0  shift logical
          46034    128     225      6   0  0  bulk copy short numeric
          46035    124     219      2   0  2  select literal and division  UNPACK ALLOC DATA FR.TRIAL>CH CH RT
          46036    128     226     10   0  3  unpack variable field data
          46037    106     233     23   0  0  select (N)                   *01Ю                TEST HIGH DENSITY
          46038    127     460     42   0  0  jump A = Z                   *20‼
          46039    106     222     20   0  0  select (N)                   ROUTE NUMBER
          46040    102              4   1  0  transfer (A) to N
          46041    124     459      3   1  0  unconditional jump           *01Ю
    46038>
    46028>
    45944>46042    124     222     20   0  1  modify address of next       *20Ю SET RTE TO MANUAL
          46043    119              0   1  3  step on/set manual           *20Ю
    45840>
    45839>46044    126     459      2   0  1  leave subroutine             > LEAVE S/R
    45926>46045    101              6   1  3  select literal address       *04Ю*02Ю
          46046    124     459     28   1  0  unconditional jump           *04Ю*02Ю
    46015>46047    124             81   0  2  select literal and division  CODE LETTER A
          46048    124     498      3   1  0  unconditional jump           >
    45909>
    45906>46049    124             83   0  2  select literal and division  CODE LETTER C
          46050    124     498      5   1  0  unconditional jump
          46051    100              0   0  0  Halt                         *141

  Source image: P1020719.JPG
          46100    PROCR   461       461     SUB-ROUTINE Q
          46101     NOTES          RADIX     B    TO FORM STORE CONTROL DATA RTE NO
          46102    100              0   0  0  Halt                         LINK
          46103    101              2   0  1  prepare for digit collation  FILL Q2B
          46104    125              0   1  2  interrogate indicators       DRAIN
          46105    115     222      2   0  0  collate and add              IND. SETTING
          46106    118           4127   1  0  shift logical                FORM & STORE ROUTE NO.
          46107    104     100     35   0  0  add (N) to (A)
          46108    102              4   0  0  transfer (A) to N
          46109    126     461      2   0  1  leave subroutine             >LEAVE S/R

          46200    PROCR   462       462     SUB-ROUTINE U*
          46201     NOTES          RADIX     B    REQUEST M/R FOR OVERLAY OR UNLOAD
          46202    100              0   0  0  Halt                         LINK
          46203    106     462      2   0  0  select (N)                   STORE LINK IN SPECIAL CHAPTER
          46204    124              3   0  1  modify address of next
          46205    102            169   0  0  transfer (A) to N
          46206    106     487      2   0  0  select (N)                                       TEST IF ALLOCATOR
          46207    127     462     13   0  0  jump A = Z                   >NO                 LINK SET
          46208    124     462      6   0  2  select literal and division  SET LINK FOR SI=5
    35712>46209    102             42   0  1  transfer (A) to N
          46210    126     360      2   0  0  enter subroutine             >SET SI=5
    29105>46211    124              2   0  1  modify address of next
          46212    124              9   1  0  unconditional jump           >TO S(I+1)
    46207>46213    106              9   0  1  select (N)                   SET SI=2
          46214    103              7   0  1  copy (A) to N
          46215    102     487      2   0  0  transfer (A) to N            SET ALLOCATOR LINK
          46216    125            127   1  0  set indicators               SET I1-7
          46217    124              3   0  1  modify address of next
          46218    126            169   0  1  leave subroutine             >LEAVE S/R
          46219    100     226      0   0  0  Halt                         *££0*££1*106

          46300    PROCR   463       463     STORE DUMP
          46301     NOTES          RADIX     B    INITIAL SET-UP ROUTINE (1)
    52305>
    19988>46302    106     220     11   0  0  select (N)                   *41Ю
          46303    103     487      2   0  0  copy (A) to N                SET ALLOCATOR LINK
          46304    102     296      6   0  0  transfer (A) to N            *149 SET OPT A SWITCH AT 4
          46305    106              1   0  0  select (N)                   *3ЮЮ
          46306    102     227      9   1  0  transfer (A) to N            *3ЮЮ*106
          46307    106     100      2   0  0  select (N)                   DIV 0 LOCS 160/161
          46308    102     227     43   1  0  transfer (A) to N            *106
          46309    126     474      2   0  0  enter subroutine             *3Ю1                SET TAG 15
          46310    106            153   0  0  select (N)                   *3Ю4                00191
          46311    102     227     47   1  0  transfer (A) to N            *106
          46312    106             32   0  0  select (N)                   *3Ю2
          46313    102     227     11   1  0  transfer (A) to N            *3Ю2*106
          46314    102     227      6   1  0  transfer (A) to N            *106 IN CASE WORD 4 CONTAINS FINIS

          46400    PROCR   464       464     STORE DUMP
          46401     NOTES          RADIX     B    INITIAL SET-UP ROUTINE (2)
          46402    106     107      8   1  0  select (N)                   *41Ю                SET MR1 FOR M/R
          46403    102              2   1  0  transfer (A) to N
          46404    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          46405    102     106     13   0  0  transfer (A) to N                                NON-INT
          46406    102     109     22   0  0  transfer (A) to N            CLEAR MODIFIER
          46407    106     225      2   1  0  select (N)                   *57Ю                RESET PARA TO
          46408    102     233     26   0  0  transfer (A) to N            *57Ю                ORIG CH CH RT
          46409    126     472      2   0  0  enter subroutine             >STORE RTE 7 DETAILS
          46410    106     209     11   0  0  select (N)                                       SET UP ASL'S
          46411    124     233     26   0  1  modify address of next                           IN
          46412    102             64   0  0  transfer (A) to N                                (71) OR(79)&(126)
          46413    106     209     10   0  0  select (N)
          46414    102            126   0  0  transfer (A) to N
          46415    106     392     11   0  0  select (N)                   *25Ю*05Ю            AVOID PUNCHING
  Source image: P1020720.JPG
          46416    102     427      3   0  0  transfer (A) to N            *25Ю*05Ю            LIBRARIAN CARD
          46417    106     233     46   0  0  select (N)                   *60Ю                TEST TRIAL IN
          46418    124     233     45   0  1  modify address of next
          46419    127              1   0  1  jump A != Z                  *60Ю                ENTER PTS
          46420    100     214     14   1  2  replace (B) by (N)                               OPEN O/P FILE
          46421    101             18   1  3  select literal address
          46422    126     237      2   0  0  enter subroutine             >I/P-O/P S/R
          46423    106     392     12   0  0  select (N)                   *25Ю*05Ю            RESTORE LIBRARIAN
          46424    102     427      3   0  0  transfer (A) to N            *25Ю*05Ю            CARD ROUTINE
          46425    106     214     10   1  0  select (N)                   B/E WD
          46426    103     227     54   1  0  copy (A) to N                *101
          46427    102     226     54   1  0  transfer (A) to N
          46428    126     470      2   0  0  enter subroutine             >WRITE S/R          LOCATIONS BLOCK

          46500    PROCR   465       465     STORE DUMP
          46501     NOTES          RADIX     B    DUMP ROUTINE (1)
          46502    106     230      2   0  0  select (N)                   *41Ю M/R PROG NO    SET UP FIRST
          46503    102     226      7   1  0  transfer (A) to N                                HEADING BLOCK
          46504    106     100     17   0  0  select (N)                   DATE
          46505    102     226      9   1  0  transfer (A) to N
          46506    106            156   0  0  select (N)                   TIME
          46507    102     226     11   1  0  transfer (A) to N
          46508    124     130      2   0  2  select literal and division  PRIORITY QUEUE END
          46509    102     226     19   1  0  transfer (A) to N
    46537>46510    126     470      2   0  0  enter subroutine             >WRITE S/R
          46511    124     109     22   0  1  modify address of next                           SET UP FURTHER
          46512    106     230      5   0  0  select (N)                                       HEADING BLOCKS
          46513    124            126   0  3  modify address of next
          46514    103              5   1  0  copy (A) to N
          46515    105     211      2   0  0  subtract (N) from (A)        TEST FOR £5
          46516    127     466      2   0  0  jump A = Z                   >YES
          46517    124     109     22   0  3  modify address of next
          46518    124     230      5   0  3  modify address of next
          46519    106             39   0  0  select (N)                   PROG NO
          46520    124            126   0  3  modify address of next
          46521    102              5   1  0  transfer (A) to N
          46522    124     109     22   0  3  modify address of next
          46523    124     230      5   0  3  modify address of next
          46524    124             37   0  3  modify address of next
          46525    106              4   0  0  select (N)                   NO OF CHAPS
          46526    124            126   0  3  modify address of next
          46527    102              7   1  0  transfer (A) to N
          46528    124     109     22   0  3  modify address of next       FORM BULK COPY TABLE
          46529    124     230      5   0  3  modify address of next
          46530    124             37   0  3  modify address of next
          46531    124             20   0  2  select literal and division
          46532    104     108     16   1  0  add (N) to (A)
          46533    124            126   0  3  modify address of next       COPY CHAPTER
          46534    128              9   0  1  bulk copy short numeric      INFORMATION
          46535    101              2   1  3  select literal address       STEP MODIFIER
          46536    107     109     22   0  0  augment (N) by (A)
          46537    124     465     10   1  0  unconditional jump           >NEXT PROG

          46600    PROCR   466       466     STORE DUMP
          46601     NOTES          RADIX     B    DUMP ROUTINE(2)
    46516>46602    101              4   1  3  select literal address       *41Ю                PREPARE FOR
          46603    102     109     22   0  0  transfer (A) to N                                MAIN LOOP
          46604    102     109     21   0  0  transfer (A) to N
          46605    102     109     23   0  0  transfer (A) to N            CLEAR COUNTER
          46606    101              8   0  1  prepare for digit collation
          46607    115            153   0  0  collate and add              SET UP STORE SIZE
          46608    127     466     10   0  1  jump A != Z                  *3Ю2
          46609    106     258      2   0  0  select (N)                   *3Ю2
    46608>46610    103     109     24   0  0  copy (A) to N
          46611    102     108     29   0  0  transfer (A) to N            SET UP ABSURD TAG
          46612    126     469      2   0  0  enter subroutine             >TEST END OF BLOCK S/R

  Source image: P1020721.JPG
          46700    PROCR   467       467     STORE DUMP
          46701     NOTES          RADIX     B    DUMP ROUTINE (3)-MAIN OUTPUT LOOP
    46719>
    46733>46702    124     109     23   0  3  modify address of next       *41Ю                TEST FOR NEW TAG
          46703    123              0   0  3  select tag
          46704    105     108     29   0  0  subtract (N) from (A)
          46705    127     467     11   0  0  jump A = Z                   >NO
          46706    107     108     29   0  0  augment (N) by (A)                               SET UP NEW TAG
          46707    106     108     29   1  0  select (N)
          46708    124     109     21   0  3  modify address of next
          46709    102              4   1  0  transfer (A) to N
          46710    126     469      2   0  0  enter subroutine             >TEST END OF BLOCK S/R
    46705>46711    101              2   1  3  select literal address       FORM BULK SET UP NEXT
          46712    118              5   0  0  shift logical                COPY TABLE          LONG WORD
          46713    104     109     23   0  0  add (N) to (A)                                   OF STORE
          46714    124     109     21   0  3  modify address of next
          46715    128              5   0  1  bulk copy short numeric
          46716    126     469      2   0  0  enter subroutine             >TEST END OF BLOCK S/R
          46717    123              2   0  0  step on and test             STEP COUNTER        TEST END OF STORE
          46718    100     109     23   0  0  Halt
          46719    124     467      2   1  0  unconditional jump           >NO
          46720    101              8   0  1  prepare for digit collation  *3‼Ю
          46721    115            153   0  0  collate and add              TEST SECOND STORE PRINTED
          46722    105     109     24   0  0  subtract (N) from (A)
          46723    127     467     35   0  1  jump A != Z                  >YES
          46724    106     467     34   0  0  select (N)
          46725    102     109     23   0  0  transfer (A) to N
          46726    101              4   0  1  prepare for digit collation  TEST SECOND STORE
          46727    115            153   0  0  collate and add
          46728    127     467     35   0  0  jump A = Z                   >NO
          46729    118              1   0  0  shift logical
          46730    104     467     34   0  0  add (N) to (A)               SET UP SECOND STORE SIZE
          46731    103     109     24   0  0  copy (A) to N
          46732    102     108     29   0  0  transfer (A) to N            SET UP ABSURD TAG
          46733    124     467      2   1  0  unconditional jump           >PRINT SECOND STORE
          46734    100              0   1  0  copy registers               *3‼Ю
    46728>
    46723>46735    126     470      2   0  0  enter subroutine             >WRITE S/R

          46800    PROCR   468       468     STORE DUMP
          46801     NOTES          RADIX     B    END ROUTINE (1)
          46802    101             28   1  3  select literal address       *41Ю                CLOSE O/P FILE
          46803    126     237      2   0  0  enter subroutine             >I/P-O/P S/R
          46804    126     473      2   0  0  enter subroutine             *459                RESTORE ROUTE 7
          46805    124     214     60   0  2  select literal and division
    29709>46806    123            168   0  2  enter master routine
          46807    125              0   1  2  interrogate indicators       DRAIN
          46808    102     296      6   0  0  transfer (A) to N            *149                CLEAR OPT A SWITCH
          46809    106     233     46   0  0  select (N)                   *60Ю                TEST IF PTS
          46810    124     233     45   0  1  modify address of next
          46811    127              2   0  1  jump A != Z                  *60Ю                >YES
          46812    106     108     10   0  0  select (N)                                       RESTORE ASL
          46813    124     233     26   0  1  modify address of next
          46814    102             64   0  0  transfer (A) to N
          46815    124     246     16   1  0  unconditional jump           >NO

          46900    PROCR   469       469     STORE DUMP
          46901     NOTES          RADIX     B    TEST END OF BLOCK SUBROUTINE
          46902    100              0   0  0  Halt                         *41Ю LINK
          46903    123              4   0  0  step on and test             STEP MODIFIER       TEST END OF BLOCK
          46904    100     109     21   0  0  Halt
          46905    126     469      2   0  1  leave subroutine             >NO
          46906    126     470      2   0  0  enter subroutine             >WRITE S/R
          46907    106            126   0  0  select (N)                   SET UP BLOCK SIZE MODIFIER
          46908    103     109     21   0  0  copy (A) to N
  Source image: P1020722.JPG
          46909    101             48   1  1  add literal address
          46910    102     109     22   0  0  transfer (A) to N
          46911    126     469      2   0  1  leave subroutine             >

          47000    PROCR   470       470     STORE DUMP
          47001     NOTES          RADIX     B    WRITE SUBROUTINE
          47002    100              0   0  0  Halt                         *41Ю LINK
          47003    100     108     14   0  2  replace (B) by (N)
          47004    101              8   1  3  select literal address
          47005    126     237      2   0  0  enter subroutine             >I/P-O/P S/R
          47006    126     350      2   0  0  enter subroutine             *109
          47007    106     108     14   1  0  select (N)
          47008    124            126   0  1  modify address of next       BULK CLEAR TA
          47009    128              0   0  0  bulk copy short numeric
          47010    126     474      2   0  0  enter subroutine             >SET TAG 15 S/R
          47011    126     470      2   0  1  leave subroutine             >

          47100    PROCR   471       471     STORE DUMP-W/L'S FOR ROUTE 07
          47102    100              0   0  0  Halt                         *45Ю
          47103    100              0   0  0  Halt
          47104    100              0   0  0  Halt
          47105    100              0   0  0  Halt
          47106    100              0   0  0  Halt
          47107    100              0   0  0  Halt                         *019

          47200    PROCR   472       472     STORE RT 7 DETAILS
          47202    100              0   0  0  Halt                         *41Ю60Ю*41Ю45Ю
          47203    100     220      3   0  2  replace (B) by (N)           PACKS BITS 1-3 IN
          47204    106     220      3   0  0  select (N)                   ROUTE INDICATOR
          47205    114     233     26   0  0  replace selected bits
          47206    124     233     26   0  1  modify address of next
          47207    106             64   0  0  select (N)                                       RTE 7 A.S.L.
          47208    102     108     10   0  0  transfer (A) to N
          47209    124     233     26   0  1  modify address of next       *45Ю
          47210    106     190      2   0  0  select (N)                   BLOCK COUNTERS
          47211    102     471      2   0  0  transfer (A) to N
          47212    124     233     26   0  1  modify address of next
          47213    106     190     34   0  0  select (N)                   REEL COUNTER
          47214    102     471      3   0  0  transfer (A) to N
          47215    124     233     26   0  1  modify address of next
          47216    106     190     66   0  0  select (N)                   PROGM NUMBER
          47217    102     471      4   0  0  transfer (A) to N
          47218    124     233     26   0  1  modify address of next
          47219    106     190     98   0  0  select (N)                   FILE IDENTITY
          47220    102     471      5   0  0  transfer (A) to N
          47221    124     233     26   0  1  modify address of next
          47222    106     191     32   0  0  select (N)                   RUN AND RERUN NUMBER
          47223    102     471      6   0  0  transfer (A) to N
          47224    124     233     26   0  1  modify address of next       *01Ю
          47225    106     191     64   0  0  select (N)                   90K INDICATORS
          47226    102     471      7   0  0  transfer (A) to N            *45Ю*01Ю
          47227    124     233     26   0  1  modify address of next       CLEAR REEL COUNTER
          47228    102     190     34   0  0  transfer (A) to N
          47229    126     472      2   0  1  leave subroutine             >LEAVE S/R

          47300    PROCR   473       473     RESTORE RT 7 DETAILS
          47302    100              0   0  0  Halt                         *41Ю60Ю*45Ю
          47303    106     471      2   0  0  select (N)
          47304    124     233     26   0  1  modify address of next
          47305    102     190      2   0  0  transfer (A) to N            BLOCK COUNTER
          47306    106     471      3   0  0  select (N)
          47307    124     233     26   0  1  modify address of next
          47308    102     190     34   0  0  transfer (A) to N            REEL COUNTER
          47309    106     471      4   0  0  select (N)
          47310    124     233     26   0  1  modify address of next
          47311    102     190     66   0  0  transfer (A) to N            PROGRAM NUMBER
  Source image: P1020723.JPG
          47312    106     471      5   0  0  select (N)
          47313    124     233     26   0  1  modify address of next
          47314    102     190     98   0  0  transfer (A) to N            FILE IDENTITY
          47315    106     471      6   0  0  select (N)
          47316    124     233     26   0  1  modify address of next
          47317    102     191     32   0  0  transfer (A) to N            RUN+RE-RUN NUMBER
          47318    106     471      7   0  0  select (N)                   *01Ю
          47319    124     233     26   0  1  modify address of next
          47320    102     191     64   0  0  transfer (A) to N            *01Ю 90K INDICATORS
          47321    126     473      2   0  1  leave subroutine

          47400    PROCR   474       474     SET TAG 15 SUBROUTINE
          47401     NOTES          RADIX     B
          47402    100              0   0  0  Halt                         LINK
          47403    106     209      5   0  0  select (N)                   SET (9) TO IGNORE INTERRUPTION
          47404    102              9   0  0  transfer (A) to N
          47405    126     474      6   0  3  leave master routine         SET TAG 15
          47406    115     474      7   0  0  collate and add
          47407    125           4096   1  1  clear indicators             SET NON-INT
          47408    106     209      6   0  0  select (N)
          47409    102              9   0  0  transfer (A) to N            RE-SET(9)
          47410    126     474      2   0  1  leave subroutine             >

          47500    PROCR   475       475     THE UNLOADER-PRELIMINARIES
    29579>47502    126     107      8   1  1  set modification register    SET MR1 FOR MASTER
          47503    106     221     12   0  0  select (N)                   PROG ID             LOCATE PROG IN PQ
          47504    126     479      2   0  0  enter subroutine             >S/R M*
          47505    124     476     21   1  0  unconditional jump           >NOT FOUND
          47506    102     230      2   0  2  transfer (A) to N                                REMOVE PROG FROM PQ
          47507    106     230      3   0  2  select (N)                   START OF SWITCH
          47508    102              6   0  0  transfer (A) to N
          47509    124     270      2   0  2  select literal and division  *464                00004
          47510    102             42   0  3  transfer (A) to N

          47600    PROCR   476       476     OUTPUT COMMENT
          47602    106             46   1  3  select (N)                   *09Ю06Ю             TOTAL TIME SPENT
          47603    118           4125   1  1  shift arithmetic
          47604    101              5   0  2  round off                    ROUND OFF
          47605    102     222      8   1  0  transfer (A) to N
          47606    101     213     12   1  3  select literal address       DECIMAL>BINARY
          47607    112     222      8   1  0  convert
          47608    102     222      8   1  0  transfer (A) to N
          47609    100     220      7   0  3  set radix                    SET RADIX FOR MINS&SECS
          47610    101     213     20   1  3  select literal address
          47611    112     222      8   1  0  convert                      CONVERT TIME SPENT
          47612    102     222      8   1  0  transfer (A) to N            *09Ю06Ю
          47613    100     220      7   0  3  set radix                    *2£Ю*091*061 RADIX FOR MINS AND SECS
          47614    101     213     20   1  3  select literal address
          47615    112     104     13   0  0  convert                      CONVERT INEFF TIME
          47616    102     221      4   0  0  transfer (A) to N            *2£Ю
          47617    100     212      2   0  3  set radix                    *2£9099069          BINARY
          47618    102     104     12   1  0  transfer (A) to N            *2£9
          47619    101     482      2   1  3  select literal address
          47620    124     478      2   1  0  unconditional jump           >OUTPUT COMMENT
    47505>47621    101             97   1  3  select literal address       J
          47622    124     208      3   1  0  unconditional jump           >XXX COMMENT

          47700    PROCR   477       477     COMMAND REJECTION COMMENT
    50218>
    50220>
    50431>
    51631>
    51641>
    51704>
    51706>
    51804>
    52004>
    52107>
    52204>
    53189>
  Source image: P1020724.JPG
    53193>47702    101             81   1  3  select literal address       *362 CODE LETTER(A)
          47703    124     477      5   1  0  unconditional jump
    51808>
    52009>
    52011>
    52105>
    52209>
    52531>
    52715>
    52803>47704    101             82   1  3  select literal address       CODE LETTER(B)
    48743>
    49111>
    52146>
    47703>47705    102     221      4   0  0  transfer (A) to N
          47706    124     481      2   0  2  select literal and division  START OF TABLE
          47707    124     478      2   1  0  unconditional jump           *362 >COMMENT
    48316>
    48317>
    48705>
    50005>
    50007>
    50105>
    50227>
    50229>
    50804>
    50905>
    51406>
    51523>
    51526>
    52532>
    53045>
    53192>
    29586>
    23810>
    19951>
    18722>47708    124     481     22   0  2  select literal and division  START OF TABLE

          47800    PROCR   478       478     OPERATOR INTERVENTION END ROUTINE
    48411>
    49120>
    51920>
    52015>
    52144>
    52711>
    47707>
    47620>47802    102     221     13   0  0  transfer (A) to N            W/L
          47803    126     177      2   0  0  enter subroutine             >REQUEST T/W
          47804    106     221     13   0  0  select (N)                   START OF TABLE
          47805    128     102      6   1  2  edit fixed field formats                         SET UP COMMENT
    49814>
    50428>
    50633>
    50819>
    50929>
    51132>
    51246>
    51317>
    51422>
    51520>
    52221>
    52527>47806    126     234      2   0  0  enter subroutine             >S/R M
          47807    126     480      2   0  0  enter subroutine
  Source image: P1020725.JPG
          47808    124     181      2   1  0  unconditional jump           >LOG ROUTINE

          47900    PROCR   479       479     SUB-ROUTINE M*-TO SEARCH PRIORITY TABLE
          47902    100              0   0  0  Halt                         LINK
          47903    102     221      2   0  0  transfer (A) to N            STORE PROGRAMME NUMBER
          47904    102              4   1  0  transfer (A) to N            CLEAR (MR2)
    47912>47905    106     230      2   0  2  select (N)                                       TEST REQUIRED
          47906    105     221      2   0  0  subtract (N) from (A)                            PROGRAMME
          47907    127     479     13   0  0  jump A = Z                   >YES
          47908    106     230      2   0  2  select (N)                                       TEST END OF TABLE
          47909    105     211      2   0  0  subtract (N) from (A)
          47910    127     479     15   0  0  jump A = Z                   >YES
    52112>47911    125              2   0  2  step on and test             STEP(MR2)
          47912    124     479      5   1  0  unconditional jump           >
    47907>47913    124     479      2   0  1  modify address of next
          47914    124              1   1  0  unconditional jump           >LEAVE S/R+1
    47910>47915    126     479      2   0  1  leave subroutine             >LEAVE S/R

          48000    PROCR   480       480     END ROUTINE AFTER ALLOCATION-OVERLAY-STORE DUMP
          48001     NOTES          RADIX          AND OPERATOR INTERVENTION
          48002    100              0   0  0  Halt
          48003    106     221     43   0  0  select (N)                   *16Ю
          48004    127     480     31   0  2  jump A >= Z                  > UPTIME NOT STOPPED
          48005    106     221     38   0  0  select (N)                   *85Ю
          48006    127     480     15   0  0  jump A = Z                   *85Ю
          48007    126     221     38   1  3  set modification register
          48008    106             45   0  3  select (N)                   REOPEN PROGRAM
          48009    127     480     13   0  3  jump A < Z                   *85Ю*0:Ю
          48010    125              0   1  2  interrogate indicators       PAUSED-RESET ORIGINAL
          48011    105             45   0  3  subtract (N) from (A)        SWITCH SETTING
          48012    124     480     14   1  0  unconditional jump           *85Ю*0:Ю
    48009>48013    102              7   0  3  transfer (A) to N
    48012>48014    102             45   0  3  transfer (A) to N
    48006>48015    106     221     40   0  0  select (N)                   *85Ю
          48016    127     480     25   0  0  jump A = Z
          48017    126     221     40   1  3  set modification register
          48018    106             45   0  3  select (N)                   REOPEN 2ND PROGRAM
          48019    127     480     23   0  3  jump A < Z                   *0:Ю
          48020    125              0   1  2  interrogate indicators       PAUSED-RESET ORIGINAL
          48021    105             45   0  3  subtract (N) from (A)        SWITCH SETTING
          48022    124     480     24   1  0  unconditional jump           *0:Ю
    48019>48023    102              7   0  3  transfer (A) to N
    48022>48024    102             45   0  3  transfer (A) to N            *85Ю
    48016>48025    102     221     43   0  0  transfer (A) to N            CLEAR INDICATORS
          48026    106     480      2   0  0  select (N)                   *85Ю TEST AFTER OVERLAY
          48027    101     246     23   1  2  subtract literal address
          48028    127     480     31   0  1  jump A != Z                  >NO
          48029    106             35   0  2  select (N)
          48030    102              7   0  2  transfer (A) to N            *16Ю*85Ю
    48028>
    48004>48031    125           1919   1  2  interrogate indicators       SET L2 IF INDICATORS STACKED
          48032    101            127   1  2  subtract literal address
          48033    102     103      3   0  0  transfer (A) to N
          48034    125           6143   1  1  clear indicators             RESET INDICATORS
          48035    106     108     11   0  0  select (N)
          48036    102     106     13   0  0  transfer (A) to N            SET M/R SWITCH INT
          48037    102     487      2   0  0  transfer (A) to N
          48038    102     296      6   0  0  transfer (A) to N            *149
          48039    106     103      2   0  0  select (N)                   TEST OPTION OUTSTANDING
          48040    127     480     42   0  0  jump A = Z
          48041    125            128   1  0  set indicators
    48040>48042    126     480      2   0  1  leave subroutine

          48100    TABLE   481       481     1    EDIT TABLES FOR COPYING TO C REJ
          48102   214    16     0     0  2  0   5   0   0   0  0  0  0     *362 C,SP,R,E,J
          48104   221     4     0     0  2  0   1   4   1   0  0  0  0     SP,CODE LETTER
  Source image: P1020726.JPG
          48106   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          48108   222    10     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          48110   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          48112   214    20     0     0  2  0   2   0   1   0  0  0  0     SP,G,P
          48114     0   185     0     0  0  0   1   2   0   0  0  0  0                                               T 1
          48116   214    20     0     0  2  0   2   3   1   0  0  0  0     SP,F,N
          48118     0   185     0     0  0  0   1   4   0   0  0  0  0                                               T 1
          48120   211    22     0     0  2  0   2   0   1   0  0  0  1     *362 SP,L/E,L/E                           SUM
          48122   214    16     0     0  2  0   5   0   0   0  0  0  0     C,SP,R,E,J
          48124   214    12     0     0  2  0   2   3   2   0  0  0  0     SP,SP,N/E,N/E
          48126   214    20     0     0  2  0   2   0   1   0  0  0  0     SP,G,P
          48128   222     2     0     0  0  0   1   2   0   0  0  0  0     GP NO
          48130   214    20     0     0  2  0   2   3   1   0  0  0  0     SP,F,N
          48132   222     2     0     0  0  0   1   4   0   0  0  0  0     FN NO
          48134   211    22     0     0  2  0   2   0   1   0  0  0  1     SP,L/E,L/E
          48136   211    22     0     0  2  0   2   0   1   0  0  0  1     *££0*££2*2£‼093*2£‼063                    SUM
          48138   211    22     0     0  2  0   2   0   3   0  0  0  1     *2£309‼06‼
          48140   222     8     0     0  1  0   3   5   5   3  0  0  0     *063
          48142   222     8     0     0  1  0   2   8   1   0  0  1  0     *063063

          48200    TABLE   482       482     1
          48202   214    54     0     0  2  0   5   0   0   0  0  0  0     A,B,D,O,N,(OR E,N,D)                      T12
          48204   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          48206   221    12     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          48208   214    32     0     0  2  0   1   0   5   0  0  0  0     *09Ю06Ю*063 SP T 4SP
          48210   214    38     0     0  2  0   4   4   1   0  0  0  0     *09Ю06Ю*063063 SP T 4SP                   T 7
          48212   214     6     0     0  2  0   5   0   7   0  0  0  0     *2£Ю 7SP,I,N,E,F,F
          48214   221     4     0     0  0  0   2   1   2   1  0  0  0     2SP,MINS
          48216   221     4     0     0  0  0   2   3   1   1  0  0  0     *2£Ю SP,SECS
          48218   211    22     0     0  2  0   2   0   2   0  0  0  1     *2£‼093*2£‼063*2£309‼06‼                  SUM

          48300    PROCR   483       483     MINI-STORE PRINT
    55810>48302    125           4096   1  1  clear indicators             *412                SET NON-INT
          48303    101           2048   1  3  select literal address       SET UP ASL FOR INPUT
          48304    102              0   0  0  transfer (A) to N
          48305    125              0   1  2  interrogate indicators       DUMMY
          48306    119              0   0  1  input one block/reset timer  INPUT
    48309>48307    126              0   1  0  test route N1                TEST RTE
          48308    100            291   0  0  Halt                         CLOSED              HALT 1/2/3
          48309    124     483      7   1  0  unconditional jump           ENGAGED
          48310    100           2049   0  0  Halt                         DOUBTFUL            HALT 8/0/1
          48311    100             32   0  0  Halt                         WARNING OF END      HALT 0/2/0
          48312    106     483     10   1  0  select (N)
          48313    128           2081   1  0  bulk copy alpha to short
          48314    124           2081   1  0  unconditional jump           *412
          48315    124     487     82   1  0  unconditional jump           *££0*££2*01‼
          48316    124     477      8   1  0  unconditional jump           *363363 >REJ
          48317    127     477      8   0  1  jump A != Z                  *363*36360‼         >REJ
          48318    127     487     87   0  1  jump A != Z                  *36‼60‼             >YES REJ
          48319    124     488      3   1  0  unconditional jump           *3Ю3*3‼‼
          48320    124     488      5   1  0  unconditional jump           *3Ю201‼*3‼Ю01‼
          48321    124     491     10   1  0  unconditional jump           *3Ю33Ю3*3‼‼3‼‼
          48322    124     491     11   1  0  unconditional jump           *3Ю3363*3‼‼363
          48323    124     199     15   1  0  unconditional jump           *41‼

          48400    PROCR   484       484     REJECT PROGRAMME
    29624>48402    101             86   1  3  select literal address       *149 LETTER'F'FROM OPT A SWITCH
          48403    102     221      4   0  0  transfer (A) to N            REJECT AFTER UNLOADING OTHER PROGS
          48404    124     212      2   1  1  set modification group                           SET MOD GROUP 0
          48405    106     218      6   1  0  select (N)                   RESTORE MOD GP 3 REGISTERS
          48406    128             26   0  0  bulk copy short numeric
          48407    123             26   1  0  copy into tag                *59Ю SET TAG 0
          48408    123             30   1  0  copy into tag                IN MOD GROUP 3
          48409    123             28   1  0  copy into tag                *59Ю
          48410    124     485      2   0  2  select literal and division  START OF EDIT TABLE
          48411    124     478      2   1  0  unconditional jump           >

  Source image: P1020727.JPG
          48500    TABLE   485       485     1
          48502   214    88     0     0  2  0   5   0   0   0  0  0  0     R,R,J,E,C
          48504   214    38     0     0  2  0   1   4   0   0  0  0  0     T,
          48506   221     4     0     0  2  0   1   4   4   0  0  0  0     4 SP,CODE LETTER
          48508   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          48510   221     8     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          48512   211    22     0     0  2  0   2   0   1   0  0  0  1     SP.L/E,L/E
          48514   222     8     0     0  1  0   3   5   5   3  0  0  0     *3+Ю*09Ю
          48516   222     8     0     0  1  0   2   8   1   0  0  1  0     SECS
          48518   214    32     0     0  2  0   1   0   5   0  0  0  0     /////5 SP'S N
          48520   214    38     0     0  2  0   4   4   1   0  0  0  0     /////SP,T,3 SP'S

          48600    CONST   486       486     0    SO'ALLOCATOR'STARTS IN EVEN ADDRESS

          48700    PROCR   487       487     THE ALLOCATOR
          48701     NOTES          RADIX     B    PREPARATORY
          48702    100              0   0  0  Halt                         LINK
          48703    106     230      4   1  0  select (N)                   *40Ю                TEST IF PROGRAM
          48704    105     211      2   1  0  subtract (N) from (A)                            ALREADY
          48705    127     477      8   0  1  jump A != Z                  >YES                ALLOCATED
          48706    101           1026   1  3  select literal address       SET UP 4/0/2
          48707    102     233      7   0  0  transfer (A) to N            *40Ю
          48708    125              0   1  2  interrogate indicators       DUMMY ACTION FOR REFERENCES
          48709    106     225      7   1  0  select (N)                   *57Ю*60Ю TEST TRIALS ALLOC
          48710    127     487     14   0  0  jump A = Z                   >NO
          48711    106     225      2   0  0  select (N)                   FORM RTE NUMBER
          48712    101              7   1  1  add literal address
          48713    124     487     24   1  0  unconditional jump           *60Ю
    48710>48714    100     220      3   0  2  replace (B) by (N)           CONVERT FROM
          48715    115     225     13   1  0  collate and add              CH CH RT
          48716    101              7   1  2  subtract literal address     TEST ROUTE 7
          48717    127     487     42   0  0  jump A = Z                   >YES C REJ D
          48718    101              7   1  1  add literal address
          48719    104     225     13   1  0  add (N) to (A)
          48720    118              3   0  3  shift binary                 TO BINARY
          48721    118           4127   0  0  shift logical
          48722    127     487     68   0  0  jump A = Z                   NOT SPECIFIED
          48723    101             48   1  2  subtract literal address     *3:9
    48769>
    48713>48724    103     225     12   1  0  copy (A) to N
          48725    101            128   1  2  subtract literal address     *3:9
          48726    127     487     42   0  3  jump A < Z                   TEST IN RANGE       NO>C REJ D
          48727    101             24   1  2  subtract literal address     *224*234            0000800016
          48728    127     487     42   0  2  jump A >= Z                                      NO>C REJ D
          48729    101             24   1  1  add literal address          *3:1*224*234        000000000800016
          48730    101            152   1  1  add literal address          *3:9*224*234        000000013600144
          48731    126     249      2   0  0  enter subroutine             >SEARCH LIST FOR    AVAIL CH CH RT
          48732    124     487     44   1  0  unconditional jump           >AVAIL
          48733    124     225     12   0  1  modify address of next       >NOT IN LIST        SEARCH ASL'S FOR
          48734    106             64   0  0  select (N)                                       AVAIL CH CH RT
          48735    103     225     14   1  0  copy (A) to N                COPY RT TYPE TO WL
          48736    101           4087   1  2  subtract literal address     TEST ££7
          48737    127     487     51   0  0  jump A = Z                   >AVAIL
          48738    101              1   1  2  subtract literal address     ££8
          48739    127     487     51   0  0  jump A = Z                   >AVAIL
          48740    101              3   1  2  subtract literal address
          48741    127     487     51   0  0  jump A = Z                   >AVAIL
    48760>
    48728>
    48726>
    48717>48742    101             84   1  3  select literal address       *363363
          48743    124     477      5   1  0  unconditional jump           *361 CREJ D
    48767>
    48732>48744    106     225     12   1  0  select (N)                   CH CH RT
          48745    103     233     26   0  0  copy (A) to N                *57Ю
  Source image: P1020728.JPG
          48746    106     225      8   1  0  select (N)                   STORE(A)
          48747    102     232     22   1  0  transfer (A) to N
          48748    106     225     10   1  0  select (N)                   STORE(B)
          48749    102     232     24   1  0  transfer (A) to N
          48750    124     487     70   1  0  unconditional jump           *57Ю
    48741>
    48739>
    48737>48751    101             36   1  3  select literal address                           SET INDIRECT MR=36:0
          48752    102     225     17   0  0  transfer (A) to N
          48753    102     225     16   0  0  transfer (A) to N
    48759>48754    124     225     16   0  1  modify address of next                           SEARCH FOR FIRST
          48755    106     224      3   0  0  select (N)                                       AVAIL SPACE IN
          48756    127     487     61   0  0  jump A = Z                   >AVOID SPACE        LIST
          48757    123              6   0  0  step on and test             STEP MOD BY 6
          48758    100     225     16   0  0  Halt
          48759    124     487     54   1  0  unconditional jump           >LOOK FOR NEXT      SPACE
          48760    124     487     42   1  0  unconditional jump           >NO ROOM-C REV      D
    48756>48761    106     225     12   1  0  select (N)                   STORE CH CH RT
          48762    124     225     16   0  1  modify address of next       INTO LIST
          48763    102     224      2   0  0  transfer (A) to N
          48764    106     225     14   1  0  select (N)                   STORE RT.TYPE IN LIST
          48765    124     225     16   0  1  modify address of next
          48766    102     224      3   0  0  transfer (A) to N
          48767    124     487     44   1  0  unconditional jump
    48722>48768    106     225      2   0  0  select (N)                   PUT NORMAL ALLOC RT.
          48769    124     487     24   1  0  unconditional jump           *57Ю
    48750>48770    106     225      7   1  0  select (N)                                       TEST TRIALS ALLOC
          48771    127     487     82   0  0  jump A = Z                   *36‼60‼*36360‼      >NO
          48772    106     233     46   0  0  select (N)                   *60Ю TEST TRIAL ALREADY IN PROCESS
          48773    127     487     87   0  1  jump A != Z                  *363 >YES CREJC
          48774    126     472      2   0  0  enter subroutine             *459                STORE 07 DETAILS
          48775    106     210      8   0  0  select (N)                   SET TRIALS BIT IN
          48776    107     233      7   0  0  augment (N) by (A)           ALLOC COMMAND
          48777    101              1   1  3  select literal address       *44Ю                RESET PRINT
          48778    102     233     28   0  0  transfer (A) to N            *44Ю                INDICATOR
          48779    106     225      7   1  0  select (N)                   STORE TRIALS IND
          48780    102     222      7   0  0  transfer (A) to N
          48781    102     225      6   1  0  transfer (A) to N            *60Ю                CLEAR TRIALS IND
    48771>
    48315>48782    106     222     10   1  0  select (N)                   STORE PROG 1D AND SERIAL NO
          48783    103     221      8   1  0  copy (A) to N
          48784    126     479      2   0  0  enter subroutine             >S/R M
          48785    124     488      2   1  0  unconditional jump           *3Ю201‼*3‼Ю01‼*3Ю3*3‼‼
          48786    124     487     88   1  0  unconditional jump           *363363             >C REJ B
    48773>
    48318>48787    101              1   1  3  select literal address       *362 C
    48786>48788    101             82   1  1  add literal address          B
          48789    124     491     11   1  0  unconditional jump

          48800    PROCR   488       488     LOCATE A PIECE OF STORAGE FOR THE FIRST CHUNK OF P.L.S.
          48801     NOTES          RADIX     B
    48785>48802    102     106      8   0  0  transfer (A) to N            *3Ю1*3‼9
    48319>48803    106     218     10   1  0  select (N)                   *01Ю
          48804    128     497      2   1  1  bulk copy long numeric       *01Ю
    48320>48805    106     211      2   1  0  select (N)
          48806    101     231      2   1  0  table look up                                    TABLE
          48807    105     231      2   1  0  subtract (N) from (A)                            TEST START
    49109>48808    127     488     18   0  0  jump A = Z                   >YES
          48809    118             10   1  0  shift logical
          48810    101              2   1  2  subtract literal address
          48811    102              4   1  0  transfer (A) to N
          48812    106              1   0  2  select (N)
          48813    101            360   1  2  subtract literal address                         BIG ENOUGH?
          48814    127     488     17   0  3  jump A < Z                   >NO
          48815    104              0   0  2  add (N) to (A)
          48816    124     488     24   1  0  unconditional jump           >
  Source image: P1020729.JPG
    48814>48817    125              0   1  2  interrogate indicators       DRAIN
    48808>48818    126     479      2   0  0  enter subroutine             >S/R M*             SEARCH FOR A ZERO
          48819    124     491      2   1  0  unconditional jump           *3Ю3363*3‼‼363*3Ю33Ю3*3‼‼3‼‼
          48820    124              4   0  1  modify address of next       STORE               TABLE
          48821    124     230      3   0  1  modify address of next       START
          48822    124             37   0  1  modify address of next       OF
          48823    124            140   0  2  select literal and division  STRIP
    48816>48824    102     233      4   0  0  transfer (A) to N
          48825    124     233      4   0  1  modify address of next       FORM & STORE 13-BIT FORM OF
          48826    101              0   1  3  select literal address       START OF STRIP
          48827    102     233      3   0  0  transfer (A) to N

          48900    PROCR   489       489     LOCATE PROGRAMME
          48901     NOTES          RADIX     B
          48902    106     108     11   0  0  select (N)                                       SET M/R SWITCH INT.
          48903    102     106     13   0  0  transfer (A) to N
          48904    100     210      8   0  2  replace (B) by (N)           *572*60Ю
          48905    115     233      7   0  0  collate and add
          48906    127     489      8   0  0  jump A = Z                   >NO
          48907    106     220      3   0  0  select (N)                   *60Ю                SET BITS 1-3 OF RTE
    48906>48908    100     220      3   0  2  replace (B) by (N)
          48909    114     233     26   0  0  replace selected bits        *572
          48910    106     209     10   0  0  select (N)                   SET UP A.S.L'S.
          48911    124     233     26   0  1  modify address of next
          48912    102             64   0  0  transfer (A) to N
          48913    106     209     11   0  0  select (N)
          48914    102            124   0  0  transfer (A) to N
          48915    126     241      2   0  0  enter subroutine             >S/R A
          48916    124     489     17   1  0  unconditional jump           >FILE HAS BEEN OPENED
    48916>48917    126     242      2   0  0  enter subroutine             >S/R B
          48918    124     491     12   1  0  unconditional jump           *363363             >REJ
          48919    106            185   0  0  select (N)                   *40Ю TEST O/WRITE ALLOC
          48920    101           1033   1  2  subtract literal address
          48921    127     489     36   0  1  jump A != Z                  >
          48922    106     231      4   1  0  select (N)                   SET UP STORE
          48923    102     231      2   1  0  transfer (A) to N            TABLE
          48924    124     487      4   0  2  select literal and division
          48925    102     231      4   0  0  transfer (A) to N
          48926    101     487      4   1  2  subtract literal address
          48927    107     231      5   0  0  augment (N) by (A)
          48928    106     489     35   0  0  select (N)                   PLANT 24/1/0 ORDER
          48929    102     199     43   0  0  transfer (A) to N            TO REJECT COMMANDS
          48930    105     210      8   0  0  subtract (N) from (A)        *14Ю MAKE ABANDON
          48931    107     279     30   0  0  augment (N) by (A)           OPTION UNAVAILABLE
          48932    107     313     10   0  0  augment (N) by (A)
          48933    107     415     20   0  0  augment (N) by (A)           *14Ю
          48934    124     489     36   1  0  unconditional jump
          48935    124     199     86   1  0  unconditional jump           *40Ю*41‼
    48934>
    48921>48936    106     108     12   0  0  select (N)                                       SET M/R SWITCH
          48937    102     106     13   0  0  transfer (A) to N                                NON-INT

          49000    PROCR   490       490     LOAD FIRST CHAPTER
          49001     NOTES          RADIX     B
          49002    101              1   1  3  select literal address       *14Ю SET OPTA SWITCH AT 1
          49003    102     296      6   0  0  transfer (A) to N            *14Ю
          49004    106     218      2   1  0  select (N)                   STORE MOD GP 3 REGISTERS
          49005    128     222     12   0  0  bulk copy short numeric
          49006    106     233      4   0  0  select (N)                   SET UP (28) FOR STACKING
          49007    103             28   1  0  copy (A) to N
          49008    103              4   0  0  copy (A) to N                SET UP MR2 FOR STACKING TAG 14
          49009    101            360   1  1  add literal address
          49010    102              5   0  0  transfer (A) to N
          49011    126     474      2   0  0  enter subroutine             >SET TAG 15
          49012    124             14   0  2  select literal and division  STACK TAG 14
    49015>49013    123              0   1  2  copy into tag
  Source image: P1020730.JPG
          49014    125              2   0  2  step on and test
          49015    124     490     13   1  0  unconditional jump
          49016    101             14   1  3  select literal address       *59Ю SET TAG 14 IN MR2 OF MG6 TO
          49017    123             26   1  0  copy into tag
          49018    123             30   1  0  copy into tag
          49019    123             28   1  0  copy into tag                *59Ю KID PLS INTO   ALLOCATING MG3
          49020    124     233      2   0  2  select literal and division  PARAMETER TABLE START
          49021    126     247      2   0  0  enter subroutine             >LOAD S/R
          49022    126     233      4   0  1  leave subroutine             >TO PROGRAMME LOADING SYSTEM

          49100    PROCR   491       491
          49101     NOTES          RADIX     B    PROCEDURE AFTER FAILURE TO ALLOCATE
    48819>49102    106     106      8   0  0  select (N)                   *3Ю2*3‼Ю            TEST SECOND STORE
          49103    127     491     10   0  1  jump A != Z                  *363 >YES,REJECT DEALT WITH
          49104    101              1   1  3  select literal address
          49105    102     106      8   0  0  transfer (A) to N
          49106    106     211      2   1  0  select (N)
          49107    101     232      2   1  0  table look up
          49108    105     232      2   1  0  subtract (N) from (A)
          49109    124     488      8   1  0  unconditional jump           *3Ю2*3‼Ю
    49103>
    48321>49110    101             85   1  3  select literal address       *361
    48789>
    48322>
    29626>49111    124     477      5   1  0  unconditional jump           *364 >              00008
    48918>
    24156>49112    101             81   1  3  select literal address       *362                CODE LETTER A
          49113    102     221      4   0  0  transfer (A) to N
          49114    124     225     16   0  1  modify address of next       *579
          49115    106     224      4   1  0  select (N)                   SET UP PROGRAM FOUND FOR COMMENT
          49116    102     222     10   1  0  transfer (A) to N
          49117    124     225     16   0  1  modify address of next       *579
          49118    102     224      4   1  0  transfer (A) to N            CLEAR IDENTITY LAST PROGRAM USED
          49119    124     493      2   0  2  select literal and division  START OF EDIT TABLE
          49120    124     478      2   1  0  unconditional jump           >

          49200    CONST   492       492     1    *38 FIXED COMMENT
          49202          (A)TIMIN;                                         *09Ю*3+Ю
          49204          (A)G  (D)5.5.;                                    G,SP,SP,L/E,L/E
          49206          (A)TIMEN;
          49208          (A)D  (D)5.5.;                                    *09Ю*3+Ю
          49210          (A)PTAPE;                                         *07Ю
          49212          (A)PCARD;                                         *07Ю
          49214          (A)HIP  ;                                         *019
          49216          (A)OMIT;                                          *5:Ю
          49218          (A)SET;
          49220          D/B;
          49222          SER;
          49224          SP;
          49226          EDG;
          49228          SP -;

          49300    TABLE   493       493     1    CREJ EDIT TABLE
          49301     NOTES
          49302   214    16     0     0  2  0   5   0   0   0  0  0  0     *362 'C REJ'
          49304   221     4     0     0  2  0   1   4   1   0  0  0  0     SP,CODE LETTER
          49306   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          49308   221     8     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          49310   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          49312   222    10     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          49314   214    12     0     0  2  0   1   3   0   0  0  0  0     N/E
          49316   214    20     0     0  2  0   2   0   1   0  0  0  0     SP,G,P
          49318     0   185     0     0  0  0   1   2   0   0  0  0  0                                               T 1
          49320   214    20     0     0  2  0   2   3   1   0  0  0  0     SP,F,N
          49322     0   185     0     0  0  0   1   4   0   0  0  0  0                                               T 1
          49324   211    22     0     0  2  0   2   0   0   0  0  0  1     *362 L/E,L/E
  Source image: P1020731.JPG
          49326   221     3     0     0  0  0   1   0   3   0  0  0  0     *££0*££2*61‼ 3SP,PRIORITY CLASS
          49328   215    14     0     0  2  0   5   0   0   0  0  0  0     *11312‼ 'ROUCH'
          49330   229     3     0     0  0  0   5   0   0   0  0  0  0     *3Ю3*3‼‼

          49400    TABLE   494       494     1
          49402   100    31     0     0  0  0   1   4   3   0  0  0  0     *08Ю*61‼ SP,TAG
          49404   221     2     0     0  0  0   5   0   1   0  0  0  1     PROGM NO                                  SUM

          49500    TABLE   495       495     1
          49501     NOTES
          49502   215     4     0     0  2  0   5   0   0   0  0  0  0     *0‼Ю 'PR CH'
          49504   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          49506   222    10     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          49508   211    22     0     0  2  0   2   0   2   0  0  0  1     *0‼Ю
          49510   215    10     0     0  2  0   5   0   0   0  0  0  0     *0:Ю 'REOPE'
          49512   214    20     0     0  2  0   1   4   0   0  0  0  0     N
          49514   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          49516   222    10     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          49518   211    22     0     0  2  0   2   0   1   0  0  0  1     *0:Ю
          49520   215    12     0     0  2  0   5   0   0   0  0  0  0     *0+Ю 'RUNCH'
          49522   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          49524   222    10     0     0  0  0   5   0   0   0  0  0  0     PROGRAMME NUMBER
          49526   214    22     0     0  2  0   1   1   0   0  0  0  0     N/E
          49528   229     5     0     0  0  0   5   0   0   0  0  0  0     *3Ю3*3‼‼
          49530   211    22     0     0  2  0   2   0   1   0  0  0  1     *0+Ю
          49532   215     8     0     0  2  0   5   0   0   0  0  0  0     *11Ю12Ю*11312‼ 'AVAIL'
          49534   214    22     0     0  2  0   2   1   0   0  0  0  0     N/E,N/E
          49536   222    10     0     0  0  0   3   2   0   1  0  0  0     CH. & RTE.
          49538   222    11     0     0  0  0   3   2   1   3  0  0  0     CH * RTE(OLD)
          49540   211    22     0     0  2  0   2   0   4   0  0  0  1     4 SP,L/E.L/E

          49600    CONST   496       496     1    DUMMY PROCEDURE FOR VARIABLE ALLOCATION

          49700    CONST   497       497     1    STORED HIGH DENSITY
          49702          (D)0;                                             *01Ю65Ю
          49704          0;
          49706          0;
          49708          0;
          49710          0;
          49712          0;
          49714          0;
          49716          0;
          49718          0;
          49720          0;                                                *65Ю
          49722          0;
          49724          0;
          49726          0;
          49728          0;
          49730          0;
          49732          0;

          49800    PROCR   498       498     CONTROL DATA REJECTION
          49801     NOTES          RADIX     B
    46004>49802    124             82   0  2  select literal and division  CODE LETTER B
    46048>49803    124     222     20   0  1  modify address of next       SET ROUTE TO MANUAL
          49804    119              0   1  3  step on/set manual
    52529>
    46050>
    29716>49805    102     221      4   0  0  transfer (A) to N
          49806    126     177      2   0  0  enter subroutine             >REQUEST T/W
          49807    106     214     32   1  0  select (N)                   SET UP NO CD
          49808    102     102      6   1  0  transfer (A) to N
          49809    106     221      4   0  0  select (N)                   SET UP CODE LETTER
          49810    102     102      8   1  0  transfer (A) to N
          49811    124     197      4   0  2  select literal and division  SET UP L/E'S
          49812    128     102     10   1  2  edit fixed field formats
  Source image: P1020732.JPG
          49813    124              4   0  2  select literal and division
          49814    124     478      6   1  0  unconditional jump           >

          49900    PROCR   499       499     READ CONTROL DATA WITHOUT CHECKS
          49901     NOTES          RADIX     B
          49902    100              0   0  0  Halt                         *01Ю
          49903    126     499      2   0  1  leave subroutine             *01Ю

          50000    PROCR   500       500     SUB-ROUTINE R
          50001     NOTES          RADIX     B    TO OBTAIN AND CHECK FUNCTION NUMBER
          50002    100              0   0  0  Halt                         LINK
          50003    102     221      2   0  0  transfer (A) to N            STORE LIMIT
          50004    115     222      2   0  0  collate and add                                  TEST IF FUNCTION
          50005    127     477      8   0  0  jump A = Z                   >YES,REJECT         NUMBER=0
          50006    105     221      2   0  0  subtract (N) from (A)                            TEST IF OUTSIDE
          50007    127     477      8   0  2  jump A >= Z                  >YES,REJECT         LIMIT
          50008    104     221      2   0  0  add (N) to (A)
          50009    126     500      2   0  1  leave subroutine             >LEAVE S/R

          50100    PROCR   501       501     FORM CHECK,AND STORE PARAMETER FROM I5-7
          50102    100              0   0  0  Halt                         *07Ю5:Ю6ЮЮ
          50103    101              2   0  1  prepare for digit collation  TEST RANGE
          50104    115            185   0  0  collate and add              COLLATE Q2
          50105    127     477      8   0  2  jump A >= Z                  >OUT OF RANGE
          50106    101              0   1  3  select literal address       FORM PARAMETER
          50107    115     222      2   0  0  collate and add
          50108    118           4127   0  0  shift logical
          50109    103     108     28   0  0  copy (A) to N
          50110    126     177      2   0  0  enter subroutine             >REQUEST T/W
          50111    106     108     28   0  0  select (N)                   SET UP MR2
          50112    103              4   0  0  copy (A) to N                STORE IT
          50113    126     501      2   0  1  leave subroutine             >LEAVE S/R

          50200    PROCR   502       502     SUB-ROUTINE S
          50201     NOTES          RADIX     B    CHECK ROUTE & FORM IT UP IN BINARY & PLACE IN M.R.2
          50202    100              0   0  0  Halt                         *12Ю11Ю             LINK
          50203    101              2   1  3  select literal address       SET MR3=2:0
          50204    118              5   0  0  shift logical
          50205    102              6   1  0  transfer (A) to N
    52908>50206    106     222     10   0  3  select (N)                   CHANNEL AND ROUTE
          50207    118           4127   1  0  shift logical                STORE CHANNEL
          50208    102     533      2   0  3  transfer (A) to N
          50209    118              1   1  0  shift logical                STORE RTE
          50210    102     533      4   0  3  transfer (A) to N
          50211    101     213     12   1  3  select literal address       CONVERT CHANNEL NUMBER
          50212    112     533      2   0  3  convert                      TO BINARY
          50213    103     533      2   0  3  copy (A) to N
          50214    118              3   0  3  shift binary                                     PLACE IN MR2
          50215    104     533      4   0  3  add (N) to (A)
          50216    103     533      8   0  3  copy (A) to N
          50217    103              4   1  0  copy (A) to N
          50218    127     477      2   0  3  jump A < Z                   *364 >NOT IN RANGE  00008
          50219    101            176   1  2  subtract literal address
          50220    127     477      2   0  2  jump A >= Z                  *364 >NO            00008
          50221    106             64   0  2  select (N)                   PLACE RTE TYPE IN
          50222    118           4127   1  0  shift logical                TOP OF B
          50223    126     502      2   0  1  leave subroutine             *12Ю11Ю             >LEAVE S/R
          50224    100     477      8   0  0  Halt                         *££0*££2*09‼*3+‼*08‼*07‼*02‼*04‼*5:‼
          50225    100     477      8   0  0  Halt                         *69‼*68‼*67‼*66‼*6Ю‼
          50226    124     510     23   1  0  unconditional jump           *3:‼3:‼
          50227    127     477      8   0  2  jump A >= Z                  *3:‼                C REJ
          50228    127     511     12   0  1  jump A != Z                  *8‼‼ >NO
          50229    127     477      8   0  1  jump A != Z                  *363

          50300    PROCR   503       503     GROUP 1
          50301     NOTES          RADIX     B    DETERMINE FUNCTION
  Source image: P1020733.JPG
          50302    101              1   0  1  prepare for digit collation  *09Ю08Ю07Ю5:Ю69Ю68Ю67Ю66Ю6ЮЮ86Ю86Ю
          50303    101             12   1  3  select literal address       *86+6Ю+*86+         0001000011
          50304    126     500      2   0  0  enter subroutine             > S/R R
          50305    102     503      8   0  0  transfer (A) to N
          50306    124     503      8   0  1  modify address of next
          50307    126     503      8   0  1  leave subroutine
          50308    100     477      8   0  0  Halt                           GEN CONST         FUNCTION NO
          50309    100     504      2   0  0  Halt                         *09‼*3+‼ TIME       >START TIMINGS
          50310    100     505      2   0  0  Halt                         *09‼*3+‼ TIME       >STOP TIMINGS
          50311    100     506      2   0  0  Halt                         *08‼ PRINT PRIORITY LIST
          50312    100     507      2   0  0  Halt                         *07‼*02‼*04‼        >PREFER PT
          50313    100     508      2   0  0  Halt                         *5:‼                >OMIT CATEGORIES
          50314    100     509      2   0  0  Halt                         *69‼                >REWIND AND UNLOAD
          50315    100     510      2   0  0  Halt                         *68‼                >AVAILABLE ROUTES
          50316    100     512      2   0  0  Halt                         *67‼                >AVAILABLE STORAGE
          50317    100     513      2   0  0  Halt                         *66‼                >CARD CHECK
          50318    100     514      2   0  0  Halt                         *86Ю6ЮЮ*6Ю‼         >CHANGE CHANNEL
          50319    100     515      2   0  0  Halt                         *869                >PREFER PRINTER

          50400    PROCR   504       504     GROUP 1:FUNCTION 1
          50401     NOTES          RADIX     B    START TIMINGS
          50402    106     223      2   0  0  select (N)                   *09Ю*3+Ю
          50403    127     504     29   0  1  jump A != Z                  *363 ALREADY ON
          50404    126     177      2   0  0  enter subroutine             >REQUEST TYPEWRITER
          50405    126     212      8   1  2  set modification register    144:0
    50414>50406    106     209      2   0  0  select (N)                   6/0/0/0/157
          50407    102     111      6   0  2  transfer (A) to N            SET UP INSTRUCTIONS IN I/P O/P TO CLEAR
          50408    106     265      2   0  0  select (N)                   19/0/1/0/56         RESET MILLISEC TIMER
          50409    102     111     29   0  2  transfer (A) to N
          50410    102     111     48   1  2  transfer (A) to N            W/L
          50411    106     209      3   0  0  select (N)
          50412    102     111     19   0  2  transfer (A) to N
          50413    125             48   0  2  step on and test
          50414    124     504      6   1  0  unconditional jump           >
          50415    106     333      3   0  0  select (N)                   0/0/3/2/1
          50416    102     264     31   0  0  transfer (A) to N
          50417    106     209      2   0  0  select (N)                   6/0/0/0/157
          50418    103     264     32   0  0  copy (A) to N
          50419    103     223      2   0  0  copy (A) to N                IND THAT TIMINGS ARE ON
          50420    106     485     14   1  0  select (N)                                       AMEND UNLOADER EDIT
          50421    102     482      8   1  0  transfer (A) to N                                TABLE
          50422    106     485     16   1  0  select (N)
          50423    102     482     10   1  0  transfer (A) to N
          50424    106     492      2   1  0  select (N)                                       SET UP COMMENT
          50425    102     102      6   1  0  transfer (A) to N
          50426    106     492      4   1  0  select (N)
    50524>50427    102     102      8   1  0  transfer (A) to N
          50428    124     478      6   1  0  unconditional jump           >
    50403>50429    125              0   1  2  interrogate indicators       *362
          50430    102     222     10   0  0  transfer (A) to N
          50431    124     477      2   1  0  unconditional jump

          50500    PROCR   505       505     GROUP 1:FUNCTION 2
          50501     NOTES          RADIX     B    STOP TIMINGS
          50502    126     177      2   0  0  enter subroutine             *09Ю*3+Ю >REQUEST T/W
          50503    126     212      8   1  2  set modification register    144:0
    50511>50504    106     111      8   0  2  select (N)
          50505    102     111      6   0  2  transfer (A) to N
          50506    106     111     30   0  2  select (N)                                       OVERSTACK TIMING
          50507    102     111     29   0  2  transfer (A) to N                                INSTRUCTIONS IN
          50508    106     209      9   0  0  select (N)
          50509    102     111     19   0  2  transfer (A) to N
          50510    125             48   0  2  step on and test                                 PRIORITY CONTROL
          50511    124     505      4   1  0  unconditional jump           >
          50512    102     223      2   0  0  transfer (A) to N            IND
          50513    106     264     35   0  0  select (N)                                       OVERSTACK TIMING
  Source image: P1020734.JPG
          50514    102     264     31   0  0  transfer (A) to N                                INSTRUCTIONS IN I/P
          50515    106     264     36   0  0  select (N)                                       O/P CONTROL
          50516    102     264     32   0  0  transfer (A) to N
          50517    106     485     18   1  0  select (N)                                       AMEND UNLOADER EDIT
          50518    102     482      8   1  0  transfer (A) to N                                TABLE
          50519    106     485     20   1  0  select (N)
          50520    102     482     10   1  0  transfer (A) to N
          50521    106     492      6   1  0  select (N)                                       SET UP COMMENT
          50522    102     102      6   1  0  transfer (A) to N
          50523    106     492      8   1  0  select (N)
          50524    124     504     27   1  0  unconditional jump           >

          50600    PROCR   506       506     GROUP1: FUNCTION 3
          50601     NOTES          RADIX     B    PRINT PRIORITY LIST
          50602    126     177      2   0  0  enter subroutine             *08Ю >REQUEST T/W
          50603    101           1008   0  1  prepare for digit collation
          50604    115     214     12   1  0  collate and add              P.SP.Q
          50605    102     102      6   1  0  transfer (A) to N                                COMMENT
          50606    102              4   1  0  transfer (A) to N            MR2                 CLEAR MR2
          50607    102              6   1  0  transfer (A) to N            MR3
    50630>50608    106     230      4   0  2  select (N)
          50609    127     506     29   0  0  jump A = Z                   >ZERO,PROGRAM ABANDONED
          50610    106     230      4   1  2  select (N)                   PRIORITY TABLE ENTRY
          50611    103     221      2   1  0  copy (A) to N                W/L
          50612    105     211      2   1  0  subtract (N) from (A)        15'S                TEST END OF TABLE
          50613    127     506     31   0  0  jump A = Z                   >YES                1ST TEST
          50614    124     221      3   0  1  modify address of next       *61Ю SWITCH START   FIND TAG
          50615    124             37   0  1  modify address of next       SPECIAL CHAPT START
          50616    106             10   0  0  select (N)                   TAG
          50617    102     100     31   0  0  transfer (A) to N            *61Ю STORE TAG IN W/L
          50618    124     494      2   0  2  select literal and division  TABLE START
          50619    124              6   0  1  modify address of next
          50620    128     102      8   1  2  edit fixed field formats     EDIT ENTRY
          50621    106              6   0  0  select (N)                   *1.2*1:2*1£2*382 TEST END OF
          50622    101             12   1  2  subtract literal address     IST LINE
          50623    127     506     28   0  1  jump A != Z
          50624    101             12   0  1  prepare for digit collation
          50625    115     211     22   0  0  collate and add
          50626    102     102     12   1  3  transfer (A) to N
          50627    125              2   0  3  step on and test             *1.2*1:2*1£2*382
    50623>50628    125              4   0  3  step on and test
    50609>50629    125              2   0  2  step on and test
          50630    124     506      8   1  0  unconditional jump           >
    50613>50631    106     105      6   0  0  select (N)                   LE'S FOR END OF COMMENT
          50632    102     102      8   1  3  transfer (A) to N
          50633    124     478      6   1  0  unconditional jump           >

          50700    PROCR   507       507     GP1 FN4: PREFER P/T, PREFER CARDS
          50702    101             32   1  2  subtract literal address     *07Ю*02Ю*04Ю RANGE CHECK
          50703    126     501      2   0  0  enter subroutine             FORM,CHECK AND STORE PARAMETER
          50704    102     233     35   0  0  transfer (A) to N            STORE INDICATOR
          50705    124              4   0  1  modify address of next       MODIFY FOR PTAPE OR PCARDS
          50706    106     492     10   1  2  select (N)
          50707    102     102      6   1  0  transfer (A) to N
          50708    106     214     80   1  0  select (N)                   L/E L/E
          50709    124     508     16   1  0  unconditional jump           *5:9 >SET UP COMMENT

          50800    PROCR   508       508     GP1 FN5: OMIT CATEGORIES
          50802    101             80   1  2  subtract literal address     *5:Ю
          50803    126     501      2   0  0  enter subroutine             FORM,CHECK,AND STORE PARAMETER
          50804    127     477      8   0  0  jump A = Z
          50805    126     332      2   0  0  enter subroutine             TEST CATEGORY S/R
          50806    101           8191   1  1  add literal address
          50807    114     508     20   0  0  replace selected bits        SET CATEGORY
          50808    101           8191   1  2  subtract literal address
          50809    127     508     11   0  0  jump A = Z                   >OMIT
  Source image: P1020735.JPG
          50810    101              2   1  3  select literal address       FORM OMITX
    50809>50811    102              6   0  0  transfer (A) to N            OR SETX
          50812    106     492     16   1  3  select (N)                   FORM OMITX
          50813    102     102      6   1  0  transfer (A) to N            FIRST WORD
          50814    124              4   0  1  modify address of next       D/B,SER,SP,OR EDG
          50815    106     492     18   1  2  select (N)                   *5:Ю
    50709>50816    102     102      8   1  0  transfer (A) to N            *07Ю5:Ю*02Ю5:Ю*04Ю5:Ю
          50817    106     214     80   1  0  select (N)                   L/E L/E
          50818    102     102     10   1  0  transfer (A) to N
          50819    124     478      6   1  0  unconditional jump           >END ROUTINE
          50820    100              0   0  0  Halt

          50900    PROCR   509       509     REWIND AND UNLOAD PROGRAM TAPE COMMANDS
          50902    101             32   1  2  subtract literal address     *69Ю
          50903    101              2   0  1  prepare for digit collation  TEST RANGE
          50904    115            185   0  0  collate and add              COLLATE Q2
          50905    127     477      8   0  2  jump A >= Z                  >OUT OF RANGE
          50906    118           4127   0  1  shift arithmetic
          50907    101              2   1  1  add literal address
          50908    118              2   0  3  shift binary
          50909    103     429      2   0  0  copy (A) to N
          50910    127     509     13   0  0  jump A = Z                   >YES
          50911    101             34   1  3  select literal address       34
          50912    124     509     14   1  0  unconditional jump           >SKIP
    50910>50913    101             27   1  3  select literal address       27
    50912>50914    118           4118   1  0  shift logical                SHIFT(AB)
          50915    106     258     28   1  0  select (N)                   FINIS
          50916    124            192   0  1  modify address of next       *3:+                00064
          50917    102              4   1  0  transfer (A) to N
          50918    118             15   1  0  shift logical                SHIFT(AB)
          50919    101            128   1  1  add literal address          *3:9
          50920    126     100      2   0  0  enter subroutine             I/P O/P S/R
          50921    126     177      2   0  0  enter subroutine             >REQUEST T/W
          50922    106     215     28   1  0  select (N)                   TAPE
          50923    102     102      6   1  0  transfer (A) to N
          50924    124     429      2   0  1  modify address of next
          50925    100     215     30   1  1  replace registers
          50926    100     102      8   1  0  copy registers
          50927    100     213      3   0  3  set radix
          50928    125              0   1  2  interrogate indicators       CLEAR A
          50929    124     478      6   1  0  unconditional jump           *69Ю                >T/W  49600

          51000    PROCR   510       510     GP1 FN7 AVAILABLE ROUTES COMMAND
          51002    126     177      2   0  0  enter subroutine             *68Ю                REQUEST TYPEWRITER
          51003    101              2   0  1  prepare for digit collation
          51004    115            185   0  0  collate and add
          51005    101            128   1  2  subtract literal address
          51006    127     510     25   0  2  jump A >= Z                  *3:‼ CH 16,17,18
          51007    101            128   1  1  add literal address
          51008    126     510     11   0  0  enter subroutine             *3:Ю >SET UP CHANNEL NUMBER
          51009    101             12   0  1  prepare for digit collation
          51010    124     510     31   1  0  unconditional jump           SET UP REST OF COMMENT
          51011    100              0   0  0  Halt                         *3:Ю
          51012    127     510     17   0  1  jump A != Z                  >NOT CHANNEL 0
          51013    101              3   1  3  select literal address                           SET UP ZERO
          51014    118              3   0  0  shift logical
          51015    102     221      2   1  0  transfer (A) to N
          51016    124     510     19   1  0  unconditional jump           *3:‼3:‼
    51012>51017    103     221      3   1  0  copy (A) to N                                    SET UP CH NUMBER
          51018    118           4127   0  0  shift logical
    51016>51019    103     500      2   0  0  copy (A) to N                *3:Ю
          51020    124     213     12   0  2  select literal and division
          51021    112     500      2   0  0  convert                      *3:Ю
          51022    118              3   0  3  shift binary
    50226>51023    102     500      2   0  0  transfer (A) to N
          51024    126     510     11   0  1  leave subroutine             *3:Ю
  Source image: P1020736.JPG
    51006>51025    100     210      3   0  3  set radix
          51026    101            352   1  1  add literal address          ADD 160
          51027    100     213     13   0  3  set radix
          51028    126     510     11   0  0  enter subroutine
          51029    101             60   0  1  prepare for digit collation  *3:Ю
          51030    101             12   0  1  prepare for digit collation  *3:1
    51010>51031    106     215     24   1  0  select (N)
          51032    115     221      2   1  0  collate and add
          51033    102     102      6   1  0  transfer (A) to N
          51034    106     500      2   0  0  select (N)                   SET UP IND MOD REG
          51035    103     533      2   0  0  copy (A) to N                8*CH
          51036    101              8   1  1  add literal address          9*CH
          51037    102     533      3   0  0  transfer (A) to N
          51038    102     533      4   1  0  transfer (A) to N            MOD REG FOR TYPING
    51128>51039    124     533      2   0  1  modify address of next       ROUTE
          51040    106             64   0  0  select (N)
          51041    118           4127   1  0  shift logical                TEST AVAILABLE
          51042    127     510     53   0  0  jump A = Z                   >YES
          51043    101            255   1  2  subtract literal address     TEST POTENTIALLY AVAILABLE
          51044    127     511      2   0  1  jump A != Z                  *8‼‼ >NO
          51045    106     533      2   0  0  select (N)                   POTENTIALLY AVAILABLE
          51046    105     500      2   0  0  subtract (N) from (A)
          51047    127     510     49   0  1  jump A != Z
          51048    101             48   1  1  add literal address
    51047>51049    118              3   0  0  shift logical
          51050    118              3   1  0  shift logical
          51051    101            955   0  1  prepare for digit collation
          51052    124     511     20   1  0  unconditional jump           >
    51154>
    51042>51053    106     533      2   0  0  select (N)                   AVAILABLE
          51054    105     500      2   0  0  subtract (N) from (A)
          51055    127     510     57   0  1  jump A != Z
          51056    101             48   1  1  add literal address
    51055>51057    118              3   0  0  shift logical
          51058    118              3   1  0  shift logical
          51059    101            907   0  1  prepare for digit collation
          51060    124     511     20   1  0  unconditional jump           >

          51100    PROCR   511       511     GP1 FN7 AVAILABLE ROUTES COMMAND(2)
    51044>51102    125              0   1  2  interrogate indicators       *68Ю*8‼Ю
          51103    102     533      6   1  0  transfer (A) to N            CLEAR INDIRECT MOD REGISTER
    51111>51104    124     533      6   0  1  modify address of next
          51105    106     230      4   0  0  select (N)                   TEST PROS ENDED
          51106    127     511     33   0  0  jump A = Z                   >YES
          51107    105     211      2   0  0  subtract (N) from (A)        TEST END OF TABLE
          51108    127     511     12   0  0  jump A = Z                   >YES
    51144>
    51151>51109    123              2   0  0  step on and test             STEP MR
          51110    100     533      6   0  0  Halt
          51111    124     511      4   1  0  unconditional jump           *8‼Ю
    51108>
    50228>51112    106     533      2   0  0  select (N)                   ROUTE
          51113    105     500      2   0  0  subtract (N) from (A)        8*CH
          51114    127     511     16   0  1  jump A != Z                  >NON ZERO
          51115    101             48   1  1  add literal address          OBTAIN ZERO
    51114>51116    118              3   0  0  shift logical
          51117    101            208   1  1  add literal address          TO GIVE U
          51118    118              3   0  0  shift logical
          51119    101            947   0  1  prepare for digit collation
    51060>
    51052>51120    115     215     26   1  0  collate and add              ADD IN REST OF WORD
          51121    124     533      4   0  1  modify address of next       STORE IN
          51122    102     102      8   1  0  transfer (A) to N            T/W ANNEX
          51123    101              0   0  1  prepare for digit collation
          51124    123              2   0  0  step on and test
          51125    100     533      4   0  0  Halt
  Source image: P1020737.JPG
          51126    123              1   0  0  step on and test             LAST ROUTE
          51127    100     533      2   0  0  Halt
          51128    124     510     39   1  0  unconditional jump           >NO
          51129    106     214     80   0  0  select (N)                   L/E,L/E
          51130    102     102     24   1  0  transfer (A) to N
          51131    126     107      8   1  1  set modification register    (MR1)FOR MASTER
          51132    124     478      6   1  0  unconditional jump           >OUTPUT COMMENT
    51106>51133    124     533      6   0  1  modify address of next       *8‼Ю
          51134    124     230      5   0  1  modify address of next       SET(MR1)FOR PROG
          51135    126             36   1  1  set modification register    WHICH HAS REACHED END
          51136    126     354      2   0  0  enter subroutine             >SET(MR3)=LC+2*NO FILES/LC
    51143>51137    125              0   1  2  interrogate indicators
          51138    101              3   0  1  prepare for digit collation
          51139    115             34   0  3  collate and add
          51140    105     533      2   0  0  subtract (N) from (A)        TEST SAME ROUTE
          51141    127     511     45   0  0  jump A = Z                   >YES
          51142    125              1   0  3  step on and test             *17+18+             00002
          51143    124     511     37   1  0  unconditional jump           >NEXT ROUTE
          51144    124     511      9   1  0  unconditional jump           >NEXT PROG
    51141>51145    101             16   0  1  prepare for digit collation
          51146    115             34   0  3  collate and add              RTE TYPE IN Q5
          51147    102     533      8   0  0  transfer (A) to N            *13Ю
          51148    100     210      8   0  2  replace (B) by (N)           *17Ю18Ю             CLEAR BIT 1 OF
          51149    114              6   0  0  replace selected bits        *17Ю18Ю             MR3
          51150    106             34   1  3  select (N)                                       TEST ROUTE RELEASED
          51151    127     511      9   0  3  jump A < Z                                       >YES
          51152    106     533      8   0  0  select (N)                   *13Ю
          51153    118           4123   1  0  shift logical                RTE TYPE IN Q10 OF 13
          51154    124     510     53   1  0  unconditional jump           *68Ю*8‼Ю
          51155    124     512     44   1  0  unconditional jump           *££0*££2*3Ю3*3‼‼
          51156    100              0   0  0  Halt                         SPARE

          51200    PROCR   512       512     EXCESS STORE COMMENT
          51202    126     177      2   0  0  enter subroutine             *67Ю                >REQUEST T/W
          51203    106     215     22   1  0  select (N)                   SET UP STORE
          51204    102     102      6   1  0  transfer (A) to N            IN T/W ANNEXE
          51205    101             20   1  3  select literal address
          51206    102              4   1  0  transfer (A) to N
          51207    126     212     14   1  3  set modification register    10:0
    51212>
    51243>
    51248>51208    106     230     21   0  2  select (N)
          51209    105     211      2   0  0  subtract (N) from (A)        SUB 15'5
          51210    127     512     14   0  1  jump A != Z                  IF NOT
          51211    125           4098   0  2  step on and test             YES
          51212    124     512      8   1  0  unconditional jump           PICK UP NEXT WORD
          51213    124     512     27   1  0  unconditional jump           *3Ю3*3‼‼
    51210>51214    100     210      3   0  3  set radix                    SET DECIMAL
          51215    124     213      2   0  2  select literal and division
          51216    112     231      1   0  2  convert                      CONVERT BIN>DEC
          51217    102     102     74   0  0  transfer (A) to N
          51218    124     261     52   0  2  select literal and division
          51219    124              6   0  1  modify address of next
          51220    128     102      8   1  2  edit fixed field formats
          51221    100     213      3   0  3  set radix
          51222    101            768   0  1  prepare for digit collation
          51223    114     102      8   1  3  replace selected bits        CLEAR TOP QUARTET OF A
          51224    125              2   0  3  step on and test             END OF WORD?
    51249>51225    125           4098   0  2  step on and test
          51226    124     512     47   1  0  unconditional jump           PICKUP NEXT WORD
    51213>51227    106     500      2   0  0  select (N)                   *3Ю2*3‼Ю
          51228    127     512     44   0  3  jump A < Z                   IF NEG
          51229    101             18   1  3  select literal address       IF POS
          51230    102              5   0  0  transfer (A) to N
          51231    101             38   1  1  add literal address
          51232    102              4   0  0  transfer (A) to N
  Source image: P1020738.JPG
          51233    101           1008   0  1  prepare for digit collation
          51234    115     214     22   1  0  collate and add
          51235    102     102      8   1  3  transfer (A) to N            SET UP L.E.,N.E.,N.E
          51236    106              6   0  0  select (N)
          51237    101              2   1  1  add literal address          SET START VALUE MR3
          51238    103              6   0  0  copy (A) to N
          51239    101             10   1  1  add literal address
          51240    102              7   0  0  transfer (A) to N            SET UP END VALUE MR3
          51241    101           1111   1  2  subtract literal address
          51242    102     500      2   0  0  transfer (A) to N            SET IND NEG
          51243    124     512      8   1  0  unconditional jump           *3Ю2*3‼Ю
    51228>
    51155>51244    106     214     80   1  0  select (N)
          51245    102     102      8   1  3  transfer (A) to N
          51246    124     478      6   1  0  unconditional jump           TYPE
    51226>51247    125              0   0  3  step on and test
          51248    124     512      8   1  0  unconditional jump
          51249    124     512     25   1  0  unconditional jump

          51300    PROCR   513       513     GP1 FN9:CHECK FIELD ON CARD INPUT
          51302    118              1   1  0  shift logical                *66Ю
          51303    125              0   1  2  interrogate indicators       CLEAR A
          51304    115            185   0  0  collate and add
          51305    115            185   0  0  collate and add
          51306    118           4127   0  0  shift logical
          51307    102     210     15   0  0  transfer (A) to N            STORE 2C
          51308    126     177      2   0  0  enter subroutine             >REQUEST T/W
          51309    106     215     20   1  0  select (N)                   CARD
          51310    102     102      6   1  0  transfer (A) to N
          51311    106     214     46   1  0  select (N)                   CHECK
          51312    102     102      8   1  0  transfer (A) to N
          51313    106     210     15   0  0  select (N)                   C
          51314    118             15   0  3  shift binary
          51315    104     214     80   0  0  add (N) to (A)               2 L/E'S
          51316    102     102     10   1  0  transfer (A) to N
          51317    124     478      6   1  0  unconditional jump           >

          51400    PROCR   514       514     CHANGE CHANNEL
          51402    101             64   1  3  select literal address       *6ЮЮ
          51403    126     501      2   0  0  enter subroutine             FORM,CHECK AND STOREFROM I5-7
          51404    127     514      8   0  0  jump A = Z                   IF ZERO
          51405    101              1   1  2  subtract literal address
          51406    127     477      8   0  0  jump A = Z                   >REJECT
          51407    101              1   1  1  add literal address
    51404>51408    118              3   0  3  shift binary                                     STORE
          51409    103     100     33   0  0  copy (A) to N
          51410    103     100     34   0  0  copy (A) to N
          51411    103     100     35   0  0  copy (A) to N
          51412    101              4   1  1  add literal address
          51413    102     100     36   0  0  transfer (A) to N
          51414    106     215      4   1  0  select (N)
          51415    102     102      6   1  0  transfer (A) to N
          51416    101             64   1  3  select literal address
          51417    104              4   0  0  add (N) to (A)
          51418    118              8   0  1  shift arithmetic
          51419    101             15   0  1  prepare for digit collation
          51420    115     211     22   0  0  collate and add
          51421    102     102      8   1  0  transfer (A) to N
          51422    124     478      6   1  0  unconditional jump

          51500    PROCR   515       515     SET PREFERRED PRINTER TYPE
          51502    126     177      2   0  0  enter subroutine             *86Ю REQUEST TYPEWRITER
          51503    125              0   1  2  interrogate indicators
          51504    101              1   0  1  prepare for digit collation  COLLATE OUT
          51505    115     233     29   0  0  collate and add              PRINTER TYPE
          51506    101              9   1  2  subtract literal address     TEST=9
  Source image: P1020739.JPG
          51507    127     515     12   0  1  jump A != Z                  >NO
          51508    106     215     40   1  0  select (N)                   SET UP GP
          51509    102     102      8   1  0  transfer (A) to N
          51510    101              4   1  3  select literal address
          51511    124     515     15   1  0  unconditional jump           >
    51507>51512    106     215     42   1  0  select (N)                   SET UP SP
          51513    102     102      8   1  0  transfer (A) to N
          51514    101              9   1  3  select literal address       COLLATE IN
    51511>51515    114     233     29   0  0  replace selected bits        NEW PRINTER TYPE
          51516    106     215     38   1  0  select (N)                   REST OF
          51517    102     102      6   1  0  transfer (A) to N            COMMENT
          51518    106     214     80   0  0  select (N)                   L/E,L/E
          51519    102     102     10   1  0  transfer (A) to N
          51520    124     478      6   1  0  unconditional jump           *86Ю
          51521    100     477      8   0  0  Halt                         *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼
          51522    100     477      8   0  0  Halt                         *4Ю‼                >REJECT
          51523    127     477      8   0  1  jump A != Z                  *57‼363*363         >CREJ
          51524    100     477      8   0  0  Halt                         *17‼18‼*61‼         >REJ
          51525    115     222      2   0  0  collate and add              *643 TEST IF FUNCTION NO.=0.
          51526    127     477      8   0  0  jump A = Z                   *643643             YES>REJECT
          51527    101             10   1  3  select literal address       *64‼61‼
          51528    101              7   1  3  select literal address       *64‼61‼0:‼0+‼
          51529    101              9   1  3  select literal address       *64‼61‼0:‼

          51600    PROCR   516       516     GROUP 2
          51601     NOTES          RADIX     B    DETERMINE FUNCTION
          51602    126     461      2   0  0  enter subroutine             >S/R Q
          51603    101             14   1  3  select literal address       *643*64‼61‼0:‼0+‼*64‼61‼0:‼*64‼61‼
          51604    126     500      2   0  0  enter subroutine             *643643             >S/R R
          51605    103     516     12   0  0  copy (A) to N
          51606    101             11   1  2  subtract literal address     *61Ю64Ю TEST COMMAND USES TAG
          51607    127     516     28   0  2  jump A >= Z                  >YES
          51608    101             11   1  1  add literal address          *61Ю64Ю
          51609    126     459      2   0  0  enter subroutine             >S/R G
    51642>51610    124     516     12   0  1  modify address of next
          51611    126     516     12   0  1  leave subroutine
          51612    100              0   0  0  Halt                         FUNCTION NUMBER
          51613    100     517      2   0  0  Halt                         >UNLOAD
          51614    100     487      8   0  0  Halt                         *17‼18‼             ALLOC
          51615    100     477      8   0  0  Halt                         >REJECT
          51616    100     487      8   0  0  Halt                         *17‼18‼             ALLOC
          51617    100     477      8   0  0  Halt                         >REJECT
          51618    100     518      2   0  0  Halt                         *0‼‼*1.3 >INTERCHANGE PRIORITIES
          51619    100     520      2   0  0  Halt                         *0+Ю0:Ю61Ю64Ю*0:‼   OPEN PROG
          51620    100     521      2   0  0  Halt                         *0+‼ >RUNCH
          51621    100     522      2   0  0  Halt                         *0:‼ >CLOSE PROGRAM
          51622    100     477      8   0  0  Halt                         *61Ю64Ю             >REJECT
          51623    100     518      2   0  0  Halt                         *0‼‼*1.3*61‼        >INTERCHANGE
          51624    100     520      2   0  0  Halt                         *0:‼*61‼            >OPEN PROG
          51625    100     522      2   0  0  Halt                         *0:‼*61‼            >CLOSE PROG
          51626    100     477      8   0  0  Halt                         *64Ю                >REJECT
          51627    100     517      2   0  0  Halt                         *64Ю                >UNLOAD
    51607>51628    101              2   0  1  prepare for digit collation  FORM TAG NO
          51629    101              0   1  3  select literal address
          51630    115            185   0  0  collate and add
          51631    127     477      2   0  0  jump A = Z                   *364 > REJECT       00008
          51632    109     212     11   0  0  multiply uniform radix
          51633    118              9   1  0  shift logical
          51634    101     108      2   1  1  add literal address          FORM SWITCH START
          51635    103     108     27   0  0  copy (A) to N
          51636    101     127     11   1  2  subtract literal address     *2£4                00002
          51637    127     517      4   0  2  jump A >= Z                  >NOT A SWITCH
          51638    124     108     27   0  1  modify address of next       STORE PROG IDENT
          51639    106             39   0  0  select (N)
          51640    103     222     10   1  0  copy (A) to N
          51641    127     477      2   0  0  jump A = Z                   *364 >REJECT        00008
  Source image: P1020740.JPG
          51642    124     516     10   1  0  unconditional jump           >COMMANDS

          51700    PROCR   517       517     GROUP2: FUNCTION 1
          51701     NOTES          RADIX     B    UNLOAD
          51702    106     222     10   1  0  select (N)                   STORE ID OF PROG TO BE UNLOADED
          51703    126     479      2   0  0  enter subroutine             >S/R M*
    51637>51704    124     477      2   1  0  unconditional jump           *364 >REJECT        00008
          51705    106              4   0  0  select (N)                                       TEST MASTER ROUTINE
          51706    127     477      2   0  0  jump A = Z                   *364 YES REJECT     00008
          51707    124              4   0  1  modify address of next
          51708    124     230      3   0  1  modify address of next       SET MR1 FOR PROG
          51709    126             36   1  1  set modification register
          51710    124              3   0  1  modify address of next       *60Ю
          51711    106             11   0  0  select (N)
          51712    124     233     45   0  1  modify address of next
          51713    127              9   0  1  jump A != Z                  *60Ю >YES TO PTS
          51714    125              0   1  2  interrogate indicators       *601
          51715    124     295     17   1  0  unconditional jump           >ABANDON PROGRAM

          51800    PROCR   518       518     GROUP 2: FUNCTION 6
          51801     NOTES          RADIX     B    INTERCHANGE PRIORITIES
          51802    106     222     10   0  0  select (N)                   *0‼Ю*1.2 PROG IDENT NO
          51803    126     479      2   0  0  enter subroutine             >S/R M*
          51804    124     477      2   1  0  unconditional jump           *364 >REJECT        00008
          51805    106              4   0  0  select (N)                                       TEST IF COMMAND GIVE
          51806    103              5   0  0  copy (A) to N                                    FOR TOP PROG.
          51807    101              4   1  2  subtract literal address
          51808    127     477      4   0  3  jump A < Z                   *364 >REJECT        00008
          51809    106     230      2   1  2  select (N)
          51810    102     221      2   1  0  transfer (A) to N
          51811    106     229      4   1  2  select (N)                   *3Ю4*3‼+            0000200002
          51812    102     230      2   1  2  transfer (A) to N
          51813    106     221      2   1  0  select (N)
          51814    102     229      4   1  2  transfer (A) to N            *3Ю4*3‼+            0000200002
          51815    106     229      5   0  2  select (N)                   *3Ю4*3‼+            0000300003
          51816    102              4   0  0  transfer (A) to N
          51817    101     220      5   1  3  select literal address                           SET UP (MR'S 2&3)
          51818    102              6   0  0  transfer (A) to N
          51819    126     235      2   0  0  enter subroutine             >S/R X

          51900    PROCR   519       519     INTERCHANGE PRIORITIES (2)
          51901     NOTES          RADIX     B
          51902    106              4   0  0  select (N)                   *0‼Ю*1.2
          51903    102              6   0  0  transfer (A) to N
          51904    124              5   0  1  modify address of next                           RESET MR'S 1&2
          51905    106     228     27   0  0  select (N)                   *3Ю4*3‼+            0002500025
          51906    102              4   0  0  transfer (A) to N
          51907    126     235      2   0  0  enter subroutine             >S/RX
          51908    106              4   0  0  select (N)
          51909    102              6   0  0  transfer (A) to N
          51910    124              5   0  1  modify address of next
          51911    106     230      3   0  0  select (N)                                       RESET MR'S 2AND3
          51912    102              4   0  0  transfer (A) to N
          51913    126     235      2   0  0  enter subroutine             >S/R X
          51914    106              4   0  0  select (N)
          51915    102              6   0  0  transfer (A) to N
          51916    101     220      5   1  3  select literal address                           RESET (MR'S 2&3)
          51917    102              4   0  0  transfer (A) to N
          51918    126     235      2   0  0  enter subroutine             >S/R X
          51919    124     495      2   0  2  select literal and division
          51920    124     478      2   1  0  unconditional jump

          52000    PROCR   520       520     GROUP 2 FUNCTION 7
          52001     NOTES          RADIX     B    OPEN PROGRAMME
          52002    106     222     10   0  0  select (N)                   *0:Ю                PROG ID NO
          52003    126     479      2   0  0  enter subroutine             >S/R M*
  Source image: P1020741.JPG
          52004    124     477      2   1  0  unconditional jump           *364 >REJECT        00008
          52005    106     230      3   0  2  select (N)                   START OF SWITCH
          52006    102              4   1  0  transfer (A) to N                                SET MR2= START OF SW
          52007    106             45   0  2  select (N)                   *462 ORIGINAL SW.SETTING
          52008    105     209      4   0  0  subtract (N) from (A)        TEST 26/1/0 INSTRUCTION
          52009    127     477      4   0  0  jump A = Z                   *462*364 >YES REJECT0000000008 NOT CLOSE
          52010    106             45   0  2  select (N)                   ORIGINAL SW. SETTING
          52011    127     477      4   0  2  jump A >= Z                  *364 >REJ NOT CLOSED00008
          52012    102              7   0  2  transfer (A) to N                                RESET SWITCH
          52013    102             45   0  2  transfer (A) to N                                CLEAR W/L
          52014    101     495     10   1  3  select literal address       START OF EDIT TABLE
          52015    124     478      2   1  0  unconditional jump           >

          52100    PROCR   521       521     GROUP 2: FUNCTION 8
          52101     NOTES          RADIX     B    AMEND RUN NUMBER
          52102    106     222     10   0  0  select (N)                   *0+Ю                PROG ID NO
          52103    126     479      2   0  0  enter subroutine             >S/R M*
          52104    124     521      6   1  0  unconditional jump           >PROG NOT IN PRIORITY LIST
          52105    124     477      4   1  0  unconditional jump           *364 >REJ NOT ENDED 00008
    52104>52106    126     479      2   0  0  enter subroutine             >S/R M*
          52107    124     477      2   1  0  unconditional jump           *364 >REJ NOT IN STO00008
          52108    106     230      3   0  2  select (N)                   START OF SWITCH
          52109    102              6   0  0  transfer (A) to N
          52110    106             39   0  3  select (N)                                       TEST REQD PROG
          52111    105     222     10   0  0  subtract (N) from (A)
          52112    127     479     11   0  1  jump A != Z                  >NO
          52113    124              6   0  1  modify address of next       *60Ю                TEST PROG UNDER
          52114    124             37   0  1  modify address of next                           TRIAL
          52115    106             11   0  0  select (N)
          52116    127     521     45   0  1  jump A != Z                  *60Ю*363
          52117    106     222     10   0  0  select (N)                   REPLACE PROG IN PRIORITY LIST
          52118    102     230      2   0  2  transfer (A) to N
          52119    106             37   0  3  select (N)                   START OF LAST CHAP
          52120    102              4   0  0  transfer (A) to N
          52121    106     229      5   0  0  select (N)                   *3Ю4*3‼+            0000300003
          52122    103             40   0  3  copy (A) to N                                    STORE NEW RUN N
          52123    102             15   0  2  transfer (A) to N
          52124    106     226     11   0  0  select (N)                                       TEST (A), (B)
          52125    105     214     11   0  0  subtract (N) from (A)                            SPECIFIED
          52126    127     521     31   0  0  jump A = Z                   >NO
          52127    106     226     12   1  0  select (N)                   STORE(A),(B)
          52128    102             30   1  3  transfer (A) to N
          52129    106     226     14   1  0  select (N)
          52130    124     521     32   1  0  unconditional jump           >
    52126>52131    102             30   1  3  transfer (A) to N
    52130>52132    102             32   1  3  transfer (A) to N
          52133    106     210      3   0  0  select (N)                   SET (C) DECIMAL
          52134    102             34   0  3  transfer (A) to N
          52135    102             46   1  1  transfer (A) to N            CLEAR TIME SPENT IN PROGRAMME
          52136    101             15   0  1  prepare for digit collation
          52137    106             10   0  2  select (N)                   TAG
          52138    118              4   0  0  shift logical
          52139    115              8   0  2  collate and add              ENTRY PT
          52140    102             44   0  3  transfer (A) to N
          52141    106             35   0  3  select (N)                   SET SWITCH AT 4
          52142    102              7   0  3  transfer (A) to N
          52143    124     495     20   0  2  select literal and division  START OF EDIT TABLE
          52144    124     478      2   1  0  unconditional jump
    52116>52145    124             83   0  2  select literal and division  *361
          52146    124     477      5   1  0  unconditional jump           *364 >              00008

          52200    PROCR   522       522     GROUP 2 FUNCTION 9
          52201     NOTES          RADIX     B    CLOSE PROGRAMME
          52202    106     222     10   0  0  select (N)                   *0:Ю
          52203    126     479      2   0  0  enter subroutine             >S/R M*
          52204    124     477      2   1  0  unconditional jump           *364 >REJECT        00008
  Source image: P1020742.JPG
          52205    106     230      3   0  2  select (N)
          52206    102              4   1  0  transfer (A) to N
          52207    106              7   0  2  select (N)                                       TEST IF SWITCH
          52208    105              9   0  2  subtract (N) from (A)                            ALREADY CLOSED
          52209    127     477      4   0  0  jump A = Z                   *364 >YES REJECT    00008
          52210    106              7   0  2  select (N)                   STORE SWITCH SETTING IN ASS. TIME
          52211    102             45   0  2  transfer (A) to N
          52212    106              9   0  2  select (N)                   CLOSE SWITCH
          52213    102              7   0  2  transfer (A) to N
          52214    126     177      2   0  0  enter subroutine             >REQUEST T/W
          52215    101     495     12   1  3  select literal address       START OF EDIT TABLE
          52216    128     102      8   1  2  edit fixed field formats
          52217    106     215      2   1  0  select (N)                   FORM COMMENT
          52218    102     102      6   1  0  transfer (A) to N
          52219    101            768   0  1  prepare for digit collation
          52220    114     102      8   1  0  replace selected bits
          52221    124     478      6   1  0  unconditional jump           >EDIT TIME

          52300    PROCR   523       523     GROUP 3
          52301     NOTES          RADIX     B    DETERMINE FUNCTION
          52302    101              1   0  1  prepare for digit collation  *41Ю FILL QIB
          52303    101              2   1  3  select literal address       LIMIT OF FN. NO.
          52304    126     500      2   0  0  enter subroutine             >S/R R
          52305    124     463      2   1  0  unconditional jump           >STORE DUMP

          52400    PROCR   524       524     GROUP 4
          52401     NOTES          RADIX     B    DETERMINE FUNCTION
          52402    126     461      2   0  0  enter subroutine
          52403    101             10   1  3  select literal address       *11+12+40+*11+40+   0000600008
          52404    126     500      2   0  0  enter subroutine             >S/R R
          52405    103     524      9   0  0  copy (A) to N
          52406    126     459      2   0  0  enter subroutine             >S/R G
          52407    124     524      9   0  1  modify address of next
          52408    126     524      9   0  1  leave subroutine
          52409    100              0   0  0  Halt                         FUNCTION NUMBER
          52410    100     525      2   0  0  Halt                         >SET RELEASED TAPES INDEX
          52411    100     487      8   0  0  Halt                         >ALLOC              WITHOUT
          52412    100     526      2   0  0  Halt                         *4Ю‼ SET REL TAPES INDEX
          52413    100     487      8   0  0  Halt
          52414    100     477      8   0  0  Halt                         >REJECT
          52415    100     527      2   0  0  Halt                         *12‼*11Ю12Ю40Ю      >AVAIL ROUTE
          52416    100     528      2   0  0  Halt                         *12‼ >SET ROUTE NOT AVAILABLE
          52417    100     529      2   0  0  Halt                         *11‼ >CHANGE ROUTE NO
          52418    100     487      3   0  0  Halt                         *40‼ OVERWRITE ALLOC

          52500    PROCR   525       525     GROUP4: FUNCTION1
          52501     NOTES          RADIX     B    SET RELEASED TAPES INDEX
          52502    106     226      5   1  0  select (N)                                       TEST 2ND WORD ZERO
          52503    127     525     28   0  1  jump A != Z                  >NO
          52504    124             24   0  2  select literal and division  *4:4                00012
          52505    105     525     30   0  0  subtract (N) from (A)
          52506    102     525     30   0  0  transfer (A) to N
          52507    106     534      4   1  0  select (N)                   UNPACK INDEX
          52508    124     525     30   0  1  modify address of next
          52509    128     196      2   1  0  bulk copy alpha to short
          52510    125              0   1  2  interrogate indicators       *6.Ю
          52511    124     525     30   0  1  modify address of next
          52512    102     196      2   0  0  transfer (A) to N            *6.Ю
          52513    106     534      6   1  0  select (N)                   *4:2*102
          52514    124     525     30   0  1  modify address of next
          52515    128     196     14   1  0  bulk copy alpha to short     *4:2*102
          52516    126     177      2   0  0  enter subroutine             >REQUEST T/W
          52517    106     215     46   1  0  select (N)                   *4ЮЮ                'LONG'
    52612>52518    102     102     10   1  0  transfer (A) to N            *4ЮЮ
          52519    106     214     58   1  0  select (N)                   'R T I'             SET UP COMMENT
          52520    102     102      6   1  0  transfer (A) to N
  Source image: P1020743.JPG
          52521    102     102      8   1  0  transfer (A) to N            *6.Ю
          52522    106     226      6   1  0  select (N)                   SER NO
          52523    102     102     10   1  0  transfer (A) to N            *6.Ю*4Ю4            000000014
          52524    106     214     80   1  0  select (N)
          52525    102     102     12   1  0  transfer (A) to N            *6.+4Ю+*6.44Ю4      0000800016
          52526    102     102     12   1  0  transfer (A) to N            *4Ю9*6.+            0000000008
          52527    124     478      6   1  0  unconditional jump           >OUTPUT COMMENT
    52603>
    52503>52528    124             81   0  2  select literal and division  CODE LETTER A
          52529    124     498      5   1  0  unconditional jump           >
          52530    100              0   0  0  Halt                         IND (SET AT 0 OR 24)
          52531    127     477      4   0  1  jump A != Z                  *££0*££2*57‼36‼
          52532    127     477      8   0  1  jump A != Z                  *57‼363

          52600    PROCR   526       526     SET RELEASED TAPES INDEX (SHORT)
          52601     NOTES          RADIX
          52602    106     226      5   1  0  select (N)                   *4ЮЮ
          52603    127     525     28   0  1  jump A != Z                  >NO CD A
          52604    101             12   1  3  select literal address       SET UP MODIFIER
          52605    105     526     13   0  0  subtract (N) from (A)
          52606    102     526     13   0  0  transfer (A) to N
          52607    106     534      4   1  0  select (N)                   COPY TAPE NOS
          52608    124     526     13   0  1  modify address of next
          52609    128     196     26   1  0  bulk copy alpha to short
          52610    126     177      2   0  0  enter subroutine
          52611    106     215     44   1  0  select (N)                   'SHORT'
          52612    124     525     18   1  0  unconditional jump
          52613    100              0   0  0  Halt                         MODIFIER

          52700    PROCR   527       527     GROUP4:FUNCTION6
          52701     NOTES          RADIX     B    SET ROUTE AVAILABLE
          52702    126     502      2   0  0  enter subroutine             *12Ю >S/R S
          52703    101            255   1  2  subtract literal address                         TEST RTE UNAVAILABLE
          52704    127     527     12   0  1  jump A != Z                  *57‼36‼*57‼363      CHECK LIST IF MULTI-
          52705    118              1   1  0  shift logical
          52706    102             64   0  2  transfer (A) to N            SET ROUTE AVAILABLE
    52724>52707    102     222     11   0  0  transfer (A) to N
          52708    124     215      8   0  2  select literal and division  *12Ю AMEND EDIT TABLE
    52809>
    53185>52709    102     495     32   0  0  transfer (A) to N            *11Ю12Ю*111129
    53043>52710    124     495     32   0  2  select literal and division  START OF EDIT TABLE
          52711    124     478      2   1  0  unconditional jump
    52704>52712    106              4   0  0  select (N)                   *57Ю*12Ю CH CH RT IN MR 2
          52713    126     249      2   0  0  enter subroutine             >SEARCH LIST
          52714    124     527     16   1  0  unconditional jump           >FOUND
          52715    124     477      4   1  0  unconditional jump           *364 >NO            00008
    52714>52716    124     225     16   0  1  modify address of next       SET UP 64+R
          52717    106     224      3   0  0  select (N)
          52718    102             64   0  2  transfer (A) to N
          52719    106     258     17   0  0  select (N)                   SET UP TABLE ENTRY
          52720    101             22   1  2  subtract literal address
          52721    118              5   0  0  shift logical
          52722    124     225     16   0  1  modify address of next       CLEAR AREA
          52723    128     224      2   0  0  bulk copy short numeric
          52724    124     527      7   1  0  unconditional jump           >COMMENT

          52800    PROCR   528       528     GROUP4:FUNCTION 7
          52801     NOTES          RADIX     B    SET ROUTE NOT AVAILABLE
          52802    126     502      2   0  0  enter subroutine             *12Ю >S/R S
          52803    127     477      4   0  1  jump A != Z                  *364 >REJECT        00008
          52804    101            255   1  1  add literal address          SET ROUTE UNAVAILABLE
          52805    118              1   1  0  shift logical
          52806    102             64   0  2  transfer (A) to N
          52807    102     222     11   0  0  transfer (A) to N
          52808    124     215      6   0  2  select literal and division  AMEND EDIT TABLE
          52809    124     527      9   1  0  unconditional jump           *12Ю >COMMENT
  Source image: P1020744.JPG
          52810    127     531     86   0  0  jump A = Z                   *££0*££2*873*88£    >YES REJECT
          52811    127     531     86   0  2  jump A >= Z                  *87‼                >YES REJECT
          52812    127     531     86   0  3  jump A < Z                   *87Ю87‼             >NO REJECT
          52813    127     531     86   0  1  jump A != Z                  *87‼87‼             >NO REJECT
          52814    127     531     24   0  0  jump A = Z                   *853 >YES
          52815    127     531     67   0  0  jump A = Z                   *87987‼             >YES

          52900    PROCR   529       529     GROUP 4 FUNCTION 8
          52901     NOTES          RADIX     B    CHANGE ROUTE NUMBER
          52902    126     502      2   0  0  enter subroutine             *11Ю >S/R S
          52903    125              0   1  2  interrogate indicators       DRAIN
          52904    118              1   1  0  shift logical
          52905    103     531     90   0  0  copy (A) to N                *879889
          52906    103     533      6   0  3  copy (A) to N
          52907    125              1   0  3  step on and test             STEP MR3
          52908    124     502      6   1  0  unconditional jump           >DECODE OLD ROUTE
          52909    106             64   0  2  select (N)                   PROG TAG IN Q5 IF OLD ROUTE IN USE
          52910    118           4124   0  0  shift logical
          52911    127     531     86   0  0  jump A = Z                   >NO REJECT
          52912    103     533      7   0  0  copy (A) to N                STORE TAG
          52913    101             13   1  2  subtract literal address                         TEST IF M/R ROUTE
          52914    127     531     86   0  2  jump A >= Z                  *873                >YES REJECT
          52915    106     533      6   0  0  select (N)                                       NEW ROUTE TYPE
          52916    101              5   1  2  subtract literal address                         TEST P/T I/P
          52917    127     529     29   0  0  jump A = Z                   *88‼                >YES SET INDZERO
          52918    106     533      3   0  0  select (N)                   OLD CHANNEL         TEST IF M/T ROUTE
          52919    101             16   1  2  subtract literal address     *3:Ю                TEST M/T ROUTE
          52920    127     529     58   0  3  jump A < Z                   *3:Ю*87‼            >NO
          52921    101              1   1  2  subtract literal address     *234*244            0000200003
          52922    127     529     58   0  2  jump A >= Z                  *87Ю87‼             >NO
          52923    106     533      2   0  0  select (N)                   *87Ю88Ю*87Ю         NEW CHANNEL
          52924    101             16   1  2  subtract literal address     *3:Ю                TEST M/T
          52925    127     531     86   0  3  jump A < Z                   *3:Ю                >NO REJECT
          52926    101              1   1  2  subtract literal address     *234*244            0000200003
          52927    127     531     86   0  2  jump A >= Z                  *87Ю                >NO REJECT
          52928    101             15   1  3  select literal address       *889*871
    52917>52929    102     531     90   0  0  transfer (A) to N            SET IND NEG FOR MT ZERO FOR PT
          52930    126     212      8   1  3  set modification register                        MR3 SPANS SWITCHES
    52935>52931    106     112      2   0  3  select (N)                                       TEST OLD ROUTE
          52932    105     533      9   0  0  subtract (N) from (A)                            IN SI+30
          52933    127     529     37   0  0  jump A = Z                                       >YES
          52934    125             48   0  3  step on and test
          52935    124     529     31   1  0  unconditional jump                               >NEXT PROG
          52936    124     531     86   1  0  unconditional jump                               >NO REJECT
    52933>52937    124              6   0  1  modify address of next
          52938    126     112      8   1  1  set modification register
          52939    106             31   0  1  select (N)                                       TEST OPENING FILE
          52940    101             15   1  2  subtract literal address     *88+                00017
          52941    127     529     44   0  3  jump A < Z                   *87987‼             >NO
          52942    101              4   1  2  subtract literal address     *87Ю*88+            0000000002
          52943    127     529     67   0  3  jump A < Z                   *87Ю                >YES
    52941>52944    106             31   0  1  select (N)
          52945    101     267      2   1  1  add literal address
          52946    101     305     25   1  2  subtract literal address     *87Ю                TEST REOPEN
          52947    127     529     67   0  0  jump A = Z                   >YES                M/T O/P REEL
          52948    101     305     25   1  1  add literal address
          52949    101     421     61   1  2  subtract literal address                         TEST REOPEN
          52950    127     529     67   0  0  jump A = Z                   >YES                M/T I/P REEL
          52951    101     421     61   1  1  add literal address
          52952    101     291      6   1  2  subtract literal address     *5+Ю                TEST IN
          52953    127     529     67   0  0  jump A = Z                   >YES                OPT 13
          52954    101     291      6   1  1  add literal address          *87Ю*5+Ю*889
          52955    101     365     35   1  2  subtract literal address     *88Ю                TEST REOPEN
          52956    127     529     67   0  0  jump A = Z                   *88Ю >YES           P/T I/P REEL
          52957    124     531     86   1  0  unconditional jump           *87Ю88Ю             >NO REJECT
    52922>
  Source image: P1020745.JPG
    52920>52958    126     212      8   1  3  set modification register
          52959    106     533      7   0  0  select (N)                   TAG
    52963>52960    101              1   1  2  subtract literal address
          52961    127     529     65   0  0  jump A = Z                   >
          52962    125             48   0  3  step on and test
          52963    124     529     60   1  0  unconditional jump           >TRY AGAIN
          52964    124     531     86   1  0  unconditional jump           >REJECT
    52961>52965    124              6   0  1  modify address of next
          52966    126     112      8   1  1  set modification register
    52956>
    52953>
    52950>
    52947>
    52943>52967    106     533      9   0  0  select (N)                   OLD ROUTE
          52968    102     188      2   0  0  transfer (A) to N
          52969    126     353      2   0  0  enter subroutine             SELECT RTE NO FROM LAST CHAP
          52970    127     529     74   0  0  jump A = Z                   >
          52971    125              2   0  3  step on and test             STEP TO TEST NEXT ROUTE
          52972    124     353      4   1  0  unconditional jump           >NO
          52973    124     531     86   1  0  unconditional jump           >REJECT
    52970>52974    101             16   0  1  prepare for digit collation  COLLATE OLD ROUTE TYPE
          52975    115             34   0  3  collate and add              AND TEST SAME AS NEW ROUTE TYPE
          52976    118           4124   0  0  shift logical
          52977    103     533      7   0  0  copy (A) to N                *879 COPY OLD ROUTE TYPE
          52978    105     533      6   0  0  subtract (N) from (A)
          52979    127     529     82   0  0  jump A = Z                   *87‼87‼ >YES
          52980    106     531     90   0  0  select (N)                   *87Ю NO MUST BE MT
          52981    127     531     86   0  2  jump A >= Z                  *87Ю >NOT REJECT
    52979>52982    124     533      8   0  1  modify address of next       TEST NEW ROUTE
          52983    106             64   0  0  select (N)                   AVAILABLE
          52984    118           4127   0  0  shift logical
          52985    127     531     86   0  1  jump A != Z                  >NO REJECT
          52986    106             64   0  2  select (N)                   INTERCHANGE ASL'S
          52987    124     533      8   0  0  modify address of next
          52988    102             64   0  0  transfer (A) to N
          52989    106     533      7   0  0  select (N)                   *87+                00006
          52990    101           4080   1  1  add literal address          ADD ££0 TO MAKE UNAVAILABLE
          52991    103             64   0  2  copy (A) to N

          53000    PROCR   530       530     CHANGE ROUTE(2)
          53002    101           4086   1  2  subtract literal address     *11Ю*04Ю*89Ю TEST RT TYPE 6
          53003    127     530     29   0  1  jump A != Z                  *853 >NO
          53004    101              7   1  2  subtract literal address     REPLACE
          53005    127     530     29   0  1  jump A != Z                  UPTIME ROUTE
          53006    106     533      9   0  0  select (N)
          53007    105     221     39   0  0  subtract (N) from (A)
          53008    127     530     12   0  1  jump A != Z
          53009    106     533      8   0  0  select (N)
          53010    102     221     39   0  0  transfer (A) to N
          53011    124     530     14   1  0  unconditional jump
    53008>53012    106     533      8   0  0  select (N)
          53013    102     221     41   0  0  transfer (A) to N
    53011>53014    106     533      9   0  0  select (N)                   TEST W/E IND SET
          53015    105     381     24   0  0  subtract (N) from (A)
          53016    127     530     19   0  1  jump A != Z                  >NO
          53017    106     533      8   0  0  select (N)                   REPLACE
          53018    102     381     24   0  0  transfer (A) to N
    53016>53019    106     533      9   0  0  select (N)
          53020    105     381     23   0  0  subtract (N) from (A)
          53021    127     530     24   0  1  jump A != Z                  >NO
          53022    106     533      8   0  0  select (N)                   REPLACE
          53023    102     381     23   0  0  transfer (A) to N            *85Ю
    53021>53024    106             65   0  2  select (N)                   INTERCHANGE OTHER
          53025    124     533      8   0  1  modify address of next       HALF OF ASL
  Source image: P1020746.JPG
          53026    102             65   0  0  transfer (A) to N
          53027    101              1   1  3  select literal address       SET CARD IND=1
          53028    124     530     30   1  0  unconditional jump
    53005>
    53003>53029    125              0   1  2  interrogate indicators       SET CARD IND=0
    53028>53030    102     531     91   0  0  transfer (A) to N            *04Ю*89Ю
          53031    106     533      8   0  0  select (N)                   COLLATE NEW ROUTE
          53032    118              3   0  0  shift logical                *87+                00007
          53033    104     533      6   0  0  add (N) to (A)               *87Ю
          53034    118              4   0  0  shift logical                *87Ю AND ROUTE TYPE
          53035    104     533      8   0  0  add (N) to (A)               INTO SP CH DETAILS
          53036    101            403   0  1  prepare for digit collation  *87+                00387
          53037    114             34   1  3  replace selected bits
          53038    106     533      8   0  0  select (N)                   NEW ROUTE
          53039    126     328      2   0  0  enter subroutine             ALTER ROUTE NO IN PARAMETER LISTS
          53040    127     531     10   0  0  jump A = Z                   *££0*££2*043893
          53041    127     531     20   0  0  jump A = Z                   *042893             >YES
          53042    127     531     40   0  1  jump A != Z                  *87‼88‼*87‼         >NO
          53043    124     527     10   1  0  unconditional jump           *12‼                >COMMENT
          53044    126     351      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          53045    124     477      8   1  0  unconditional jump           *363 >C REJ

          53100    PROCR   531       531     CHANGE ROUTE(3)
          53102    125              0   1  2  interrogate indicators       *11Ю
          53103    101              3   0  1  prepare for digit collation
          53104    115              7   0  1  collate and add                                  TEST OLD RTE SET UP
          53105    105     531      9   0  0  subtract (N) from (A)                            IN SI+7
          53106    127     531     14   0  1  jump A != Z                  *043893             >NO
          53107    105     531     91   0  0  subtract (N) from (A)        *04Ю*89Ю            TEST OLD RTE+1 SET U
          53108    127     531     14   0  1  jump A != Z                  >NO                 IN SI IF CARDS
          53109    101              1   1  1  add literal address          *04Ю*89Ю
    53040>53110    104     533      8   0  0  add (N) to (A)               NEW ROUTE NO
          53111    114              7   0  1  replace selected bits
          53112    125              0   1  2  interrogate indicators
          53113    102             45   0  1  transfer (A) to N            CLEAR ASSOCIATED TIME
    53108>
    53106>53114    106             30   0  1  select (N)                   TEST OLD ROUTE IN SI+30
          53115    105     533      9   0  0  subtract (N) from (A)
          53116    127     531     22   0  1  jump A != Z                  *042893*87‼88‼      >NO
          53117    105     531     91   0  0  subtract (N) from (A)        *04Ю*89Ю OLD RTE+1 IN SI+30
          53118    127     531     22   0  1  jump A != Z                  *87‼88‼             >NO
          53119    104     531     91   0  0  add (N) to (A)               *04Ю*89Ю YES
    53041>53120    104     533      8   0  0  add (N) to (A)               SET UP NEW ROUTE
          53121    102             30   0  1  transfer (A) to N            IN SI+30
    53118>
    53116>53122    106     531     90   0  0  select (N)                   *87Ю88Ю
          53123    127     531     33   0  0  jump A = Z                   *889*87‼            >PT
    52814>53124    127     531     40   0  2  jump A >= Z                  *87Ю
          53125    126     108     18   1  3  set modification register    COPY MT FILE
    53131>53126    124     533      9   0  1  modify address of next       DETAILS
          53127    106     190      2   0  3  select (N)
          53128    124     533      8   0  1  modify address of next
          53129    102     190      2   0  3  transfer (A) to N
          53130    125             24   0  3  step on and test             *234*224            0001600008
          53131    124     531     26   1  0  unconditional jump
          53132    124     531     74   1  2  modify address of next       *87Ю >COMMENT
    53123>53133    124     531     74   0  2  select literal and division  *88Ю
          53134    102     325      2   0  0  transfer (A) to N            COPY PAPER TAPE
          53135    106     533      9   0  0  select (N)                   FILE DETAILS FOR
          53136    102     221      3   0  0  transfer (A) to N            SUBSEQUENT REELS
          53137    106     533      8   0  0  select (N)                   NEW ROUTE
          53138    102     188      2   0  0  transfer (A) to N
          53139    124     325      6   1  0  unconditional jump           *88Ю*87Ю88Ю
    53124>
    53042>53140    106     533      3   0  0  select (N)                   SET MR3
          53141    118              3   0  3  shift binary                 AT 8*OLD CHANNEL
  Source image: P1020747.JPG
          53142    102              6   0  0  transfer (A) to N
          53143    106     252      2   0  3  select (N)                   TEST OLD ROUTE LAST
          53144    105     533      9   0  0  subtract (N) from (A)        TO USE ITS CHANNEL
          53145    127     531     60   0  1  jump A != Z                  >NO
          53146    106     252      3   0  3  select (N)                   STORE ROUTE TYPE
          53147    103     533      7   0  0  copy (A) to N                FOR FUTURE USE
          53148    105     211      2   0  0  subtract (N) from (A)        TEST ASSEMBLER TABLE CLEARED
          53149    127     531     60   0  0  jump A = Z                   YES>
          53150    126     107      8   1  1  set modification register    (MR1)FOR MR SWITCH
          53151    106     533      9   0  0  select (N)                   OLD ROUTE
          53152    102             30   0  1  transfer (A) to N            IN SI+30
          53153    126     352      2   0  0  enter subroutine             *09‼06‼             TEST RTE NOTING D/B
          53154    124     533      9   0  1  modify address of next       SET ROUTE
          53155    119              0   1  2  unload                       TO MANUAL
          53156    124              3   0  1  modify address of next
          53157    106            160   0  0  select (N)                   TEST D/B OCCURRED
          53158    127     531     74   0  0  jump A = Z                   >NO
          53159    124     531     71   1  0  unconditional jump           >YES
    53149>
    53145>53160    106     533      3   0  0  select (N)                   TEST D/B IND SET
          53161    118              3   0  3  shift binary                 FOR OLD CHANNEL
          53162    102              6   0  0  transfer (A) to N            8*OLD CHANNEL
          53163    101              1   0  1  prepare for digit collation
          53164    124     533      5   0  1  modify address of next       OLD ROUTE
          53165    118              0   1  0  shift logical
          53166    115     252      4   1  3  collate and add              COLLATE OUT D/B IND
    52815>53167    125     531     74   0  0  step on and test             >NO
          53168    118     533      7   1  2  scale denominator            ALIGN TO
          53169    118           4120   0  0  shift logical                Q1 OF A
          53170    102     533      7   0  0  transfer (A) to N
    53159>53171    106     103     15   0  0  select (N)                   SET SWITCH SAS
          53172    102     265      4   0  0  transfer (A) to N            =2
          53173    124     531     75   1  0  unconditional jump           >
    53158>53174    102     533      7   0  0  transfer (A) to N            STORE D/B IND
    53173>53175    106     533      2   0  0  select (N)                   NEW CH
          53176    118              3   0  3  shift binary
          53177    102              6   0  0  transfer (A) to N            8*NEW CH
          53178    101              1   0  1  prepare for digit collation
          53179    106     533      7   0  0  select (N)
          53180    124     533      4   0  1  modify address of next
          53181    118              0   1  0  shift logical                COLLATE IN D/B IND
          53182    114     252      4   0  3  replace selected bits        FOR NEW ROUTE
          53183    126     107      8   1  1  set modification register    (MR1)FOR M/R
          53184    124     215     14   0  2  select literal and division  *129
          53185    124     527      9   1  0  unconditional jump           *12‼                >COMMENT
    52985>
    52981>
    52973>
    52964>
    52957>
    52936>
    52927>
    52925>
    52914>
    52911>
    52813>
    52812>
    52811>
    52810>53186    126     107      8   1  1  set modification register    (MR1)FOR M/R
          53187    106     221     11   0  0  select (N)                   *363
          53188    102     221     10   0  0  transfer (A) to N            *362
          53189    124     477      2   1  0  unconditional jump           *362 C REJ A
          53190    100              0   0  0  Halt                         *879889             MT/PT INDICATOR
          53191    100              0   0  0  Halt                         *11Ю*049*899
  Source image: P1020748.JPG
          53192    127     477      8   0  2  jump A >= Z                  *££0*££2*3:‼363     >C REJ
          53193    127     477      2   0  2  jump A >= Z                  *3:‼36‼             >C REJ A

          53200    PROCR   532       532     GP6 AND GP7 SET ROUTE AVAILABLE AND WITHDRAW ROUTE
          53202    101              3   0  1  prepare for digit collation  *5£Ю*12Ю COLLATE CHANNEL/ROUTE
          53203    115            185   0  0  collate and add
          53204    101            128   1  2  subtract literal address     CONVERT RTE
          53205    127     532      7   0  3  jump A < Z                   *3:‼363*3:‼36‼
          53206    101            224   1  1  add literal address          *3:9
    53205>53207    101            128   1  1  add literal address
          53208    102     222     10   0  0  transfer (A) to N            STORE FOR ENTRY TO COMMANDS
          53209    124     199     78   0  1  modify address of next
          53210    126     524      9   0  1  leave subroutine

          53300    CONST   533       533     1    W/L'S FOR OP INT
          53302          (D)0;                                             OLD CHANNEL/NEW CHANNEL
          53304          0;                                                OLD ROUTE/NEW ROUTE
          53306          0;                                                WL/Q1 OF NEW ROUTE
          53308          0;                                                OLD RTE/NEW RTE IN BINARY

          53400    TABLE   534       534     1    BULK COPY TABLES TO UNPACK RT1
          53401     NOTES                         ALSO TO ENSURE ISUER STARTS IN EVEN LOCATION
          53402   226     7     0     0  0  0   8   0   1   0  0  0  0     *££0*££1*1034:3*4:3                       T 7
          53404   226     7     0     0  0  0   0   0   3   0  0  0  0     *1034:3*4:3                               T 7
          53406   227     7     0     0  0  0   8   0   1   0  0  0  0     *4:1                                      T 7

          53500    PROCR   535       535     INITIAL SET UP END ROUTINE
          53501     NOTES          RADIX     B
    55508>53502    124     535      4   0  3  modify address of next
          53503    124     181      2   1  0  unconditional jump
          53504    100              0   0  0  Halt

          53600    PROCR   536       536     FORM UP DIVISION 0 AND 1 DETAILS
    10002>53602    102     103      3   0  1  transfer (A) to N            TEST STORE PRINT
          53603    101             60   1  3  select literal address       REQUIRED
          53604    101             60   1  2  subtract literal address     *844                00030
          53605    127     536      8   0  0  jump A = Z                   >NO
          53606    101              1   1  3  select literal address       SET IND
          53607    102     558     14   0  0  transfer (A) to N
    53605>53608    101     535      2   1  3  select literal address
          53609    102     231      2   0  1  transfer (A) to N
          53610    124     551      2   1  0  unconditional jump

          53700    PROCR   537       537     STORE PRINT SET UP
          53702    125           4096   1  1  clear indicators             SET NON-INT
          53703    124     547     13   1  3  store indicators             STORE INDICATORS
          53704    106     542     31   0  0  select (N)
          53705    124              0   0  3  modify address of next
          53706    102             25   0  0  transfer (A) to N
          53707    125           8191   1  1  clear indicators             CLEAR INDICATORS
          53708    106     547     26   1  0  select (N)                   *3‼Ю                SET UP
          53709    102     547      4   1  0  transfer (A) to N            *3‼Ю                STORE COUNTER
          53710    102     547      4   0  0  transfer (A) to N            *3‼1                CLEAR STORE COUNTER
          53711    124     550      2   0  2  select literal and division  EDIT HEADING
          53712    126     545      2   0  0  enter subroutine             EDIT AND O/P S/R

          53800    PROCR   538       538     TEST FOR TAG CHANGES
    53939>
    53946>
    53959>53802    125           1792   1  2  interrogate indicators
          53803    127     538      5   0  0  jump A = Z                                       STORE I9-11
          53804    118           4126   0  1  shift arithmetic
    53803>53805    102     547     30   0  0  transfer (A) to N            STORE TAG
          53806    125           1792   1  1  clear indicators             CLEAR I9-11
          53807    106     547     18   1  0  select (N)                   COPY 4 SHORT WORDS
          53808    104     547      4   0  0  add (N) to (A)               NUMERIC>ALPHA
  Source image: P1020896.JPG
          53809    128     548      3   0  1  bulk copy short numeric
          53810    124     547      4   0  3  modify address of next       STORE IST TAG       TEST TAG CHANGE
          53811    123              0   0  3  select tag
          53812    103     547      6   0  0  copy (A) to N
          53813    105     547      7   0  0  subtract (N) from (A)        SECOND TAG
          53814    127     538     16   0  0  jump A = Z                   >NO
          53815    102     547      3   0  0  transfer (A) to N            SET TAG CHANGE IND
    53814>53816    124     547      4   0  3  modify address of next       STORE 2ND TAG       TEST TAG CHANGE
          53817    123              2   0  3  select tag
          53818    103     547      7   0  0  copy (A) to N
          53819    105     547      6   0  0  subtract (N) from (A)
          53820    127     539      2   0  0  jump A = Z                   >NO
          53821    102     547      3   0  0  transfer (A) to N            SET TAG CHANGE IND

          53900    PROCR   539       539     SET UP EDIT TABLES
    53910>
    53820>53902    124     547      8   0  1  modify address of next
          53903    106     548      2   1  0  select (N)                   NEXT SHORT WORD     TEST ZERO
          53904    127     539      8   0  0  jump A = Z                   >YES
          53905    126     543      2   0  0  enter subroutine             >SET UP SHORT WORD S/R
          53906    124     547      8   0  1  modify address of next
          53907    102     548      2   1  0  transfer (A) to N
    53904>53908    123              2   0  0  step on and test             STEP ON SH.WORD CTR
          53909    100     547      8   0  0  Halt                                             TEST 4 SHORT WORDS D
          53910    124     539      2   1  0  unconditional jump           >NO
          53911    102     547      8   0  0  transfer (A) to N            RESET COUNTER
          53912    106     547      3   0  0  select (N)                                       TEST FOUR ZERO WORDS
          53913    127     539     47   0  1  jump A != Z                  >NO                 OR NO TAG CHANGE
    54114>53914    125              2   1  2  interrogate indicators                           TEST 12 SET
          53915    127     542      2   0  1  jump A != Z                  >YES
          53916    106     547      4   0  0  select (N)
          53917    124     999      0   0  3  modify address of next       TEST PRINTED TO END OF PROGRAM SWITCHES
          53918    101     130      2   1  2  subtract literal address
          53919    127     539     37   0  3  jump A < Z                   >NO
          53920    125             32   1  2  interrogate indicators                           TEST 16 SET
          53921    127     539     37   0  0  jump A = Z                   >NO
          53922    106     547      4   0  0  select (N)
          53923    101           8191   1  2  subtract literal address
          53924    127     539     31   0  2  jump A >= Z                  >NOT IN DIV 0
          53925    101           8191   1  1  add literal address
          53926    101     535      4   1  2  subtract literal address
          53927    127     539     37   0  2  jump A >= Z                  >NOT IN MASTER
          53928    101     535      4   1  3  select literal address
          53929    102     547      4   0  0  transfer (A) to N            SKIP REST OF MASTER IN DIV 0
          53930    124     539     37   1  0  unconditional jump
    53924>53931    124     550      2   0  2  select literal and division  ARRANGE TO SKIP REST OF MASTER
          53932    102     547      4   0  0  transfer (A) to N
          53933    100     547     31   0  2  replace (B) by (N)
          53934    118           4124   1  0  shift logical
          53935    114     547      4   0  0  replace selected bits
          53936    125             32   1  1  clear indicators             CLEAR 16
    53930>
    53927>
    53921>
    53919>53937    123              4   0  0  step on and test                                 TEST END OF STORE
          53938    100     547      4   0  0  Halt
          53939    124     538      2   1  0  unconditional jump           >NO
          53940    124     542      2   1  0  unconditional jump           *3‼1 >END ROUTINE
          53941    106     547      5   0  0  select (N)                   *3‼Ю TEST SECOND STORE
          53942    105     547     29   0  0  subtract (N) from (A)        DEALT WITH
          53943    127     542      2   0  0  jump A = Z                   >YES
          53944    106     547     28   1  0  select (N)                   SET UP STORE COUNTER
          53945    102     547      4   1  0  transfer (A) to N            FOR SECOND STORE
          53946    124     538      2   1  0  unconditional jump           *3‼Ю >DEAL WITH SECOND STORE
    53913>53947    106     547     30   0  0  select (N)                   TEST IF SELECTED TAG SET
          53948    127     540      2   0  0  jump A = Z                   >NO
  Source image: P1020749.JPG
          53949    105     547      6   0  0  subtract (N) from (A)        TEST TAG1=SEL.TAG
          53950    127     540      2   0  0  jump A = Z                   >YES
          53951    106     547      6   0  0  select (N)
          53952    101             13   1  2  subtract literal address     TEST TAG1=13>15
          53953    127     540      2   0  2  jump A >= Z                  >YES
          53954    106     547     30   0  0  select (N)
          53955    105     547      7   0  0  subtract (N) from (A)        TEST TAG2=SEL.TAG
          53956    127     540      2   0  0  jump A = Z                   >YES
          53957    106     547      7   0  0  select (N)
          53958    101             13   1  2  subtract literal address     TEST TAG2=13>15
          53959    127     538      2   0  3  jump A < Z                   >NO

          54000    PROCR   540       540     DELETE L/E OR B/E
    53956>
    53953>
    53950>
    53948>54002    100     547     32   1  2  replace (B) by (N)           15'S INTO B
          54003    125              0   1  2  interrogate indicators
          54004    124     547      4   0  3  modify address of next
          54005    115              0   1  0  collate and add              COLLATE OUT WORD N'
          54006    126     544      2   0  0  enter subroutine             >L/E B/E S/R
          54007    106     547     16   1  0  select (N)
          54008    102     548     10   1  0  transfer (A) to N
          54009    100     547     32   1  2  replace (B) by (N)
          54010    124     547      4   0  3  modify address of next
          54011    115              2   1  0  collate and add              COLLATE OUT WORD N+2'
          54012    126     544      2   0  0  enter subroutine             >L/E B/E S/R
          54013    106     547     16   1  0  select (N)
          54014    102     548     12   1  0  transfer (A) to N
          54015    124              0   0  3  modify address of next
          54016    100     210      3   0  3  set radix                    DECIMAL
          54017    124     547      4   0  1  modify address of next       ADDRESS WITHIN
          54018    101              0   1  3  select literal address       DIVISION
          54019    102     547     12   0  0  transfer (A) to N
          54020    124              0   0  3  modify address of next
          54021    124     213      2   0  2  select literal and division
          54022    112     547     12   0  0  convert
          54023    102     547     12   0  0  transfer (A) to N
          54024    124              0   0  3  modify address of next
          54025    100     212      2   0  3  set radix                    BINARY
          54026    124     547      4   0  3  modify address of next       DIV NO
          54027    124              0   0  2  select literal and division
          54028    124     547      4   0  1  modify address of next
          54029    101              0   1  2  subtract literal address
          54030    118              3   0  3  shift binary                 ALIGN IN Q5
          54031    107     547     12   0  0  augment (N) by (A)

          54100    PROCR   541       541     OUTPUT
          54102    106     547      4   0  0  select (N)
          54103    103     549     40   0  0  copy (A) to N                SELECT PRINT LOCATIONS
          54104    101              1   1  1  add literal address          SET UP QUARTET VALUES IN EDIT TABLE
          54105    103     549     42   0  0  copy (A) to N                FOR 4 SHORT WORDS
          54106    101              1   1  1  add literal address
          54107    103     549     44   0  0  copy (A) to N
          54108    101              1   1  1  add literal address
          54109    102     549     46   0  0  transfer (A) to N
          54110    124     549      2   0  2  select literal and division
          54111    126     545      2   0  0  enter subroutine             >EDIT AND O/P S/R
          54112    102     548     16   0  0  transfer (A) to N            CLEAR BE INDICATOR
          54113    102     547      3   0  0  transfer (A) to N            CLEAR PRINT LINE IND
          54114    124     539     14   1  0  unconditional jump           >TEST INDICATORS

          54200    PROCR   542       542     END ROUTINE
    53943>
    53940>
    53915>54202    124              0   0  3  modify address of next
  Source image: P1020750.JPG
          54203    106            140   0  0  select (N)
          54204    127     542     18   0  0  jump A = Z                   >NO
          54205    125              0   1  2  interrogate indicators
          54206    102     547      4   0  0  transfer (A) to N            CLEAR STORE CTR
    54217>54207    124     547      4   0  1  modify address of next
          54208    124              0   0  1  modify address of next
          54209    101              0   1  3  select literal address
          54210    124              0   0  3  modify address of next
          54211    105            140   0  0  subtract (N) from (A)
          54212    127     542     15   0  1  jump A != Z
          54213    124     549     60   0  2  select literal and division
          54214    126     545      2   0  0  enter subroutine
    54212>54215    123              1   0  0  step on and test
          54216    100     547      4   0  0  Halt
          54217    124     542      7   1  0  unconditional jump
    54204>54218    125           8191   1  1  clear indicators
          54219    124              0   0  1  modify address of next
          54220    125              0   1  0  set indicators
          54221    124              0   0  3  modify address of next
          54222    106     209      7   0  0  select (N)
          54223    124              0   0  3  modify address of next
          54224    102             25   0  0  transfer (A) to N            RESET O'FLOW LINK
          54225    102     547     30   0  0  transfer (A) to N
          54226    123     542     27   0  2  enter master routine         RESET TAG 14
          54227    100              0   0  0  Halt
          54228    124              0   0  3  modify address of next
          54229    124     103      7   1  0  unconditional jump           >PRIORITY QUEUE
          54230    124              0   0  3  modify address of next
          54231    126             24   0  3  leave master routine

          54300    PROCR   543       543     SET UP SHORT WORD S/R
          54302    100              0   0  0  Halt
          54303    102     547     10   1  0  transfer (A) to N            STORE SHORT WORD
          54304    100     547     14   0  2  replace (B) by (N)
          54305    115     547     11   0  0  collate and add              COLLATE OUT ACTION  SIGN BIT SET
          54306    118           4125   0  0  shift logical                                    IN BIT 37
          54307    102     548     14   0  0  transfer (A) to N
          54308    124              0   0  3  modify address of next
          54309    100     210      3   0  3  set radix                    SET DECIMAL
          54310    124              0   0  3  modify address of next
          54311    124     213      2   0  2  select literal and division
          54312    103     547      3   0  0  copy (A) to N
          54313    112     548     14   0  0  convert                      CONVERT TO DECIMAL
          54314    102     548     14   0  0  transfer (A) to N
          54315    100     547     11   1  2  replace (B) by (N)           SH.WORD INTO B ALPHA>NUMERIC
          54316    118              6   1  0  shift logical
          54317    106     548     14   0  0  select (N)
          54318    118              3   0  3  shift binary                 SEPARATE ACTION DISCMOD
          54319    118              1   1  3  shift binary
          54320    118              2   0  3  shift binary
          54321    118              2   1  3  shift binary
          54322    102     548     15   0  0  transfer (A) to N            STORE A,D,M
          54323    118              1   1  3  shift binary
          54324    118              3   1  0  shift logical
          54325    102     548     14   0  0  transfer (A) to N            ADDRESS
          54326    124              0   0  3  modify address of next
          54327    124     213      2   0  2  select literal and division
          54328    112     548     14   0  0  convert                      CONVERT TO DECIMAL
          54329    124              0   0  3  modify address of next
          54330    100     212      2   0  3  set radix                    SET BINARY
          54331    102     548     14   0  0  transfer (A) to N            STORE ADDRESS
          54332    106     548     14   1  0  select (N)
          54333    126     543      2   0  1  leave subroutine

          54400    PROCR   544       544     L/E B/E S/R
          54402    100              0   0  0  Halt
  Source image: P1020751.JPG
          54403    102     547     16   1  0  transfer (A) to N            W/L
          54404    100     547     24   1  2  replace (B) by (N)           -3/15
    54412>54405    115     547     16   1  0  collate and add                                  TEST FOR L/E
          54406    115     547     20   1  0  collate and add
          54407    127     544     14   0  0  jump A = Z                   >YES
          54408    115     547     22   1  0  collate and add                                  TEST FOR B/E
          54409    127     544     14   0  0  jump A = Z                   >YES
    54417>54410    118              2   1  0  shift logical                                    TEST ALL CHARACTERS
          54411    101              0   1  3  select literal address
          54412    127     544      5   1  1  jump AB != Z                 >NO
          54413    126     544      2   0  1  leave subroutine             >LEAVE S/R
    54409>
    54407>54414    114     547     16   1  0  replace selected bits        CLEAR CHARACTER
          54415    101             91   1  3  select literal address       SET INDICATOR
          54416    102     548     16   0  0  transfer (A) to N
          54417    124     544     10   1  0  unconditional jump           >

          54500    PROCR   545       545     EDIT AND O/P S/R
          54502    100              0   0  0  Halt
    54506>
    54511>54503    124     547      2   0  1  modify address of next
          54504    126              0   1  0  test route N1                TEST PRINTER ROUTE
          54505    124     545     10   1  0  unconditional jump           >CLOSED             HALT 15/0/1
          54506    124     545      3   1  0  unconditional jump           >ENGAGED
          54507    124     545     12   1  0  unconditional jump           D/B                 HALT 15/0/3
          54508    100           3845   0  0  Halt                         W/E                 HALT 15/./5
          54509    124     545     13   1  0  unconditional jump
    54505>54510    100           3841   0  0  Halt
          54511    124     545      3   1  0  unconditional jump
    54507>54512    100           3843   0  0  Halt
    54509>54513    128     551      4   1  2  edit fixed field formats     *3Ю4 EDIT TO ANNEX  00007
          54514    124              0   0  3  modify address of next
          54515    106     258     20   1  0  select (N)                   FUNCTION WORD
          54516    102     551      2   1  0  transfer (A) to N            INSERT
          54517    124     547      2   0  3  modify address of next
          54518    106             64   0  0  select (N)                   STORE PRESENT ASL
          54519    102     548     17   0  0  transfer (A) to N
          54520    125              0   1  0  set indicators               *869                OR 24/1/0>SP PRINTER
          54521    106     545     37   0  0  select (N)                   *2.286Ю
          54522    124     547      2   0  3  modify address of next       STORE A SL IN 64+R
          54523    102             64   0  0  transfer (A) to N
          54524    106     545     38   0  0  select (N)                   START OF EDIT TABLE
          54525    124     545     37   0  3  modify address of next
          54526    129              0   0  1  edit for anelex output       EDIT
          54527    124     545     31   1  0  unconditional jump           *2.286Ю*2.Ю86Ю
    55813>54528    106     545     38   0  0  select (N)
          54529    124     547      2   0  3  modify address of next
          54530    102             64   0  0  transfer (A) to N            *2.Ю86Ю
    54527>54531    124     547      2   0  1  modify address of next
          54532    119              0   0  0  output                       OUTPUT
          54533    106     548     17   0  0  select (N)
          54534    124     547      2   0  3  modify address of next
          54535    102             64   0  0  transfer (A) to N            RESTORE ASL
          54536    126     545      2   0  1  leave subroutine
          54537    114     551      2   0  1  replace selected bits        *2.1869 GP ANNEX START
          54538    114     551      2   0  1  replace selected bits        SPECIAL ANNEX START

          54600    CONST   546       546     1    ALPHA CONSTANTS
          54602          (A)STORE;
          54604          PRINT;
          54606          OF   ;
          54608          TAKEN;
          54610          ON AT;

          54700    CONST   547       547     1    W/L'S COUNTERS AND CONSTANTS
          54702          (D)0;                                             TAG CHANGE/PRINTER ROUTE
  Source image: P1020752.JPG
          54704          0000000000;                                       SIZE OF STORE COUNTER
          54706          ;                                                 TAG 2/TAG 1
          54708          800000;                                           SHORT WORD COUNTER
          54710          ;                                                 W/L L/E B/E S/R
          54712          ;                                                 (1)/ADDRESS IN DIV
          54714          1£000;                                            W/L L/E B/E / 13-17
          54716          ;                                                 W/L L/E B/E S/R
          54718          400000;                                           BULK COPY
          54720          1.1.1.1.1.-;                                      CONST FOR L/E B/E S/R
          54722          2020202020-;                                      DITTO
          54724          3£-;                                              DITTO
          54726          0000000000;                                       *3‼Ю FIRST STORE SIZE
          54728          0800008000;                                       *3‼Ю SECOND STORE SIZE
          54730          3£00000000;                                       COLLATION CONST/SELECTED TAG
          54732          (D)££££££££££;
          54734          7.0000007.;

          54800    CONST   548       548     1    W/L'S FOR WORDS
          54802          (D);
          54804          ;
          54806          ;
          54808          ;
          54810          ;
          54812          ;
          54814          ;
          54816          ;

          54900    TABLE   549       549     1    MAIN EDIT TABLE
          54902   547    12     0     0  0  0   1   0   1   0  0  0  0
          54904   547    12     0     0  0  0   4   1   1   3  0  0  0
          54906   547     4     0     0  0  0   4   1   1   0  0  0  0
          54908   548     3     0     0  0  0   2   1   3   1  0  0  0
          54910   548     3     0     0  0  0   1   3   1   0  0  0  0
          54912   548     3     0     0  0  0   1   4   1   0  0  0  0
          54914   548     2     0     0  0  0   4   1   1   3  0  0  0
          54916   548     5     0     0  0  0   2   1   3   1  0  0  0
          54918   548     5     0     0  0  0   1   3   1   0  0  0  0
          54920   548     5     0     0  0  0   1   4   1   0  0  0  0
          54922   548     4     0     0  0  0   4   1   1   3  0  0  0
          54924   548     7     0     0  0  0   2   1   3   1  0  0  0
          54926   548     7     0     0  0  0   1   3   1   0  0  0  0
          54928   548     7     0     0  0  0   1   4   1   0  0  0  0
          54930   548     6     0     0  0  0   4   1   1   3  0  0  0
          54932   548     9     0     0  0  0   2   1   3   1  0  0  0
          54934   548     9     0     0  0  0   1   3   1   0  0  0  0
          54936   548     9     0     0  0  0   1   4   1   0  0  0  0
          54938   548     8     0     0  0  0   4   1   1   3  0  0  0
          54940     0     0     0     0  0  0   5   0   3   4  2  0  0                                               T 1
          54942     0     0     0     0  0  0   5   0   1   4  2  0  0                                               T 1
          54944     0     0     0     0  0  0   5   0   1   4  2  0  0                                               T 1
          54946     0     0     0     0  0  0   5   0   1   4  2  0  0                                               T 1
          54948   548    10     0     0  2  0   5   0   2   0  0  0  0
          54950   548    12     0     0  2  0   5   0   2   0  0  0  0
          54952   547     6     0     0  0  0   1   4   2   0  0  0  0
          54954   547     7     0     0  0  0   1   4   1   0  0  0  0
          54956   548    16     0     0  2  0   1   4   1   0  0  0  0
          54958   547    34     0     0  2  0   1   0   0   0  0  0  1                                               SUM
          54960   547     4     0     0  0  0   4   1   8   0  0  0  0
          54962   547    34     0     0  2  0   1   0   2   0  0  0  1

          55000    TABLE   550       550     1    HEADING
          55002   546     2     0     0  2  0   5   0  14   0  0  0  0
          55004   546     4     0     0  2  0   5   0   1   0  0  0  0
          55006   546     6     0     0  2  0   2   0   1   0  0  0  0
          55008     0   181     0     0  0  0   5   0   1   0  0  0  0     /////
          55010     0   182     0     0  0  0   2   3   3   1  0  0  0     /////
  Source image: P1020753.JPG
          55012   546     8     0     0  2  0   5   0   2   0  0  0  0
          55014   546    10     0     0  2  0   2   0   1   0  0  0  0
          55016     0   138     0     0  1  0   2   4   2   1  0  0  0     /////
          55018     0   138     0     0  1  0   2   6   1   1  0  0  0     /////
          55020     0   138     0     0  1  0   2   8   1   1  0  0  0     /////
          55022   546    10     0     0  2  0   3   2   0   0  0  0  0
          55024     0   156     0     0  0  0   2   0   2   0  0  0  0     /////
          55026     0   156     0     0  0  0   2   2   1   0  0  0  0     /////
          55028   547    34     0     0  2  0   1   0   0   0  0  0  1                                               SUM
          55030     0     0     0     0  1  0   0   1   8   0  0  0  0     ///// BULK CLEAR MATRIX

          55100    PROCR   551       551     INITIAL SET UP ROUTINE(1)
    53610>55102    106     558      6   0  0  select (N)
          55103    102             17   0  1  transfer (A) to N            SET UP (17)
          55104    106     557      2   1  0  select (N)                   *3Ю2
          55105    102            134   1  1  transfer (A) to N            *3Ю2
          55106    106     558      9   0  0  select (N)                   *3Ю1
          55107    102              1   0  1  transfer (A) to N            SET UP OR CLEAR (1)
          55108    101             64   1  2  subtract literal address     *3:Ю4£Ю SET UP FCC
          55109    102     233     34   0  1  transfer (A) to N            *3:Ю4£Ю PARAMETERS
          55110    106     209      7   0  1  select (N)
          55111    124     551     13   1  0  unconditional jump           *££0*££2
          55112    127     552     10   0  2  jump A >= Z                  *££2*57‼
    55111>55113    102             25   0  1  transfer (A) to N            SET UP (25)
          55114    101     130     24   1  3  select literal address
          55115    101            128   1  2  subtract literal address     FORM M/R SP CH START
          55116    102     107      9   0  1  transfer (A) to N
          55117    106     558      7   0  0  select (N)
          55118    105     231      2   0  1  subtract (N) from (A)
          55119    102     231      3   0  1  transfer (A) to N
          55120    101     535      2   1  3  select literal address       TEST MASTER IN DIV 1
          55121    101     536      2   1  2  subtract literal address
          55122    127     552      2   0  2  jump A >= Z                  *57‼
          55123    106     558      7   0  0  select (N)
          55124    107     231      2   0  0  augment (N) by (A)
          55125    106     558      2   1  0  select (N)                   SHIFT UP STORE TABLE
          55126    124     999      0   0  3  modify address of next
          55127    128     231      4   0  0  bulk copy short numeric
          55128    106     555      8   0  0  select (N)
          55129    102     555      7   0  0  transfer (A) to N

          55200    PROCR   552       552     INITIAL SET8UP(2)
    55122>55202    106     233     26   0  1  select (N)                   *57Ю
          55203    124     999      0   0  3  modify address of next
          55204    103     225      2   0  0  copy (A) to N
          55205    124     999      0   0  3  modify address of next
          55206    102     224      2   0  0  transfer (A) to N
          55207    101              7   1  3  select literal address
          55208    124     999      0   0  3  modify address of next
          55209    102     224      3   0  0  transfer (A) to N            *57Ю
    55112>55210    106     209     10   0  1  select (N)
          55211    124     999      0   0  3  modify address of next
          55212    124     233     26   0  3  modify address of next
          55213    102             64   0  0  transfer (A) to N
          55214    106     557      4   0  0  select (N)                   *45Ю57Ю             SET UP 71
          55215    124     999      0   0  3  modify address of next       AS POTENTIALLY
          55216    124     233     26   0  3  modify address of next       AVAILABLE
          55217    102             71   0  0  transfer (A) to N            *45Ю57Ю
          55218    106     209     11   0  1  select (N)
          55219    102            124   0  1  transfer (A) to N
          55220    101     228      2   1  3  select literal address       STACK TAG 13 IN M/R ANNEXES
          55221    118              5   0  0  shift logical
          55222    101     226      2   1  1  add literal address
          55223    102              4   1  1  transfer (A) to N
          55224    101             13   1  3  select literal address
          55225    126     556      2   0  0  enter subroutine
  Source image: P1020895.JPG
          55226    101             15   1  3  select literal address       STACK TAG 15 IN A.L.W.'S
          55227    123     102     84   1  1  copy into tag
          55228    123     226     56   1  1  copy into tag
          55229    123     227     56   1  1  copy into tag                *101
          55230    106     102     19   1  1  select (N)                   STORE M/R
          55231    118           4123   1  0  shift logical                SERIAL NO
          55232    101              7   1  1  add literal address          IN 181
          55233    118              4   1  0  shift logical
          55234    102            181   0  1  transfer (A) to N
          55235    106     102     21   1  1  select (N)                   MOD NO
          55236    118           4125   1  0  shift logical                IN 182
          55237    102            182   0  1  transfer (A) to N

          55300    PROCR   553       553     INITIAL SET UP ROUTINE(3)
          55302    101     260      2   1  3  select literal address       *25Ю*05Ю
          55303    118              5   0  0  shift logical                STACK TAG 13 IN LIB CARD ANNEXE
          55304    101     259      2   1  1  add literal address
          55305    102              4   1  1  transfer (A) to N
          55306    101             13   1  3  select literal address
          55307    126     556      2   0  0  enter subroutine
          55308    106     558      8   0  0  select (N)                   SET UP LIB CARD ASL
          55309    102            119   0  1  transfer (A) to N            *25Ю*05Ю
          55310    106            143   0  1  select (N)                   *412                SET UP CONSTANTS
          55311    102     483      4   0  1  transfer (A) to N                                FOR MINI STORE PRINT
          55312    106            144   0  1  select (N)
          55313    102     483      6   0  1  transfer (A) to N
          55314    106            145   0  1  select (N)
          55315    102     483      7   0  1  transfer (A) to N
          55316    106     558     10   0  0  select (N)
          55317    102            140   0  1  transfer (A) to N

          55400    PROCR   554       554     ON LINE STORE DUMP SET UP
          55402    106     558     14   0  0  select (N)                   TEST STORE PRINT REQUIRED
          55403    127     555      2   0  0  jump A = Z                   >NO
          55404    106     209      5   0  1  select (N)                   SET TAG 15
          55405    102              9   0  1  transfer (A) to N
          55406    126     554      7   0  3  leave master routine
          55407    115     554      8   0  1  collate and add
          55408    125           4096   1  1  clear indicators
          55409    106     209      6   0  1  select (N)
          55410    102              9   0  1  transfer (A) to N
          55411    106            153   0  1  select (N)                   STORE DETAILS FOR PRINT
          55412    123     554     13   0  2  enter master routine         RESET TAG 14
          55413    100              0   0  0  Halt
          55414    118           4124   1  0  shift logical
          55415    101              9   1  2  subtract literal address     *86Ю
          55416    127     554     21   0  1  jump A != Z                  >GP PRINTER
          55417    106     545     20   0  0  select (N)
          55418    102     554     34   0  0  transfer (A) to N
          55419    106     558     13   0  0  select (N)
          55420    102     545     20   0  0  transfer (A) to N            *86Ю
    55416>55421    125              0   1  2  interrogate indicators
          55422    118              1   1  0  shift logical                FIRST STORE SIZE
          55423    118              8   0  0  shift logical
          55424    102     547      4   1  0  transfer (A) to N            *3‼1
          55425    102     547     26   1  0  transfer (A) to N            *3‼9
          55426    118              1   1  0  shift logical
          55427    118              8   0  0  shift logical                *3‼Ю                SECOND STORE SIZE
          55428    107     547     28   1  0  augment (N) by (A)           *3‼Ю
          55429    125              0   1  2  interrogate indicators       STORE PRINTER
          55430    118              2   1  0  shift logical                ROUTE
          55431    102     547      2   0  0  transfer (A) to N
          55432    101     551      2   1  3  select literal address
          55433    101             50   1  1  add literal address
          55434    101            384   1  1  add literal address          *2.1869
          55435    104     558      7   0  0  add (N) to (A)               SET UP STORE TABLE
  Source image: P1020754.JPG
          55436    102     231      4   0  1  transfer (A) to N
          55437    106     558      7   0  0  select (N)
          55438    104     558      7   0  0  add (N) to (A)
          55439    105     231      4   0  1  subtract (N) from (A)
          55440    102     231      5   0  1  transfer (A) to N
          55441    101             50   1  3  select literal address       *2.286Ю
          55442    107     545     37   0  0  augment (N) by (A)           *2.286Ю

          55500    PROCR   555       555     INITIAL SET UP (4)
    55403>55502    106     231      2   0  1  select (N)                   SET MR2 FOR CLEARING
          55503    102     558      4   0  0  transfer (A) to N            REST OF DIVS 0 & 1
          55504    126     558      4   1  2  set modification register
          55505    124     999      0   0  3  modify address of next
          55506    126     107      8   1  1  set modification register    SET MR1 FOR MR SWITCH
          55507    124     999      0   0  3  modify address of next
          55508    124     535      2   1  0  unconditional jump           >CLEAR DIV 0

          55600    PROCR   556       556     STACK TAG (A) SR
          55602    100              0   0  0  Halt
    55606>55603    124     999      0   0  3  modify address of next
          55604    123              0   1  2  copy into tag
          55605    125              2   0  2  step on and test
          55606    124     556      3   1  0  unconditional jump
          55607    126     556      2   0  1  leave subroutine
          55608    124     452     22   1  0  unconditional jump           *££0*££1*343 (17)

          55700    CONST   557       557     1
          55702          (D)+0+0+0+0+0;
          55704          ££7;

          55800    PROCR   558       558     ISU: INSTRUCTION CONSTANTS
          55802    100     231      6   0  0  Halt                         SHIFT STORE TABLE
          55803    100             12   0  0  Halt
          55804    100              0   0  0  Halt                         CLEAR REST OF DIVS 0 & 1
          55805    100           8184   0  1  Invalid
          55806    124     454      2   1  0  unconditional jump           *343 (17)
          55807    100              0   0  1  Invalid                      DIV 1
          55808    113     259      2   0  0  divide uniform radix         *259
          55809    124     458      2   1  0  unconditional jump           *3Ю1                VA
          55810    124     483      2   1  0  unconditional jump           *411                MINI STORE PRINT
          55811    106     244      4   0  0  select (N)                   *3Ю2
          55812    101             38   1  3  select literal address       *3Ю2
          55813    124     545     28   1  0  unconditional jump           *869
          55814    100              0   0  0  Halt
          55815    100              1   0  0  Halt

          55900    CONST   559       559     0    ASL'S CHS 0-7
          55902          (D):    ;                                         *££8
          55903          7;                                                M/T
          55904          7;
          55905          7;
          55906          ££7;
          55907          ££7;
          55908          ££7;
          55909          ££;
          55910          ££8;                                              CHANNEL 1
          55911          ££8;                                              M/T
          55912          ££8;                                              START OF ANNEXE
          55913          8;                                                FOR PASSES 1 AND 2
          55914          8;
          55915          8;
          55916          8;
          55917          ££8;
          55918          ££££;                                             CHANNEL 2
          55919          ££££;                                             GP OR STD PRINTER
          55920          ££££;                                             T/W
  Source image: P1020755.JPG
          55921          ££££;                                             P/T O/P
          55922          3;                                                CARD O/P
          55923          3;
          55924          ££££;
          55925          ££££;
          55926          ££5;                                              CHANNEL 3
          55927          5;                                                P/T I/P
          55928          5;
          55929          5;
          55930          6;                                                CARD I/P
          55931          ££;
          55932          6;
          55933          ££;
          55934          ££9;                                              CHANNEL 4
          55935          9;                                                GP OR SP PRINTER
          55936          9;
          55937          ££££;
          55938          ££££;
          55939          ££££;
          55940          ££££;
          55941          ££££;
          55942          ££££;                                             CHANNEL 5
          55943          ££££;                                             SP PRINTER
          55944          ££££;
          55945          ££££;
          55946          ££££;
          55947          ££££;
          55948          ££££;
          55949          ££££;
          55950          ££££;                                             CHANNEL 6
          55951          ££££;                                             TIMER
          55952          ££££;                                             T/W
          55953          ££££;                                             P/T O/P
          55954          ££££;
          55955          ££££;
          55956          ££££;
          55957          ££££;                                             (T/A/M FOR LIB CARDS)
          55958          1;                                                CHANNEL 7
          55959          1;                                                P/T OR TIMER
          55960          ££;                                               T/W
          55961          ££;                                               T/A/M FOR PTS
          55962          ££;                                               T/A/M FOR RTE 0
          55963          ££;                                               T/A/M FOR PTS
          55964          ££;                                               T/A/M FOR STORE DUMP
          55965          ££;                                               T/A/M FOR CONTROL DATA

          56000    CONST   560       560     0    ASL'S CHS 16&17
          56002          (D)££££;
          56003          ££££;
          56004          ££££;
          56005          ££££;
          56006          ££££;
          56007          ££££;
          56008          ££££;
          56009          ££££;
          56010          ££££;                                             CHANNEL 17
          56011          ££££;
          56012          ££££;
          56013          ££££;
          56014          ££££;
          56015          ££££;
          56016          ££££;
          56017          ££££;
          56018          ££££;                                             CHANNEL 18
          56019          ££££;
          56020          ££££;
  Source image: P1020756.JPG
          56021          ££££;
          56022          ££££;
          56023          ££££;
          56024          ££££;
          56025          ££££;
          56026          ££££;                                             CHANNEL 19
          56027          ££££;
          56028          ££££;
          56029          ££££;
          56030          ££££;
          56031          ££££;
          56032          ££££;
          56033          ££££;
          56034          ££££;                                             CHANNEL 20
          56035          ££££;
          56036          ££££;
          56037          ££££;
          56038          ££££;
          56039          ££££;
          56040          ££££;
          56041          ££££;
          56042          ££££;                                             CHANNEL 21
          56043          ££££;
          56044          ££££;
          56045          ££££;
          56046          ££££;
          56047          ££££;
          56048          ££££;
          56049          ££££;

          56100     END
 
 
 
 
 
 
 
 
 
 
 PROGRAMME   09001   SERIAL       0               CHAPS  3   FILES  0      TRAN.  AREAS  0     PTS INCLUDED
 
    F.PT.   NO       MOD.  GP.   NO       PRIORITY  1       ENTRY= CH2/ 426
 
    SIZE  OF  CHAPS   9898     708     506       0       0       0       0                     ?????????????????????????
 
 FILE  ID.      RTE.  TYPE      START  LOCN.      ALT.ROUTES    BLOCK  SIZE          CHAPT
 TRAN.  AREAS  START  LOCN.       CHAPT       SIZE
  SECTION.START
 
SWITCHES
ITEM+ CTRS
MR'S 4-20
 
CHAPT       1
 PROCEDURE    0
    0       0  0  0     0    0       0  0  0     0    1       0  0  0     0    2       0  0  0     0    3
    4       0  0  0     0    4       0  0  0     0    5       0  0  0     0    6       0  0  0     0    7
    8       0  0  0     0    8       0  0  0     0    9       0  0  0     0   10       0  0  0     0    0
   12      25  1  1  4096    0      24  0  3     0    2      23  0  2     0 1792       0  0  0     0    0
   16       0  0  0     0    0      26  0  1    11    2
 PROCEDURE  100
   18                                                        24  1  0    18    4      24  1  0  3766    2
   20       0  0  1   580    4      24  1  0  1947    2       0  0  0  2740    2      24  1  0  1935    2
   24       0  0  0     0    0      24  1  0  3115    2       0  0  0     0    0      24  1  0  1975    2
   28      24  1  0  3744    2      24  1  0  2020    2       0  0  0     0    0      24  1  0  3102    2
   32      24  1  0  3756    2       0  0  0     0    0       0  0  0     0    0      24  1  0  7790    2
   36      15  0  1    27    4       0  0  0     2    0       0  0  0     3    0       0  0  0     0    0
   40       0  0  0     0    0      24  1  0  1093    2      24  1  0   203    2      24  1  0  1093    2
   44      24  1  0   771    2      24  0  1   225    2      24  1  0  3869    2       0  0  0     0    0
   48       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
   52       0  0  0     0    0       0  0  0     0    0       0  0  0     2    0       0  0  0     0    0
  SECTION   101
   56        ££££       0             ££££       0             ££££       0             ££££       0
   60        ££££       0             ££££       0             ££££       0             ££££       0
   64        ££££       0             ££££       0             ££££       0             ££££       0
   68        ££££       0             ££££       0             ££££       0             ££££       0
   72        ££££       0             ££££       0             ££££       0             ££££       0
   76        ££££       0             ££££       0             ££££       0             ££££       0
   80        ££££       0             ££££       0             ££££       0             ££££       0
   84        ££££       0             ££££       0             ££££       0             ££££       0
   88        ££££       0             ££££       0             ££££       0             ££££       0
   92        ££££       0             ££££       0             ££££       0             ££££       0
   96        ££££       0             ££££       0             ££££       0             ££££       0
  100        ££££       0             ££££       0             ££££       0             ££££       0
  SECTION   102
  104       4525.       0            7:635       0                0       0                0       0
  108           0       0                0       0                0       0                0       0
  112           0       0                0       0                0       0                0       0
  116           0       0                0       0                0       0                0       0
  120           0       0                0       0                0       0                0       0
  124           0       0                0       0                0       0                0       0
  128           0       0                0       0                0       0                0       0
  132           0       0                0       0                0       0                0       0
  136           0       0                0       0                0       0                0       0
  140           0       0                0       0                0       0                0       0
  144           0       0                0       0                0       0                0       0
  148           0       0                0       0                0       0                0       0
  152           0       0                0       0                0       0                0       0
  156           0       0                0       0                0       0                0       0
  160           0       0                0       0                0       0                0       0
  164           0       0                0       0                0       0                0       0
  168           0       0                0       0                0       0                0       0
  172           0       0                0       0                0       0                0       0
  176           0       0                0       0                0       0                0       0
  180           0       0                0       0                0       0                0       0
  184        5.5.       0                0       0            .5.5.       0            5.5.5       0
 PROCEDURE  103
  188       0  0  0     0    0       0  0  0     0    0       6  0  0     8    0      24  0  3     2    0
  192       2  0  0    44    0       0  0  3  2096    2      24  1  1  2096    2      24  1  0   211    2
  196      24  1  0  1230    2      24  1  0   248    2      24  1  0   290    2      24  1  0   200    2
  200      24  1  0  1115    2      26  0  0  3970    2       6  0  0   204    2       2  0  0   200    2
  204      24  1  0  1115    2       0  0  0     0    0       6  1  0  1764    2      24  1  0  1219    2
  208      24  1  0  1245    2       6  0  0   226    2       2  0  0   195    2      25  1  2  1919    0
  212      27  0  1  1766    2      24  1  0   248    2       6  0  3   970    2      27  0  1  1021    2
  216      25  0  3     2    0      24  1  0   214    2
 PROCEDURE  104
  218                                                         6  0  0   220    2       2  0  0   213    2
  220      24  1  0   248    2      26  1  3   331    2       0  0  0     0    0       0  0  0     0    0
  224       0  0  0     0    0       0  0  0     0    0      24  1  0   211    2       0  0  0     0    0
  228       0  0  0     0    0       0  0  0     0    0
  SECTION   105
  230                                                         4525.       0            7:635       0
  232       30059       0            6£7:5       0             5.5.       0            57650       0
 PROCEDURE  106
  236       0  0  0     0    0       0  0  0     4    0       0  0  0     6    0       0  0  0    12    0
  240       0  0  0    14    0       0  0  0    16    0       0  0  0     0    0       0  0  0     0    0
  244       0  0  0    18    0      24  0  1     3    0      26  0  1   158    0      24  1  0   299    2
  248      24  1  0   250    2      24  1  0   259    2      24  1  0   247    2      26  0  0  3901    2
  252      26  0  0  4872    2       6  0  0   277    2       2  0  0   248    2       6  1  0   278    2
  256       2  1  0     2    0       6  1  0   272    2      24  1  0  3796    2       6  0  0   156    0
  260       6  0  0   287    2       5  0  0   287    2      27  0  3   247    2      26  1  1   278    2
  264      26  0  1   284    2      24  1  1   271    2       6  1  0   278    2       2  1  0     2    0
  268       0  1  1   272    2      26  0  1   286    2      26  0  1   286    2       0  0  0     0    0
 PROCEDURE  107
  272       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  276       0  0  0     0    0      24  1  0   265    2       0  0  0   236    2       0  0  0     0    0
  280       0  0  0     0    0       0  1  0  4097    0       0  0  0     0    0       0  0  0     0    0
  284       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  288       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  108
  290                                                         0  0  2  2052    2      25  1  2     0    0
  292      15  0  0    53    2      26  0  0  3910    2      24  1  0   200    2       0  0  3     0    0
  296       0  0  0     0    0       0  0  0     5    0       0  0  0     0    0      24  1  0   751    2
  300      24  1  0   751    2      26  0  1    24    0       0  0  0    62    0       2  0  0    52    0
  304       0  0  0     0    0       0  0  0    20    0       0  0  0     0    0       0  0  0   160    0
  308       0  0  0   192    0       0  0  0  3901    2       0  0  0   120    0      27  0  3   751    2
  312      18  0  3     6    0       6  0  0    53    2      24  1  0  1230    2       0  0  0     0    0
  316       0  0  0     0    0       4  1  1  1028    0       7  0  3  6000    0       2  0  0     0    0
  320       5  1  1  5124    0
 PROCEDURE  109
  321                                0  0  0     0    0       0  0  0    64    0       3  0  0     0    0
  324       5  1  1  5124    0       7  0  0     0    0       5  0  2  5445    0       7  0  0    65    0
  328       5  1  0  5910    0       7  0  0    65    0       6  0  3  1814    0       0  0  0     0    0
  332       0  0  0    14    0       0  0  0     6    0       0  0  0     8    0       0  0  0    16    0
  336       0  0  0    18    0       0  0  0    20    0       0  0  0     0    0       0  0  1  7999    0
  340       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  110
  344      24  1  0  3795    2       6  0  0   157    0      19  0  1    56    0       6  0  0   396    2
  348       6  0  0   444    2       6  0  0   492    2       6  0  0   540    2
 PROCEDURE  111
  351                                                                                  0  1  0   381    2
  352       0  0  3  2045    2       6  0  0     8    0       2  0  0   395    2      24  1  0   193    2
  356       7  1  0   397    2      24  1  0   193    2      24  1  0   751    2      24  1  0   369    2
  360      24  1  0   751    2      26  0  0  3901    2      26  0  0  4872    2       6  0  0   386    2
  364       2  0  0   358    2       6  1  0   387    2       2  1  0     2    0       6  1  0   381    2
  368      24  1  0  3796    2       6  0  0   156    0       5  0  0   396    2      27  0  3   751    2
  372      26  1  1   387    2      26  0  1   393    2      24  1  1   380    2       6  1  0   387    2
  376       2  1  0     2    0       0  1  1   381    2      26  0  3   395    2      26  0  3   395    2
  380       0  0  3     0    0
 PROCEDURE  112
  381                                0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  384       0  0  0     0    0       0  0  0     0    0      24  1  0   374    2       0  0  0   351    2
  388       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  392       0  0  0     0    0       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0
  396       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  113
  399                                                                                  0  1  0   429    2
  400       0  0  3  2045    2       6  0  0     8    0       2  0  0   443    2      24  1  0   193    2
  404       7  1  0   445    2      24  1  0   193    2      24  1  0   751    2      24  1  0   417    2
  408      24  1  0   751    2      26  0  0  3901    2      26  0  0  4872    2       6  0  0   434    2
  412       2  0  0   406    2       6  1  0   435    2       2  1  0     2    0       6  1  0   429    2
  416      24  1  0  3796    2       6  0  0   156    0       5  0  0   444    2      27  0  3   751    2
  420      26  1  1   435    2      26  0  1   441    2      24  1  1   428    2       6  1  0   435    2
  424       2  1  0     2    0       0  1  1   429    2      26  0  3   443    2      26  0  3   443    2
  428       0  0  0     0    0
 PROCEDURE  114
  429                                0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  432       0  0  0     0    0       0  0  0     0    0      24  1  0   422    2       0  0  0   399    2
  436       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  440       0  0  0     0    0       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0
  444       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  115
  447                                                                                  0  1  0   477    2
  448       0  0  3  2045    2       6  0  0     8    0       2  0  0   491    2      24  1  0   193    2
  452       7  1  0   493    2      24  1  0   193    2      24  1  0   751    2      24  1  0   465    2
  456      24  1  0   751    2      26  0  0  3901    2      26  0  0  4872    2       6  0  0   482    2
  460       2  0  0   454    2       6  1  0   483    2       2  1  0     2    0       6  1  0   477    2
  464      24  1  0  3796    2       6  0  0   156    0       5  0  0   492    2      27  0  3   751    2
  468      26  1  1   483    2      26  0  1   489    2      24  1  1   476    2       6  1  0   483    2
  472       2  1  0     2    0       0  1  1   477    2      26  0  3   491    2      26  0  3   491    2
  476       0  0  0     0    0
 PROCEDURE  116
  477                                0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  480       0  0  0     0    0       0  0  0     0    0      24  1  0   470    2       0  0  0   447    2
  484       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  488       0  0  0     0    0       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0
  492       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  117
  495                                                                                  0  1  0   525    2
  496       0  0  3  2045    2       6  0  0     8    0       2  0  0   539    2      24  1  0   193    2
  500       7  1  0   541    2      24  1  0   193    2      24  1  0   751    2      24  1  0   513    2
  504      24  1  0   751    2      26  0  0  3901    2      26  0  0  4872    2       6  0  0   530    2
  508       2  0  0   502    2       6  1  0   531    2       2  1  0     2    0       6  1  0   525    2
  512      24  1  0  3796    2       6  0  0   156    0       5  0  0   540    2      27  0  3   751    2
  516      26  1  1   531    2      26  0  1   537    2      24  1  1   524    2       6  1  0   531    2
  520       2  1  0     2    0       0  1  1   525    2      26  0  3   539    2      26  0  3   539    2
  524       0  0  0     0    0
 PROCEDURE  118
  525                                0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  528       0  0  0     0    0       0  0  0     0    0      24  1  0   518    2       0  0  0   495    2
  532       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  536       0  0  0     0    0       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0
  540       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       6  0  0   157    0
  544      19  0  1    56    0       6  0  0   595    2       6  0  0   643    2       6  0  0   691    2
  548       6  0  0   739    2      24  1  0  3795    2
 PROCEDURE  119
  550                                                         0  1  0   580    2       0  0  3  2045    2
  552       6  0  0     8    0       2  0  0   594    2      24  1  0   193    2       7  1  0   596    2
  556      24  1  0   193    2      24  1  0   751    2      24  1  0   568    2      24  1  0   751    2
  560      26  0  0  3901    2      26  0  0  4872    2       6  0  0   585    2       2  0  0   557    2
  564       6  1  0   586    2       2  1  0     2    0       6  1  0   580    2      24  1  0  3796    2
  568       6  0  0   156    0       5  0  0   595    2      27  0  3   751    2      26  1  1   586    2
  572      26  0  1   592    2      24  1  1   579    2       6  1  0   586    2       2  1  0     2    0
  576       0  1  1   580    2      26  0  3   594    2      26  0  3   594    2       0  0  0     0    0
 PROCEDURE  120
  580       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  584       0  0  0     0    0      24  1  0   573    2       0  0  0   550    2       0  0  0     0    0
  588       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  592       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  596       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  121
  598                                                         0  1  0   628    2       0  0  3  2045    2
  600       6  0  0     8    0       2  0  0   642    2      24  1  0   193    2       7  1  0   644    2
  604      24  1  0   193    2      24  1  0   751    2      24  1  0   616    2      24  1  0   751    2
  608      26  0  0  3901    2      26  0  0  4872    2       6  0  0   633    2       2  0  0   605    2
  612       6  1  0   634    2       2  1  0     2    0       6  1  0   628    2      24  1  0  3796    2
  616       6  0  0   156    0       5  0  0   643    2      27  0  3   751    2      26  1  1   634    2
  620      26  0  1   640    2      24  1  1   627    2       6  1  0   634    2       2  1  0     2    0
  624       0  1  1   628    2      26  0  3   642    2      26  0  3   642    2       0  0  0     0    0
 PROCEDURE  122
  628       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  632       0  0  0     0    0      24  1  0   621    2       0  0  0   598    2       0  0  0     0    0
  636       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  640       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  644       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  123
  646                                                         0  1  0   676    2       0  0  3  2045    2
  648       6  0  0     8    0       2  0  0   690    2      24  1  0   193    2       7  1  0   692    2
  652      24  1  0   193    2      24  1  0   751    2      24  1  0   664    2      24  1  0   751    2
  656      26  0  0  3901    2      26  0  0  4872    2       6  0  0   681    2       2  0  0   653    2
  660       6  1  0   682    2       2  1  0     2    0       6  1  0   676    2      24  1  0  3796    2
  664       6  0  0   156    0       5  0  0   691    2      27  0  3   751    2      26  1  1   682    2
  668      26  0  1   688    2      24  1  1   675    2       6  1  0   682    2       2  1  0     2    0
  672       0  1  1   676    2      26  0  3   690    2      26  0  3   690    2       0  0  0     0    0
 PROCEDURE  124
  676       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  680       0  0  0     0    0      24  1  0   669    2       0  0  0   646    2       0  0  0     0    0
  684       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  688       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  692       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  125
  694                                                         0  1  0   724    2       0  0  3  2045    2
  696       6  0  0     8    0       2  0  0   738    2      24  1  0   193    2       7  1  0   740    2
  700      24  1  0   193    2      24  1  0   751    2      24  1  0   712    2      24  1  0   751    2
  704      26  0  0  3901    2      26  0  0  4872    2       6  0  0   729    2       2  0  0   701    2
  708       6  1  0   730    2       2  1  0     2    0       6  1  0   724    2      24  1  0  3796    2
  712       6  0  0   156    0       5  0  0   739    2      27  0  3   751    2      26  1  1   730    2
  716      26  0  1   736    2      24  1  1   723    2       6  1  0   730    2       2  1  0     2    0
  720       0  1  1   724    2      26  0  3   738    2      26  0  3   738    2       0  0  0     0    0
 PROCEDURE  126
  724       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  728       0  0  0     0    0      24  1  0   717    2       0  0  0   694    2       0  0  0     0    0
  732       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  736       0  0  0  3885    2       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  740       0  0  0     0    0       0  0  0     0    0
 PROCEDURE  127
  742                                                         0  0  0     0    0       0  0  0     0    0
  744       0  0  0     0    0       0  0  0     1    0      27  0  3   760    2      27  0  3   761    2
  748       2  0  0  1093    2      24  0  2   956    2      27  0  3   762    2       1  1  3   193    2
  752       2  0  0     2    0       5  0  0  2437    2      27  0  3  6167    2      25  1  0  4096    0
  756       6  1  0   228    2       4  1  0   744    2       2  1  0   742    2       1  1  3   178    0
  760       1  1  3   218    0       1  1  3    24    0       1  1  3    60    0       7  1  0   228    2
  764       6  1  0   228    2       5  1  0   742    2      27  0  3   759    2      25  1  1  4096    0
  768      24  1  0   193    2       6  0  0   775    2      24  1  0   773    2       0  0  3  2096    2
  772       1  1  3     1    0       7  0  0   156    0      24  1  0   194    2       0  0  0   102    0
  SECTION   128
 PROCEDURE  129
  776      28  1  1    26    0       0  1  1   381    2      26  0  3   395    2      28  1  1   782    2
  780       0  0  0   782    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  784       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  788      28  1  1    26    0       0  1  1   429    2      26  0  3   443    2      28  1  1   794    2
  792       0  0  0   794    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  796       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  800      28  1  1    26    0       0  1  1   477    2      26  0  3   491    2      28  1  1   806    2
  804       0  0  0   806    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  808       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  812      28  1  1    26    0       0  1  1   525    2      26  0  3   539    2      28  1  1   818    2
  816       0  0  0   818    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  820       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  824      28  1  1    26    0       0  1  1   580    2      26  0  3   594    2      28  1  1   830    2
  828       0  0  0   830    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  832       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  836      28  1  1    26    0       0  1  1   628    2      26  0  3   642    2      28  1  1   842    2
  840       0  0  0   842    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  844       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  848      28  1  1    26    0       0  1  1   676    2      26  0  3   690    2      28  1  1   854    2
  852       0  0  0   854    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  856       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  860      28  1  1    26    0       0  1  1   724    2      26  0  3   738    2      28  1  1   866    2
  864       0  0  0   866    2       0  0  0     6    0       0  0  0     0    0       0  0  0     0    0
  868       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0       0  0  0     0    0
  SECTION   130
  872           0       0                0       0                0       0                0       0
  876           0       0                0       0                0       0                0       0
  880           0       0                0       0                0       0                0       0
  884           0       0                0       0                0       0                0       0
  888           0       0                0       0                0       0                0       0
  892           0       0                0       0                0       0                0       0
  896           0       0                0       0                0       0                0       0
  900           0       0                0       0                0       0                0       0
  904           0       0                0       0                0       0                0       0
  908           0       0                0       0                0       0                0       0
  912           0       0                0       0                0       0                0       0
  916           0       0                0       0                0       0                0       0
  920           0       0                0       0
 PROCEDURE  131
 PROCEDURE  132
  922                                                         0  0  0     0    0
 PROCEDURE  133
  923                                                                                  0  0  0     0    0
 PROCEDURE  134
  924       0  0  0     0    0
 PROCEDURE  135
  925                                0  0  0     0    0
 PROCEDURE  136
  926                                                         0  0  0     0    0
 PROCEDURE  137
  927                                                                                  0  0  0     0    0
 PROCEDURE  138
  928       0  0  0     0    0
 PROCEDURE  139
  929                                0  0  0     0    0
 PROCEDURE  140
  930                                                         0  0  0     0    0
 PROCEDURE  141
  931                                                                                  0  0  0     0    0
 PROCEDURE  142
  932       0  0  0     0    0
 PROCEDURE  143
  933                                0  0  0     0    0
 PROCEDURE  144
  934                                                         0  0  0     0    0
 PROCEDURE  145
  935                                                                                  0  0  0     0    0
 PROCEDURE  146
  936       0  0  0     0    0
 PROCEDURE  147
  937                                0  0  0     0    0
 PROCEDURE  148
  938                                                         0  0  0     0    0
 PROCEDURE  149
  939                                                                                  0  0  0     0    0
 PROCEDURE  150
  940       0  0  0     0    0
 PROCEDURE  151
  941                                0  0  0     0    0
 PROCEDURE  152
  942                                                         0  0  0     0    0
 PROCEDURE  153
  943                                                                                  0  0  0     0    0
 PROCEDURE  154
  944       0  0  0     0    0
 PROCEDURE  155
  945                                0  0  0     0    0
 PROCEDURE  156
  946                                                         0  0  0     0    0
 PROCEDURE  157
  947                                                                                  0  0  0     0    0
 PROCEDURE  158
  948       0  0  0     0    0
 PROCEDURE  159
  949                                0  0  0     0    0
 PROCEDURE  160
  950                                                         0  0  0     0    0
 PROCEDURE  161
  951                                                                                  0  0  0     0    0
 PROCEDURE  162
  952       0  0  0     0    0
 PROCEDURE  163
  953                                0  0  0     0    0
 PROCEDURE  164
  954                                                         0  0  0     0    0
 PROCEDURE  165
  955                                                                                  0  0  0     0    0
 PROCEDURE  166
  956       0  0  0     0    0
 PROCEDURE  167
  957                                0  0  0     0    0
 PROCEDURE  168
  958                                                         0  0  0     0    0
 PROCEDURE  169
  959                                                                                  0  0  0     0    0
 PROCEDURE  170
  960       0  0  0     0    0
 PROCEDURE  171
  961                                0  0  0     0    0
 PROCEDURE  172
  962                                                         0  0  0     0    0
 PROCEDURE  173
  963                                                                                  0  0  0     0    0
  SECTION   174
  964           0       0             1020       0                0       0                8       0
  968        1016       0                0       0
 PROCEDURE  175
  970                                                         0  0  0     0    0       0  0  0     0    0
  972       0  0  0     0    0       0  0  0   236    2       0  0  0     0    0       0  0  0   351    2
  976       0  0  0     0    0       0  0  0   399    2       0  0  0     0    0       0  0  0   447    2
  980       0  0  0     0    0       0  0  0   495    2       0  0  0     0    0       0  0  0   550    2
  984       0  0  0     0    0       0  0  0   598    2       0  0  0     0    0       0  0  0   646    2
  988       0  0  0     0    0       0  0  0   694    2
 PROCEDURE  176
  990                                                         0  0  0     0    0       6  0  0   990    2
  992      24  0  1     3    0       2  0  0   169    0       6  0  0   971    2      27  0  1  1007    2
  996      26  0  0  5800    2       6  0  0  2045    2       2  0  0   971    2      26  0  0  1012    2
 1000      24  1  3   222    2      25  1  1  8191    0      25  1  0   128    0       6  0  0  2045    2
 1004       2  0  0   188    2      24  0  1     3    0      26  0  1   169    0      24  0  2   994    2
 1008       2  0  1    42    0      26  0  0  5806    2      24  0  1     2    0      24  1  0     9    0
 PROCEDURE  177
 1012       0  0  0     0    0      26  0  0  1031    2       6  0  0  1012    2       2  0  3   972    2
 1016       6  0  1     9    0       2  0  1     7    0       6  0  0   221    2       2  0  0   213    2
 1020      24  1  0   193    2
 PROCEDURE  178
 1021                                6  0  3   970    2       2  0  0   205    2       2  0  3   970    2
 1024       6  0  0     6    0      27  0  0  1042    2      25  1  2     0    0      24  0  1     6    0
 1028      24  0  1   971    2      26  1  1    36    0      26  0  1   205    2
 PROCEDURE  179
 1031                                                                                  0  0  0     0    0
 1032       1  1  3     0    0       2  0  0   243    2      26  1  3   243    2       6  0  0     2    0
 1036       5  0  3   973    2      27  0  0  1041    2      25  0  3     2    0      24  1  0  1035    2
 1040      24  1  0  2020    2      26  0  1  1031    2
 PROCEDURE  180
 1042                                                        26  0  0  2796    2       1  1  3  1752    2
 1044      28  1  2   108    2
 PROCEDURE  181
 1045                                6  0  0   314    2       2  0  0   196    2       6  0  0   206    2
 1048       2  0  0  1115    2       1  1  3   106    2       3  0  0   224    2       2  0  0   225    2
 1052       1  1  3  4118    0       3  0  0   964    2       2  1  0   968    2       1  1  3     8    0
 1056       2  0  0   967    2       1  1  3     3    0      26  0  0  5569    2      27  0  0  1062    2
 1060       6  0  0  1154    2      24  1  0  1063    2       6  0  0  1153    2       2  0  0  1117    2
 1064       2  1  0   154    0       6  1  0  2108    2       2  1  0  1762    2       1  1  3     3    0
 1068      26  0  0  5569    2      27  0  0  1072    2       6  0  0  1105    2      24  1  0  1073    2
 1072       6  0  0  1085    2       2  0  0  1096    2       0  1  2  1756    2      24  0  1   225    2
 1076      15  1  0     0    0       2  1  0  1764    2      24  0  2   154    0      24  0  1    53    2
 1080       2  0  0    64    0       6  0  0  2026    2       5  0  0    53    2       2  0  0   195    2
 1084      24  1  0   195    2      24  1  0  1105    2      24  1  0  1169    2       2  0  0  1093    2
 1088      24  1  0  1093    2       6  0  0  1093    2       3  1  0   956    2       6  1  0   956    2
 1092       2  1  0   956    2
 PROCEDURE  182
 1093                                6  1  0  1764    2      24  0  1  1762    2      18  0  0  4120    0
 1096      18  0  0     8    0      18  0  0  4120    0       3  1  0   154    0      27  0  0  1179    2
 1100       1  1  2    61    0      27  0  0  1179    2       1  1  3     1    0       2  0  0  1178    2
 1104       6  1  0   154    0      18  0  0     8    0       2  1  0   154    0      24  0  1    53    2
 1108      19  0  0     0    0       2  0  0  1186    2      23  0  0     2    0       0  0  0  1762    1
 1112      24  1  0  1211    2       1  0  1    15    0      15  1  0  1764    2      24  0  1   225    2
 1116       6  1  0     0    0      24  0  1   964    2      18  1  0     0    0      18  1  3     2    0
 1120       1  1  3     0    0      18  1  3     6    0      27  0  0  1187    2       1  1  2    30    0
 1124      27  0  0  1194    2       1  1  2    31    0      27  0  0  1187    2       1  1  2     1    0
 1128      27  0  0  1192    2       1  1  1    62    0       3  1  0   968    2       1  0  1     3    0
 1132      24  0  1   967    2      18  1  0     0    0      14  1  0   154    0       6  0  0  1155    2
 1136       7  0  0   967    2      23  0  0     2    0       0  0  0   964    1      24  1  0  1144    2
 1140       1  1  3     2    0       7  0  0   225    2       1  1  3  4118    0       2  0  0   964    2
 1144       6  0  0   967    2      27  0  2  1115    2      24  0  1    53    2      19  0  0     0    0
 1148       1  1  3     8    0       2  0  0   967    2       6  0  0   969    2      27  0  3  1209    2
 1152      24  1  0  1211    2      24  1  0  1156    2      24  0  1   964    2      16  0  0     2    0
 1156       2  1  0   154    0      26  0  0  6485    2      24  1  0  1175    2      24  0  1    53    2
 1160      19  0  0     0    0      25  1  2     0    0       0  0  2   339    2      15  1  0   154    0
 1164       1  1  2  7710    0      27  0  0  1209    2       6  0  0  2100    2       7  0  0   225    2
 1168      25  1  2     0    0       2  0  0  1762    2       0  1  2  1756    2      24  0  1   225    2
 1172      15  1  0     0    0       2  1  0  1764    2      24  1  0  1211    2      15  1  0  1760    2
 1176      14  1  0   154    0      24  1  0  6494    2       0  0  0     0    0       6  0  0  1178    2
 1180      27  0  0  1184    2       1  1  3     0    0       2  0  0  1178    2      24  1  0  1105    2
 1184       1  1  3     1    0      24  1  0  1109    2       0  0  0     0    0
 PROCEDURE  183
 1187                                                                                  6  0  0   968    2
 1188      27  0  0  1137    2       1  1  3     0    0       2  0  0   968    2      24  1  0  1131    2
 1192       1  1  3    29    0      24  1  0  1130    2       6  0  0   969    2      27  0  1  1200    2
 1196       1  1  3     1    0       2  0  0   969    2       1  1  3    30    0      24  1  0  1131    2
 1200       6  0  0   967    2      27  0  0  1205    2       6  0  0  1155    2       7  0  0   964    2
 1204      24  1  0  1189    2       1  1  2     1    0       3  0  0   969    2       1  1  3    30    0
 1208      24  1  0  1131    2
 PROCEDURE  184
 1209                                6  0  0   207    2       2  0  0  1115    2       0  0  2  2052    2
 1212      15  0  0    53    2       2  1  0     6    0       6  0  0  1186    2      27  0  1   195    2
 1216       6  1  0    53    2       2  1  3  3352    2      24  1  0   195    2
 PROCEDURE  185
 1219                                                                                  6  0  0   189    2
 1220      27  0  0   209    2      25  1  2     0    0       2  0  0   189    2       1  1  3   232    2
 1224       3  0  0   224    2       2  0  0   225    2       6  0  0   206    2       2  0  0  1115    2
 1228       2  0  0  1186    2      24  1  0  1211    2
 PROCEDURE  186
 1230                                                        24  1  3   223    2       6  0  0  1115    2
 1232       2  0  0   205    2       5  0  0  2099    2       7  0  0   196    2       6  0  0   208    2
 1236       2  0  0  1115    2      24  1  0  1242    2      25  1  2  4095    0       1  1  2  3840    0
 1240      27  0  0   195    2       2  0  0   189    2      25  1  1  8191    0      25  1  0  3840    0
 1244      24  1  0   195    2       6  0  0   314    2       2  0  0   196    2       6  0  0   205    2
 1248       2  0  0  1115    2      25  1  1  8191    0      24  0  1   223    2      25  1  0     0    0
 1252      24  1  0  1115    2
 PROCEDURE  187
 1253                               25  1  2  2048    0      27  0  0  1258    2      25  1  1  8191    0
 1256      24  0  1   223    2      25  1  0     0    0       6  0  0   204    2       2  0  0   200    2
 1260       6  1  0  1758    2       2  1  0   154    0      24  0  1    53    2      19  0  0     0    0
 1264       6  0  0   224    2       5  0  0  2100    2       2  0  0   225    2       6  0  0   314    2
 1268       2  0  0   196    2      24  1  0  1226    2       0  0  0   216    2       0  0  0   216    2
 1272      27  0  1  1783    2      24  1  1   216    2      26  0  0  6325    2      27  0  0  1903    2
 1276       5  0  0  2432    2       0  0  0     0    0
  SECTION   188
 1278                                                             0       0                0       0
 PROCEDURE  189
  SECTION   190
 1280           0       0                0       0                0       0                0       0
 1284           0       0                0       0                0       0                0       0
 1288           0       0                0       0                0       0                0       0
 1292           0       0                0       0                0       0                0       0
 1296           0       0                0       0                0       0                0       0
 1300           0       0                0       0                0       0                0       0
 1304           0       0                0       0                0       0                0       0
 1308           0       0                0       0                0       0                0       0
 1312           0       0                0       0                0       0                0       0
 1316           0       0                0       0                0       0                0       0
 1320           0       0                0       0                0       0                0       0
 1324           0       0                0       0                0       0                0       0
 1328           0       0                0       0                0       0                0       0
 1332           0       0                0       0                0       0                0       0
 1336           0       0                0       0                0       0                0       0
 1340           0       0                0       0                0       0                0       0
 1344           0       0                0       0                0       0                0       0
 1348           0       0                0       0                0       0                0       0
 1352           0       0                0       0                0       0                0       0
 1356           0       0                0       0                0       0                0       0
 1360           0       0                0       0                0       0                0       0
 1364           0       0                0       0                0       0                0       0
 1368           0       0                0       0                0       0                0       0
 1372           0       0                0       0                0       0                0       0
 1376           0       0                0       0
  SECTION   191
 1378                                                             0       0                0       0
 1380           0       0                0       0                0       0                0       0
 1384           0       0                0       0                0       0                0       0
 1388           0       0                0       0                0       0                0       0
 1392           0       0                0       0                0       0                0       0
 1396           0       0                0       0                0       0                0       0
 1400           0       0                0       0                0       0                0       0
 1404           0       0                0       0                0       0                0       0
 1408           0       0                0       0                0       0                0       0
 1412           0       0                0       0                0       0                0       0
 1416           0       0                0       0                0       0                0       0
 1420           0       0                0       0                0       0                0       0
 1424           0       0                0       0                0       0                0       0
 1428           0       0                0       0                0       0                0       0
 1432           0       0                0       0                0       0                0       0
 1436           0       0                0       0                0       0                0       0
 1440           0       0                0       0                0       0                0       0
 1444           0       0                0       0                0       0                0       0
 1448           0       0                0       0                0       0                0       0
 1452           0       0                0       0                0       0                0       0
 1456           0       0                0       0                0       0                0       0
 1460           0       0                0       0                0       0                0       0
 1464           0       0                0       0                0       0                0       0
 1468           0       0                0       0                0       0                0       0
  SECTION   192
 1472           0       0                0       0                0       0                0       0
 1476           0       0                0       0                0       0                0       0
 1480           0       0                0       0                0       0                0       0
 1484           0       0                0       0                0       0                0       0
 1488           0       0                0       0                0       0                0       0
 1492           0       0                0       0                0       0                0       0
 1496           0       0                0       0                0       0                0       0
 1500           0       0                0       0                0       0                0       0
  SECTION   193
 1504           0       0                0       0                0       0                0       0
 1508           0       0                0       0                0       0                0       0
 1512           0       0                0       0                0       0                0       0
 1516           0       0                0       0                0       0                0       0
 1520           0       0                0       0                0       0                0       0
 1524           0       0                0       0                0       0                0       0
 1528           0       0                0       0                0       0                0       0
 1532           0       0                0       0                0       0                0       0
 1536           0       0                0       0                0       0                0       0
 1540           0       0                0       0                0       0                0       0
 1544           0       0                0       0                0       0                0       0
 1548           0       0                0       0                0       0                0       0
 1552           0       0                0       0                0       0                0       0
 1556           0       0                0       0